Routine: ORPR07

Information

ORPR07 ; slc/dcm - Printless in Tuscaloosa ;6/10/97 15:36

Source file <ORPR07.m>

Name	Comments	DBIA/ICR reference
ORDT(IFN,ACT)	;Get order date
ACT(IFN,ACT)	;This is an action
VNURSE(IFN,ACT)	;Get verifying nurse data
VCLERK(IFN,ACT)	;Get verifying clerk data
RVIEW(IFN,ACT)	;Get Chart reviewed by data
ORDOC(IFN,ACT)	;Get Ordering provider
PHONE(IFN,ACT,PIECE)	;Get Ordering provider's phone number (multiple choice)
NAT(IFN,ACT)	;Get Nature of order
ESNAME(IFN,ACT)	;Get Electronic Sig Name
ESTIT(IFN,ACT)	;Get Electronic Sig Title
ESDATE(IFN,ACT)	;Get Electronic Sig Date
ESODATE(IFN,ACT)	;Get Date/time Signed online
ENTBY(IFN,ACT)	;Get Entered by
ENTINT(IFN,ACT)	;Get Entered by Initials
ENTIT(IFN,ACT)	;Get Electronic Sig Title of Entering Person
BY(ORIFN)	;Get DC info for DC by & when PRINT FIELD
WARDREM(ORIFN)	;Get Ward Remarks
RX(IFN,FLD,Y)	;Get Pharmacy Fields
TEST	;Test RX call
LABEL(Y,ORIFN,QUIET,OACTION)	;Print pharmacy label
TEST1	;Print test label

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: TEST+1
Function Call: WRITE	Prompt: !,$C(7),X_" does not exist" Line Location: TEST+1
Function Call: WRITE	Prompt: !,ORI_"- " Line Location: TEST+2
Function Call: WRITE	Prompt: @ORIOF Line Location: LABEL+15
Function Call: WRITE	Prompt: ! Condition for execution: ORC>1 Line Location: LABEL+16
Function Call: WRITE	Prompt: LINES(I) Line Location: LABEL+16
Function Call: WRITE	Prompt: !,"03/03 \| \| (F1990)\|" Line Location: TEST1+1
Function Call: WRITE	Prompt: !,"Test Pharmacy Label" Line Location: TEST1+2
Function Call: WRITE	Prompt: !,"Give: 1GM TOP QD" Line Location: TEST1+3
Function Call: WRITE	Prompt: !!," RPH: _____RN: _____\|" Line Location: TEST1+4