KMPRPOST.m

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 ---KMPRPOST   561     printed  Mar 13, 2025@20:46:21                                                                                                                                                                                                     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