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 ---[H[J[2J[HPXVP216 975 printed Nov 22, 2024@17:41:52 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
