PX166P ; ISA/KWP - Update PCE Mapping File and Immunization file ;3/3/99
;;1.0;PCE PATIENT CARE ENCOUNTER;**66**;AUG 12, 1996
;Post install routine for Patch PX*1.0*66
I $$CONVERT^PXUACM(1,2) D BMES^XPDUTL("PCE Code Mapping and Immunization File Update Successful.") Q
D BMES^XPDUTL("PCE Code Mapping and Immunization File Update FAILED.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPX166P 353 printed Dec 13, 2024@02:25:36 Page 2
PX166P ; ISA/KWP - Update PCE Mapping File and Immunization file ;3/3/99
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**66**;AUG 12, 1996
+2 ;Post install routine for Patch PX*1.0*66
+3 IF $$CONVERT^PXUACM(1,2)
DO BMES^XPDUTL("PCE Code Mapping and Immunization File Update Successful.")
QUIT
+4 DO BMES^XPDUTL("PCE Code Mapping and Immunization File Update FAILED.")
+5 QUIT