| [613] | 1 | HLPRE16 ;AISC/SAW-Pre-init Routine for DHCP HL7 v. 1.6 ;2/6/95 10:28
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
|
|---|
| 3 | ;Quit if version 1.6 has already been installed
|
|---|
| 4 | I $G(^DD(771,0,"VR"))=1.6 Q
|
|---|
| 5 | W:'$D(ZTQUEUED) !!,"Starting Pre-Init"
|
|---|
| 6 | ;Change .01 value of mispelled entry in Field file (#771.1)
|
|---|
| 7 | N HLX S HLX=$O(^HL(771.1,"B","RESULTS RPT/STATUSCHNG-DATE/TI",0))
|
|---|
| 8 | I HLX S (DIC,DIE)="^HL(771.1,",DA=HLX,DR=".01///RESULTS RPT/STATUS CHNG-DATE/TIME" D ^DIE K DR
|
|---|
| 9 | ;Delete old 'AI' cross reference in file 772
|
|---|
| 10 | K ^HL(772,"AI")
|
|---|
| 11 | ;Delete data, DD and identifier for old single valued Version field (#3)
|
|---|
| 12 | ;in files 771.1 to 771.4
|
|---|
| 13 | ;Version fields are multiple valued in version 1.6 of the package
|
|---|
| 14 | N HLZ F HLX=771.1,771.2,771.3,771.4 D
|
|---|
| 15 | .K ^DD(HLX,0,"ID",3)
|
|---|
| 16 | .S HLZ=0 F S HLZ=$O(^HL(HLX,HLZ)) Q:HLZ'>0 I $D(^HL(HLX,HLZ,0)) S $P(^HL(HLX,HLZ,0),"^",3)=""
|
|---|
| 17 | .S DIK="^DD("_HLX_",",DA(1)=HLX,DA=3 D ^DIK K DA,DIK
|
|---|
| 18 | W:'$D(ZTQUEUED) !,"Pre-Init Finished"
|
|---|
| 19 | Q
|
|---|
