- 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 Feb 19, 2025@00:02:43 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
