HL47PRE ;SF/RJH Delete data in file #771.7 ;04/12/99 10:57
;;1.6;HEALTH LEVEL SEVEN;**47**;Oct 13, 1995
;
; This is a pre-install routine for patch HL*1.6*47. It deletes all
; the entries in HL7 Message Status file (#771.6) and HL7 Error
; Message file (#771.7). And it moves purging dates stored in Option
; Scheduling file to HL Communication Server Parameters file
;
Q
;
DIK ;
N DIK,DA
S HLIEN=0
S DIK="^HL(771.7,"
F S HLIEN=$O(^HL(771.7,HLIEN)) Q:'HLIEN D
. S DA=HLIEN
. D ^DIK
;
S HLIEN=0
S DIK="^HL(771.6,"
F S HLIEN=$O(^HL(771.6,HLIEN)) Q:'HLIEN D
. S DA=HLIEN
. D ^DIK
;
MVDATE ; move purging dates stored in Option Scheduling file to
; HL Communication Server Parameters file
N HLDT,HLDT1,HLDT2,HLDT3,HLDIC192
S HLDIC192=$$FIND1^DIC(19.2,"","X","HL PURGE TRANSMISSIONS")
Q:'HLDIC192
S HLDIC192=HLDIC192_","
S HLDT=$$GET1^DIQ(19.2,HLDIC192,15)
S HLDT1=-$P(HLDT,";")
S HLDT2=-$P(HLDT,";",2)
S HLDT3=-$P(HLDT,";",3)
I HLDT1>0 S $P(^HLCS(869.3,1,4),"^")=HLDT1
I HLDT2>0 S $P(^HLCS(869.3,1,4),"^",2)=HLDT2
I HLDT3>0 S $P(^HLCS(869.3,1,4),"^",3)=HLDT3
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHL47PRE 1146 printed Dec 13, 2024@01:56:13 Page 2
HL47PRE ;SF/RJH Delete data in file #771.7 ;04/12/99 10:57
+1 ;;1.6;HEALTH LEVEL SEVEN;**47**;Oct 13, 1995
+2 ;
+3 ; This is a pre-install routine for patch HL*1.6*47. It deletes all
+4 ; the entries in HL7 Message Status file (#771.6) and HL7 Error
+5 ; Message file (#771.7). And it moves purging dates stored in Option
+6 ; Scheduling file to HL Communication Server Parameters file
+7 ;
+8 QUIT
+9 ;
DIK ;
+1 NEW DIK,DA
+2 SET HLIEN=0
+3 SET DIK="^HL(771.7,"
+4 FOR
SET HLIEN=$ORDER(^HL(771.7,HLIEN))
if 'HLIEN
QUIT
Begin DoDot:1
+5 SET DA=HLIEN
+6 DO ^DIK
End DoDot:1
+7 ;
+8 SET HLIEN=0
+9 SET DIK="^HL(771.6,"
+10 FOR
SET HLIEN=$ORDER(^HL(771.6,HLIEN))
if 'HLIEN
QUIT
Begin DoDot:1
+11 SET DA=HLIEN
+12 DO ^DIK
End DoDot:1
+13 ;
MVDATE ; move purging dates stored in Option Scheduling file to
+1 ; HL Communication Server Parameters file
+2 NEW HLDT,HLDT1,HLDT2,HLDT3,HLDIC192
+3 SET HLDIC192=$$FIND1^DIC(19.2,"","X","HL PURGE TRANSMISSIONS")
+4 if 'HLDIC192
QUIT
+5 SET HLDIC192=HLDIC192_","
+6 SET HLDT=$$GET1^DIQ(19.2,HLDIC192,15)
+7 SET HLDT1=-$PIECE(HLDT,";")
+8 SET HLDT2=-$PIECE(HLDT,";",2)
+9 SET HLDT3=-$PIECE(HLDT,";",3)
+10 IF HLDT1>0
SET $PIECE(^HLCS(869.3,1,4),"^")=HLDT1
+11 IF HLDT2>0
SET $PIECE(^HLCS(869.3,1,4),"^",2)=HLDT2
+12 IF HLDT3>0
SET $PIECE(^HLCS(869.3,1,4),"^",3)=HLDT3
+13 QUIT
