KMPRPOST ;OAK/RAK - RUM Post Install Routine ;1/30/13 06:46
;;2.0;CAPACITY MANAGEMENT - RUM;**2**;May 28, 2003;Build 12
;
EN ;-- entry point for post-install
;
D BMES^XPDUTL(" Begin Post-Install...")
D OPT
D MES^XPDUTL(" Post-Install complete!")
;
Q
;
OPT ;-- delete entry action from option
N ERROR,FDA,IEN
S IEN=$O(^DIC(19,"B","KMPR START COLLECTION",0)) Q:'IEN
Q:'$D(^DIC(19,IEN,0))
; E ACTION PRESENT field
S FDA($J,19,IEN_",",14)=""
; ENTRY ACTION field
S FDA($J,19,IEN_",",20)=""
D FILE^DIE("","FDA($J)","ERROR")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPRPOST 561 printed Dec 13, 2024@01:41:42 Page 2
KMPRPOST ;OAK/RAK - RUM Post Install Routine ;1/30/13 06:46
+1 ;;2.0;CAPACITY MANAGEMENT - RUM;**2**;May 28, 2003;Build 12
+2 ;
EN ;-- entry point for post-install
+1 ;
+2 DO BMES^XPDUTL(" Begin Post-Install...")
+3 DO OPT
+4 DO MES^XPDUTL(" Post-Install complete!")
+5 ;
+6 QUIT
+7 ;
OPT ;-- delete entry action from option
+1 NEW ERROR,FDA,IEN
+2 SET IEN=$ORDER(^DIC(19,"B","KMPR START COLLECTION",0))
if 'IEN
QUIT
+3 if '$DATA(^DIC(19,IEN,0))
QUIT
+4 ; E ACTION PRESENT field
+5 SET FDA($JOB,19,IEN_",",14)=""
+6 ; ENTRY ACTION field
+7 SET FDA($JOB,19,IEN_",",20)=""
+8 DO FILE^DIE("","FDA($J)","ERROR")
+9 QUIT
