RMPFES ;DDC/KAW-ENTER/EDIT STATION ORDERS; [ 06/16/95 3:06 PM ]
;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
RMPFSET I '$D(RMPFMENU) D MENU^RMPFUTL I '$D(RMPFMENU) W !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***" Q ;;RMPFMENU must be defined
I '$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS) D ^RMPFUTL Q:'$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS)
SELECT S RMPFP="*",(RMPFORD,RMPFTP)="S" D ^RMPFDS1 K RMPFX G ADD:'RMPFCX
D SEL^RMPFET G END:$D(RMPFOUT),END:RMPFSEL1="",ADD:"Aa"[RMPFSEL1,RMPFSET:'$D(RMPFX)
ADDEDIT S RMPFEDIT="" D ^RMPFDT1 G END:$D(RMPFOUT)
S RMPFST=$P(^RMPF(791810,RMPFX,0),U,3)
D ^RMPFET0 G END:$D(RMPFOUT) I $D(RMPFSEL),RMPFSEL="E" G ADD
I $D(RMPFSEL),"Dd"[RMPFSEL G SELECT
G ADDEDIT:$D(RMPFSEL)!$D(RMPFQUT),SELECT:'$D(RMPFX)
ADD D ^RMPFET1 G END:$D(RMPFOUT),END:'$D(RMPFX),ADDEDIT
END K RMPFP,RMPFORD,RMPFTP,RMPFX,RMPFOUT,RMPFO,RMPFEDIT,RMPFHAT
K RMPFQUT,DFN,RMPFNAM,POP,T,DIC,RMPFCX,S1,ZY,X,Y,I,L Q
READ K RMPFOUT,RMPFQUT
R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
I Y?1"^".E S (RMPFOUT,Y)="" Q
S:Y?1"?".E (RMPFQUT,Y)=""
Q
CONT F I=1:1 Q:$Y>21 W !
CONT1 W !!,"Enter <RETURN> to continue"
I $O(^RMPF(791810,RMPFX,201,0)) W ", <M>essages"
W " or <^> to exit: " D READ
G CONT1:$D(RMPFQUT) Q:Y="" G CONT1:"^Mm"'[Y
Q
HEAD W @IOF,!!?18,"REMOTE ORDER/ENTRY STATION ORDER INFORMATION"
W !,"Station: ",RMPFSTAP,?68,RMPFDAT
W ! F I=1:1:80 W "-"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFES 1412 printed Oct 16, 2024@18:36:55 Page 2
RMPFES ;DDC/KAW-ENTER/EDIT STATION ORDERS; [ 06/16/95 3:06 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
RMPFSET ;;RMPFMENU must be defined
IF '$DATA(RMPFMENU)
DO MENU^RMPFUTL
IF '$DATA(RMPFMENU)
WRITE !!,$CHAR(7),"*** A MENU SELECTION MUST BE MADE ***"
QUIT
+1 IF '$DATA(RMPFSTAN)!'$DATA(RMPFDAT)!'$DATA(RMPFSYS)
DO ^RMPFUTL
if '$DATA(RMPFSTAN)!'$DATA(RMPFDAT)!'$DATA(RMPFSYS)
QUIT
SELECT SET RMPFP="*"
SET (RMPFORD,RMPFTP)="S"
DO ^RMPFDS1
KILL RMPFX
if 'RMPFCX
GOTO ADD
+1 DO SEL^RMPFET
if $DATA(RMPFOUT)
GOTO END
if RMPFSEL1=""
GOTO END
if "Aa"[RMPFSEL1
GOTO ADD
if '$DATA(RMPFX)
GOTO RMPFSET
ADDEDIT SET RMPFEDIT=""
DO ^RMPFDT1
if $DATA(RMPFOUT)
GOTO END
+1 SET RMPFST=$PIECE(^RMPF(791810,RMPFX,0),U,3)
+2 DO ^RMPFET0
if $DATA(RMPFOUT)
GOTO END
IF $DATA(RMPFSEL)
IF RMPFSEL="E"
GOTO ADD
+3 IF $DATA(RMPFSEL)
IF "Dd"[RMPFSEL
GOTO SELECT
+4 if $DATA(RMPFSEL)!$DATA(RMPFQUT)
GOTO ADDEDIT
if '$DATA(RMPFX)
GOTO SELECT
ADD DO ^RMPFET1
if $DATA(RMPFOUT)
GOTO END
if '$DATA(RMPFX)
GOTO END
GOTO ADDEDIT
END KILL RMPFP,RMPFORD,RMPFTP,RMPFX,RMPFOUT,RMPFO,RMPFEDIT,RMPFHAT
+1 KILL RMPFQUT,DFN,RMPFNAM,POP,T,DIC,RMPFCX,S1,ZY,X,Y,I,L
QUIT
READ KILL RMPFOUT,RMPFQUT
+1 READ Y:DTIME
IF '$TEST
WRITE $CHAR(7)
READ Y:5
if Y="."
GOTO READ
if '$TEST
SET Y=U
+2 IF Y?1"^".E
SET (RMPFOUT,Y)=""
QUIT
+3 if Y?1"?".E
SET (RMPFQUT,Y)=""
+4 QUIT
CONT FOR I=1:1
if $Y>21
QUIT
WRITE !
CONT1 WRITE !!,"Enter <RETURN> to continue"
+1 IF $ORDER(^RMPF(791810,RMPFX,201,0))
WRITE ", <M>essages"
+2 WRITE " or <^> to exit: "
DO READ
+3 if $DATA(RMPFQUT)
GOTO CONT1
if Y=""
QUIT
if "^Mm"'[Y
GOTO CONT1
+4 QUIT
HEAD WRITE @IOF,!!?18,"REMOTE ORDER/ENTRY STATION ORDER INFORMATION"
+1 WRITE !,"Station: ",RMPFSTAP,?68,RMPFDAT
+2 WRITE !
FOR I=1:1:80
WRITE "-"
+3 QUIT
