XU8P446.m

XU8P446 ;ISF/RWF - POST INIT FOR PATCH XU*8*446 ;08/27/08  15:06

 ;;8.0;KERNEL;**446**;JUL 10, 1995;Build 44

 Q

 ;

POST ;

 D PROXY

 D PATCH^ZTMGRSET(446)

 Q

 ;

PROXY ;Setup Proxy User

 N X,NAME

 S NAME="TASKMAN,PROXY USER"

 S X=$$APFIND^XUSAP(NAME) I X>0 Q  ;All ready setup

 I (+X)'=-1 Q  ;Some problem

 ;Setup Proxy

 S X=$$CREATE^XUSAP(NAME,"#")

 D BMES^XPDUTL("POST-INIT: Taskman proxy "_$S(X>0:"created.",1:"Failed"))

 Q

XU8P446   ;ISF/RWF - POST INIT FOR PATCH XU*8*446 ;08/27/08  15:06

 +1       ;;8.0;KERNEL;**446**;JUL 10, 1995;Build 44

 +2        QUIT 

 +3       ;

POST      ;

 +1        DO PROXY

 +2        DO PATCH^ZTMGRSET(446)

 +3        QUIT 

 +4       ;

PROXY     ;Setup Proxy User

 +1        NEW X,NAME

 +2        SET NAME="TASKMAN,PROXY USER"

 +3       ;All ready setup

           SET X=$$APFIND^XUSAP(NAME)

           IF X>0

               QUIT 

 +4       ;Some problem

           IF (+X)'=-1

               QUIT 

 +5       ;Setup Proxy

 +6        SET X=$$CREATE^XUSAP(NAME,"#")

 +7        DO BMES^XPDUTL("POST-INIT: Taskman proxy "_$SELECT(X>0:"created.",1:"Failed"))

 +8        QUIT