VistA Analysis » VistA Reference » RPCs » XUS GET CCOW TOKEN

XUS GET CCOW TOKEN

This RPC gets a token to save in the CCOW context to aid in sign-on.

Properties

Property	Value
Label	CCOW
MUMPS Implementation	XUSRB4
Return Type	ARRAY

MUMPS Method Description

Property Value

Method CCOW^XUSRB4

Method Comment rpc. CCOW Auto Signon Handle

Code

Property	Value
Method	CCOW^XUSRB4
Method Comment	rpc. CCOW Auto Signon Handle
Code	`N HDL,HDL2,X S RET(0)="NO PROXY USER",RET(1)="ERROR" I $$USERTYPE^XUSAP(DUZ,"APPLICATION PROXY") Q ;No Proxy I $$USERTYPE^XUSAP(DUZ,"CONNECTOR PROXY") Q ;No Proxy S RET(0)="NOT AUTHENTICATED",RET(1)="ERROR" I $G(DUZ("LOA"))=1 Q ;Not an authenticated user S X=$$ACTIVE^XUSER(DUZ) I 'X S RET(0)=X Q ;User must be active S HDL=$$HANDLE("XWBCCW",1) S RET(0)="~2"_$$LOW^XLFSTR(HDL),RET(1)=$G(^XMB("NETNAME"))_"^"_$$STA^XUAF4(DUZ(2)) D TOK(HDL) S ^XUTL("XQ",$J,"HDL")=HDL ;Save handle with job`

 N HDL,HDL2,X
 S RET(0)="NO PROXY USER",RET(1)="ERROR"
 I $$USERTYPE^XUSAP(DUZ,"APPLICATION PROXY") Q  ;No Proxy
 I $$USERTYPE^XUSAP(DUZ,"CONNECTOR PROXY") Q  ;No Proxy
 S RET(0)="NOT AUTHENTICATED",RET(1)="ERROR"
 I $G(DUZ("LOA"))=1 Q  ;Not an authenticated user
 S X=$$ACTIVE^XUSER(DUZ) I 'X S RET(0)=X Q  ;User must be active
 S HDL=$$HANDLE("XWBCCW",1)
 S RET(0)="~2"_$$LOW^XLFSTR(HDL),RET(1)=$G(^XMB("NETNAME"))_"^"_$$STA^XUAF4(DUZ(2))
 D TOK(HDL)
 S ^XUTL("XQ",$J,"HDL")=HDL ;Save handle with job

CPRS

File Type	Description
Executable Only

Document generated on August 31st 2022, 2:55:43 pm