source: WorldVistAEHR/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFPOST.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1RMPFPOST ;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 ."
4PT0 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
10PT1 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
15PT2 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
17PST0 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
23PST1 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
28PST2 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
30POST0 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
36POST1 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
41POST2 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
43MENU 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
45MENU1 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
47ORDER K ^DD(791810.0101,0,"NM","TRANSACTION") G ^RMPFPOSU
Note: See TracBrowser for help on using the repository browser.