Routine: ORPRS03

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Order Entry Results Reporting	8	(FOOT,HEAD)^ORPR01 TERM^ORPRS01 PRT^ORPRS04 (CTOP,PBOT,PTOP)^ORPRS05 TEXT^ORQ12 $$INV^ORU END^ORUDPA (PGBRK,TIT)^ORUHDR
Kernel	2	$$S^%ZTLOAD $$FMTE^XLFDT
Toolkit	1	$$GET^XPAR
VA Fileman	1	^DIR

Package

Total

Call Graph

Order Entry Results Reporting

(FOOT,HEAD)^ORPR01 TERM^ORPRS01 PRT^ORPRS04 (CTOP,PBOT,PTOP)^ORPRS05 TEXT^ORQ12 $$INV^ORU END^ORUDPA (PGBRK,TIT)^ORUHDR

Kernel

$$S^%ZTLOAD $$FMTE^XLFDT

Toolkit

$$GET^XPAR

VA Fileman

^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORPRS04 ORPRS11 ORU

Package

Total

Caller Graph

Order Entry Results Reporting

ORPRS04 ORPRS11 ORU

Name	Comments	DBIA/ICR reference
PRT1(ORIFN,LENGTH)	;For kids sake
FLAG(ORIFN,INVERSE)	;Is order flagged?
ONE(ORIFN,ORSEQ,LENGTH)	;Single line format
EN	;Print orders
WAIT	;

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	EN+1
^DIR	EN+18
FOOT^ORPR01	WAIT+3
HEAD^ORPR01	WAIT+4
TERM^ORPRS01	ONE+5
PRT^ORPRS04	EN+27
CTOP^ORPRS05	EN+13
PBOT^ORPRS05	EN+20
PTOP^ORPRS05	EN+14
TEXT^ORQ12	ONE+17
$$INV^ORU	ONE+9, ONE+12, ONE+14, ONE+21
END^ORUDPA	EN+10
PGBRK^ORUHDR	WAIT+6
TIT^ORUHDR	WAIT+6
$$FMTE^XLFDT	ONE+20
$$GET^XPAR	EN+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TASKED Report stopped by "_$P(^VA(200,DUZ,0),U) Line Location: EN+1
Function Call: WRITE	Prompt: !!?3,"No orders.",!!! Line Location: EN+15
Function Call: WRITE	Prompt: ! Line Location: EN+16
Function Call: WRITE	Prompt: $C(7),!!,"Enter '^' to stop listing for current patient",!,"and '^^' to stop the entire report, or RETURN to continue" Line Location: EN+19
Function Call: WRITE	Prompt: @IOF Line Location: EN+21
Function Call: WRITE	Prompt: !!!!!?(IOM-44)\2,"*** E N D O F R E P O R T **",! Line Location: EN+23
Function Call: WRITE	Prompt: @IOF Line Location: EN+24
Function Call: WRITE	Prompt: ! Line Location: ONE+7
Function Call: WRITE	Prompt: ORSEQ_$S($L(ORSEQ)=1:" ",1:"") Line Location: ONE+10
Function Call: WRITE	Prompt: $S($G(ORASTS)!(ORSTS):" "_$P(^ORD(100.01,$S($G(ORASTS):ORASTS,1:ORSTS),.1),"^"),1:" ") Line Location: ONE+15
Function Call: WRITE	Prompt: ! Condition for execution: I>1 Line Location: ONE+18
Function Call: WRITE	Prompt: ?14,ORTX(I) Line Location: ONE+18
Function Call: WRITE	Prompt: !?14 Condition for execution: ($X+9+$L(ORSTRT)+$S($L(ORSTOP):$L(ORSTOP)+8,1:0))>(LENGTH+14) Line Location: ONE+20
Function Call: WRITE	Prompt: " Start: "_ORSTRT Line Location: ONE+20
Function Call: WRITE	Prompt: " Stop: "_ORSTOP Condition for execution: $L(ORSTOP) Line Location: ONE+20
Function Call: WRITE	Prompt: ?(IOM-15),"(continued...)" Line Location: WAIT+2
Function Call: WRITE	Prompt: !,"(...continued)" Line Location: WAIT+4
Routine Call	DIR Line Location: EN+18

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	ONE+2, ONE+4, PRT1+5, FLAG+2
^ORD(100.01 - [#100.01]	ONE+15
^TMP("ORR"	EN+4, EN+5, EN+15, EN+27
^VA(200 - [#200]	EN+1

Name	Line Occurrences
$$FLAG	ONE+6
ONE	PRT1+5
WAIT	PRT1+5

Name	Field # of Occurrence
^(0	ONE+3, ONE+4
^(3	ONE+3
^(6	FLAG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	EN+18!
DIR("A"	EN+18*
DIR(0	EN+18*
>> DIROUT	EN+1*
DIRUT	EN+2~
DUOUT	EN+2~, EN+27
DUZ	EN+1
I	EN+16, ONE+1~, ONE+18
INVERSE	FLAG~, FLAG+2
IOF	EN+21, EN+24
IOM	EN+9, EN+23, WAIT+2
IOSL	EN+9
IOST	EN+13, EN+17, ONE+5, WAIT+5
LENGTH	ONE~, ONE+16*, ONE+17, ONE+20, PRT1~, PRT1+5
>> OACTION	ONE+4, ONE+17
ORAGE	EN+3~, EN+13, EN+20
ORASTS	ONE+1~, ONE+4*, ONE+15
ORBOT	EN+2~, EN+9*, EN+16, EN+20
ORCHLD	PRT1+3~, PRT1+4, PRT1+5
ORCONT	EN+25!, EN+28!
>> ORDAD	ONE+19
ORDOB	EN+3~, EN+13, EN+20
OREL	ONE+1~, ONE+3*, ONE+14, ONE+21
>> OREND	EN+1, EN+26, PRT1+5, WAIT+4
ORFLAG	ONE+1~, ONE+6*, ONE+9, ONE+12
>> ORFOOT	WAIT+1, WAIT+3
>> ORHEAD	WAIT+4
ORIFN	ONE~, ONE+2, ONE+4, ONE+6, ONE+17, PRT1~, PRT1+5, FLAG~, FLAG+2
>> ORIOF	WAIT+7
>> ORIOSL	PRT1+5
ORL	EN+3~
ORL(0	EN+13, EN+20
ORL(1	EN+13, EN+20
ORLINE	EN+2~, EN+9*
>> ORLIST	EN+4, EN+5, EN+15, EN+27
ORLST	EN+2~, EN+26, EN+27
>> ORNO	EN+4
ORNP	EN+3~
>> ORPD	EN+13, EN+20
ORPNM	EN+3~, EN+13, EN+20
ORPV	EN+3~
ORREQ	EN+2~
ORREQ("O"	EN+11*
ORSEND	EN+13, EN+22, EN+25!, EN+28!
ORSEQ	ONE~, ONE+3*, ONE+10
ORSEX	EN+3~
>> ORSHORT	EN+13, EN+14
ORSPG	EN+2~, EN+12*, EN+13, EN+14, EN+25!, EN+28!
ORSPG("EOP"	EN+13
ORSSN	EN+3~, EN+13, EN+20
>> ORSSTOP	EN+14
>> ORSSTRT	EN+14
ORSTOP	ONE+1~, ONE+3, ONE+20
ORSTRT	ONE+1~, ONE+3, ONE+20
ORSTS	ONE+1~, ONE+3*, ONE+15
>> ORTERM(5	ONE+5, ONE+6, ONE+8, ONE+11
>> ORTERM(7	ONE+13, ONE+21
>> ORTIT	EN+13, EN+14, WAIT+6, WAIT+7
ORTS	EN+3~
ORTX	ONE+1~, ONE+17
ORTX(	ONE+18
>> ORVP	EN+9
ORWARD	EN+3~, EN+13
SHELBY	EN+2~, EN+5*, EN+8
U	EN+1
>> X	ONE+8, ONE+9, ONE+11, ONE+12, ONE+13, ONE+14, ONE+21, FLAG+1, FLAG+2*, FLAG+3
X3	ONE+1~, ONE+3*
Y	EN+9, EN+18!, EN+19
YENKO	EN+2~, EN+5*, EN+8
Z	ONE+1~, ONE+19*, ONE+20
>> ZTSTOP	EN+1*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORPRS03

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: