- 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 Apr 23, 2025@18:50:42 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
