- 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 Apr 23, 2025@18:27:08 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 ;
