KMPRPOST.m

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