| 1 | GMVRPCU ; HOIFO/DP - RPC for Vitals User ;3/18/04 12:49
|
---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;**3**;Oct 31, 2002
|
---|
| 3 | ; Integration Agreements:
|
---|
| 4 | ; IA# 10076 [Supported] XUSEC Calls
|
---|
| 5 | ; IA# 2263 [Supported] XPAR Calls
|
---|
| 6 | ; IA# 2541 [Supported] XUPARAM Calls
|
---|
| 7 | ; IA# 10112 [Supported] VASITE calls
|
---|
| 8 | ;
|
---|
| 9 | ; This routine supports the following IAs:
|
---|
| 10 | ; #4366 - GMV USER RPC is called at RPC (private)
|
---|
| 11 | ;
|
---|
| 12 | RPC(RESULTS,OPTION,DATA) ; [Procedure] Main RPC call tag
|
---|
| 13 | ; RPC: [GMV USER]
|
---|
| 14 | ;
|
---|
| 15 | ; Input parameters
|
---|
| 16 | ; 1. RESULTS [Reference/Required] RPC Return array
|
---|
| 17 | ; 2. OPTION [Literal/Required] RPC Option to execute
|
---|
| 18 | ; 3. DATA [Literal/Required] Other data as required for call
|
---|
| 19 | ;
|
---|
| 20 | N GMV,GMVCAT,GMVDESC,GMVENT,GMVERR,GMVFDA,GMVFLD,GMVIEN,GMVIT,GMVNAM,GMVNAME,GMVNEW,GMVOLD,GMVOWN,GMVOWNER,GMVQUAL,GMVROOT,GMVTYPE,GMVVAL,GMVVIT,GMVSCRN
|
---|
| 21 | S RESULTS=$NA(^TMP("GMVUSER",$J)) K @RESULTS
|
---|
| 22 | D:$T(@OPTION)]"" @OPTION
|
---|
| 23 | S:'$D(@RESULTS) @RESULTS@(0)="-1^No results returned"
|
---|
| 24 | D CLEAN^DILF
|
---|
| 25 | Q
|
---|
| 26 | ;
|
---|
| 27 | SETPAR ; [Procedure] Set/Clear Parameter
|
---|
| 28 | I $P(DATA,U,2)="" D Q
|
---|
| 29 | .D DEL^XPAR("USR","GMV USER DEFAULTS",$P(DATA,U,1),.GMVERR)
|
---|
| 30 | .I '$G(GMVERR) S @RESULTS@(0)="1^Parameter cleared"
|
---|
| 31 | .E S @RESULTS@(0)="-1^"_GMVERR
|
---|
| 32 | D EN^XPAR("USR","GMV USER DEFAULTS",$P(DATA,U,1),$P(DATA,U,2),.GMVERR)
|
---|
| 33 | I '$G(GMVERR) S @RESULTS@(0)="1^Parameter set."
|
---|
| 34 | E S @RESULTS@(0)="-1^"_GMVERR
|
---|
| 35 | Q
|
---|
| 36 | ;
|
---|
| 37 | GETPAR ; [Procedure] Get Parameter
|
---|
| 38 | S @RESULTS@(0)=$$GET^XPAR("USR","GMV USER DEFAULTS",DATA,"Q")
|
---|
| 39 | Q
|
---|
| 40 | ;
|
---|
| 41 | SIGNON ; [Procedure] Returns sign-on information after Broker.Connected := True
|
---|
| 42 | S @RESULTS@(0)=DUZ
|
---|
| 43 | S @RESULTS@(1)=$$GET1^DIQ(200,DUZ_",",.01) ; Name
|
---|
| 44 | S @RESULTS@(2)=+$$FIND1^DIC(4.2,"","QX",$$KSP^XUPARAM("WHERE")) ;Domain
|
---|
| 45 | S @RESULTS@(3)=$$KSP^XUPARAM("WHERE") ; Domain Name
|
---|
| 46 | S @RESULTS@(4)=+$G(DUZ(2)) ; Division IEN
|
---|
| 47 | S @RESULTS@(5)=$S(+$G(DUZ(2)):$$GET1^DIQ(4,DUZ(2)_",",.01),1:"UNKNOWN")
|
---|
| 48 | S @RESULTS@(6)=($D(^XUSEC("GMV MANAGER",DUZ))#2)!(DUZ(0)="@")
|
---|
| 49 | S @RESULTS@(7)=$$GET1^DIQ(200,DUZ_",",8)
|
---|
| 50 | S @RESULTS@(8)=""
|
---|
| 51 | S @RESULTS@(9)=$G(DTIME,300)
|
---|
| 52 | S @RESULTS@(10)=$$SITE^VASITE()
|
---|
| 53 | Q
|
---|
| 54 | ;
|
---|