XUSKAAJ1 ;;12/15/15 08:54;10/19/2009
;;8.0;KERNEL;**504,659**;Jul 10, 1995;Build 22
;Per VA Directive 6402, this routine should not be modified.
;;
QUIT
;
; ------------------------------------------------------------------------
; SSO/UC KAAJEE RPCs
; ------------------------------------------------------------------------
;
CCOWIP(RET,CLIENTIP) ;rpc. CCOW Auto Signon Handle for middle tiered application servers
N XUIOIP,XULOOPIP
S XUIOIP=$G(IO("IP")) ; save original
; get actual ip address instead of localhost address if possible
;S IO("IP")=$S($G(CLIENTIP)="127.0.0.1":XUIOIP,$G(CLIENTIP)="":XUIOIP,1:$G(CLIENTIP))
S XULOOPIP=$$CONVERT^XLFIPV("127.0.0.1") ;p659
S IO("IP")=$S($G(CLIENTIP)=XULOOPIP:XUIOIP,$G(CLIENTIP)="":XUIOIP,1:$G(CLIENTIP)) ;p659
D CCOW^XUSRB4(.RET)
S IO("IP")=XUIOIP ; revert to original
Q
;
USERINFO(RET,CLIENTIP,SERVERNM,CCOWTOK) ; rpc, called by XUS KAAJEE GET USER INFO VIA PROXY
;
N %,DUZ,XUF,XULOOPIP
S XUF=$G(XUF,0)
S %=$G(IO("IP")) ; save original
; get actual ip address instead of localhost address if possible
;S IO("IP")=$S($G(CLIENTIP)="127.0.0.1":%,$G(CLIENTIP)="":%,1:$G(CLIENTIP))
S XULOOPIP=$$CONVERT^XLFIPV("127.0.0.1") ;p659
S IO("IP")=$S($G(CLIENTIP)=XULOOPIP:%,$G(CLIENTIP)="":%,1:$G(CLIENTIP)) ;p659
S DUZ=$$CHECKAV^XUS($$DECRYP^XUSRB1(CCOWTOK))
S IO("IP")=% ; revert to original
D USERINFO^XUSKAAJ(.RET,CLIENTIP,SERVERNM)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUSKAAJ1 1453 printed Dec 13, 2024@02:12:35 Page 2
XUSKAAJ1 ;;12/15/15 08:54;10/19/2009
+1 ;;8.0;KERNEL;**504,659**;Jul 10, 1995;Build 22
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;;
+4 QUIT
+5 ;
+6 ; ------------------------------------------------------------------------
+7 ; SSO/UC KAAJEE RPCs
+8 ; ------------------------------------------------------------------------
+9 ;
CCOWIP(RET,CLIENTIP) ;rpc. CCOW Auto Signon Handle for middle tiered application servers
+1 NEW XUIOIP,XULOOPIP
+2 ; save original
SET XUIOIP=$GET(IO("IP"))
+3 ; get actual ip address instead of localhost address if possible
+4 ;S IO("IP")=$S($G(CLIENTIP)="127.0.0.1":XUIOIP,$G(CLIENTIP)="":XUIOIP,1:$G(CLIENTIP))
+5 ;p659
SET XULOOPIP=$$CONVERT^XLFIPV("127.0.0.1")
+6 ;p659
SET IO("IP")=$SELECT($GET(CLIENTIP)=XULOOPIP:XUIOIP,$GET(CLIENTIP)="":XUIOIP,1:$GET(CLIENTIP))
+7 DO CCOW^XUSRB4(.RET)
+8 ; revert to original
SET IO("IP")=XUIOIP
+9 QUIT
+10 ;
USERINFO(RET,CLIENTIP,SERVERNM,CCOWTOK) ; rpc, called by XUS KAAJEE GET USER INFO VIA PROXY
+1 ;
+2 NEW %,DUZ,XUF,XULOOPIP
+3 SET XUF=$GET(XUF,0)
+4 ; save original
SET %=$GET(IO("IP"))
+5 ; get actual ip address instead of localhost address if possible
+6 ;S IO("IP")=$S($G(CLIENTIP)="127.0.0.1":%,$G(CLIENTIP)="":%,1:$G(CLIENTIP))
+7 ;p659
SET XULOOPIP=$$CONVERT^XLFIPV("127.0.0.1")
+8 ;p659
SET IO("IP")=$SELECT($GET(CLIENTIP)=XULOOPIP:%,$GET(CLIENTIP)="":%,1:$GET(CLIENTIP))
+9 SET DUZ=$$CHECKAV^XUS($$DECRYP^XUSRB1(CCOWTOK))
+10 ; revert to original
SET IO("IP")=%
+11 DO USERINFO^XUSKAAJ(.RET,CLIENTIP,SERVERNM)
+12 QUIT
+13 ;
