PXVP216.m

PXVP216 ;BPFO/LMT - PX*1*216 KIDS Routine ;07/12/16  14:36

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**216**;Aug 12, 1996;Build 11

 ;

 ;

 ; Reference to ^DD(9000010.11,0,AUDPURGEFORBID) supported by ICR #6410

 ;

 ;

PRE ; ; KIDS Pre install for PX*1*216

 D BMES("*** Pre install started ***")

 ;

 ; Delete Trigger on #1201 (as Trigger is being moved to #.01)

 D DELIX^DDMOD(9000010.11,1201,1)

 ;

 D BMES("*** Pre install completed ***")

 Q

 ;

 ;

POST ; KIDS Post install for PX*1*216

 D BMES("*** Post install started ***")

 ;

 ; Prevent purging of V Immunization audits

 S ^DD(9000010.11,0,"AUDPURGEFORBID")=""  ; ICR 6410

 ;

 D BMES("*** Post install completed ***")

 Q

 ;

 ;-------------------------------------------------------------------------

 ;

BMES(STR) ;

 ; Write string

 D BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," "))

 Q

MES(STR) ;

 ; Write string

 D MES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," "))

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXVP216   975     printed  Apr 09, 2024@21:29:02                                                                                                                                                                                                      Page 2

PXVP216   ;BPFO/LMT - PX*1*216 KIDS Routine ;07/12/16  14:36

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**216**;Aug 12, 1996;Build 11

 +2       ;

 +3       ;

 +4       ; Reference to ^DD(9000010.11,0,AUDPURGEFORBID) supported by ICR #6410

 +5       ;

 +6       ;

PRE       ; ; KIDS Pre install for PX*1*216

 +1        DO BMES("*** Pre install started ***")

 +2       ;

 +3       ; Delete Trigger on #1201 (as Trigger is being moved to #.01)

 +4        DO DELIX^DDMOD(9000010.11,1201,1)

 +5       ;

 +6        DO BMES("*** Pre install completed ***")

 +7        QUIT 

 +8       ;

 +9       ;

POST      ; KIDS Post install for PX*1*216

 +1        DO BMES("*** Post install started ***")

 +2       ;

 +3       ; Prevent purging of V Immunization audits

 +4       ; ICR 6410

           SET ^DD(9000010.11,0,"AUDPURGEFORBID")=""

 +5       ;

 +6        DO BMES("*** Post install completed ***")

 +7        QUIT 

 +8       ;

 +9       ;-------------------------------------------------------------------------

 +10      ;

BMES(STR) ;

 +1       ; Write string

 +2        DO BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$GET(IOM,80)),"R"," "))

 +3        QUIT 

MES(STR)  ;

 +1       ; Write string

 +2        DO MES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$GET(IOM,80)),"R"," "))

 +3        QUIT