GMVRPCU.m

GMVRPCU ; HOIFO/DP - RPC for Vitals User ;3/18/04  12:49

 ;;5.0;GEN. MED. REC. - VITALS;**3**;Oct 31, 2002

 ; Integration Agreements:

 ; IA# 10076 [Supported] XUSEC Calls

 ; IA# 2263 [Supported] XPAR Calls

 ; IA# 2541 [Supported] XUPARAM Calls

 ; IA# 10112 [Supported] VASITE calls

 ;

 ; This routine supports the following IAs:

 ; #4366 - GMV USER RPC is called at RPC (private)

 ;

RPC(RESULTS,OPTION,DATA) ; [Procedure] Main RPC call tag

 ; RPC: [GMV USER]

 ;

 ; Input parameters

 ;  1. RESULTS [Reference/Required] RPC Return array

 ;  2. OPTION [Literal/Required] RPC Option to execute

 ;  3. DATA [Literal/Required] Other data as required for call

 ;

 N GMV,GMVCAT,GMVDESC,GMVENT,GMVERR,GMVFDA,GMVFLD,GMVIEN,GMVIT,GMVNAM,GMVNAME,GMVNEW,GMVOLD,GMVOWN,GMVOWNER,GMVQUAL,GMVROOT,GMVTYPE,GMVVAL,GMVVIT,GMVSCRN

 S RESULTS=$NA(^TMP("GMVUSER",$J)) K @RESULTS

 D:$T(@OPTION)]"" @OPTION

 S:'$D(@RESULTS) @RESULTS@(0)="-1^No results returned"

 D CLEAN^DILF

 Q

 ;

SETPAR ; [Procedure] Set/Clear Parameter

 I $P(DATA,U,2)="" D  Q

 .D DEL^XPAR("USR","GMV USER DEFAULTS",$P(DATA,U,1),.GMVERR)

 .I '$G(GMVERR) S @RESULTS@(0)="1^Parameter cleared"

 .E  S @RESULTS@(0)="-1^"_GMVERR

 D EN^XPAR("USR","GMV USER DEFAULTS",$P(DATA,U,1),$P(DATA,U,2),.GMVERR)

 I '$G(GMVERR) S @RESULTS@(0)="1^Parameter set."

 E  S @RESULTS@(0)="-1^"_GMVERR

 Q

 ;

GETPAR ; [Procedure] Get Parameter

 S @RESULTS@(0)=$$GET^XPAR("USR","GMV USER DEFAULTS",DATA,"Q")

 Q

 ;

SIGNON ; [Procedure] Returns sign-on information after Broker.Connected := True

 S @RESULTS@(0)=DUZ

 S @RESULTS@(1)=$$GET1^DIQ(200,DUZ_",",.01) ; Name

 S @RESULTS@(2)=+$$FIND1^DIC(4.2,"","QX",$$KSP^XUPARAM("WHERE")) ;Domain

 S @RESULTS@(3)=$$KSP^XUPARAM("WHERE") ; Domain Name

 S @RESULTS@(4)=+$G(DUZ(2)) ; Division IEN

 S @RESULTS@(5)=$S(+$G(DUZ(2)):$$GET1^DIQ(4,DUZ(2)_",",.01),1:"UNKNOWN")

 S @RESULTS@(6)=($D(^XUSEC("GMV MANAGER",DUZ))#2)!(DUZ(0)="@")

 S @RESULTS@(7)=$$GET1^DIQ(200,DUZ_",",8)

 S @RESULTS@(8)=""

 S @RESULTS@(9)=$G(DTIME,300)

 S @RESULTS@(10)=$$SITE^VASITE()

 Q

 ;

GMVRPCU   ; HOIFO/DP - RPC for Vitals User ;3/18/04  12:49

 +1       ;;5.0;GEN. MED. REC. - VITALS;**3**;Oct 31, 2002

 +2       ; Integration Agreements:

 +3       ; IA# 10076 [Supported] XUSEC Calls

 +4       ; IA# 2263 [Supported] XPAR Calls

 +5       ; IA# 2541 [Supported] XUPARAM Calls

 +6       ; IA# 10112 [Supported] VASITE calls

 +7       ;

 +8       ; This routine supports the following IAs:

 +9       ; #4366 - GMV USER RPC is called at RPC (private)

 +10      ;

RPC(RESULTS,OPTION,DATA) ; [Procedure] Main RPC call tag

 +1       ; RPC: [GMV USER]

 +2       ;

 +3       ; Input parameters

 +4       ;  1. RESULTS [Reference/Required] RPC Return array

 +5       ;  2. OPTION [Literal/Required] RPC Option to execute

 +6       ;  3. DATA [Literal/Required] Other data as required for call

 +7       ;

 +8        NEW GMV,GMVCAT,GMVDESC,GMVENT,GMVERR,GMVFDA,GMVFLD,GMVIEN,GMVIT,GMVNAM,GMVNAME,GMVNEW,GMVOLD,GMVOWN,GMVOWNER,GMVQUAL,GMVROOT,GMVTYPE,GMVVAL,GMVVIT,GMVSCRN

 +9        SET RESULTS=$NAME(^TMP("GMVUSER",$JOB))

           KILL @RESULTS

 +10       IF $TEXT(@OPTION)]""

               DO @OPTION

 +11       IF '$DATA(@RESULTS)

               SET @RESULTS@(0)="-1^No results returned"

 +12       DO CLEAN^DILF

 +13       QUIT 

 +14      ;

SETPAR    ; [Procedure] Set/Clear Parameter

 +1        IF $PIECE(DATA,U,2)=""

               Begin DoDot:1

 +2                DO DEL^XPAR("USR","GMV USER DEFAULTS",$PIECE(DATA,U,1),.GMVERR)

 +3                IF '$GET(GMVERR)

                       SET @RESULTS@(0)="1^Parameter cleared"

 +4               IF '$TEST

                       SET @RESULTS@(0)="-1^"_GMVERR

               End DoDot:1

               QUIT 

 +5        DO EN^XPAR("USR","GMV USER DEFAULTS",$PIECE(DATA,U,1),$PIECE(DATA,U,2),.GMVERR)

 +6        IF '$GET(GMVERR)

               SET @RESULTS@(0)="1^Parameter set."

 +7       IF '$TEST

               SET @RESULTS@(0)="-1^"_GMVERR

 +8        QUIT 

 +9       ;

GETPAR    ; [Procedure] Get Parameter

 +1        SET @RESULTS@(0)=$$GET^XPAR("USR","GMV USER DEFAULTS",DATA,"Q")

 +2        QUIT 

 +3       ;

SIGNON    ; [Procedure] Returns sign-on information after Broker.Connected := True

 +1        SET @RESULTS@(0)=DUZ

 +2       ; Name

           SET @RESULTS@(1)=$$GET1^DIQ(200,DUZ_",",.01)

 +3       ;Domain

           SET @RESULTS@(2)=+$$FIND1^DIC(4.2,"","QX",$$KSP^XUPARAM("WHERE"))

 +4       ; Domain Name

           SET @RESULTS@(3)=$$KSP^XUPARAM("WHERE")

 +5       ; Division IEN

           SET @RESULTS@(4)=+$GET(DUZ(2))

 +6        SET @RESULTS@(5)=$SELECT(+$GET(DUZ(2)):$$GET1^DIQ(4,DUZ(2)_",",.01),1:"UNKNOWN")

 +7        SET @RESULTS@(6)=($DATA(^XUSEC("GMV MANAGER",DUZ))#2)!(DUZ(0)="@")

 +8        SET @RESULTS@(7)=$$GET1^DIQ(200,DUZ_",",8)

 +9        SET @RESULTS@(8)=""

 +10       SET @RESULTS@(9)=$GET(DTIME,300)

 +11       SET @RESULTS@(10)=$$SITE^VASITE()

 +12       QUIT 

 +13      ;