Routine: XU8P446

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

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

POST ;

 D PROXY

 D PATCH^ZTMGRSET(446)

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"))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P446   443     printed  Dec 13, 2024@02:07:43                                                                                                                                                                                                      Page 2

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

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

 +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

XU8P446.m