| 1 | RGPDPST ;SF/CMC,PTD-CIRN build post-init ;11/24/98
|
|---|
| 2 | ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
|
|---|
| 3 | PD ;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 | ;
|
|---|
| 16 | MC ;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 | ;
|
|---|
