Routine: RMPFDS

Information

RMPFDS ;DDC/KAW-LIST ORDERS BY PATIENT OR STATUS; [ 08/25/97 12:03 PM ]

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Remote Order Entry System	2	(,CONT)^RMPFDS1 (,MENU)^RMPFUTL
VA FileMan	2	DD^%DT ^DIC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Remote Order Entry System	1	RMPFDS

Entry Points

Name	Comments	DBIA/ICR reference
RMPFSET
A1
A11
STAT
S1
S11
S2
S21
S3
PAT
TYP
TYP1
DISP
END
READ

Name	Field # of Occurrence
DD^%DT	RMPFSET+3
^DIC	S3+1, PAT
^RMPFDS1	DISP
CONT^RMPFDS1	DISP+2
^RMPFUTL	RMPFSET+1
MENU^RMPFUTL	RMPFSET

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"* A MENU SELECTION MUST BE MADE *" Line Location: RMPFSET+0
Function Call: WRITE	Prompt: @IOF,!!,"LIST ORDERS BY PATIENT OR STATUS" Line Location: RMPFSET+2
Function Call: WRITE	Prompt: !!,"List Orders by <P>atient or by <S>tatus: " Line Location: A1+0
Function Call: WRITE	Prompt: !!,"Enter a <P> to display a list of orders for a patient or",!?5,"an <S> to display all orders with a chosen status." Line Location: A11+0
Function Call: WRITE	Prompt: !!,"Enter an <*> to Display ALL Orders or",!,"Enter One or More of the Following Statuses Separated by Commas:",! Line Location: STAT+0
Function Call: WRITE	Prompt: !?5,"<",B,"> ",?11,A Line Location: STAT+4
Function Call: WRITE	Prompt: !!,"Select Status(es): " Line Location: S1+0
Function Call: WRITE	Prompt: !!,"Enter the letter of the status you wish to print or <*> to print all status." Line Location: S11+0
Function Call: WRITE	Prompt: !!,"Print for <A>ll or <S>elected Ordering Officials: ALL// " Line Location: S2+0
Function Call: WRITE	Prompt: !!,"Enter an <A> to print orders for ALL Ordering Officials",!?6,"an <S> to select an ordering official" Line Location: S21+0
Function Call: WRITE	Prompt: ! Line Location: S3+0
Function Call: WRITE	Prompt: ! Line Location: PAT+0
Function Call: WRITE	Prompt: !!,"Display <P>atient, <S>tation or <B>oth Types of Orders: B// " Line Location: TYP+0
Function Call: WRITE	Prompt: !!,"Enter a <P> to display only patient type orders,",!?5,"an <S> to display only station type orders,",!?8,"<B> or <RETURN> to display both types." Line Location: TYP1+0
Function Call: WRITE	Prompt: @IOF Line Location: DISP+1
Function Call: READ	Variable: Y Timeout: DTIME Line Location: READ+1
Function Call: READ	Variable: Y Timeout: 5 Line Location: READ+1
Routine Call	DIC Line Location: S3+1 PAT

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPF(791810.2 - [#791810.2]	STAT+1, STAT+2, S11+3, S11+4

Label References

Name	Line Occurrences
A1	A11, S11+1, S11+6
A11	A11+1
DISP	PAT+1
END	A1+1, A11+1, S1, S2+1, PAT, TYP+1, DISP+2
PAT	A11+2
READ	A1+1, S1, S2+1, TYP+1, READ+1
RMPFSET	DISP, DISP+2
S11	S11+2
S2	S11+1, S21, S3+1
S21	S21+1
STAT	S11
TYP	S21+2, S3+1, TYP1
TYP1	TYP1+1

Naked Globals

Name	Field # of Occurrence
^(0	STAT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%XX	END+1!
%Y	END+1!
%YY	END+1!
A	STAT+2*, STAT+4, END+1!
B	STAT+2*, STAT+4, END+1!
C	STAT+2*, STAT+3, END+1!
CT	STAT, STAT+4, END+1!
DFN	PAT*, END!
DIC	S3, S3+1!, PAT, END!
DIC("A"	S3*
DIC(0	S3, PAT
DIPGM	END+1!
DISYS	END+1!
DT	RMPFSET+3
DTIME	READ+1
I	S11+2*, END+1!
IOF	RMPFSET+2, DISP+1
IOST	DISP+1
J	END+1!
RMPFCX	END!
>> RMPFDAT	RMPFSET+1, RMPFSET+3*
>> RMPFMENU	RMPFSET, STAT+3
RMPFO	END!
RMPFOO	S2!, S3+1*, END+1!
RMPFORD	A11+2*, END!
RMPFOUT	A1+1, S1, S2+1, TYP+1, DISP, DISP+2, END!, READ!, READ+2*
RMPFP	STAT!, S11+1*, S11+6, END!
RMPFP(	S11+4*
RMPFQUT	A11, A11+1, S11, S11+2, S11+3, S21, S21+1, TYP1, TYP1+1, END! , READ!, READ+3*
RMPFS	END!
>> RMPFSTAN	RMPFSET+1
>> RMPFSYS	RMPFSET+1
RMPFTP	PAT+1, TYP1+2, END!
S0	END+1!
U	STAT+2, READ+1
X	STAT, STAT+1, STAT+2, S11+2*, S11+3, S11+4, END+1!
Y	RMPFSET+3, A11+1, A11+2, S11+1, S11+2, S21+1, S21+2, S3+1, PAT, TYP1+1 , TYP1+2, END+1!, READ+1, READ+2, READ+3*
Z	S11+4*, END+1!

Customize PDF page

Package: Remote Order Entry System