- KMPRPOST ;SF/RAK - RUM Post Install Routine ;3/27/00 10:56 [ 03/13/2003 1:31 PM ]
- ;;1.0;CAPACITY MANAGEMENT - RUM;**1,2**;Dec 09, 1998
- ;;
- ;
- ; This post install routine is for RUM patch KMPR*1.0*2
- ;
- EN ;-- entry point.
- ;
- N IEN
- ; get ien for backgroung job.
- S IEN=$O(^DIC(19,"B","KMPR BACKGROUND DRIVER",0)) Q:'IEN
- ; get ien for background driver from 'option scheduling' file.
- S IEN=$O(^DIC(19.2,"B",+IEN,0))
- ; if scheduled then no further action necessary
- Q:IEN
- ; if OptenM/Cache then schedule background driver
- D:$P($G(^%ZOSF("OS")),"^")["OpenM" QUEBKG^KMPRUTL1
- ;
- Q
- KMPRPOST ;SF/RAK - RUM Post Install Routine ;3/27/00 10:56 [ 03/13/2003 1:31 PM ]
- +1 ;;1.0;CAPACITY MANAGEMENT - RUM;**1,2**;Dec 09, 1998
- +2 ;;
- +3 ;
- +4 ; This post install routine is for RUM patch KMPR*1.0*2
- +5 ;
- EN ;-- entry point.
- +1 ;
- +2 NEW IEN
- +3 ; get ien for backgroung job.
- +4 SET IEN=$ORDER(^DIC(19,"B","KMPR BACKGROUND DRIVER",0))
- IF 'IEN
- QUIT
- +5 ; get ien for background driver from 'option scheduling' file.
- +6 SET IEN=$ORDER(^DIC(19.2,"B",+IEN,0))
- +7 ; if scheduled then no further action necessary
- +8 IF IEN
- QUIT
- +9 ; if OptenM/Cache then schedule background driver
- +10 IF $PIECE($GET(^%ZOSF("OS")),"^")["OpenM"
- DO QUEBKG^KMPRUTL1
- +11 ;
- +12 QUIT