ANRVJ1 ;HOIFO/CED - BR utility ;Jun 13,2006
 ;;5.0;BLIND REHABILITATION;**1**;Jun 02, 2006;Build 11
 ; This routine contains calls to VistA for 
 ; use until services are available.
 ; 
 ; Integration Agreements Utilized:
 ;       GETDFN^MPIF001  #2701
 ;
GETDFN ; [Procedure] Return the DFN given a ICN
 
DFN
 
DFN=VAL1
 
@RESULTS@(0)=$$GETDFN^MPIF001(DFN)
 
Q
 
;
GETPAR ; [Procedure] Return external value for parameter
 
ENT,PAR,INST,VER
 
ENT="SYS"
 
PAR=VAL1
 
INST=DATA
 
VER=$$GET^XPAR(ENT,PAR,INST,"B")
 
VER="" VER="0^NO"
 
@RESULTS@(0)=VER
 
Q
 
;
RPC(RESULTS,OPTION,VAL1,DATA) ; [Procedure] Main RPC Entry
 
RESULTS=$NA(^TMP($J)) @RESULTS
 
D:$T(@OPTION)]"" @OPTION
 
D:'$D(@RESULTS)
 .
@RESULTS@(0)="0^No results returned"
 
CLEAN^DILF
 
Q
 
;
SELUSR ; [Procedure] Return a selected user
 ; This is being replaced by Kernel
 ; IEN is the selected users Internal Entry Number
 
IEN
 
IEN=VAL1
 
@RESULTS@(0)=IEN_U
 
@RESULTS@(1)=$$GET1^DIQ(200,IEN_",",.01)_; Name
 
@RESULTS@(2)=$$GET1^DIQ(200,IEN_",",8)_; Title
 
Q
 
;
LISTUS ; [Procedure]Return a user list
 ; This is being replaced by Kernel
 
I,IEN,Y
 
FIND^DIC(200,"","","M",VAL1)
 
I=0,Y=""
 
F  S I=$O(^TMP("DILIST",$J,1,I)) Q:'I  D
 
IEN=^TMP("DILIST",$J,2,I)
 . 
@RESULTS@(I)=^TMP("DILIST",$J,2,I)_U_^TMP("DILIST",$J,1,I)_"~"
 
Q
 
;