| 1 | FHPRC5 ; HISC/REL - List Menu Cycle ;4/27/93 13:44
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | S DIC="^FH(116,",DIC(0)="AEQM" W ! D ^DIC K DIC G KIL:"^"[X!$D(DTOUT),FHPRC5:Y<1
|
|---|
| 4 | S FHCY=+Y
|
|---|
| 5 | W ! K IOP,%ZIS S %ZIS("A")="Select LIST Printer: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP KIL
|
|---|
| 6 | I $D(IO("Q")) S FHPGM="Q1^FHPRC5",FHLST="FHCY" D EN2^FH G KIL
|
|---|
| 7 | U IO D Q1 D ^%ZISC K %ZIS,IOP G KIL
|
|---|
| 8 | Q1 ; List the Menu Cycle
|
|---|
| 9 | D NOW^%DTC S NOW=%,N=$P($G(^FH(116,FHCY,0)),"^",2) Q:'N
|
|---|
| 10 | S PG=0 D HDR F K=1:1:N D Q2
|
|---|
| 11 | W ! Q
|
|---|
| 12 | Q2 D:$Y>(IOSL-11) HDR S X=$G(^FH(116,FHCY,"DA",K,0)) W !,$J(K,3)
|
|---|
| 13 | S S1=-20 F L=2:1:4 S Z=$P(X,"^",L),S1=S1+25 I Z S Z=$P($G(^FH(116.1,Z,0)),"^",1) I Z'="" W ?S1,$E(Z,1,23)
|
|---|
| 14 | Q
|
|---|
| 15 | HDR W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1,DTP=NOW D DTP^FH W !,DTP,?30,"M E N U C Y C L E",?73,"Page ",PG
|
|---|
| 16 | S Y=$P(^FH(116,FHCY,0),"^",1) W !!?(80-$L(Y)\2),Y
|
|---|
| 17 | W !!,"Day",?5,"Breakfast",?30,"Noon",?55,"Evening"
|
|---|
| 18 | W !,"-------------------------------------------------------------------------------",! Q
|
|---|
| 19 | KIL G KILL^XUSCLEAN
|
|---|
