| [613] | 1 | RMPFES ;DDC/KAW-ENTER/EDIT STATION ORDERS; [ 06/16/95 3:06 PM ]
|
|---|
| 2 | ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|---|
| 3 | RMPFSET I '$D(RMPFMENU) D MENU^RMPFUTL I '$D(RMPFMENU) W !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***" Q ;;RMPFMENU must be defined
|
|---|
| 4 | I '$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS) D ^RMPFUTL Q:'$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS)
|
|---|
| 5 | SELECT S RMPFP="*",(RMPFORD,RMPFTP)="S" D ^RMPFDS1 K RMPFX G ADD:'RMPFCX
|
|---|
| 6 | D SEL^RMPFET G END:$D(RMPFOUT),END:RMPFSEL1="",ADD:"Aa"[RMPFSEL1,RMPFSET:'$D(RMPFX)
|
|---|
| 7 | ADDEDIT S RMPFEDIT="" D ^RMPFDT1 G END:$D(RMPFOUT)
|
|---|
| 8 | S RMPFST=$P(^RMPF(791810,RMPFX,0),U,3)
|
|---|
| 9 | D ^RMPFET0 G END:$D(RMPFOUT) I $D(RMPFSEL),RMPFSEL="E" G ADD
|
|---|
| 10 | I $D(RMPFSEL),"Dd"[RMPFSEL G SELECT
|
|---|
| 11 | G ADDEDIT:$D(RMPFSEL)!$D(RMPFQUT),SELECT:'$D(RMPFX)
|
|---|
| 12 | ADD D ^RMPFET1 G END:$D(RMPFOUT),END:'$D(RMPFX),ADDEDIT
|
|---|
| 13 | END K RMPFP,RMPFORD,RMPFTP,RMPFX,RMPFOUT,RMPFO,RMPFEDIT,RMPFHAT
|
|---|
| 14 | K RMPFQUT,DFN,RMPFNAM,POP,T,DIC,RMPFCX,S1,ZY,X,Y,I,L Q
|
|---|
| 15 | READ K RMPFOUT,RMPFQUT
|
|---|
| 16 | R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
|
|---|
| 17 | I Y?1"^".E S (RMPFOUT,Y)="" Q
|
|---|
| 18 | S:Y?1"?".E (RMPFQUT,Y)=""
|
|---|
| 19 | Q
|
|---|
| 20 | CONT F I=1:1 Q:$Y>21 W !
|
|---|
| 21 | CONT1 W !!,"Enter <RETURN> to continue"
|
|---|
| 22 | I $O(^RMPF(791810,RMPFX,201,0)) W ", <M>essages"
|
|---|
| 23 | W " or <^> to exit: " D READ
|
|---|
| 24 | G CONT1:$D(RMPFQUT) Q:Y="" G CONT1:"^Mm"'[Y
|
|---|
| 25 | Q
|
|---|
| 26 | HEAD W @IOF,!!?18,"REMOTE ORDER/ENTRY STATION ORDER INFORMATION"
|
|---|
| 27 | W !,"Station: ",RMPFSTAP,?68,RMPFDAT
|
|---|
| 28 | W ! F I=1:1:80 W "-"
|
|---|
| 29 | Q
|
|---|
