Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XU8P446

XU8P446.m

Go to the documentation of this file.
  1. 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
  1. Q
  1. ;
  1. POST ;
  1. D PROXY
  1. D PATCH^ZTMGRSET(446)
  1. Q
  1. ;
  1. PROXY ;Setup Proxy User
  1. N X,NAME
  1. S NAME="TASKMAN,PROXY USER"
  1. S X=$$APFIND^XUSAP(NAME) I X>0 Q ;All ready setup
  1. I (+X)'=-1 Q ;Some problem
  1. ;Setup Proxy
  1. S X=$$CREATE^XUSAP(NAME,"#")
  1. D BMES^XPDUTL("POST-INIT: Taskman proxy "_$S(X>0:"created.",1:"Failed"))
  1. Q