source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIU0.m@ 996

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1RMPRPIU0 ;HINES OIFO/RVD-UTILITY ROUTINE ;9/24/02 10:52
2 ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
3 ;
4 ;DBIA #799 - Fileman read of file #420.5
5 ;DBIA #800 - Fileman read of file #440.
6 ;DBIA #801 - Fileman read of file #441.
7 ;DBIA #10035 - Fileman read of file #2.
8 ;DBIA #10090 - Fileman read of file #4.
9 ;DBIA #10060 - Fileman read of file #200.
10 Q
11 ;
12 ; Return Station Name
13GETSTN(RMPRIEN) ;input IEN of file #4
14 N RMPRO
15 S RMPRO=$$GET1^DIQ(4,RMPRIEN,.01)
16 Q RMPRO
17 ;
18 ; Return Vendor Name
19GETVEN(RMPRIEN) ;input IEN of file #440
20 N RMPRO
21 S RMPRO=$$GET1^DIQ(440,RMPRIEN,.01)
22 Q RMPRO
23 ;
24 ; Return Unit of Issue
25GETUNI(RMPRIEN) ;input IEN of file #420.5
26 N RMPRO
27 S RMPRO=$$GET1^DIQ(420.5,RMPRIEN,.01)
28 Q RMPRO
29 ; Return Item Master Short Description.
30GETITM(RMPRIEN) ;input IEN of file #441
31 N RMPRO
32 S RMPRO=$$GET1^DIQ(441,RMPRIEN,.05)
33 Q RMPRO
34 ; Return USER Name
35GETUSR(RMPRIEN) ;input IEN of file #200
36 N RMPRO
37 S RMPRO=$$GET1^DIQ(200,RMPRIEN,.01)
38 Q RMPRO
39 ; Return Patient Name
40GETPAT(RMPRIEN) ;input IEN of file #2
41 N RMPRO
42 S RMPRO=$$GET1^DIQ(2,RMPRIEN,.01)
43 Q RMPRO
Note: See TracBrowser for help on using the repository browser.