ICPT60PT.m

ICPT60PT ;ALB/ABR - ICPT Post-init Driver; 3/6/96

 ;;6.0;CPT/HCPCS;;May 19, 1997

 ;

EN ; -- main entry point

 D UPDAT ; update pce patch file for PX*1*32

 D UPDAT2 ; update dg patch file for DG*5.3*123

 ;

 D BMES^XPDUTL("*** YOU MUST LOAD THE CPT GLOBALS FROM THE APPROPRIATE ***"),MES^XPDUTL("*** ICPT6_*.GBL UPON COMPLETION OF THIS INSTALLATION! ***")

Q Q

 ;

UPDAT ;  update package file for install of PCE patch PX*1*32

 N PKG,VER,PATCH

 ; find ien of PCE in PACKAGE file

 S PKG=$O(^DIC(9.4,"B","PCE PATIENT CARE ENCOUNTER",0)) Q:'PKG

 S VER="1.0" ; version

 S PATCH="32^"_DT_"^"_DUZ ; patch #^today^installed by

 ;

 D BMES^XPDUTL(" >>Updating Patch Application History for PCE with PX*1*32")

 S PATCH=$$PKGPAT^XPDIP(PKG,VER,.PATCH)

 Q

UPDAT2 ;  update package file for install of DG patch DG*5.3*123

 N PKG,VER,PATCH

 S PKG=$O(^DIC(9.4,"B","REGISTRATION",0)) Q:'PKG

 S VER="5.3" ; version

 S PATCH="123^"_DT_"^"_DUZ ; patch #^today^installed by

 D MES^XPDUTL(" >>Updating Patch Application History for REGISTRATION with DG*5.3*123")

 S PATCH=$$PKGPAT^XPDIP(PKG,VER,.PATCH)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICPT60PT   1108     printed  Feb 18, 2025@23:11:49                                                                                                                                                                                                    Page 2

ICPT60PT  ;ALB/ABR - ICPT Post-init Driver; 3/6/96

 +1       ;;6.0;CPT/HCPCS;;May 19, 1997

 +2       ;

EN        ; -- main entry point

 +1       ; update pce patch file for PX*1*32

           DO UPDAT

 +2       ; update dg patch file for DG*5.3*123

           DO UPDAT2

 +3       ;

 +4        DO BMES^XPDUTL("*** YOU MUST LOAD THE CPT GLOBALS FROM THE APPROPRIATE ***")

           DO MES^XPDUTL("*** ICPT6_*.GBL UPON COMPLETION OF THIS INSTALLATION! ***")

Q          QUIT 

 +1       ;

UPDAT     ;  update package file for install of PCE patch PX*1*32

 +1        NEW PKG,VER,PATCH

 +2       ; find ien of PCE in PACKAGE file

 +3        SET PKG=$ORDER(^DIC(9.4,"B","PCE PATIENT CARE ENCOUNTER",0))

           if 'PKG

               QUIT 

 +4       ; version

           SET VER="1.0"

 +5       ; patch #^today^installed by

           SET PATCH="32^"_DT_"^"_DUZ

 +6       ;

 +7        DO BMES^XPDUTL(" >>Updating Patch Application History for PCE with PX*1*32")

 +8        SET PATCH=$$PKGPAT^XPDIP(PKG,VER,.PATCH)

 +9        QUIT 

UPDAT2    ;  update package file for install of DG patch DG*5.3*123

 +1        NEW PKG,VER,PATCH

 +2        SET PKG=$ORDER(^DIC(9.4,"B","REGISTRATION",0))

           if 'PKG

               QUIT 

 +3       ; version

           SET VER="5.3"

 +4       ; patch #^today^installed by

           SET PATCH="123^"_DT_"^"_DUZ

 +5        DO MES^XPDUTL(" >>Updating Patch Application History for REGISTRATION with DG*5.3*123")

 +6        SET PATCH=$$PKGPAT^XPDIP(PKG,VER,.PATCH)

 +7        QUIT