RMPRPIU0.m

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 ---RMPRPIU0   1128     printed  Apr 09, 2024@21:34:34                                                                                                                                                                                                    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