Routine: ORPRS01

Package	Total	Call Graph
Order Entry Results Reporting	5	$$SHORT^ORPRS02 (PRES,SERV)^ORPRS09 $$DATE^ORU PATIENT^ORU1 READ^ORUTL
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA Fileman	2	^%DT ^DIR

Package

Total

Call Graph

Order Entry Results Reporting

$$SHORT^ORPRS02 (PRES,SERV)^ORPRS09 $$DATE^ORU PATIENT^ORU1 READ^ORUTL

Kernel

$$FMTE^XLFDT DISP^XQORM1

VA Fileman

^%DT ^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	11	ORCXPND3 ORCXPNDR OREOR0 ORPRS03 ORPRS04 ORPRS07 ORPRS09 ORPRS10 ORPRS11 ORPRS12 ORPRS13

Package

Total

Caller Graph

Order Entry Results Reporting

ORCXPND3 ORCXPNDR OREOR0 ORPRS03 ORPRS04 ORPRS07 ORPRS09 ORPRS10
ORPRS11 ORPRS12 ORPRS13

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
BILD	;
RANGE(X1,X2)	; Get a date range for printing
EN(ORDG,ORSEL)	;Setup/Display groups
TERM(IOST)	;Setup terminal display values
STOP	; Call DIR at bottom of screen
POP	;
CUSTOM	; Selects order status and display group
HACT1	;
P	; Get Patient(s)
R	;
DAY(DAY)	; Get a date for 24 hr printing
E	; Get Ending Date/time
HSTS(X)	;Help for status descriptions (ORRP STATUS MENU protocol)
PROC	;
D1	;

Name	Field # of Occurrence
^%DT	D1+7, R+8, E+8
^DIR	STOP+6
$$SHORT^ORPRS02	P+3
PRES^ORPRS09	CUSTOM+5
SERV^ORPRS09	CUSTOM+7
$$DATE^ORU	D1+2, R+2, E+2
PATIENT^ORU1	P+4
READ^ORUTL	HACT1+3, DISP+1
$$FMTE^XLFDT	D1+10, E+13, E+14
DISP^XQORM1	HSTS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Order Entry Date: "_$S(+ORSDFLT>0:$$DATE^ORU(ORSDFLT,"AMTH DD, CCYY"),1:"T")_"// " Line Location: D1+2
Function Call: WRITE	Prompt: $C(7),?40,"Invalid Date." Line Location: D1+9
Function Call: WRITE	Prompt: !!,"Start Date [Time]: "_$S(ORSDFLT>0:$$DATE^ORU(ORSDFLT,"AMTH DD, CCYY"),1:ORSDFLT)_"// " Line Location: R+2
Function Call: WRITE	Prompt: ?55,"Invalid Start Date/time." Line Location: R+10
Function Call: WRITE	Prompt: !!,"Ending Date [Time] (inclusive): "_$S(+ORSDFLT>0:$$DATE^ORU(ORSDFLT,"AMTH DD, CCYY HR:MIN"),1:ORSDFLT)_"// " Line Location: E+2
Function Call: WRITE	Prompt: ?57,"Invalid End Date/time." Line Location: E+10
Function Call: WRITE	Prompt: !,"Valid selections are: " Line Location: HSTS+1
Function Call: WRITE	Prompt: ! Line Location: HSTS+2
Function Call: WRITE	Prompt: ! Line Location: HSTS+2
Function Call: WRITE	Prompt: ! Line Location: HSTS+4
Function Call: WRITE	Prompt: " - "_^(0) Line Location: HACT1+3
Function Call: WRITE	Prompt: @IOF Line Location: DISP+1
Function Call: WRITE	Prompt: !,?((ORSTK*2)),$P(W,"^") Line Location: DISP+3
Function Call: WRITE	Prompt: ! Line Location: STOP+3
Routine Call	DIR Line Location: STOP+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	TERM+5
^ORD(100.98 - [#100.98]	EN+10, PROC+1, DISP+2
^ORD(101 - [#101]	HACT1+2, HACT1+3
^TMP("ORRX"	HACT1+1!, HACT1+2*, HACT1+3, HACT1+4!
^XUTL("OR"	P+2!

Name	Line Occurrences
@(	EN+8, EN+10, PROC+2
D1	D1+8, D1+9
E	E+9, E+10
HACT1	HSTS+2
R	R+9, R+10

Name	Field # of Occurrence
^(	HACT1+3, TERM+5
^("ORLP"	P+2!
^("ORV"	P+2!
^("ORW"	P+2!
^(0	HACT1+2, HACT1+3
^(5	TERM+5
^(7	TERM+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DAY+6~, CUSTOM+1~
%DT	DAY+6~, D1+6, RANGE+3~, R+7, E+7*
%H	DAY+6~
%I	DAY+6~
%T	DAY+6~, RANGE+3~
%X	P+1~
%Y	P+1~, CUSTOM+1~
C	P+1~, CUSTOM+1~
DAY	DAY~, D1+1, D1+8!, D1+9!
DFN	P+1~
DIC	P+1~, CUSTOM+1~
DIR	STOP+1~
DIR("?"	STOP+5*
DIR("A"	STOP+4*
DIR(0	STOP+4*
>> DIROUT	P+5, D1+4*, CUSTOM+3
DTIME	D1+3, R+3, E+3
>> DTOUT	CUSTOM+3
>> DUOUT	P+5
I	P+1~, CUSTOM+1~, HACT1+2, HACT1+3, EN+10, TERM+6
IOF	DISP+1
IOSL	DISP+1, STOP+3
IOST	STOP+2, TERM~, TERM+5
ORATTEND	P+1~
>> ORBUF	CUSTOM+2*
ORDG	EN~, EN+5, EN+9, PROC+1, PROC+3, DISP+2, BILD+1
>> OREND	P+5, D1+1, D1+4, R+1, R+4, R+5, E+4, E+5, CUSTOM+3*, CUSTOM+6 , CUSTOM+8
>> ORGRP(	BILD+1*
ORMEM	EN+6~, EN+9, EN+10, POP+1, PROC+1, PROC+3
>> ORPRES	RANGE+4, CUSTOM+4*
ORSCPAT	P+2!, P+4
ORSDFLT	DAY+6~, D1+1, D1+2, D1+5, RANGE+3~, R+1, R+2, R+6, E+1*, E+2 , E+6
ORSEL	EN~, EN+4*, EN+8, PROC+2
>> ORSHORT	P+3*
>> ORSSTOP	D1+10, RANGE+4, E+11, E+12, E+13*
>> ORSSTRT	D1+10, RANGE+4, R+11, E+1, E+12, E+14*
ORSTK	EN+6~, EN+7, EN+9, EN+10, POP+1, PROC+1, PROC+3, DISP+3
ORSTK(	EN+9, EN+10, POP+1, PROC+1, PROC+3*
ORSTK(0	EN+9*
>> ORTERM(5	TERM+4, TERM+5
>> ORTERM(7	TERM+4, TERM+5, TERM+6*
W	HACT1+2, HACT1+3, HACT1+4!, DISP+2*, DISP+3
X	DAY+6~, D1+3, D1+4, D1+5, D1+8, RANGE+3~, R+3, R+4, R+6, R+9 , E+3, E+4, E+6, E+9, E+12, CUSTOM+1~, HSTS~, HSTS+2, HACT1+4!, STOP+1~ , TERM+5
X1	RANGE~, R+1, HACT1+3*
X2	RANGE~, E+1
XQORM	CUSTOM+1~
XQORNOD	CUSTOM+1~, HACT1+2
>> XQORPOP	P+5, D1+4, R+4, E+4, CUSTOM+3, CUSTOM+6, CUSTOM+8*
XQORSPEW	CUSTOM+1~
Y	P+1~, DAY+6~, D1+9, D1+10, RANGE+3~, R+10, R+11, E+10, E+11, CUSTOM+1~ , HACT1+2, HACT1+3, STOP+1~

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORPRS01

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: