- 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
- 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
