Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HL47PRE

HL47PRE.m

Go to the documentation of this file.
  1. HL47PRE ;SF/RJH Delete data in file #771.7 ;04/12/99 10:57
  1. ;;1.6;HEALTH LEVEL SEVEN;**47**;Oct 13, 1995
  1. ;
  1. ; This is a pre-install routine for patch HL*1.6*47. It deletes all
  1. ; the entries in HL7 Message Status file (#771.6) and HL7 Error
  1. ; Message file (#771.7). And it moves purging dates stored in Option
  1. ; Scheduling file to HL Communication Server Parameters file
  1. ;
  1. Q
  1. ;
  1. DIK ;
  1. N DIK,DA
  1. S HLIEN=0
  1. S DIK="^HL(771.7,"
  1. F S HLIEN=$O(^HL(771.7,HLIEN)) Q:'HLIEN D
  1. . S DA=HLIEN
  1. . D ^DIK
  1. ;
  1. S HLIEN=0
  1. S DIK="^HL(771.6,"
  1. F S HLIEN=$O(^HL(771.6,HLIEN)) Q:'HLIEN D
  1. . S DA=HLIEN
  1. . D ^DIK
  1. ;
  1. MVDATE ; move purging dates stored in Option Scheduling file to
  1. ; HL Communication Server Parameters file
  1. N HLDT,HLDT1,HLDT2,HLDT3,HLDIC192
  1. S HLDIC192=$$FIND1^DIC(19.2,"","X","HL PURGE TRANSMISSIONS")
  1. Q:'HLDIC192
  1. S HLDIC192=HLDIC192_","
  1. S HLDT=$$GET1^DIQ(19.2,HLDIC192,15)
  1. S HLDT1=-$P(HLDT,";")
  1. S HLDT2=-$P(HLDT,";",2)
  1. S HLDT3=-$P(HLDT,";",3)
  1. I HLDT1>0 S $P(^HLCS(869.3,1,4),"^")=HLDT1
  1. I HLDT2>0 S $P(^HLCS(869.3,1,4),"^",2)=HLDT2
  1. I HLDT3>0 S $P(^HLCS(869.3,1,4),"^",3)=HLDT3
  1. Q