| 1 | RMPRPIU0 ;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
|
|---|
| 13 | GETSTN(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
|
|---|
| 19 | GETVEN(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
|
|---|
| 25 | GETUNI(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.
|
|---|
| 30 | GETITM(RMPRIEN) ;input IEN of file #441
|
|---|
| 31 | N RMPRO
|
|---|
| 32 | S RMPRO=$$GET1^DIQ(441,RMPRIEN,.05)
|
|---|
| 33 | Q RMPRO
|
|---|
| 34 | ; Return USER Name
|
|---|
| 35 | GETUSR(RMPRIEN) ;input IEN of file #200
|
|---|
| 36 | N RMPRO
|
|---|
| 37 | S RMPRO=$$GET1^DIQ(200,RMPRIEN,.01)
|
|---|
| 38 | Q RMPRO
|
|---|
| 39 | ; Return Patient Name
|
|---|
| 40 | GETPAT(RMPRIEN) ;input IEN of file #2
|
|---|
| 41 | N RMPRO
|
|---|
| 42 | S RMPRO=$$GET1^DIQ(2,RMPRIEN,.01)
|
|---|
| 43 | Q RMPRO
|
|---|
