RMPRPIU0 ;HINES OIFO/RVD-UTILITY ROUTINE ;9/24/02 10:52
;;3.0;PROSTHETICS;**61**;Feb 09, 1996
;
;DBIA #799 - Fileman read of file #420.5
;DBIA #800 - Fileman read of file #440.
;DBIA #801 - Fileman read of file #441.
;DBIA #10035 - Fileman read of file #2.
;DBIA #10090 - Fileman read of file #4.
;DBIA #10060 - Fileman read of file #200.
Q
;
; Return Station Name
GETSTN(RMPRIEN) ;input IEN of file #4
N RMPRO
S RMPRO=$$GET1^DIQ(4,RMPRIEN,.01)
Q RMPRO
;
; Return Vendor Name
GETVEN(RMPRIEN) ;input IEN of file #440
N RMPRO
S RMPRO=$$GET1^DIQ(440,RMPRIEN,.01)
Q RMPRO
;
; Return Unit of Issue
GETUNI(RMPRIEN) ;input IEN of file #420.5
N RMPRO
S RMPRO=$$GET1^DIQ(420.5,RMPRIEN,.01)
Q RMPRO
; Return Item Master Short Description.
GETITM(RMPRIEN) ;input IEN of file #441
N RMPRO
S RMPRO=$$GET1^DIQ(441,RMPRIEN,.05)
Q RMPRO
; Return USER Name
GETUSR(RMPRIEN) ;input IEN of file #200
N RMPRO
S RMPRO=$$GET1^DIQ(200,RMPRIEN,.01)
Q RMPRO
; Return Patient Name
GETPAT(RMPRIEN) ;input IEN of file #2
N RMPRO
S RMPRO=$$GET1^DIQ(2,RMPRIEN,.01)
Q RMPRO
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRPIU0 1128 printed Dec 13, 2024@02:36:12 Page 2
RMPRPIU0 ;HINES OIFO/RVD-UTILITY ROUTINE ;9/24/02 10:52
+1 ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
+2 ;
+3 ;DBIA #799 - Fileman read of file #420.5
+4 ;DBIA #800 - Fileman read of file #440.
+5 ;DBIA #801 - Fileman read of file #441.
+6 ;DBIA #10035 - Fileman read of file #2.
+7 ;DBIA #10090 - Fileman read of file #4.
+8 ;DBIA #10060 - Fileman read of file #200.
+9 QUIT
+10 ;
+11 ; Return Station Name
GETSTN(RMPRIEN) ;input IEN of file #4
+1 NEW RMPRO
+2 SET RMPRO=$$GET1^DIQ(4,RMPRIEN,.01)
+3 QUIT RMPRO
+4 ;
+5 ; Return Vendor Name
GETVEN(RMPRIEN) ;input IEN of file #440
+1 NEW RMPRO
+2 SET RMPRO=$$GET1^DIQ(440,RMPRIEN,.01)
+3 QUIT RMPRO
+4 ;
+5 ; Return Unit of Issue
GETUNI(RMPRIEN) ;input IEN of file #420.5
+1 NEW RMPRO
+2 SET RMPRO=$$GET1^DIQ(420.5,RMPRIEN,.01)
+3 QUIT RMPRO
+4 ; Return Item Master Short Description.
GETITM(RMPRIEN) ;input IEN of file #441
+1 NEW RMPRO
+2 SET RMPRO=$$GET1^DIQ(441,RMPRIEN,.05)
+3 QUIT RMPRO
+4 ; Return USER Name
GETUSR(RMPRIEN) ;input IEN of file #200
+1 NEW RMPRO
+2 SET RMPRO=$$GET1^DIQ(200,RMPRIEN,.01)
+3 QUIT RMPRO
+4 ; Return Patient Name
GETPAT(RMPRIEN) ;input IEN of file #2
+1 NEW RMPRO
+2 SET RMPRO=$$GET1^DIQ(2,RMPRIEN,.01)
+3 QUIT RMPRO
