- XU8P446 ;ISF/RWF - POST INIT FOR PATCH XU*8*446 ;08/27/08 15:06
- ;;8.0;KERNEL;**446**;JUL 10, 1995;Build 35
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P446 443 printed Feb 18, 2025@23:34:08 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