ESP118PT.m

ESP118PT ;ALB/REV - ES Post-init Driver; 4/28/97

 ;;1.0;POLICE & SECURITY;**18**;MAR 31, 1994

 ;

EN ; -- main entry point

 D UPDAT ; update patch file for ES*1*14

 ;

 Q

 ;

UPDAT ;  update package file for install of POLICE & SECURITY patch ES*1*14

 N PKG,VER,PATCH

 ; find ien of ES in PACKAGE file

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

 S VER=1.0 ; version 

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

 ;

 D BMES^XPDUTL(" >>Updating Patch Application History for POLICE & SECURITY with ES*1*14")

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESP118PT   592     printed  Apr 09, 2024@21:33:12                                                                                                                                                                                                     Page 2

ESP118PT  ;ALB/REV - ES Post-init Driver; 4/28/97

 +1       ;;1.0;POLICE & SECURITY;**18**;MAR 31, 1994

 +2       ;

EN        ; -- main entry point

 +1       ; update patch file for ES*1*14

           DO UPDAT

 +2       ;

 +3        QUIT 

 +4       ;

UPDAT     ;  update package file for install of POLICE & SECURITY patch ES*1*14

 +1        NEW PKG,VER,PATCH

 +2       ; find ien of ES in PACKAGE file

 +3        SET PKG=$ORDER(^DIC(9.4,"B","POLICE & SECURITY",0))

           if 'PKG

               QUIT 

 +4       ; version 

           SET VER=1.0

 +5       ; patch #^today^installed by

           SET PATCH="14 SEQ#14^"_DT_"^"_DUZ

 +6       ;

 +7        DO BMES^XPDUTL(" >>Updating Patch Application History for POLICE & SECURITY with ES*1*14")

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

 +9        QUIT