RMPFPOST ;DDC/KAW-POSTINIT FOR ROES V2.0 [ 06/16/95 3:06 PM ]
;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
W !!,"Adding server mail groups ."
PT0 S (AB,XY)="",X="RMPF-FILE-UPDATE" W "."
S AB=$O(^XMB(3.8,"B",X,0)) G PT1:AB
S DIC="^XMB(3.8,",DIC(0)="L",DLAYGO=3.8
S DIC("DR")="4////PU" K DD,DO D FILE^DICN
I Y=-1 W !!,"MAIL GROUP NOT ADDED: RMPF-FILE-UPDATE" G POST1
S AB=+Y
PT1 S XY=$O(^XMB(3.6,"B","RMPF-FILE-UPDATE",0)) W "." G PT2:XY
S DIC="^XMB(3.6,",DIC(0)="L",DLAYGO=3.6 K DD,DO D FILE^DICN
I Y=-1 W $C(7),!!,"BULLETIN NOT ADDED: RMPF-FILE-UPDATE" G POST2
S (XY,DA(1))=+Y,DIC="^XMB(3.9,"_XY_",2,",DIC(0)="L",DLAYGO=3.6
S X=AB K DD,DO D FILE^DICN
PT2 S DA=$O(^DIC(19,"B","RMPF-FILE-UPDATE",0)) W "." G PST0:'DA
S DIE="^DIC(19,",DR="220////"_XY_";222////"_AB D ^DIE
PST0 S (AB,XY)="",X="RMPF ROES UPDATES (ASPS)" W "."
S AB=$O(^XMB(3.8,"B",X,0)) G PST1:AB
S DIC="^XMB(3.8,",DIC(0)="L",DLAYGO=3.8
S DIC("DR")="4////PU" K DD,DO D FILE^DICN
I Y=-1 W !!,"MAIL GROUP NOT ADDED: RMPF ROES UPDATES (ASPS)" G POST1
S AB=+Y
PST1 S XY=$O(^XMB(3.6,"B","RMPFMESSAGE (ASPS)",0)) W "." G PST2:XY
S DIC="^XMB(3.6,",DIC(0)="L",DLAYGO=3.6 K DD,DO D FILE^DICN
I Y=-1 W $C(7),!!,"BULLETIN NOT ADDED: RMPFMESSAGE (ASPS)" G POST2
S (XY,DA(1))=+Y,DIC="^XMB(3.9,"_XY_",2,",DIC(0)="L",DLAYGO=3.6
S X=AB K DD,DO D FILE^DICN
PST2 S DA=$O(^DIC(19,"B","RMPFLOADMESSAGE(ASPS)",0)) W "." G POST0:'DA
S DIE="^DIC(19,",DR="220////"_XY_";222////"_AB D ^DIE
POST0 S (AB,XY)="",X="RMPF ROES UPDATES (PSAS)" W "."
S AB=$O(^XMB(3.8,"B",X,0)) G POST1:AB
S DIC="^XMB(3.8,",DIC(0)="L",DLAYGO=3.8
S DIC("DR")="4////PU" K DD,DO D FILE^DICN
I Y=-1 W !!,"MAIL GROUP NOT ADDED: RMPF ROES UPDATES" G POST1
S AB=+Y
POST1 S XY=$O(^XMB(3.6,"B","RMPFMESSAGE (PSAS)",0)) W "." G POST2:XY
S DIC="^XMB(3.6,",DIC(0)="L",DLAYGO=3.6 K DD,DO D FILE^DICN
I Y=-1 W $C(7),!!,"BULLETIN NOT ADDED" G POST2
S (XY,DA(1))=+Y,DIC="^XMB(3.9,"_XY_",2,",DIC(0)="L",DLAYGO=3.6
S X=AB K DD,DO D FILE^DICN
POST2 S DA=$O(^DIC(19,"B","RMPFLOADMESSAGE(PSAS)",0)) W "." G MENU:'DA
S DIE="^DIC(19,",DR="220////"_XY_";222////"_AB D ^DIE
S DIE="^RMPF(791810.5,",DA=1,DR=".03////"_X D ^DIE
S DIE="^RMPF(791810.5,",DA=2,DR=".03////"_X D ^DIE
ORDER K ^DD(791810.0101,0,"NM","TRANSACTION") G ^RMPFPOSU
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFPOST 2436 printed Dec 13, 2024@02:36:38 Page 2
RMPFPOST ;DDC/KAW-POSTINIT FOR ROES V2.0 [ 06/16/95 3:06 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
+2 WRITE !!,"Adding server mail groups ."
PT0 SET (AB,XY)=""
SET X="RMPF-FILE-UPDATE"
WRITE "."
+1 SET AB=$ORDER(^XMB(3.8,"B",X,0))
if AB
GOTO PT1
+2 SET DIC="^XMB(3.8,"
SET DIC(0)="L"
SET DLAYGO=3.8
+3 SET DIC("DR")="4////PU"
KILL DD,DO
DO FILE^DICN
+4 IF Y=-1
WRITE !!,"MAIL GROUP NOT ADDED: RMPF-FILE-UPDATE"
GOTO POST1
+5 SET AB=+Y
PT1 SET XY=$ORDER(^XMB(3.6,"B","RMPF-FILE-UPDATE",0))
WRITE "."
if XY
GOTO PT2
+1 SET DIC="^XMB(3.6,"
SET DIC(0)="L"
SET DLAYGO=3.6
KILL DD,DO
DO FILE^DICN
+2 IF Y=-1
WRITE $CHAR(7),!!,"BULLETIN NOT ADDED: RMPF-FILE-UPDATE"
GOTO POST2
+3 SET (XY,DA(1))=+Y
SET DIC="^XMB(3.9,"_XY_",2,"
SET DIC(0)="L"
SET DLAYGO=3.6
+4 SET X=AB
KILL DD,DO
DO FILE^DICN
PT2 SET DA=$ORDER(^DIC(19,"B","RMPF-FILE-UPDATE",0))
WRITE "."
if 'DA
GOTO PST0
+1 SET DIE="^DIC(19,"
SET DR="220////"_XY_";222////"_AB
DO ^DIE
PST0 SET (AB,XY)=""
SET X="RMPF ROES UPDATES (ASPS)"
WRITE "."
+1 SET AB=$ORDER(^XMB(3.8,"B",X,0))
if AB
GOTO PST1
+2 SET DIC="^XMB(3.8,"
SET DIC(0)="L"
SET DLAYGO=3.8
+3 SET DIC("DR")="4////PU"
KILL DD,DO
DO FILE^DICN
+4 IF Y=-1
WRITE !!,"MAIL GROUP NOT ADDED: RMPF ROES UPDATES (ASPS)"
GOTO POST1
+5 SET AB=+Y
PST1 SET XY=$ORDER(^XMB(3.6,"B","RMPFMESSAGE (ASPS)",0))
WRITE "."
if XY
GOTO PST2
+1 SET DIC="^XMB(3.6,"
SET DIC(0)="L"
SET DLAYGO=3.6
KILL DD,DO
DO FILE^DICN
+2 IF Y=-1
WRITE $CHAR(7),!!,"BULLETIN NOT ADDED: RMPFMESSAGE (ASPS)"
GOTO POST2
+3 SET (XY,DA(1))=+Y
SET DIC="^XMB(3.9,"_XY_",2,"
SET DIC(0)="L"
SET DLAYGO=3.6
+4 SET X=AB
KILL DD,DO
DO FILE^DICN
PST2 SET DA=$ORDER(^DIC(19,"B","RMPFLOADMESSAGE(ASPS)",0))
WRITE "."
if 'DA
GOTO POST0
+1 SET DIE="^DIC(19,"
SET DR="220////"_XY_";222////"_AB
DO ^DIE
POST0 SET (AB,XY)=""
SET X="RMPF ROES UPDATES (PSAS)"
WRITE "."
+1 SET AB=$ORDER(^XMB(3.8,"B",X,0))
if AB
GOTO POST1
+2 SET DIC="^XMB(3.8,"
SET DIC(0)="L"
SET DLAYGO=3.8
+3 SET DIC("DR")="4////PU"
KILL DD,DO
DO FILE^DICN
+4 IF Y=-1
WRITE !!,"MAIL GROUP NOT ADDED: RMPF ROES UPDATES"
GOTO POST1
+5 SET AB=+Y
POST1 SET XY=$ORDER(^XMB(3.6,"B","RMPFMESSAGE (PSAS)",0))
WRITE "."
if XY
GOTO POST2
+1 SET DIC="^XMB(3.6,"
SET DIC(0)="L"
SET DLAYGO=3.6
KILL DD,DO
DO FILE^DICN
+2 IF Y=-1
WRITE $CHAR(7),!!,"BULLETIN NOT ADDED"
GOTO POST2
+3 SET (XY,DA(1))=+Y
SET DIC="^XMB(3.9,"_XY_",2,"
SET DIC(0)="L"
SET DLAYGO=3.6
+4 SET X=AB
KILL DD,DO
DO FILE^DICN
POST2 SET DA=$ORDER(^DIC(19,"B","RMPFLOADMESSAGE(PSAS)",0))
WRITE "."
if 'DA
GOTO MENU
+1 SET DIE="^DIC(19,"
SET DR="220////"_XY_";222////"_AB
DO ^DIE
if 'X
GOTO MENU1
+1 SET DIE="^RMPF(791810.5,"
SET DA=1
SET DR=".03////"_X
DO ^DIE
if 'X
GOTO ORDER
+1 SET DIE="^RMPF(791810.5,"
SET DA=2
SET DR=".03////"_X
DO ^DIE
ORDER KILL ^DD(791810.0101,0,"NM","TRANSACTION")
GOTO ^RMPFPOSU
