HLZP4PRE.m

HLZP4PRE ;IHS/OIRM/DSD/AEF - PATCH 1004 PREINSTALL ROUTINE [ 04/02/2003   8:37 AM ]

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

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D ^XBKVAR

 D K7716

 D K7717

 Q

K7716 ;----- KILL ENTRIES IN FILE 771.6 HL MESSAGE STATUS

 ;

 N DA,DIK,HLZ

 ;

 D BMES^XPDUTL("REMOVING FILE 771.6 'HL MESSAGE STATUS' ENTRIES")

 F HLZ=1,1.5,1.7,2:1:9 D

 . S DA=HLZ

 . S DIK="^HL(771.6,"

 . D ^DIK

 Q

K7717 ;----- KILL ENTRIES IN FILE 771.7 HL ERROR MESSAGE

 ;

 N DA,DIK,HLZ

 ;

 D BMES^XPDUTL("REMOVING FILE 771.7 'HL ERROR MESSAGE' ENTRIES")

 ;

 F HLZ=1:1:18,100:1:109,200:1:204 D

 . S DA=HLZ

 . S DIK="^HL(771.7,"

 . D ^DIK

 Q

HLZP4PRE  ;IHS/OIRM/DSD/AEF - PATCH 1004 PREINSTALL ROUTINE [ 04/02/2003   8:37 AM ]

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

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO ^XBKVAR

 +3        DO K7716

 +4        DO K7717

 +5        QUIT 

K7716     ;----- KILL ENTRIES IN FILE 771.6 HL MESSAGE STATUS

 +1       ;

 +2        NEW DA,DIK,HLZ

 +3       ;

 +4        DO BMES^XPDUTL("REMOVING FILE 771.6 'HL MESSAGE STATUS' ENTRIES")

 +5        FOR HLZ=1,1.5,1.7,2:1:9

               Begin DoDot:1

 +6                SET DA=HLZ

 +7                SET DIK="^HL(771.6,"

 +8                DO ^DIK

               End DoDot:1

 +9        QUIT 

K7717     ;----- KILL ENTRIES IN FILE 771.7 HL ERROR MESSAGE

 +1       ;

 +2        NEW DA,DIK,HLZ

 +3       ;

 +4        DO BMES^XPDUTL("REMOVING FILE 771.7 'HL ERROR MESSAGE' ENTRIES")

 +5       ;

 +6        FOR HLZ=1:1:18,100:1:109,200:1:204

               Begin DoDot:1

 +7                SET DA=HLZ

 +8                SET DIK="^HL(771.7,"

 +9                DO ^DIK

               End DoDot:1

 +10       QUIT