HLPRE16 ;AISC/SAW-Pre-init Routine for DHCP HL7 v. 1.6 ;2/6/95 10:28
;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
;Quit if version 1.6 has already been installed
I $G(^DD(771,0,"VR"))=1.6 Q
W:'$D(ZTQUEUED) !!,"Starting Pre-Init"
;Change .01 value of mispelled entry in Field file (#771.1)
N HLX S HLX=$O(^HL(771.1,"B","RESULTS RPT/STATUSCHNG-DATE/TI",0))
I HLX S (DIC,DIE)="^HL(771.1,",DA=HLX,DR=".01///RESULTS RPT/STATUS CHNG-DATE/TIME" D ^DIE K DR
;Delete old 'AI' cross reference in file 772
K ^HL(772,"AI")
;Delete data, DD and identifier for old single valued Version field (#3)
;in files 771.1 to 771.4
;Version fields are multiple valued in version 1.6 of the package
N HLZ F HLX=771.1,771.2,771.3,771.4 D
.K ^DD(HLX,0,"ID",3)
.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)=""
.S DIK="^DD("_HLX_",",DA(1)=HLX,DA=3 D ^DIK K DA,DIK
W:'$D(ZTQUEUED) !,"Pre-Init Finished"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLPRE16 955 printed Nov 22, 2024@17:09:53 Page 2
HLPRE16 ;AISC/SAW-Pre-init Routine for DHCP HL7 v. 1.6 ;2/6/95 10:28
+1 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
+2 ;Quit if version 1.6 has already been installed
+3 IF $GET(^DD(771,0,"VR"))=1.6
QUIT
+4 if '$DATA(ZTQUEUED)
WRITE !!,"Starting Pre-Init"
+5 ;Change .01 value of mispelled entry in Field file (#771.1)
+6 NEW HLX
SET HLX=$ORDER(^HL(771.1,"B","RESULTS RPT/STATUSCHNG-DATE/TI",0))
+7 IF HLX
SET (DIC,DIE)="^HL(771.1,"
SET DA=HLX
SET DR=".01///RESULTS RPT/STATUS CHNG-DATE/TIME"
DO ^DIE
KILL DR
+8 ;Delete old 'AI' cross reference in file 772
+9 KILL ^HL(772,"AI")
+10 ;Delete data, DD and identifier for old single valued Version field (#3)
+11 ;in files 771.1 to 771.4
+12 ;Version fields are multiple valued in version 1.6 of the package
+13 NEW HLZ
FOR HLX=771.1,771.2,771.3,771.4
Begin DoDot:1
+14 KILL ^DD(HLX,0,"ID",3)
+15 SET HLZ=0
FOR
SET HLZ=$ORDER(^HL(HLX,HLZ))
if HLZ'>0
QUIT
IF $DATA(^HL(HLX,HLZ,0))
SET $PIECE(^HL(HLX,HLZ,0),"^",3)=""
+16 SET DIK="^DD("_HLX_","
SET DA(1)=HLX
SET DA=3
DO ^DIK
KILL DA,DIK
End DoDot:1
+17 if '$DATA(ZTQUEUED)
WRITE !,"Pre-Init Finished"
+18 QUIT
