FHREC7 ; HISC/NCA - Display Analyzed Recipes ;1/18/94 12:30
;;5.5;DIETETICS;;Jan 28, 2005
W ! K IOP,%ZIS S %ZIS("A")="Select LIST Printer: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP KIL
I $D(IO("Q")) S FHPGM="Q1^FHREC7",FHLST="" D EN2^FH G KIL
U IO D Q1 D ^%ZISC K %ZIS,IOP G KIL
Q1 ; Print Analyzed Recipes
D NOW^%DTC S DTP=% D DTP^FH S PG=0 D HDR
S NX="" F S NX=$O(^FH(114,"B",NX)) Q:NX="" F D0=0:0 S D0=$O(^FH(114,"B",NX,D0)) Q:D0<1 D CHK
D:$Y>(IOSL-10) HDR W !!,"'**' preceding a recipe name indicates recipe not analyzed.",! Q
CHK D:$Y>(IOSL-8) HDR S X=$G(^FH(114,D0,0))
W ! W:'$P(X,"^",14) ?3,"** " W ?6,$P(X,"^",1)
Q
HDR W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !,DTP,?20,"A N A L Y Z E D R E C I P E L I S T",?71,"Page ",PG
W !!?17,"RECIPE NAME"
W !,"--------------------------------------------------------------------------------",! Q
KIL G KILL^XUSCLEAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHREC7 899 printed Nov 22, 2024@17:05:07 Page 2
FHREC7 ; HISC/NCA - Display Analyzed Recipes ;1/18/94 12:30
+1 ;;5.5;DIETETICS;;Jan 28, 2005
+2 WRITE !
KILL IOP,%ZIS
SET %ZIS("A")="Select LIST Printer: "
SET %ZIS="MQ"
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO KIL
+3 IF $DATA(IO("Q"))
SET FHPGM="Q1^FHREC7"
SET FHLST=""
DO EN2^FH
GOTO KIL
+4 USE IO
DO Q1
DO ^%ZISC
KILL %ZIS,IOP
GOTO KIL
Q1 ; Print Analyzed Recipes
+1 DO NOW^%DTC
SET DTP=%
DO DTP^FH
SET PG=0
DO HDR
+2 SET NX=""
FOR
SET NX=$ORDER(^FH(114,"B",NX))
if NX=""
QUIT
FOR D0=0:0
SET D0=$ORDER(^FH(114,"B",NX,D0))
if D0<1
QUIT
DO CHK
+3 if $Y>(IOSL-10)
DO HDR
WRITE !!,"'**' preceding a recipe name indicates recipe not analyzed.",!
QUIT
CHK if $Y>(IOSL-8)
DO HDR
SET X=$GET(^FH(114,D0,0))
+1 WRITE !
if '$PIECE(X,"^",14)
WRITE ?3,"** "
WRITE ?6,$PIECE(X,"^",1)
+2 QUIT
HDR if '($EXTRACT(IOST,1,2)'="C-"&'PG)
WRITE @IOF
SET PG=PG+1
WRITE !,DTP,?20,"A N A L Y Z E D R E C I P E L I S T",?71,"Page ",PG
+1 WRITE !!?17,"RECIPE NAME"
+2 WRITE !,"--------------------------------------------------------------------------------",!
QUIT
KIL GOTO KILL^XUSCLEAN
