HL47PRE.m

HL47PRE ;SF/RJH   Delete data in file #771.7  ;04/12/99  10:57 [ 04/02/2003   8:38 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 ;;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

HL47PRE   ;SF/RJH   Delete data in file #771.7  ;04/12/99  10:57 [ 04/02/2003   8:38 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;;1.6;HEALTH LEVEL SEVEN;**47**;Oct 13, 1995

 +3       ;

 +4       ; This is a pre-install routine for patch HL*1.6*47.  It deletes all

 +5       ; the entries in HL7 Message Status file (#771.6) and HL7 Error

 +6       ; Message file (#771.7).  And it moves purging dates stored in Option 

 +7       ; Scheduling file to HL Communication Server Parameters file

 +8       ;

 +9        QUIT 

 +10      ;

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