source: FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPDPST.m@ 1424

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

initial load of FOIAVistA 6/30/08 version

File size: 859 bytes
Line 
1RGPDPST ;SF/CMC,PTD-CIRN build post-init ;11/24/98
2 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
3PD ;Post-init called by CIRN PD - updating facility in the HL7 application parameter file
4 N SITE,DIE,X,Y,DR,DIC,DA
5 S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",3),SITE=SITE\1
6 ; ^ SITE is Station Number of site doing install
7 S DIC="^HL(771,",DIC(0)="XQZ",X="RG CIRN"
8 D ^DIC
9 Q:+Y<0
10 S DA=+Y
11 S DIE="^HL(771,",DR="3///^S X=SITE"
12 D ^DIE
13 K SITE,DIC,X,Y,DA,DIE,DR
14 Q
15 ;
16MC ;Post-init called by Messaging Components - updating facility in the HL7 application parameter file
17 N SITE,DIE,X,Y,DR,ENT,DIC,DA,I
18 S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",3),SITE=SITE\1
19 ; ^ SITE is Station Number of site doing install
20 S DIC="^HL(771,",DIC(0)="XQZ",X="RG SUBSCRIPTION"
21 D ^DIC
22 Q:+Y<0
23 S DA=+Y
24 S DIE="^HL(771,",DR="3///^S X=SITE"
25 D ^DIE
26 K SITE,DIC,X,Y,DA,DIE,DR
27 Q
28 ;
Note: See TracBrowser for help on using the repository browser.