diff --git a/Packages/Dietetics/Routines/FH43P.m b/Packages/Dietetics/Routines/FH43P.m
new file mode 100644
index 00000000000..f59d3f506ff
--- /dev/null
+++ b/Packages/Dietetics/Routines/FH43P.m
@@ -0,0 +1,15 @@
+FH43P ;EPIP/WLE - Remove three FILES for file  ;9/14/18 3:45 PM
+ ;;5.5;DIETETICS;**43**;Jan 28, 2005;Build 66
+ ; PRE install routine for patch FH*5.5*43 to remove the entries from File 117.0243, 117.0241, 117.024
+ ; created in previous patch versions
+ ;
+EN ;
+ I $D(^FH(117.0243,"B","FHNO2"))=0 Q
+ S DIK="^FH(117.0243,"
+ S DA="" F  S DA=$O(^FH(117.0243,DA)) Q:DA=""  D ^DIK
+ S DIK="^FH(117.024,"
+ S DA="" F  S DA=$O(^FH(117.024,DA)) Q:DA=""  D ^DIK
+ S DIK="^FH(117.0241,"
+ S DA="" F  S DA=$O(^FH(117.0241,DA)) Q:DA=""  D ^DIK
+ K DIK,DA
+ Q
diff --git a/Packages/Dietetics/Routines/FHMTK1C.m b/Packages/Dietetics/Routines/FHMTK1C.m
index e05987374f2..4be2e19ffe1 100644
--- a/Packages/Dietetics/Routines/FHMTK1C.m
+++ b/Packages/Dietetics/Routines/FHMTK1C.m
@@ -1,5 +1,5 @@
-FHMTK1C ; HISC/NCA/RVD - Print Tray Tickets ;4/13/95  13:45
- ;;5.5;DIETETICS;;Jan 28, 2005
+FHMTK1C ; HISC/NCA/RVD - Print Tray Tickets ;6/21/2017  13:45
+ ;;5.5;DIETETICS;**43**;Jan 28, 2005;Build 66
 PRT ; Print 3 person per page
 START I $G(TABREC)="YES" QUIT
  S TL=0 D CHKH
@@ -12,7 +12,6 @@
  .I $D(MM(0,N1)) W ?$S(N1=1:2,N1=2:45,1:88),MEALDT
  .Q
  W ! S TL=TL+1 F N1=1:1 Q:'$D(PP(N1))  W ! S TL=TL+1 F NBR=1:1:3 I $D(PP(N1,NBR)) W ?$S(NBR=1:2,NBR=2:45,1:88),PP(N1,NBR)
- ;W ! S TL=TL+1 F N1=1:1 Q:'$D(PP(N1))  W ! S TL=TL+1
  W ! S TL=TL+1
  F N1=1:1 Q:'$D(MM(N1))  D:(TL+2)'<($S(FHBOT="Y":LN-5,1:LN-3)) NXT W !! S TL=TL+2 F NBR=1:1:3 I $D(MM(N1,NBR)) W ?$S(NBR=1:2,NBR=2:45,1:88),MM(N1,NBR)
  I TL<LN F L1=TL:1:$S(FHBOT="Y":LN-2,1:LN) W !
@@ -40,6 +39,8 @@
  Q
 HEAD F NM=1:1:3 W ! S TL=TL+1 F NBR=1:1:3 S X=$P($G(MM(0,NBR)),"^",NM) I X'="" D
  .S S1=$S(NBR=1:2,NBR=2:45,1:88) I NM=1 W ?S1,X Q
+ .; Print special flags 
+ .I NM=3 W ?S1,$$NOTE^FHMTK1D(MM(0,NBR),NBR,MFLG,MEAL)
  .W ?(S1+38-$L(X)),X Q
  Q
 FOOT W ! S TL=TL+1 F NBR=1:1:3 S S1=$S(NBR=1:2,NBR=2:45,1:88) W:$D(MM(0,NBR)) ?S1,HD
@@ -60,10 +61,8 @@
  .F K=0:0 S K=$O(DP(MEAL,X,K)) Q:K<1  D
  ..S Z=$G(P(MEAL,X,K)),TOT=TOT+Z
  ..I 'Z W $J("",8)_"  " Q
- ..;W $S(Z#1>0:$J(Z,8,1),1:$J(Z,6)_"  ")_"  " Q
  ..W $S(Z#1>0:$J(Z,8,2),1:$J(Z,8))_"  " Q
  .Q
- ;W $S(TOT#1>0:$J(TOT,9,1),1:$J(TOT,7)) W:MFLG @IOF Q
  W $S(TOT#1>0:$J(TOT,9,2),1:$J(TOT,9)) W:MFLG @IOF Q
 PRO S FTOT=0,X="" F  S X=$O(DP(MEAL,X)) Q:X=""  D
  .F K=0:0 S K=$O(DP(MEAL,X,K)) Q:K<1  D
@@ -72,7 +71,6 @@
  ..;W $S(Z#1>0:$J(Z,8,1),1:$J(Z,6)_"  ")_"  " Q
  ..W $S(Z#1>0:$J(Z,8,2),1:$J(Z,8))_"  " Q
  .Q
- ;W $S(FTOT#1>0:$J(FTOT,9,1),1:$J(FTOT,7)_"  ")
  W $S(FTOT#1>0:$J(FTOT,9,2),1:$J(FTOT,9)_"  ")
  Q
 SUM S:SL<80 SL=80 S MEALDT="All Meals "_MDT S PG=0 D HDR
@@ -83,10 +81,8 @@
  .F K=0:0 S K=$O(TP(X,K)) Q:K<1  D
  ..S Z=$G(T1(X,K)),TOT=TOT+Z
  ..I 'Z W $J("",8)_"  " Q
- ..;W $S(Z#1>0:$J(Z,8,1),1:$J(Z,6)_"  ")_"  " Q
  ..W $S(Z#1>0:$J(Z,8,2),1:$J(Z,8))_"  " Q
  .Q
- ;W $S(TOT#1>0:$J(TOT,9,1),1:$J(TOT,7)) Q
  W $S(TOT#1>0:$J(TOT,9,2),1:$J(TOT,9)) Q
 PR1 S FTOT=0,X="" F  S X=$O(TP(X)) Q:X=""  D
  .F K=0:0 S K=$O(TP(X,K)) Q:K<1  D
@@ -95,7 +91,6 @@
  ..;W $S(Z#1>0:$J(Z,8,1),1:$J(Z,6)_"  ")_"  " Q
  ..W $S(Z#1>0:$J(Z,8,2),1:$J(Z,8))_"  " Q
  .Q
- ;W $S(FTOT#1>0:$J(FTOT,9,1),1:$J(FTOT,7)_"  ")
  W $S(FTOT#1>0:$J(FTOT,9,2),1:$J(FTOT,9)_"  ")
  Q
 HDR ; Consolidated Recipe List Heading
diff --git a/Packages/Dietetics/Routines/FHMTK1D.m b/Packages/Dietetics/Routines/FHMTK1D.m
new file mode 100644
index 00000000000..f3eb9d6091b
--- /dev/null
+++ b/Packages/Dietetics/Routines/FHMTK1D.m
@@ -0,0 +1,83 @@
+FHMTK1D ;SFVAMC/APC - MEAL TICKET UTILITIES ; 5/29/2017 12:10
+ ;;5.5;DIETETICS;**43**;Jan 28, 2005;Build 66
+ ;
+ ;ICR#   Type  Description
+ ;-----  ----  --------------------------------------
+ ;10006  Sup   ^DIC
+ ;10018  Sup   ^DIE
+ ;10026  Sup   ^DIR
+ ; 2051  Sup   FIND^DIC  
+ ; 2051  Sup   FIND1^DIC  
+ ;10035  Sup   File #2
+ ;        
+DRV(DATA,PART,MFLG,MEAL)  ;
+ S MESS=$$NOTE(DATA,PART,$G(MFLG),$G(MEAL))
+ W !,MESS
+ Q
+ ;
+NOTE(MTID,PART,MFLG,MEAL) ;Called from HEAD^FHMTK1C
+ N FHWARD,PATNM,ARHCDFN,BID,FOUND,MSG,X
+ S MSG=""
+ S FHWARD=$P(MTID,U,2),X=$P(MTID,"("),X=$E(X,1,$L(X)-1)
+ I FHWARD="GA(L)" D NOTE2(X,FHWARD) S:MSG="" MSG="PPAPER ISOL/PLASTW"
+ I $E(FHWARD,1,3)="CLC" D NOTE2(X,FHWARD)
+ Q MSG
+ ;
+NOTE2(X,FHWARD)  ;
+ N FHNODE,FHP,FHIENP,FHTMP,FHIEN,FLDS,FLG,FHERR,DIERR
+ S FLDS="@;.1"
+ S FLG="PQ"
+ D FIND^DIC(2,,FLDS,FLG,X,,"B","I $E($G(^(.1)),1,3)=""CLC""",,"FHTMP","FHERR")
+ S FHIENP=0 F  S FHIENP=$O(FHTMP("DILIST",FHIENP)) Q:FHIENP=""  D
+ .S FHIEN=$P($G(FHTMP("DILIST",FHIENP,0)),U)
+ .S FHNODE=$G(^FHPT($$IEN(FHIEN),22))
+ .I 'MFLG S MSG=$S(MEAL="B":$P(FHNODE,U,1),MEAL="N":$P(FHNODE,U,2),1:$P(FHNODE,U,3)) Q
+ .S MSG=$S(PART=1:$P(FHNODE,U,1),PART=2:$P(FHNODE,U,2),1:$P(FHNODE,U,3))
+ Q
+ ;
+TTFLAG ;Edit tray ticket flag
+ N DIR,DIROUT,DIRUT,DTOUT,DUOUT
+ K DIR S DIR(0)="S^P:PATIENT;W:WARD",DIR("A")="Select by (P)atient or (W)ard",DIR("B")="P" D ^DIR
+ Q:$D(DIRUT)
+ I Y="P" D TTFP Q
+ I Y="W" D TTFW Q
+ Q
+ ;
+TTFP   ;Edit tray ticket flag by patient
+ N FHCDFN,FHCFDFN,DIE,DA,DIC,DR,DTOUT,DUOUT
+ F  K DIC S DIC="^DPT(",DIC(0)="AZEMQ" D ^DIC Q:Y'>0  D
+ .S FHCDFN=+Y
+ .S FHCFDFN=$$IEN(FHCDFN)
+ .I $$GET1^DIQ(2,FHCDFN,.1)'["CLC" W !!,?7,"Patient is not a CLC patient" Q
+ .I '$D(^FHPT(FHCFDFN,0)) W !!,*7,$$GET1^DIQ(2,FHCFDFN,.01)," is not in the Dietetics Patient file." Q
+ .S DIE="^FHPT(",DA=FHCFDFN,DR="22;22.1;22.2" D ^DIE
+ .W !
+ Q
+ ;
+TTFW   ;Edit tray ticket flag by ward
+ N FHCDFN,FHCFDFN,FHWARD,EXIT,FHTMP,FHERR,FLDS,FLG,FHIEN,FHPTIEN,DIE,DTOUT,DUOUT,Y
+ S FHCDFN=0,EXIT=0
+ S FLDS="@;.01"
+ S FLG="PQ"
+ D FIND^DIC(2,,FLDS,FLG,"CLC",,"CN",,,"FHTMP","FHERR")
+ F  S FHCDFN=$O(FHTMP("DILIST",FHCDFN)) Q:'FHCDFN  D  Q:EXIT
+ .N DA,DIE,DR,DTOUT,DUOUT
+ .S FHCFDFN=FHTMP("DILIST",FHCDFN,0),FHIEN=+FHCFDFN
+ .S FHPTIEN=$$IEN(FHIEN)  ;Get the FH file IEN
+ .I '$D(^FHPT(FHPTIEN)) W !,*7,$P(FHTMP("DILIST",FHCDFN,0),U,2)," is not in the Dietetics Patient file." Q
+ .W !!,?5,$$GET1^DIQ(2,FHIEN,.01),"   ",$$GET1^DIQ(2,FHIEN,.1),"   ",$$GET1^DIQ(2,FHIEN,.101)
+ .S DIE="^FHPT(",DA=FHPTIEN,DR="22;22.1;22.2" D ^DIE
+ .I $D(DTOUT)!$D(Y) S EXIT=1
+ Q
+ ;
+IEN(FHD0,FHDFILE) ;
+ ;           ;
+ ; Get pointer to NUTRITION PERSON (#115) given
+ ; the PATIENT (#2) or NEW PERSON (#200) pointer
+ ; Input
+ ;  FHD0 = PATIENT (#2) or NEW PERSON (#200) pointer (Req)
+ ;  FHDFILE = PATIENT (#2) or NEW PERSON (#200) file # (Opt, Dflt=2)
+ ; Output
+ ;  $$IEN() = Pointer to NUTRITION PERSON (#115)
+ N DFN,FOUND,LN,MFLG,MM,MSG,N1,NBR,NM,PART,PG,S1,SL,TL,X,Y,Z,DIERR,FHERR
+ Q +$$FIND1^DIC(115,"","X",$S($G(FHDFILE,2)=200:"N",1:"P")_FHD0,"B")
diff --git a/Packages/Dietetics/Routines/FHNO21.m b/Packages/Dietetics/Routines/FHNO21.m
index 31752e55c70..e16e5ad85ac 100644
--- a/Packages/Dietetics/Routines/FHNO21.m
+++ b/Packages/Dietetics/Routines/FHNO21.m
@@ -1,22 +1,33 @@
-FHNO21 ; HISC/REL/NCA - Print Feeding Labels ;8/26/94  12:01 
- ;;5.5;DIETETICS;**5,8**;Jan 28, 2005;Build 28
+FHNO21 ; HISC/REL/NCA - Print Feeding Labels ; 6/21/2017  12:01 
+ ;;5.5;DIETETICS;**5,8,43**;Jan 28, 2005;Build 66
+ ;;
+ ;ICR#   Type         Description
+ ;-----  ----         --------------------------------------
+ ;325    Controlled   ADM^VADPT2
+ ;
  S DTP=DT\1 D DTP^FH S DTE=DTP_" "_TIM_$S(TIM=10:"AM",1:"PM")
  S S1=$S(LAB=1:6,1:9),S2=LAB=2*5+33
  K N F L=0:0 S L=$O(^FH(118,L)) Q:L<1  S Y=^(L,0),N1=$P(Y,"^",1),^TMP($J,"I",$E(N1,1,26)_","_L)=L I '$D(^FH(118,L,"I")) S N(L)=$P(Y,"^",1,2)
  S LNOD="" F  S LNOD=$O(^TMP($J,"L",LNOD)) Q:LNOD=""  D P2
  Q
 P2 S PNOD="",N1=0 K C F  S PNOD=$O(^TMP($J,"L",LNOD,PNOD)) Q:PNOD=""  S Y2=^(PNOD) D P3
- ;I LAB<3 D P5 Q
  Q
 P3 S N1=N1+1
  S FHDFN=$P(PNOD,"~",3),WRD=$P(Y2,"^",10)
  D PATNAME^FHOMUTL I FHPTNM="" Q
  S ALG="" D ALG^FHCLN
  S NAM=FHPTNM,IS=$P(Y2,"^",9)
- ;S NAM=$P(^DPT(DFN,0),"^",1),IS=$P(Y2,"^",9) D PID^FHDPA
  I LAB>2 D LL Q
  I $P(FHPAR,"^",4)="Y" G P4
- W !,$E(NAM,1,S2-$L(WRD)),?(S2+2-$L(WRD)),$E(WRD,3,99),!?$S(LAB=1:3,1:0),FHBID,$S(ALG="":"",1:" *ALG") W:IS'="" ?(S2-22),"*NURSE" W ?(S2-15),DTE S LN=2 I LAB=2 W !! S LN=4
+ ; FH*5.5*43 BEGIN Add patient's diet orders 
+ W !,$E(NAM,1,S2-$L(WRD)),?(S2+2-$L(WRD)),$E(WRD,3,99)
+ ; *** Print Diet 1, 2, 3 
+ D DIETORD(DFN,FHDFN,"^1^2^3^")
+ W !?$S(LAB=1:3,1:0),FHBID  W:IS'="" ?(S2-22),"*NURSE" W ?(S2-15),DTE
+ ; *** Print Diet 4, 5
+ D DIETORD(DFN,FHDFN,"^4^5^")
+ S LN=2 I LAB=2 W !! S LN=4
+ ; FH*5.5*43 END Add patient's diet orders 
  F L=1:2:7 S Z=$P(Y2,"^",L) I Z'="" D
  .S Q=$P(Y2,"^",L+1) S:'Q Q=1
  .W !,$J(Q,2)," "
@@ -42,6 +53,20 @@
 P6 W !!?4,"**** PATIENTS = ",N1," ****",! S LN=LN+3
  S LN=LN#S1 I LN F L=LN+1:1:S1 W !
  Q
+ ; FH*5.5*43 BEGIN Add patient's diet orders 
+DIETORD(DFN,FHDFN,DIETS) ; 
+ N DIET,DIETORD,DIETORD0,PIECE,VADMVT,VAERR,VAINDT2
+ D ADM^VADPT2
+ I $G(VAERR)'>0,$G(VADMVT) D
+ .S DIETORD0=+$P($G(^FHPT(FHDFN,"A",VADMVT,0)),U,2)
+ .S DIETORD=$P($G(^FHPT(FHDFN,"A",VADMVT,"DI",DIETORD0,0)),U,2,6)
+ .F PIECE=1:1:5 I DIETS[(U_PIECE_U) D
+ ..N DIERR,DTOUT,DUOUT,FHERR
+ ..S DIET=+$P(DIETORD,U,PIECE)
+ ..W ?$P("36^51^66^36^51",U,PIECE),$$GET1^DIQ(111,DIET,6,,,"FHERR")
+ ..Q
+ .Q
+ ; FH*5.5*43 END Add patient's diet orders
 LL ;
  D ALG^FHCLN
  S FHCOL=$S(LAB=3:3,1:2)
diff --git a/Packages/Dietetics/Routines/FHQUE.m b/Packages/Dietetics/Routines/FHQUE.m
new file mode 100644
index 00000000000..caa900a49db
--- /dev/null
+++ b/Packages/Dietetics/Routines/FHQUE.m
@@ -0,0 +1,109 @@
+FHQUE ;EPIP/KLD - AUTO-QUEUE DIETETICS REPORTS & LABELS ;04/27/2017  3:31 PM
+ ;;5.5;DIETETICS;**43**;Jan 28, 2005;Build 66
+ ; Run shortly after midnight
+ ; Original version June 2004
+ ;ICR#   Type  Description
+ ;-----  ----  --------------------------------------
+ ;2056   Sup   GETI^DIQ
+ ;10000  Sup   DW^%DTC
+ ;10003  Sup   ^%DT
+ ;10006  Sup   ^DIC
+ ;10009  Sup   ^DICN: FILE, YN
+ ;10013  Sup   ^DIK
+ ;10018  Sup   ^DIE
+ ;10063  Sup   ^%ZTLOAD
+ ;10075  Sup   File 19, field .01, read w/Fileman
+ ;10114  Sup   File 3.5, field .01, read w/Fileman
+ ;
+ST F FHI=0:0 S FHI=$O(^FH(117.024,FHI)) Q:'FHI  D:$$GET1^DIQ(117.024,FHI,5)="YES" ML
+FHK K %,DA,DIC,DIE,DIK,DR,FH,FHI,FHII,FHIII,FHIEN,FHANS,X,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,^TMP("FHQUE",$J) Q
+ ;
+ML ;Main loop
+ S FH("FLAG")=0
+ I $O(^FH(117.024,FHI,2,0)) D  Q:'FH("FLAG")  ;Only run certain days of the week
+ .S X=DT D DW^%DTC S Y=Y+1,FH("FLAG")=$D(^FH(117.024,FHI,2,"B",Y))
+ S FH("TIME")=$$GET1^DIQ(117.024,FHI,1)
+ S:FH("TIME")<600 FH("TIME")=0_FH("TIME")
+ S %DT="R",X="T@"_FH("TIME") D ^%DT S ZTDTH=$S($D(FH("TEST")):$H,1:Y)
+ S ZTDESC=$$GET1^DIQ(117.024,FHI,.01)_" Auto Queue"
+ S ZTIO=$$GET1^DIQ(117.024,FHI,2)
+ S ZTRTN=$$GET1^DIQ(117.024,FHI,3)_U_$$GET1^DIQ(117.024,FHI,4)
+ F FHII=0:0 S FHII=$O(^FH(117.024,FHI,1,FHII)) Q:'FHII  D  ;Get necessary variables
+ .S FH("VAR")=$$GET1^DIQ(117.0242,FHII_","_FHI,.01)
+ .S @FH("VAR")=$TR($$GET1^DIQ(117.0242,FHII_","_FHI,1),"|",U)
+ .D:$$GET1^DIQ(117.0242,FHII_","_FHI,2)="YES"  ;Date variable
+ ..S X=$TR($$GET1^DIQ(117.0242,FHII_","_FHI,1),"|",U),%DT=$S(X["@":"R",1:"")
+ ..D ^%DT S @FH("VAR")=Y
+ .S X=$TR($$GET1^DIQ(117.0242,FHII_","_FHI,3),"|",U) X:X]"" X ;Xecutable code to set the variable
+ .S ZTSAVE(FH("VAR"))=@FH("VAR")
+ D ^%ZTLOAD W !!,"ZTSK=",$G(ZTSK) Q
+ ;
+TEST ;Test one particular option
+ R !!,"IEN: ",FHI:DTIME Q:U[FHI!'$T  S FH("TEST")=""
+ I FHI["?" S FHIEN=0 F  S FHIEN=$O(^FH(117.024,FHIEN)) G:'+FHIEN TEST W !,FHIEN,?10,$P(^FH(117.024,FHIEN,0),"^")
+ I '$D(^FH(117.024,FHI)) W !,"Invalid IEN!" G TEST
+ W ! S DIC="^%ZIS(1,",DIC(0)="QEAM",DIC("A")="Select printer: " D ^DIC
+ G TEST:Y<1 S ZTIO=$P(Y,U,2) D ML,FHK Q
+ ;
+UEDIT ;User edit of options
+ K ^TMP("FHQUE",$J) S FH("CNT")=0,FHI=""
+ F  S FHI=$O(^FH(117.0243,"B",FHI)) Q:FHI=""  D
+ .F FHII=0:0 S FHII=$O(^FH(117.0243,"B",FHI,FHII)) Q:'FHII  D
+ ..S X=$$GET1^DIQ(117.0243,FHII,.01) Q:X=""
+ ..S X(1)=$$GET1^DIQ(117.0243,FHII,1) S:X(1)="" X(1)="NULL"
+ ..S DIC(0)="BZ",DIC="^DIC(19," D ^DIC
+ ..S ^TMP("FHQUE",$J,X,X(1))=$P($G(Y(0)),U,2)_U_FHII
+ S (FHI,FHII)="" W !!,"Available options are:"
+ F  S FHI=$O(^TMP("FHQUE",$J,FHI)) Q:FHI=""  D
+ .F  S FHII=$O(^TMP("FHQUE",$J,FHI,FHII)) Q:FHII=""  D
+ ..S FH("CNT")=FH("CNT")+1,FH("SEL",FH("CNT"))=FHI_U_$P(^TMP("FHQUE",$J,FHI,FHII),U,2)
+ ..W !?3,$J(FH("CNT"),2),". ",FHI W:FHII'="NULL" ?18,FHII
+ ..W ?32,$P(^TMP("FHQUE",$J,FHI,FHII),U)
+UEDIT1 R !,"Your choice, choose by number: ",FH("OPT"):DTIME I U[FH("OPT")!'$T D FHK Q
+ I FH("OPT")["?" D FHSHOW R !!,?5,"Return to continue: ",FHANS:DTIME Q:'$T  G UEDIT
+ I FH("OPT")'?1.2N!('$D(FH("SEL",FH("OPT")))) W "  ??" G UEDIT1
+UEDIT2 R !!,"Time to run the option (use 4 digit military time): ",FH("TIME"):DTIME I U[FH("TIME")!'$T D FHK Q
+ I FH("TIME")'?4N!(FH("TIME")>2359)!($E(FH("TIME"),3)>5) W "  ??" G UEDIT2
+ S FH("NAME")=$P(FH("SEL",FH("OPT")),U)_" "_FH("TIME")
+ S FH("DA")=$P(FH("SEL",FH("OPT")),U,2)
+ S (DIC,DIE)="^FH(117.024,",DIC(0)="M",X=FH("NAME") D ^DIC S DA=+Y
+ I Y=-1 D  G UEDIT:%'=1
+ .W !!,"Add entry ",$C(34),FH("NAME"),$C(34) S %=1 D YN^DICN Q:%'=1
+ .S DIC(0)="L" K DD,DO D FILE^DICN
+ .S DA=+Y,DR="1///"_$P(FH("NAME")," ",2),FH("ADDED")=""
+ .D ^DIE W !,"Entry added."
+ W !!,"Now add/change the printer and whether it's active.",!
+ S DR="3///"_$$GET1^DIQ(117.0243,FH("DA"),3)_";4///"_$$GET1^DIQ(117.0243,FH("DA"),4)_";2R;5R//YES;20"
+ D ^DIE S ^FH(117.024,DA,1,0)="^117.0242^",X=DA
+ K DA,DIC,DIE,DR S DIC="^FH(117.024,"_X_",1,",DIC(0)="L",DA(1)=X,FH("BAD")=0
+ F FHI=0:0 S FHI=$O(^FH(117.0243,FH("DA"),1,FHI)) Q:'FHI!(FH("BAD"))  D
+ .S X=$$GET1^DIQ(117.024302,FHI_","_FH("DA"),.01),DIC("DR")=""
+ .D:$$GET1^DIQ(117.024302,FHI_","_FH("DA"),1)="YES" ASK Q:FH("BAD")
+ .K DIC("DR"),DD,DO D FILE^DICN S DA=+Y
+ .S DR="",DIE=DIC D DR,^DIE K FH("QUES")
+ .S:DR["3//" ^FH(117.024,DA(1),1,DA,1)=$TR(^FH(117.024,DA(1),1,DA,1),"|",U)
+ I 'FH("BAD") W !!,"Option ",$S($D(FH("ADDED")):"add",1:"chang"),"ed!" H 3
+ I FH("BAD") S DIK="^FH(117.024," D ^DIK W !!,"Invalid entry - deleted!"
+ K FH("ADDED") G UEDIT
+ ;
+ASK N %DT,FHII,FHWP,X,Y S FHWP=$$GET1^DIQ(117.024302,FHI_","_FH("DA"),5,"","FHWP")
+ F FHII=0:0 S FHII=$O(FHWP(FHII)) Q:'FHII  W !,FHWP(FHII)
+ R X:DTIME I U[X!'$T S FH("BAD")=1 Q
+ I FHWP(1)["meal","BNE"'[X W !,"B, N or E" G ASK
+ I FHWP(1)["meal","BNE"[X S FH("QUES")=$E(X,1) Q
+ I $$GET1^DIQ(117.024302,FHI_","_FH("DA"),3)="YES" S %DT="ET" D ^%DT I Y<1 W !,"Invalid date/time!" G ASK
+ S FH("QUES")=X Q
+ ;
+DR N X,FHFD S DR=""
+ F FHFD=1,2,3 D
+ .I $G(FH("QUES"))]"",FHFD=1 S X=FH("QUES")
+ .E  S X=$$GET1^DIQ(117.024302,FHI_","_FH("DA"),FHFD+1) Q:X=""
+ .S DR=DR_FHFD_"///"_X_";"
+ Q
+FHSHOW ;Display the print options that have been setup
+ N FHIEN
+ W !!,?5,"Print options and times currently set up",!!
+ S FHIEN="" F  S FHIEN=$O(^FH(117.024,FHIEN)) Q:FHIEN=""  D
+ . W !,?5,$P($G(^FH(117.024,FHIEN,0)),U)
+ . Q
+ Q
diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index 13fb7a66290..36712e5e5c2 100644
--- a/Packages/Kernel/Globals/14.4+TASKS.zwr
+++ b/Packages/Kernel/Globals/14.4+TASKS.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-15-MAR-2019 07:06:17 ZWR
-^%ZTSK(-1)=4326
+15-MAR-2019 07:53:53 ZWR
+^%ZTSK(-1)=4329
 ^%ZTSK(0)="TASKS^14.4^4237"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -39304,6 +39304,39 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4326,.3,"DUZ(",0)="@"
 ^%ZTSK(4326,.3,"XQSCH")=8
 ^%ZTSK(4326,.3,"XQY")=9891
+^%ZTSK(4327,0)="ZTSK^XQ1^.5^VISTA^65087,28218^65087,28218^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4327,.02)="^VISTA^^"
+^%ZTSK(4327,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4327,.04)=5623545018
+^%ZTSK(4327,.1)="B^65087,28218^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4327,.2)=""
+^%ZTSK(4327,.21)=""
+^%ZTSK(4327,.25)=""
+^%ZTSK(4327,.3,"DUZ(",0)="@"
+^%ZTSK(4327,.3,"XQSCH")=10
+^%ZTSK(4327,.3,"XQY")=8853
+^%ZTSK(4328,0)="ZTSK^XQ1^.5^VISTA^65087,28218^65087,28218^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4328,.02)="^VISTA^^"
+^%ZTSK(4328,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4328,.04)=5623545018
+^%ZTSK(4328,.1)="B^65087,28220^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4328,.2)=""
+^%ZTSK(4328,.21)=""
+^%ZTSK(4328,.25)=""
+^%ZTSK(4328,.3,"DUZ(",0)="@"
+^%ZTSK(4328,.3,"XQSCH")=11
+^%ZTSK(4328,.3,"XQY")=8412
+^%ZTSK(4329,0)="ZTSK^XQ1^.5^VISTA^65087,28218^65087,28218^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4329,.02)="^VISTA^^"
+^%ZTSK(4329,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4329,.04)=5623545018
+^%ZTSK(4329,.1)="B^65087,28222^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4329,.2)=""
+^%ZTSK(4329,.21)=""
+^%ZTSK(4329,.25)=""
+^%ZTSK(4329,.3,"DUZ(",0)="@"
+^%ZTSK(4329,.3,"XQSCH")=8
+^%ZTSK(4329,.3,"XQY")=9891
 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running"
diff --git a/Packages/Kernel/Globals/19+OPTION.zwr b/Packages/Kernel/Globals/19+OPTION.zwr
index 16aab6df523..c8540af649c 100644
--- a/Packages/Kernel/Globals/19+OPTION.zwr
+++ b/Packages/Kernel/Globals/19+OPTION.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: OPTION
-15-MAR-2019 00:42:12 ZWR
-^DIC(19,0)="OPTION^19I^11903^10436"
+15-MAR-2019 07:54:04 ZWR
+^DIC(19,0)="OPTION^19I^11907^10440"
 ^DIC(19,0,"DD")="#"
 ^DIC(19,0,"DEL")="#"
 ^DIC(19,0,"GL")="^DIC(19,"
@@ -6410,7 +6410,7 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,591,10,"C","WD",6)=""
 ^DIC(19,591,10,"C","WL",10)=""
 ^DIC(19,591,10,"C","WP",8)=""
-^DIC(19,591,99)="60878,539"
+^DIC(19,591,99)="65087,28227"
 ^DIC(19,591,"U")="DIETETIC LISTS/REPORTS"
 ^DIC(19,592,0)="FHTECH^Clinical Dietetics^^M^1^^^^^^^^^1"
 ^DIC(19,592,1,0)="^19.06^2^2^3020913^^^^"
@@ -8176,20 +8176,32 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,758,1,0)="^19.06^2^2^3030702^^^^"
 ^DIC(19,758,1,1,0)="This menu contains the options for producing the Diet Cards,"
 ^DIC(19,758,1,2,0)="Tray Tickets, and the Diet Pattern list."
-^DIC(19,758,10,0)="^19.01IP^7^4"
+^DIC(19,758,10,0)="^19.01IP^11^11"
 ^DIC(19,758,10,4,0)="757^PT"
 ^DIC(19,758,10,5,0)="759^PD"
 ^DIC(19,758,10,6,0)="764^LD"
 ^DIC(19,758,10,7,0)="765^HP"
+^DIC(19,758,10,8,0)="11907^FE"
+^DIC(19,758,10,9,0)="11904^FHQ"
+^DIC(19,758,10,10,0)="11905^FHE"
+^DIC(19,758,10,11,0)="11906^FHT"
 ^DIC(19,758,10,"B",757,4)=""
 ^DIC(19,758,10,"B",759,5)=""
 ^DIC(19,758,10,"B",764,6)=""
 ^DIC(19,758,10,"B",765,7)=""
+^DIC(19,758,10,"B",11904,9)=""
+^DIC(19,758,10,"B",11905,10)=""
+^DIC(19,758,10,"B",11906,11)=""
+^DIC(19,758,10,"B",11907,8)=""
+^DIC(19,758,10,"C","FE",8)=""
+^DIC(19,758,10,"C","FHE",10)=""
+^DIC(19,758,10,"C","FHQ",9)=""
+^DIC(19,758,10,"C","FHT",11)=""
 ^DIC(19,758,10,"C","HP",7)=""
 ^DIC(19,758,10,"C","LD",6)=""
 ^DIC(19,758,10,"C","PD",5)=""
 ^DIC(19,758,10,"C","PT",4)=""
-^DIC(19,758,99)="59970,46841"
+^DIC(19,758,99)="65087,28227"
 ^DIC(19,758,"U")="TRAY TICKETS"
 ^DIC(19,759,0)="FHDCRP^Print Diet Cards^^R^1^^^^^^^9"
 ^DIC(19,759,1,0)="^^4^4^3040630^"
@@ -125251,6 +125263,30 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,11903,25)="EN1^PSBMMRB"
 ^DIC(19,11903,99)="64701,57138"
 ^DIC(19,11903,"U")="REPORT FOR RESPIRATORY THERAPY"
+^DIC(19,11904,0)="FHQUE^Queue Diet Reports^^R^17^FHMGR^^^^^^"
+^DIC(19,11904,1,0)="^19.06^1^1^3170824^^^^"
+^DIC(19,11904,1,1,0)="Main task to auto-queue Diet reports and labels."
+^DIC(19,11904,25)="FHQUE"
+^DIC(19,11904,99.1)="64677,58690"
+^DIC(19,11904,"U")="QUEUE DIET REPORTS"
+^DIC(19,11905,0)="FHQUE OPTION EDIT^Queued Options Edit^^R^17^FHMGR^^^^^^"
+^DIC(19,11905,1,0)="^19.06^1^1^3170718^^"
+^DIC(19,11905,1,1,0)="Task to build the print queue from the available print options."
+^DIC(19,11905,25)="UEDIT^FHQUE"
+^DIC(19,11905,"U")="QUEUED OPTIONS EDIT"
+^DIC(19,11906,0)="FHQUE TEST^Test an Individual Queued Option^^R^17^FHMGR^^^^^^"
+^DIC(19,11906,1,0)="^^2^2^3170718^"
+^DIC(19,11906,1,1,0)="Task to submit to place a print option to taskman by the IEN of the "
+^DIC(19,11906,1,2,0)="option."
+^DIC(19,11906,25)="TEST^FHQUE"
+^DIC(19,11906,"U")="TEST AN INDIVIDUAL QUEUED OPTI"
+^DIC(19,11907,0)="FHMTK1D^Tray Ticket Flag Edit^^R^17^^^^^^^9"
+^DIC(19,11907,1,0)="^19.06^2^2^3180503^^^^"
+^DIC(19,11907,1,1,0)="This option is used to enter or edit the flag the is printed at the "
+^DIC(19,11907,1,2,0)="bottome of the tray tickets for Breakfast, Noon and Dinner."
+^DIC(19,11907,25)="TTFLAG^FHMTK1D"
+^DIC(19,11907,99)="64449,34996"
+^DIC(19,11907,"U")="TRAY TICKET FLAG EDIT"
 ^DIC(19,"%",0)="^1.005^2^2"
 ^DIC(19,"%",1,0)="XU"
 ^DIC(19,"%",2,0)="XQ"
@@ -136513,6 +136549,10 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"AD",11901,11902,2)=""
 ^DIC(19,"AD",11902,11899,5)=""
 ^DIC(19,"AD",11903,8801,12)=""
+^DIC(19,"AD",11904,758,9)=""
+^DIC(19,"AD",11905,758,10)=""
+^DIC(19,"AD",11906,758,11)=""
+^DIC(19,"AD",11907,758,8)=""
 ^DIC(19,"AOR","Rad/Nuc Med",5449)=""
 ^DIC(19,"AOR","Surgery Request",6163)=""
 ^DIC(19,"AT",3190222.154935,11222)=""
@@ -136585,6 +136625,27 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"AT",3190315.003834,11903)=""
 ^DIC(19,"AT",3190315.003834,"8801I11903")=""
 ^DIC(19,"AT",3190315.003834,"8801S11903")=""
+^DIC(19,"AT",3190315.075027,758)=""
+^DIC(19,"AT",3190315.075027,11904)=""
+^DIC(19,"AT",3190315.075027,11905)=""
+^DIC(19,"AT",3190315.075027,11906)=""
+^DIC(19,"AT",3190315.075027,11907)=""
+^DIC(19,"AT",3190315.075027,"758I11904")=""
+^DIC(19,"AT",3190315.075027,"758I11905")=""
+^DIC(19,"AT",3190315.075027,"758I11906")=""
+^DIC(19,"AT",3190315.075027,"758I11907")=""
+^DIC(19,"AT",3190315.075027,"758I757")=""
+^DIC(19,"AT",3190315.075027,"758I759")=""
+^DIC(19,"AT",3190315.075027,"758I764")=""
+^DIC(19,"AT",3190315.075027,"758I765")=""
+^DIC(19,"AT",3190315.075027,"758S11904")=""
+^DIC(19,"AT",3190315.075027,"758S11905")=""
+^DIC(19,"AT",3190315.075027,"758S11906")=""
+^DIC(19,"AT",3190315.075027,"758S11907")=""
+^DIC(19,"AT",3190315.075027,"758S757")=""
+^DIC(19,"AT",3190315.075027,"758S759")=""
+^DIC(19,"AT",3190315.075027,"758S764")=""
+^DIC(19,"AT",3190315.075027,"758S765")=""
 ^DIC(19,"AXQ","P0","MICRO")="65066,56975"
 ^DIC(19,"AXQ","P230",0)="65066,6873"
 ^DIC(19,"AXQ","P230","1^1")="236^0"
@@ -154349,6 +154410,7 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"B","FHMNBRPT",9496)=""
 ^DIC(19,"B","FHMNINQ",9258)=""
 ^DIC(19,"B","FHMNREP",9259)=""
+^DIC(19,"B","FHMTK1D",11907)=""
 ^DIC(19,"B","FHMTKE",760)=""
 ^DIC(19,"B","FHMTKH",765)=""
 ^DIC(19,"B","FHMTKM",758)=""
@@ -154495,6 +154557,9 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"B","FHPROM",595)=""
 ^DIC(19,"B","FHPRR1",660)=""
 ^DIC(19,"B","FHPURGE",604)=""
+^DIC(19,"B","FHQUE",11904)=""
+^DIC(19,"B","FHQUE OPTION EDIT",11905)=""
+^DIC(19,"B","FHQUE TEST",11906)=""
 ^DIC(19,"B","FHREC1",623)=""
 ^DIC(19,"B","FHREC10",661)=""
 ^DIC(19,"B","FHREC11",751)=""
@@ -170415,6 +170480,7 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"C","QUEUE BATCH PRINT LETTERS",5246)=""
 ^DIC(19,"C","QUEUE CMOP PRESCRIPTION",10776)=""
 ^DIC(19,"C","QUEUE DATA FOR TRANSMISSION",5122)=""
+^DIC(19,"C","QUEUE DIET REPORTS",11904)=""
 ^DIC(19,"C","QUEUE MANAGEMENT",369)=""
 ^DIC(19,"C","QUEUE MEANS TEST COMPILATION O",2341)=""
 ^DIC(19,"C","QUEUE MRA EXTRACT",9160)=""
@@ -170424,6 +170490,7 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"C","QUEUEABLE ISO TERMINATED USER ",10050)=""
 ^DIC(19,"C","QUEUED INTERIM DAILY REPORT (F",886)=""
 ^DIC(19,"C","QUEUED INTERIM DAILY REPORT (S",887)=""
+^DIC(19,"C","QUEUED OPTIONS EDIT",11905)=""
 ^DIC(19,"C","QUEUED PURGE OF FISCAL DOCUMEN",2902)=""
 ^DIC(19,"C","QUEUES WITH MESSAGES TO TRANSM",345)=""
 ^DIC(19,"C","QUICK ATTENDANCE UPDATE OF PAS",4647)=""
@@ -172190,6 +172257,7 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"C","TERMINATE RESPONSIBILITY",10811)=""
 ^DIC(19,"C","TERMINATED BY RC/DOJ",3074)=""
 ^DIC(19,"C","TEST A HEALTH SUMMARY OBJECT",9573)=""
+^DIC(19,"C","TEST AN INDIVIDUAL QUEUED OPTI",11906)=""
 ^DIC(19,"C","TEST AN OPTION NOT IN YOUR MEN",423)=""
 ^DIC(19,"C","TEST CLAIM EDI TRANSMISSION RE",10400)=""
 ^DIC(19,"C","TEST CONTROL CODES (IV)",9466)=""
@@ -172435,6 +172503,7 @@ OSEHRA ZGO Export: OPTION
 ^DIC(19,"C","TRANSPORT A DISTRIBUTION",235)=""
 ^DIC(19,"C","TRAVEL PATTERN REPORT",11454)=""
 ^DIC(19,"C","TRAVEL PAYMENT ONLY",5102)=""
+^DIC(19,"C","TRAY TICKET FLAG EDIT",11907)=""
 ^DIC(19,"C","TRAY TICKETS",758)=""
 ^DIC(19,"C","TRAY TICKETS/DIET CARDS MANAGE",763)=""
 ^DIC(19,"C","TREASURY CROSS-SERVICING IAI R",11871)=""
diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
index b55501d783c..e325a1dd3b1 100644
--- a/Packages/Kernel/Globals/9.4+PACKAGE.zwr
+++ b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: PACKAGE
-15-MAR-2019 07:06:19 ZWR
+15-MAR-2019 07:53:59 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -35945,7 +35945,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,9,22,4,0)="5.5^3050202^3050311^1"
 ^DIC(9.4,9,22,4,1,0)="^9.54^1^1^3050311"
 ^DIC(9.4,9,22,4,1,1,0)="OUTPATIENT MEALS"
-^DIC(9.4,9,22,4,"PAH",0)="^9.4901^44^44"
+^DIC(9.4,9,22,4,"PAH",0)="^9.4901^45^45"
 ^DIC(9.4,9,22,4,"PAH",1,0)="1 SEQ #1^3050709^1"
 ^DIC(9.4,9,22,4,"PAH",2,0)="2 SEQ #2^3060308^1"
 ^DIC(9.4,9,22,4,"PAH",3,0)="3 SEQ #3^3060308^1"
@@ -36191,11 +36191,15 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,9,22,4,"PAH",44,1,4,0)="(#120.82). This new food allergy must be added to the routine FHSELA2 "
 ^DIC(9.4,9,22,4,"PAH",44,1,5,0)="in order to be mapped as allergy type food preference dislikes in the "
 ^DIC(9.4,9,22,4,"PAH",44,1,6,0)="Dietetics package."
+^DIC(9.4,9,22,4,"PAH",45,0)="43^3190315.075027^17"
+^DIC(9.4,9,22,4,"PAH",45,1,0)="^^1^1^3190315"
+^DIC(9.4,9,22,4,"PAH",45,1,1,0)="DIETETICS"
 ^DIC(9.4,9,22,4,"PAH","B",8,9)=""
 ^DIC(9.4,9,22,4,"PAH","B",18,17)=""
 ^DIC(9.4,9,22,4,"PAH","B",40,39)=""
 ^DIC(9.4,9,22,4,"PAH","B",41,40)=""
 ^DIC(9.4,9,22,4,"PAH","B",42,41)=""
+^DIC(9.4,9,22,4,"PAH","B",43,45)=""
 ^DIC(9.4,9,22,4,"PAH","B",44,42)=""
 ^DIC(9.4,9,22,4,"PAH","B",45,43)=""
 ^DIC(9.4,9,22,4,"PAH","B",46,44)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index 179541d2a1b..f501915a291 100644
--- a/Packages/Kernel/Globals/9.6+BUILD.zwr
+++ b/Packages/Kernel/Globals/9.6+BUILD.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: BUILD
-15-MAR-2019 07:08:39 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11125^10765"
+15-MAR-2019 07:56:27 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11126^10766"
 ^XPD(9.6,1,0)="KERNEL - VIRGIN INSTALL 8.0^3^0^2950703^n"
 ^XPD(9.6,1,1,0)="^^3^3^2950703^"
 ^XPD(9.6,1,1,1,0)="Install files needed to support Kernel 8.0.  This package is"
@@ -1204546,6 +1204546,112 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11125,"REQB",0)="^9.611^1^1"
 ^XPD(9.6,11125,"REQB",1,0)="GMRC*3.0*81^1"
 ^XPD(9.6,11125,"REQB","B","GMRC*3.0*81",1)=""
+^XPD(9.6,11126,0)="FH*5.5*43^9^0^3190104^y"
+^XPD(9.6,11126,1,0)="^^1^1^3170501^"
+^XPD(9.6,11126,1,1,0)="DIETETICS"
+^XPD(9.6,11126,4,0)="^9.64PA^115^4"
+^XPD(9.6,11126,4,115,0)=115
+^XPD(9.6,11126,4,115,2,0)="^9.641^115^1"
+^XPD(9.6,11126,4,115,2,115,0)="NUTRITION PERSON  (File-top level)"
+^XPD(9.6,11126,4,115,2,115,1,0)="^9.6411^22.2^3"
+^XPD(9.6,11126,4,115,2,115,1,22,0)="BREAKFAST FLAG"
+^XPD(9.6,11126,4,115,2,115,1,22.1,0)="NOON"
+^XPD(9.6,11126,4,115,2,115,1,22.2,0)="EVENING FLAG"
+^XPD(9.6,11126,4,115,222)="y^y^p^^^^n^^n"
+^XPD(9.6,11126,4,115,224)=""
+^XPD(9.6,11126,4,117.024,0)=117.024
+^XPD(9.6,11126,4,117.024,222)="y^y^f^^n^^n^r^n"
+^XPD(9.6,11126,4,117.0241,0)=117.0241
+^XPD(9.6,11126,4,117.0241,222)="y^y^f^^n^^y^r^n"
+^XPD(9.6,11126,4,117.0243,0)=117.0243
+^XPD(9.6,11126,4,117.0243,222)="y^y^f^^n^^y^r^n"
+^XPD(9.6,11126,4,"APDD",115,115)=""
+^XPD(9.6,11126,4,"APDD",115,115,22)=""
+^XPD(9.6,11126,4,"APDD",115,115,22.1)=""
+^XPD(9.6,11126,4,"APDD",115,115,22.2)=""
+^XPD(9.6,11126,4,"B",115,115)=""
+^XPD(9.6,11126,4,"B",117.024,117.024)=""
+^XPD(9.6,11126,4,"B",117.0241,117.0241)=""
+^XPD(9.6,11126,4,"B",117.0243,117.0243)=""
+^XPD(9.6,11126,6)="^45"
+^XPD(9.6,11126,6.3)=66
+^XPD(9.6,11126,"ABPKG")="n"
+^XPD(9.6,11126,"INI")="FH43P"
+^XPD(9.6,11126,"INID")="^y^n"
+^XPD(9.6,11126,"INIT")="FHP43"
+^XPD(9.6,11126,"KRN",0)="^9.67PA^779.2^20"
+^XPD(9.6,11126,"KRN",.4,0)=.4
+^XPD(9.6,11126,"KRN",.401,0)=.401
+^XPD(9.6,11126,"KRN",.402,0)=.402
+^XPD(9.6,11126,"KRN",.403,0)=.403
+^XPD(9.6,11126,"KRN",.5,0)=.5
+^XPD(9.6,11126,"KRN",.84,0)=.84
+^XPD(9.6,11126,"KRN",3.6,0)=3.6
+^XPD(9.6,11126,"KRN",3.8,0)=3.8
+^XPD(9.6,11126,"KRN",9.2,0)=9.2
+^XPD(9.6,11126,"KRN",9.8,0)=9.8
+^XPD(9.6,11126,"KRN",9.8,"NM",0)="^9.68A^5^4"
+^XPD(9.6,11126,"KRN",9.8,"NM",1,0)="FHQUE^^0^B25912403"
+^XPD(9.6,11126,"KRN",9.8,"NM",3,0)="FHNO21^^0^B21077978"
+^XPD(9.6,11126,"KRN",9.8,"NM",4,0)="FHMTK1C^^0^B20731472"
+^XPD(9.6,11126,"KRN",9.8,"NM",5,0)="FHMTK1D^^0^B11272478"
+^XPD(9.6,11126,"KRN",9.8,"NM","B","FHMTK1C",4)=""
+^XPD(9.6,11126,"KRN",9.8,"NM","B","FHMTK1D",5)=""
+^XPD(9.6,11126,"KRN",9.8,"NM","B","FHNO21",3)=""
+^XPD(9.6,11126,"KRN",9.8,"NM","B","FHQUE",1)=""
+^XPD(9.6,11126,"KRN",19,0)=19
+^XPD(9.6,11126,"KRN",19,"NM",0)="^9.68A^9^5"
+^XPD(9.6,11126,"KRN",19,"NM",4,0)="FHQUE^^0"
+^XPD(9.6,11126,"KRN",19,"NM",5,0)="FHQUE OPTION EDIT^^0"
+^XPD(9.6,11126,"KRN",19,"NM",6,0)="FHQUE TEST^^0"
+^XPD(9.6,11126,"KRN",19,"NM",8,0)="FHMTK1D^^0^"
+^XPD(9.6,11126,"KRN",19,"NM",9,0)="FHMTKM^^2"
+^XPD(9.6,11126,"KRN",19,"NM","B","FHMTK1D",8)=""
+^XPD(9.6,11126,"KRN",19,"NM","B","FHMTKM",9)=""
+^XPD(9.6,11126,"KRN",19,"NM","B","FHQUE",4)=""
+^XPD(9.6,11126,"KRN",19,"NM","B","FHQUE OPTION EDIT",5)=""
+^XPD(9.6,11126,"KRN",19,"NM","B","FHQUE TEST",6)=""
+^XPD(9.6,11126,"KRN",19.1,0)=19.1
+^XPD(9.6,11126,"KRN",19.1,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",101,0)=101
+^XPD(9.6,11126,"KRN",101,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",409.61,0)=409.61
+^XPD(9.6,11126,"KRN",409.61,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",771,0)=771
+^XPD(9.6,11126,"KRN",771,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",779.2,0)=779.2
+^XPD(9.6,11126,"KRN",779.2,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",870,0)=870
+^XPD(9.6,11126,"KRN",870,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11126,"KRN",8989.51,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11126,"KRN",8989.52,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN",8994,0)=8994
+^XPD(9.6,11126,"KRN",8994,"NM",0)="^9.68A^^"
+^XPD(9.6,11126,"KRN","B",.4,.4)=""
+^XPD(9.6,11126,"KRN","B",.401,.401)=""
+^XPD(9.6,11126,"KRN","B",.402,.402)=""
+^XPD(9.6,11126,"KRN","B",.403,.403)=""
+^XPD(9.6,11126,"KRN","B",.5,.5)=""
+^XPD(9.6,11126,"KRN","B",.84,.84)=""
+^XPD(9.6,11126,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11126,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11126,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11126,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11126,"KRN","B",19,19)=""
+^XPD(9.6,11126,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11126,"KRN","B",101,101)=""
+^XPD(9.6,11126,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11126,"KRN","B",771,771)=""
+^XPD(9.6,11126,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11126,"KRN","B",870,870)=""
+^XPD(9.6,11126,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11126,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11126,"KRN","B",8994,8994)=""
+^XPD(9.6,11126,"QDEF")="^^^^NO^^^^NO^^NO"
+^XPD(9.6,11126,"QUES",0)="^9.62^^"
+^XPD(9.6,11126,"REQB",0)="^9.611^^"
 ^XPD(9.6,"B","A4A7*1.01*10",1312)=""
 ^XPD(9.6,"B","A4A7*1.01*11",1900)=""
 ^XPD(9.6,"B","A4A7*1.01*9",339)=""
@@ -1206782,6 +1206888,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","FH*5.5*40",10078)=""
 ^XPD(9.6,"B","FH*5.5*41",10171)=""
 ^XPD(9.6,"B","FH*5.5*42",10358)=""
+^XPD(9.6,"B","FH*5.5*43",11126)=""
 ^XPD(9.6,"B","FH*5.5*44",10700)=""
 ^XPD(9.6,"B","FH*5.5*45",10785)=""
 ^XPD(9.6,"B","FH*5.5*46",11071)=""
@@ -1216294,6 +1216401,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",9,10700)=""
 ^XPD(9.6,"C",9,10785)=""
 ^XPD(9.6,"C",9,11071)=""
+^XPD(9.6,"C",9,11126)=""
 ^XPD(9.6,"C",11,56)=""
 ^XPD(9.6,"C",11,361)=""
 ^XPD(9.6,"C",11,377)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index 32d85343aec..95f3aa85146 100644
--- a/Packages/Kernel/Globals/9.7+INSTALL.zwr
+++ b/Packages/Kernel/Globals/9.7+INSTALL.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: INSTALL
-15-MAR-2019 07:09:03 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^10844^10702"
+15-MAR-2019 07:56:50 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^10845^10703"
 ^XPD(9.7,1,0)="KERNEL - VIRGIN INSTALL 8.0^^2960531.10393^1^1^^^^3^0^.5"
 ^XPD(9.7,1,1)="2960604.094043^2960604.094043^2960604.094047"
 ^XPD(9.7,1,2)="Kernel 8.0 from ISC-SF by RSD  ;Created on Jul 10, 1995@09:28:18"
@@ -834049,6 +834049,99 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,10844,"RTN",2,0)="GMRCSLM2"
 ^XPD(9.7,10844,"RTN","B","GMRC110P",1)=""
 ^XPD(9.7,10844,"RTN","B","GMRCSLM2",2)=""
+^XPD(9.7,10845,0)="FH*5.5*43^9^3190315.075021^10845^1^^0^0FH*5.5*43^3^0^17"
+^XPD(9.7,10845,1)="3190315.075027^3190315.075027^3190315.075027^3190104"
+^XPD(9.7,10845,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,10845,4,0)="^9.714P^117.0243^4"
+^XPD(9.7,10845,4,115,0)="115^3190315.075027"
+^XPD(9.7,10845,4,117.024,0)="117.024^3190315.075027"
+^XPD(9.7,10845,4,117.0241,0)="117.0241^3190315.075027^3190315.075027"
+^XPD(9.7,10845,4,117.0243,0)="117.0243^3190315.075027^3190315.075027"
+^XPD(9.7,10845,4,"B",115,115)=""
+^XPD(9.7,10845,4,"B",117.024,117.024)=""
+^XPD(9.7,10845,4,"B",117.0241,117.0241)=""
+^XPD(9.7,10845,4,"B",117.0243,117.0243)=""
+^XPD(9.7,10845,6)="^45"
+^XPD(9.7,10845,"INI",0)="^9.713^2^2"
+^XPD(9.7,10845,"INI",1,0)="XPD PREINSTALL COMPLETED^3190315.075027"
+^XPD(9.7,10845,"INI",2,0)="XPD PREINSTALL STARTED^3190315.075027"
+^XPD(9.7,10845,"INI",2,1)="^FH43P"
+^XPD(9.7,10845,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,10845,"INI","B","XPD PREINSTALL STARTED",2)=""
+^XPD(9.7,10845,"INIT",0)="^9.716^2^2"
+^XPD(9.7,10845,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190315.075027"
+^XPD(9.7,10845,"INIT",2,0)="XPD POSTINSTALL STARTED^3190315.075027"
+^XPD(9.7,10845,"INIT",2,1)="^FHP43"
+^XPD(9.7,10845,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,10845,"INIT","B","XPD POSTINSTALL STARTED",2)=""
+^XPD(9.7,10845,"KRN",0)="^9.715P^19^1"
+^XPD(9.7,10845,"KRN",19,0)="19^3190315.075027^18"
+^XPD(9.7,10845,"KRN","AC",18,19)=""
+^XPD(9.7,10845,"KRN","B",19,19)=""
+^XPD(9.7,10845,"MES",0)="^^34^34^3190315"
+^XPD(9.7,10845,"MES",1,0)=" "
+^XPD(9.7,10845,"MES",2,0)=" Install Started for FH*5.5*43 : "
+^XPD(9.7,10845,"MES",3,0)="               Mar 15, 2019@07:50:27"
+^XPD(9.7,10845,"MES",4,0)=" "
+^XPD(9.7,10845,"MES",5,0)="Build Distribution Date: Jan 04, 2019"
+^XPD(9.7,10845,"MES",6,0)=" "
+^XPD(9.7,10845,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,10845,"MES",8,0)="               Mar 15, 2019@07:50:27"
+^XPD(9.7,10845,"MES",9,0)=" "
+^XPD(9.7,10845,"MES",10,0)=" Running Pre-Install Routine: ^FH43P"
+^XPD(9.7,10845,"MES",11,0)=" "
+^XPD(9.7,10845,"MES",12,0)=" Installing Data Dictionaries: "
+^XPD(9.7,10845,"MES",13,0)="               Mar 15, 2019@07:50:27"
+^XPD(9.7,10845,"MES",14,0)=" "
+^XPD(9.7,10845,"MES",15,0)=" Installing Data: "
+^XPD(9.7,10845,"MES",16,0)="               Mar 15, 2019@07:50:27"
+^XPD(9.7,10845,"MES",17,0)=" "
+^XPD(9.7,10845,"MES",18,0)=" Installing PACKAGE COMPONENTS: "
+^XPD(9.7,10845,"MES",19,0)=" "
+^XPD(9.7,10845,"MES",20,0)=" Installing OPTION"
+^XPD(9.7,10845,"MES",21,0)="               Mar 15, 2019@07:50:27"
+^XPD(9.7,10845,"MES",22,0)=" "
+^XPD(9.7,10845,"MES",23,0)=" Running Post-Install Routine: ^FHP43"
+^XPD(9.7,10845,"MES",24,0)=" "
+^XPD(9.7,10845,"MES",25,0)=" Updating Routine file..."
+^XPD(9.7,10845,"MES",26,0)=" "
+^XPD(9.7,10845,"MES",27,0)=" Updating KIDS files..."
+^XPD(9.7,10845,"MES",28,0)=" "
+^XPD(9.7,10845,"MES",29,0)=" FH*5.5*43 Installed. "
+^XPD(9.7,10845,"MES",30,0)="               Mar 15, 2019@07:50:27"
+^XPD(9.7,10845,"MES",31,0)=" "
+^XPD(9.7,10845,"MES",32,0)=" Not a production UCI"
+^XPD(9.7,10845,"MES",33,0)=" "
+^XPD(9.7,10845,"MES",34,0)=" NO Install Message sent "
+^XPD(9.7,10845,"QUES",0)="^9.701^3^3"
+^XPD(9.7,10845,"QUES",1,0)="XPO1"
+^XPD(9.7,10845,"QUES",1,1)=0
+^XPD(9.7,10845,"QUES",1,"A")="Want KIDS to Rebuild Menu Trees Upon Completion of Install"
+^XPD(9.7,10845,"QUES",1,"B")="NO"
+^XPD(9.7,10845,"QUES",2,0)="XPI1"
+^XPD(9.7,10845,"QUES",2,1)=0
+^XPD(9.7,10845,"QUES",2,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,10845,"QUES",2,"B")="NO"
+^XPD(9.7,10845,"QUES",3,0)="XPZ1"
+^XPD(9.7,10845,"QUES",3,1)=0
+^XPD(9.7,10845,"QUES",3,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,10845,"QUES",3,"B")="NO"
+^XPD(9.7,10845,"QUES","B","XPI1",2)=""
+^XPD(9.7,10845,"QUES","B","XPO1",1)=""
+^XPD(9.7,10845,"QUES","B","XPZ1",3)=""
+^XPD(9.7,10845,"RTN",0)="^9.704A^6^6"
+^XPD(9.7,10845,"RTN",1,0)="FH43P"
+^XPD(9.7,10845,"RTN",2,0)="FHMTK1C"
+^XPD(9.7,10845,"RTN",3,0)="FHMTK1D"
+^XPD(9.7,10845,"RTN",4,0)="FHNO21"
+^XPD(9.7,10845,"RTN",5,0)="FHP43"
+^XPD(9.7,10845,"RTN",6,0)="FHQUE"
+^XPD(9.7,10845,"RTN","B","FH43P",1)=""
+^XPD(9.7,10845,"RTN","B","FHMTK1C",2)=""
+^XPD(9.7,10845,"RTN","B","FHMTK1D",3)=""
+^XPD(9.7,10845,"RTN","B","FHNO21",4)=""
+^XPD(9.7,10845,"RTN","B","FHP43",5)=""
+^XPD(9.7,10845,"RTN","B","FHQUE",6)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -844751,6 +844844,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",10842,1,10842)=""
 ^XPD(9.7,"ASP",10843,1,10843)=""
 ^XPD(9.7,"ASP",10844,1,10844)=""
+^XPD(9.7,"ASP",10845,1,10845)=""
 ^XPD(9.7,"B","A4A7*1.01*10",1037)=""
 ^XPD(9.7,"B","A4A7*1.01*11",1611)=""
 ^XPD(9.7,"B","A4A7*1.01*11",1631)=""
@@ -846892,6 +846986,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","FH*5.5*40",9783)=""
 ^XPD(9.7,"B","FH*5.5*41",9878)=""
 ^XPD(9.7,"B","FH*5.5*42",10065)=""
+^XPD(9.7,"B","FH*5.5*43",10845)=""
 ^XPD(9.7,"B","FH*5.5*44",10408)=""
 ^XPD(9.7,"B","FH*5.5*45",10494)=""
 ^XPD(9.7,"B","FH*5.5*46",10790)=""
diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
index 844bb7c43b5..8dc15a018e3 100644
--- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr
+++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: ROUTINE
-15-MAR-2019 07:06:24 ZWR
-^DIC(9.8,0)="ROUTINE^9.8^35817^29244"
+15-MAR-2019 07:54:02 ZWR
+^DIC(9.8,0)="ROUTINE^9.8^35821^29248"
 ^DIC(9.8,0,"DD")="#"
 ^DIC(9.8,0,"DEL")="#"
 ^DIC(9.8,0,"GL")="^DIC(9.8,"
@@ -41718,7 +41718,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,10032,8,1,0)="COMPARE DIETETICS 5.0^10574665/20145458"
 ^DIC(9.8,10032,8,"B","COMPARE DIETETICS 5.0",1)=""
 ^DIC(9.8,10033,0)="FHMTK1C^R"
-^DIC(9.8,10033,4.1)=3050311.130048
+^DIC(9.8,10033,4.1)=3190315.075027
 ^DIC(9.8,10033,8,0)="^9.818^1^1"
 ^DIC(9.8,10033,8,1,0)="COMPARE DIETETICS 5.0^8620526/21105135"
 ^DIC(9.8,10033,8,"B","COMPARE DIETETICS 5.0",1)=""
@@ -41763,7 +41763,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,10041,8,1,0)="COMPARE DIETETICS 5.0^12273770/22999730"
 ^DIC(9.8,10041,8,"B","COMPARE DIETETICS 5.0",1)=""
 ^DIC(9.8,10042,0)="FHNO21^R"
-^DIC(9.8,10042,4.1)=3071212.210903
+^DIC(9.8,10042,4.1)=3190315.075027
 ^DIC(9.8,10042,8,0)="^9.818^1^1"
 ^DIC(9.8,10042,8,1,0)="COMPARE DIETETICS 5.0^6959419/14924290"
 ^DIC(9.8,10042,8,"B","COMPARE DIETETICS 5.0",1)=""
@@ -115687,6 +115687,14 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,35816,4.1)=3190315.061414
 ^DIC(9.8,35817,0)="GMRC110P^R"
 ^DIC(9.8,35817,4.1)=3190315.070255
+^DIC(9.8,35818,0)="FH43P^R"
+^DIC(9.8,35818,4.1)=3190315.075027
+^DIC(9.8,35819,0)="FHMTK1D^R"
+^DIC(9.8,35819,4.1)=3190315.075027
+^DIC(9.8,35820,0)="FHP43^R"
+^DIC(9.8,35820,4.1)=3190315.075027
+^DIC(9.8,35821,0)="FHQUE^R"
+^DIC(9.8,35821,4.1)=3190315.075027
 ^DIC(9.8,"%",0)="^1.005^1^1"
 ^DIC(9.8,"%",1,0)="XU"
 ^DIC(9.8,"%","B","XU",1)=""
@@ -121327,6 +121335,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","FBXIP92",27128)=""
 ^DIC(9.8,"B","FBXIP99",27827)=""
 ^DIC(9.8,"B","FH",9952)=""
+^DIC(9.8,"B","FH43P",35818)=""
 ^DIC(9.8,"B","FH55P5",28447)=""
 ^DIC(9.8,"B","FH55PRE",26230)=""
 ^DIC(9.8,"B","FH55PST",26231)=""
@@ -121444,6 +121453,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","FHMTK1A",10031)=""
 ^DIC(9.8,"B","FHMTK1B",10032)=""
 ^DIC(9.8,"B","FHMTK1C",10033)=""
+^DIC(9.8,"B","FHMTK1D",35819)=""
 ^DIC(9.8,"B","FHMTK2",10034)=""
 ^DIC(9.8,"B","FHMTK21",10035)=""
 ^DIC(9.8,"B","FHMTK3",2502)=""
@@ -121828,6 +121838,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","FHORX1C",10120)=""
 ^DIC(9.8,"B","FHORX2",10121)=""
 ^DIC(9.8,"B","FHORX3",10122)=""
+^DIC(9.8,"B","FHP43",35820)=""
 ^DIC(9.8,"B","FHPATM",2143)=""
 ^DIC(9.8,"B","FHPRC",10123)=""
 ^DIC(9.8,"B","FHPRC1",10124)=""
@@ -121870,6 +121881,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","FHPRW3",10161)=""
 ^DIC(9.8,"B","FHPRW4",10162)=""
 ^DIC(9.8,"B","FHPST2",27373)=""
+^DIC(9.8,"B","FHQUE",35821)=""
 ^DIC(9.8,"B","FHREC",10163)=""
 ^DIC(9.8,"B","FHREC1",10164)=""
 ^DIC(9.8,"B","FHREC2",10165)=""
diff --git a/Packages/Uncategorized/Globals/117.024+FHQUE QUEUED REPORTS-LABELS.zwr b/Packages/Uncategorized/Globals/117.024+FHQUE QUEUED REPORTS-LABELS.zwr
new file mode 100644
index 00000000000..ee52623003c
--- /dev/null
+++ b/Packages/Uncategorized/Globals/117.024+FHQUE QUEUED REPORTS-LABELS.zwr	
@@ -0,0 +1,3 @@
+OSEHRA ZGO Export: FHQUE QUEUED REPORTS/LABELS
+15-MAR-2019 07:54:05 ZWR
+^FH(117.024,0)="FHQUE QUEUED REPORTS/LABELS^117.024^^"
diff --git a/Packages/Uncategorized/Globals/117.0241+FHQUE REPORT DAYS.zwr b/Packages/Uncategorized/Globals/117.0241+FHQUE REPORT DAYS.zwr
new file mode 100644
index 00000000000..2d60b4315dd
--- /dev/null
+++ b/Packages/Uncategorized/Globals/117.0241+FHQUE REPORT DAYS.zwr	
@@ -0,0 +1,17 @@
+OSEHRA ZGO Export: FHQUE REPORT DAYS
+15-MAR-2019 07:54:05 ZWR
+^FH(117.0241,0)="FHQUE REPORT DAYS^117.0241^7^7"
+^FH(117.0241,1,0)="Sunday^1"
+^FH(117.0241,2,0)="Monday^2"
+^FH(117.0241,3,0)="Tuesday^3"
+^FH(117.0241,4,0)="Wednesday^4"
+^FH(117.0241,5,0)="Thursday^5"
+^FH(117.0241,6,0)="Friday^6"
+^FH(117.0241,7,0)="Saturday^0"
+^FH(117.0241,"B","Friday",6)=""
+^FH(117.0241,"B","Monday",2)=""
+^FH(117.0241,"B","Saturday",7)=""
+^FH(117.0241,"B","Sunday",1)=""
+^FH(117.0241,"B","Thursday",5)=""
+^FH(117.0241,"B","Tuesday",3)=""
+^FH(117.0241,"B","Wednesday",4)=""
diff --git a/Packages/Uncategorized/Globals/117.0243+FHQUE AVAILABLE OPTIONS.zwr b/Packages/Uncategorized/Globals/117.0243+FHQUE AVAILABLE OPTIONS.zwr
new file mode 100644
index 00000000000..2c2e45228a5
--- /dev/null
+++ b/Packages/Uncategorized/Globals/117.0243+FHQUE AVAILABLE OPTIONS.zwr	
@@ -0,0 +1,111 @@
+OSEHRA ZGO Export: FHQUE AVAILABLE OPTIONS
+15-MAR-2019 07:54:05 ZWR
+^FH(117.0243,0)="FHQUE AVAILABLE OPTIONS^117.0243I^17^9"
+^FH(117.0243,2,0)="FHASNR4^^Q0^FHASN6"
+^FH(117.0243,2,1,0)="^117.024302^2^2"
+^FH(117.0243,2,1,1,0)="STS^^5"
+^FH(117.0243,2,1,2,0)="SRT^^W"
+^FH(117.0243,2,1,"B","SRT",2)=""
+^FH(117.0243,2,1,"B","STS",1)=""
+^FH(117.0243,3,0)="FHBIR^^Q1^FHBIR"
+^FH(117.0243,3,1,0)="^117.024302^2^2"
+^FH(117.0243,3,1,1,0)="FHP^^0"
+^FH(117.0243,3,1,2,0)="DAT^^T^1"
+^FH(117.0243,3,1,"B","DAT",2)=""
+^FH(117.0243,3,1,"B","FHP",1)=""
+^FH(117.0243,5,0)="FHMTKP^^B1^FHMTK1A"
+^FH(117.0243,5,1,0)="^117.024302^9^9"
+^FH(117.0243,5,1,1,0)="D1^^T^1"
+^FH(117.0243,5,1,2,0)="MEAL^1"
+^FH(117.0243,5,1,2,2,0)="^117.0243025^1^1^3181213^^"
+^FH(117.0243,5,1,2,2,1,0)="Choose a meal to print: B for Breakfast, N for Noon, E for Evening meal :"
+^FH(117.0243,5,1,3,0)="FHX1"
+^FH(117.0243,5,1,3,1)="N FHDA,X S X1=DT D E1|FHPRC1 S FHDA=|FH(116,FHCY,""DA"",FHDA,0),X=$G(|FH(116.3,D1,0)) S:$P(X,U,2) $P(FHDA,U,2)=$P(X,U,2) S:$P(X,U,3) $P(FHDA,U,3)=$P(X,U,3) S:$P(X,U,4) $P(FHDA,U,4)=$P(X,U,4) S FHX1=$P(FHDA,U,$F(""BNE"",MEAL))"
+^FH(117.0243,5,1,4,0)="FHP"
+^FH(117.0243,5,1,5,0)="W1"
+^FH(117.0243,5,1,6,0)="DFN"
+^FH(117.0243,5,1,7,0)="SUM^^0"
+^FH(117.0243,5,1,8,0)="UPD^^0"
+^FH(117.0243,5,1,9,0)="SRT^^R"
+^FH(117.0243,5,1,"B","D1",1)=""
+^FH(117.0243,5,1,"B","DFN",6)=""
+^FH(117.0243,5,1,"B","FHP",4)=""
+^FH(117.0243,5,1,"B","FHX1",3)=""
+^FH(117.0243,5,1,"B","MEAL",2)=""
+^FH(117.0243,5,1,"B","SRT",9)=""
+^FH(117.0243,5,1,"B","SUM",7)=""
+^FH(117.0243,5,1,"B","UPD",8)=""
+^FH(117.0243,5,1,"B","W1",5)=""
+^FH(117.0243,7,0)="FHORD10^^^FHORD81"
+^FH(117.0243,7,1,0)="^117.024302^4^4"
+^FH(117.0243,7,1,1,0)="WRD^^0"
+^FH(117.0243,7,1,2,0)="FHXX^^C"
+^FH(117.0243,7,1,3,0)="SRT^^R"
+^FH(117.0243,7,1,4,0)="SER^^A"
+^FH(117.0243,7,1,"B","FHXX",2)=""
+^FH(117.0243,7,1,"B","SER",4)=""
+^FH(117.0243,7,1,"B","SRT",3)=""
+^FH(117.0243,7,1,"B","WRD",1)=""
+^FH(117.0243,11,0)="FHORT5S^^Q1^FHORT5A"
+^FH(117.0243,11,1,0)="^117.024302^6^6"
+^FH(117.0243,11,1,1,0)="FHXX^^W"
+^FH(117.0243,11,1,2,0)="FHOPT^^5"
+^FH(117.0243,11,1,3,0)="FHP^^0"
+^FH(117.0243,11,1,4,0)="WRD^^0"
+^FH(117.0243,11,1,5,0)="SUM^^1"
+^FH(117.0243,11,1,6,0)="MUL^^0"
+^FH(117.0243,11,1,"B","FHOPT",2)=""
+^FH(117.0243,11,1,"B","FHP",3)=""
+^FH(117.0243,11,1,"B","FHXX",1)=""
+^FH(117.0243,11,1,"B","MUL",6)=""
+^FH(117.0243,11,1,"B","SUM",5)=""
+^FH(117.0243,11,1,"B","WRD",4)=""
+^FH(117.0243,12,0)="FHORTF5^^Q1^FHORT5A"
+^FH(117.0243,12,1,0)="^117.024302^6^6"
+^FH(117.0243,12,1,1,0)="FHXX^^1"
+^FH(117.0243,12,1,2,0)="FHOPT^^1"
+^FH(117.0243,12,1,3,0)="FHP^^0"
+^FH(117.0243,12,1,4,0)="WRD^^0"
+^FH(117.0243,12,1,5,0)="SUM^^0"
+^FH(117.0243,12,1,6,0)="MUL^^0"
+^FH(117.0243,12,1,"B","FHOPT",2)=""
+^FH(117.0243,12,1,"B","FHP",3)=""
+^FH(117.0243,12,1,"B","FHXX",1)=""
+^FH(117.0243,12,1,"B","MUL",6)=""
+^FH(117.0243,12,1,"B","SUM",5)=""
+^FH(117.0243,12,1,"B","WRD",4)=""
+^FH(117.0243,13,0)="FHPATM^^F0^FHPATM"
+^FH(117.0243,13,1,0)="^117.024302^2^2"
+^FH(117.0243,13,1,1,0)="DAT^1^^1"
+^FH(117.0243,13,1,1,2,0)="^^2^2^3141107^"
+^FH(117.0243,13,1,1,2,1,0)="Please enter the time to run the report from."
+^FH(117.0243,13,1,1,2,2,0)="Example: T-1@1800 or T@0000."
+^FH(117.0243,13,1,2,0)="VAUTD^^1"
+^FH(117.0243,13,1,"B","DAT",1)=""
+^FH(117.0243,13,1,"B","VAUTD",2)=""
+^FH(117.0243,14,0)="FHORD13^^Q1^FHORX1"
+^FH(117.0243,14,1,0)="^117.024302^3^3"
+^FH(117.0243,14,1,1,0)="TIM^1^^1"
+^FH(117.0243,14,1,1,2,0)="^^2^2^3141107^"
+^FH(117.0243,14,1,1,2,1,0)="Please enter the time to run the report from."
+^FH(117.0243,14,1,1,2,2,0)="Example: T-1@1800 or T@0000."
+^FH(117.0243,14,1,2,0)="LAB^^0"
+^FH(117.0243,14,1,3,0)="FHP^^0"
+^FH(117.0243,14,1,"B","FHP",3)=""
+^FH(117.0243,14,1,"B","LAB",2)=""
+^FH(117.0243,14,1,"B","TIM",1)=""
+^FH(117.0243,17,0)="FHORD5^^F1^FHORD5"
+^FH(117.0243,17,1,0)="^117.024302^2^2"
+^FH(117.0243,17,1,1,0)="FHP^^0"
+^FH(117.0243,17,1,2,0)="SRT^^W"
+^FH(117.0243,17,1,"B","FHP",1)=""
+^FH(117.0243,17,1,"B","SRT",2)=""
+^FH(117.0243,"B","FHASNR4",2)=""
+^FH(117.0243,"B","FHBIR",3)=""
+^FH(117.0243,"B","FHMTKP",5)=""
+^FH(117.0243,"B","FHORD10",7)=""
+^FH(117.0243,"B","FHORD13",14)=""
+^FH(117.0243,"B","FHORD5",17)=""
+^FH(117.0243,"B","FHORT5S",11)=""
+^FH(117.0243,"B","FHORTF5",12)=""
+^FH(117.0243,"B","FHPATM",13)=""
diff --git a/Packages/VA FileMan/Globals/1+FILE.zwr b/Packages/VA FileMan/Globals/1+FILE.zwr
index 2ada8ce633f..fc49fa60cf7 100644
--- a/Packages/VA FileMan/Globals/1+FILE.zwr	
+++ b/Packages/VA FileMan/Globals/1+FILE.zwr	
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: FILE
-15-MAR-2019 05:29:44 ZWR
+15-MAR-2019 07:54:12 ZWR
 ^DIC(0)="FILE^1^9999999.41^2717"
 ^DIC(".11",0)="INDEX^.11"
 ^DIC(".11",0,"DD")="^"
@@ -7722,6 +7722,7 @@ OSEHRA ZGO Export: FILE
 ^DIC(115,"%D",5,0)=""
 ^DIC(115,"%D",6,0)="This file will also be used to store outpatient data for individuals"
 ^DIC(115,"%D",7,0)="served in the outpatient meals functionality."
+^DIC(115,"%MSC")=3190315.075027
 ^DIC("115.2",0)="FOOD PREFERENCES^115.2"
 ^DIC("115.2",0,"DD")="#"
 ^DIC("115.2",0,"DEL")="#f"
@@ -7851,6 +7852,41 @@ OSEHRA ZGO Export: FILE
 ^DIC(117,"%D",1,0)="This file contains the statistical data necessary to prepare the"
 ^DIC(117,"%D",2,0)="Served Meals Report and the Staffing Data Report. Data"
 ^DIC(117,"%D",3,0)="is saved for each date."
+^DIC("117.024",0)="FHQUE QUEUED REPORTS/LABELS^117.024"
+^DIC("117.024",0,"AUDIT")="@"
+^DIC("117.024",0,"DD")="@"
+^DIC("117.024",0,"DEL")="@"
+^DIC("117.024",0,"GL")="^FH(117.024,"
+^DIC("117.024",0,"LAYGO")="@"
+^DIC("117.024",0,"RD")="@"
+^DIC("117.024",0,"WR")="@"
+^DIC("117.024","%",0)="^1.005^^0"
+^DIC("117.024","%D",0)="^^2^2^3170419^"
+^DIC("117.024","%D",1,0)="Queued FH Print OPTIONS and the time that the option will be run "
+^DIC("117.024","%D",2,0)="including parameters."
+^DIC("117.024","%MSC")=3190315.075027
+^DIC("117.0241",0)="FHQUE REPORT DAYS^117.0241"
+^DIC("117.0241",0,"AUDIT")="@"
+^DIC("117.0241",0,"DD")="@"
+^DIC("117.0241",0,"DEL")="@"
+^DIC("117.0241",0,"GL")="^FH(117.0241,"
+^DIC("117.0241",0,"LAYGO")="@"
+^DIC("117.0241",0,"RD")="@"
+^DIC("117.0241",0,"WR")="@"
+^DIC("117.0241","%",0)="^1.005^^0"
+^DIC("117.0241","%D",0)="^^2^2^3170419^"
+^DIC("117.0241","%D",1,0)="File of the days that may be chosen when building the Queued Reports File "
+^DIC("117.0241","%D",2,0)="#117.024."
+^DIC("117.0241","%MSC")=3190315.075027
+^DIC("117.0243",0)="FHQUE AVAILABLE OPTIONS^117.0243"
+^DIC("117.0243",0,"AUDIT")="@"
+^DIC("117.0243",0,"DD")="@"
+^DIC("117.0243",0,"DEL")="@"
+^DIC("117.0243",0,"GL")="^FH(117.0243,"
+^DIC("117.0243",0,"LAYGO")="@"
+^DIC("117.0243",0,"RD")="@"
+^DIC("117.0243",0,"WR")="@"
+^DIC("117.0243","%MSC")=3190315.075027
 ^DIC("117.1",0)="STAFFING DATA^117.1D"
 ^DIC("117.1",0,"DD")="#"
 ^DIC("117.1",0,"DEL")="#F"
@@ -38961,6 +38997,9 @@ OSEHRA ZGO Export: FILE
 ^DIC("B","FEE NOTIFICATION/REQUEST","162.2")=""
 ^DIC("B","FH SITE PARAMETERS","119.9")=""
 ^DIC("B","FH VENDOR","113.2")=""
+^DIC("B","FHQUE AVAILABLE OPTIONS","117.0243")=""
+^DIC("B","FHQUE QUEUED REPORTS/LABELS","117.024")=""
+^DIC("B","FHQUE REPORT DAYS","117.0241")=""
 ^DIC("B","FIELD SERVICE RECEIPT",503343)=""
 ^DIC("B","FILE",1)=""
 ^DIC("B","FILEGRAM ERROR LOG","1.13")=""