- 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 Jan 18, 2025@02:57:28 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