RGPDPST ;SF/CMC,PTD-CIRN build post-init ;11/24/98
;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
PD ;Post-init called by CIRN PD - updating facility in the HL7 application parameter file
N SITE,DIE,X,Y,DR,DIC,DA
S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",3),SITE=SITE\1
; ^ SITE is Station Number of site doing install
S DIC="^HL(771,",DIC(0)="XQZ",X="RG CIRN"
D ^DIC
Q:+Y<0
S DA=+Y
S DIE="^HL(771,",DR="3///^S X=SITE"
D ^DIE
K SITE,DIC,X,Y,DA,DIE,DR
Q
;
MC ;Post-init called by Messaging Components - updating facility in the HL7 application parameter file
N SITE,DIE,X,Y,DR,ENT,DIC,DA,I
S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",3),SITE=SITE\1
; ^ SITE is Station Number of site doing install
S DIC="^HL(771,",DIC(0)="XQZ",X="RG SUBSCRIPTION"
D ^DIC
Q:+Y<0
S DA=+Y
S DIE="^HL(771,",DR="3///^S X=SITE"
D ^DIE
K SITE,DIC,X,Y,DA,DIE,DR
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGPDPST 887 printed Nov 22, 2024@16:52:52 Page 2
RGPDPST ;SF/CMC,PTD-CIRN build post-init ;11/24/98
+1 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
PD ;Post-init called by CIRN PD - updating facility in the HL7 application parameter file
+1 NEW SITE,DIE,X,Y,DR,DIC,DA
+2 SET SITE=$$SITE^VASITE
SET SITE=$PIECE(SITE,"^",3)
SET SITE=SITE\1
+3 ; ^ SITE is Station Number of site doing install
+4 SET DIC="^HL(771,"
SET DIC(0)="XQZ"
SET X="RG CIRN"
+5 DO ^DIC
+6 if +Y<0
QUIT
+7 SET DA=+Y
+8 SET DIE="^HL(771,"
SET DR="3///^S X=SITE"
+9 DO ^DIE
+10 KILL SITE,DIC,X,Y,DA,DIE,DR
+11 QUIT
+12 ;
MC ;Post-init called by Messaging Components - updating facility in the HL7 application parameter file
+1 NEW SITE,DIE,X,Y,DR,ENT,DIC,DA,I
+2 SET SITE=$$SITE^VASITE
SET SITE=$PIECE(SITE,"^",3)
SET SITE=SITE\1
+3 ; ^ SITE is Station Number of site doing install
+4 SET DIC="^HL(771,"
SET DIC(0)="XQZ"
SET X="RG SUBSCRIPTION"
+5 DO ^DIC
+6 if +Y<0
QUIT
+7 SET DA=+Y
+8 SET DIE="^HL(771,"
SET DR="3///^S X=SITE"
+9 DO ^DIE
+10 KILL SITE,DIC,X,Y,DA,DIE,DR
+11 QUIT
+12 ;
