XUSKAAJ1.m

XUSKAAJ1 ;; ISF/JLG - KAAJEE Utilities ;10/19/2009

 ;;8.0;KERNEL;**504**;Jul 10, 1995;Build 8

 ;Per VHA Directive 2004-038, 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

 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))

 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

 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 DUZ=$$CHECKAV^XUS($$DECRYP^XUSRB1(CCOWTOK))

 S IO("IP")=% ; revert to original

 D USERINFO^XUSKAAJ(.RET,CLIENTIP,SERVERNM)

 Q

 ;

XUSKAAJ1  ;; ISF/JLG - KAAJEE Utilities ;10/19/2009

 +1       ;;8.0;KERNEL;**504**;Jul 10, 1995;Build 8

 +2       ;Per VHA Directive 2004-038, 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

 +2       ; save original

           SET XUIOIP=$GET(IO("IP"))

 +3       ; get actual ip address instead of localhost address if possible

 +4        SET IO("IP")=$SELECT($GET(CLIENTIP)="127.0.0.1":XUIOIP,$GET(CLIENTIP)="":XUIOIP,1:$GET(CLIENTIP))

 +5        DO CCOW^XUSRB4(.RET)

 +6       ; revert to original

           SET IO("IP")=XUIOIP

 +7        QUIT 

 +8       ;

USERINFO(RET,CLIENTIP,SERVERNM,CCOWTOK) ; rpc, called by XUS KAAJEE GET USER INFO VIA PROXY

 +1       ;

 +2        NEW %,DUZ,XUF

 +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        SET IO("IP")=$SELECT($GET(CLIENTIP)="127.0.0.1":%,$GET(CLIENTIP)="":%,1:$GET(CLIENTIP))

 +7        SET DUZ=$$CHECKAV^XUS($$DECRYP^XUSRB1(CCOWTOK))

 +8       ; revert to original

           SET IO("IP")=%

 +9        DO USERINFO^XUSKAAJ(.RET,CLIENTIP,SERVERNM)

 +10       QUIT 

 +11      ;