source: FOIAVistA/trunk/r/VISUAL_IMPAIRMENT_SERVICE_TEAM-ANRV/ANRVJ1.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ANRVJ1 ;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 ;
9GETDFN ; [Procedure] Return the DFN given a ICN
10 N DFN
11 S DFN=VAL1
12 S @RESULTS@(0)=$$GETDFN^MPIF001(DFN)
13 Q
14 ;
15GETPAR ; [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 ;
25RPC(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 ;
33SELUSR ; [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 ;
43LISTUS ; [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 ;
Note: See TracBrowser for help on using the repository browser.