[628] | 1 | ANRVJ1 ;HOIFO/CED - BR utility ;Jun 13,2006
|
---|
| 2 | ;;5.0;BLIND REHABILITATION;**1**;Jun 02, 2006;Build 11
|
---|
| 3 | ; This routine contains calls to VistA for
|
---|
| 4 | ; use until services are available.
|
---|
| 5 | ;
|
---|
| 6 | ; Integration Agreements Utilized:
|
---|
| 7 | ; GETDFN^MPIF001 #2701
|
---|
| 8 | ;
|
---|
| 9 | GETDFN ; [Procedure] Return the DFN given a ICN
|
---|
| 10 | N DFN
|
---|
| 11 | S DFN=VAL1
|
---|
| 12 | S @RESULTS@(0)=$$GETDFN^MPIF001(DFN)
|
---|
| 13 | Q
|
---|
| 14 | ;
|
---|
| 15 | GETPAR ; [Procedure] Return external value for parameter
|
---|
| 16 | N ENT,PAR,INST,VER
|
---|
| 17 | S ENT="SYS"
|
---|
| 18 | S PAR=VAL1
|
---|
| 19 | S INST=DATA
|
---|
| 20 | S VER=$$GET^XPAR(ENT,PAR,INST,"B")
|
---|
| 21 | I VER="" S VER="0^NO"
|
---|
| 22 | S @RESULTS@(0)=VER
|
---|
| 23 | Q
|
---|
| 24 | ;
|
---|
| 25 | RPC(RESULTS,OPTION,VAL1,DATA) ; [Procedure] Main RPC Entry
|
---|
| 26 | S RESULTS=$NA(^TMP($J)) K @RESULTS
|
---|
| 27 | D:$T(@OPTION)]"" @OPTION
|
---|
| 28 | D:'$D(@RESULTS)
|
---|
| 29 | .S @RESULTS@(0)="0^No results returned"
|
---|
| 30 | D CLEAN^DILF
|
---|
| 31 | Q
|
---|
| 32 | ;
|
---|
| 33 | SELUSR ; [Procedure] Return a selected user
|
---|
| 34 | ; This is being replaced by Kernel
|
---|
| 35 | ; IEN is the selected users Internal Entry Number
|
---|
| 36 | N IEN
|
---|
| 37 | S IEN=VAL1
|
---|
| 38 | S @RESULTS@(0)=IEN_U
|
---|
| 39 | S @RESULTS@(1)=$$GET1^DIQ(200,IEN_",",.01)_U ; Name
|
---|
| 40 | S @RESULTS@(2)=$$GET1^DIQ(200,IEN_",",8)_U ; Title
|
---|
| 41 | Q
|
---|
| 42 | ;
|
---|
| 43 | LISTUS ; [Procedure]Return a user list
|
---|
| 44 | ; This is being replaced by Kernel
|
---|
| 45 | N I,IEN,Y
|
---|
| 46 | D FIND^DIC(200,"","","M",VAL1)
|
---|
| 47 | S I=0,Y=""
|
---|
| 48 | F S I=$O(^TMP("DILIST",$J,1,I)) Q:'I D
|
---|
| 49 | . S IEN=^TMP("DILIST",$J,2,I)
|
---|
| 50 | . S @RESULTS@(I)=^TMP("DILIST",$J,2,I)_U_^TMP("DILIST",$J,1,I)_"~"
|
---|
| 51 | Q
|
---|
| 52 | ;
|
---|