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 ---[H[J[2J[HESP118PT 592 printed Nov 22, 2024@17:39:30 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
