| 1 | RMPFPOST ;DDC/KAW-POSTINIT FOR ROES V2.0 [ 06/16/95 3:06 PM ]
|
|---|
| 2 | ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|---|
| 3 | W !!,"Adding server mail groups ."
|
|---|
| 4 | PT0 S (AB,XY)="",X="RMPF-FILE-UPDATE" W "."
|
|---|
| 5 | S AB=$O(^XMB(3.8,"B",X,0)) G PT1:AB
|
|---|
| 6 | S DIC="^XMB(3.8,",DIC(0)="L",DLAYGO=3.8
|
|---|
| 7 | S DIC("DR")="4////PU" K DD,DO D FILE^DICN
|
|---|
| 8 | I Y=-1 W !!,"MAIL GROUP NOT ADDED: RMPF-FILE-UPDATE" G POST1
|
|---|
| 9 | S AB=+Y
|
|---|
| 10 | PT1 S XY=$O(^XMB(3.6,"B","RMPF-FILE-UPDATE",0)) W "." G PT2:XY
|
|---|
| 11 | S DIC="^XMB(3.6,",DIC(0)="L",DLAYGO=3.6 K DD,DO D FILE^DICN
|
|---|
| 12 | I Y=-1 W $C(7),!!,"BULLETIN NOT ADDED: RMPF-FILE-UPDATE" G POST2
|
|---|
| 13 | S (XY,DA(1))=+Y,DIC="^XMB(3.9,"_XY_",2,",DIC(0)="L",DLAYGO=3.6
|
|---|
| 14 | S X=AB K DD,DO D FILE^DICN
|
|---|
| 15 | PT2 S DA=$O(^DIC(19,"B","RMPF-FILE-UPDATE",0)) W "." G PST0:'DA
|
|---|
| 16 | S DIE="^DIC(19,",DR="220////"_XY_";222////"_AB D ^DIE
|
|---|
| 17 | PST0 S (AB,XY)="",X="RMPF ROES UPDATES (ASPS)" W "."
|
|---|
| 18 | S AB=$O(^XMB(3.8,"B",X,0)) G PST1:AB
|
|---|
| 19 | S DIC="^XMB(3.8,",DIC(0)="L",DLAYGO=3.8
|
|---|
| 20 | S DIC("DR")="4////PU" K DD,DO D FILE^DICN
|
|---|
| 21 | I Y=-1 W !!,"MAIL GROUP NOT ADDED: RMPF ROES UPDATES (ASPS)" G POST1
|
|---|
| 22 | S AB=+Y
|
|---|
| 23 | PST1 S XY=$O(^XMB(3.6,"B","RMPFMESSAGE (ASPS)",0)) W "." G PST2:XY
|
|---|
| 24 | S DIC="^XMB(3.6,",DIC(0)="L",DLAYGO=3.6 K DD,DO D FILE^DICN
|
|---|
| 25 | I Y=-1 W $C(7),!!,"BULLETIN NOT ADDED: RMPFMESSAGE (ASPS)" G POST2
|
|---|
| 26 | S (XY,DA(1))=+Y,DIC="^XMB(3.9,"_XY_",2,",DIC(0)="L",DLAYGO=3.6
|
|---|
| 27 | S X=AB K DD,DO D FILE^DICN
|
|---|
| 28 | PST2 S DA=$O(^DIC(19,"B","RMPFLOADMESSAGE(ASPS)",0)) W "." G POST0:'DA
|
|---|
| 29 | S DIE="^DIC(19,",DR="220////"_XY_";222////"_AB D ^DIE
|
|---|
| 30 | POST0 S (AB,XY)="",X="RMPF ROES UPDATES (PSAS)" W "."
|
|---|
| 31 | S AB=$O(^XMB(3.8,"B",X,0)) G POST1:AB
|
|---|
| 32 | S DIC="^XMB(3.8,",DIC(0)="L",DLAYGO=3.8
|
|---|
| 33 | S DIC("DR")="4////PU" K DD,DO D FILE^DICN
|
|---|
| 34 | I Y=-1 W !!,"MAIL GROUP NOT ADDED: RMPF ROES UPDATES" G POST1
|
|---|
| 35 | S AB=+Y
|
|---|
| 36 | POST1 S XY=$O(^XMB(3.6,"B","RMPFMESSAGE (PSAS)",0)) W "." G POST2:XY
|
|---|
| 37 | S DIC="^XMB(3.6,",DIC(0)="L",DLAYGO=3.6 K DD,DO D FILE^DICN
|
|---|
| 38 | I Y=-1 W $C(7),!!,"BULLETIN NOT ADDED" G POST2
|
|---|
| 39 | S (XY,DA(1))=+Y,DIC="^XMB(3.9,"_XY_",2,",DIC(0)="L",DLAYGO=3.6
|
|---|
| 40 | S X=AB K DD,DO D FILE^DICN
|
|---|
| 41 | POST2 S DA=$O(^DIC(19,"B","RMPFLOADMESSAGE(PSAS)",0)) W "." G MENU:'DA
|
|---|
| 42 | S DIE="^DIC(19,",DR="220////"_XY_";222////"_AB D ^DIE
|
|---|
| 43 | MENU S X=$O(^DIC(19,"B","RMPF O/E STATION ASPS",0)) G MENU1:'X
|
|---|
| 44 | S DIE="^RMPF(791810.5,",DA=1,DR=".03////"_X D ^DIE
|
|---|
| 45 | MENU1 S X=$O(^DIC(19,"B","RMPF O/E STATION PSAS",0)) G ORDER:'X
|
|---|
| 46 | S DIE="^RMPF(791810.5,",DA=2,DR=".03////"_X D ^DIE
|
|---|
| 47 | ORDER K ^DD(791810.0101,0,"NM","TRANSACTION") G ^RMPFPOSU
|
|---|
