Routine: ORPRS04

Package	Total	Call Graph
Order Entry Results Reporting	6	TERM^ORPRS01 ($$FLAG,ONE)^ORPRS03 (CTOP,PBOT,PTOP)^ORPRS05 TEXT^ORQ12 $$INV^ORU END^ORUDPA
Kernel	1	$$S^%ZTLOAD
Toolkit	1	$$GET^XPAR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	2	ORPRS03 ORPRS11

Entry Points

Name	Comments	DBIA/ICR reference
MTIM(X)	;Format time from Fileman date in X
EN	;Print orders
KIDS(ORIFN,LENGTH)	;Print child orders
PTHDR	;
PRT	;Print order line
PGCHK(CNT)	;
STS	;
SET(FILE,FIELD,RESULT)	;Interpret set of codes

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	EN+1
^DIR	EN+19, PGCHK+5, PGCHK+8, PGCHK+15
TERM^ORPRS01	STS+2
$$FLAG^ORPRS03	STS+3
ONE^ORPRS03	KIDS+3
CTOP^ORPRS05	EN+13, PRT+4, PGCHK+17
PBOT^ORPRS05	EN+21, PGCHK+4, PGCHK+21
PTOP^ORPRS05	EN+14, PRT+3, PGCHK+24
TEXT^ORQ12	PRT+13
$$INV^ORU	STS+9, STS+40
END^ORUDPA	EN+9
$$GET^XPAR	EN+4, STS+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TASKED Report stopped by WHILE RUNNING." Line Location: EN+1
Function Call: WRITE	Prompt: @IOF Line Location: EN+11
Function Call: WRITE	Prompt: !!?3,"No orders.",!,ORLINE Line Location: EN+16
Function Call: WRITE	Prompt: $C(7),!!,"Enter '^' to stop listing for current patient" Line Location: EN+20
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: !! Line Location: STS+7
Function Call: WRITE	Prompt: ?8,ORSTS,?12,$S(ORDAD:"+",1:" ") Line Location: STS+11
Function Call: WRITE	Prompt: ?54,ORREQ Line Location: STS+13
Function Call: WRITE	Prompt: ?65,$E(ORSTRT,4,5)_"/"_$E(ORSTRT,6,7)_"/"_$E(ORSTRT,2,3) Condition for execution: $L(ORSTRT) Line Location: STS+13
Function Call: WRITE	Prompt: !?3,$$MTIM(ORODT),?13 Line Location: STS+15
Function Call: WRITE	Prompt: ?54,$E(ORREQ("TIT"),1,10),?68,$$MTIM(ORSTRT),?75,$$MTIM(ORSTOP) Line Location: STS+18
Function Call: WRITE	Prompt: !?13,ORTX(X) Line Location: STS+19
Function Call: WRITE	Prompt: ! Line Location: STS+21
Function Call: WRITE	Prompt: ?1,$P($G(^VA(200,ORUSER,0)),"^",2) Line Location: STS+22
Function Call: WRITE	Prompt: !?13,^(J,0) Line Location: STS+34
Function Call: WRITE	Prompt: !?66,"UNRELEASED" Line Location: STS+40
Function Call: WRITE	Prompt: @IOF Line Location: PGCHK+4
Function Call: WRITE	Prompt: ! Line Location: PGCHK+5
Function Call: WRITE	Prompt: !?(IOM-44)\2,"*** E N D O F R E P O R T **",! Line Location: PGCHK+7
Function Call: WRITE	Prompt: ! Line Location: PGCHK+8
Function Call: WRITE	Prompt: ! Line Location: PGCHK+13
Function Call: WRITE	Prompt: @IOF Line Location: PGCHK+23
Function Call: WRITE	Prompt: !,ORPNM_" "_$G(ORSSN)_" "_$S($G(ORCONT):"(cont.)",1:"")_" " Line Location: PTHDR+1
Function Call: WRITE	Prompt: ?(80-$L(X))\2,X Line Location: PTHDR+3
Routine Call	DIR Line Location: EN+19 PGCHK+5 PGCHK+8 PGCHK+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SET+1
^DIC(3.1 - [#3.1]	PRT+12
^OR(100 - [#100]	PRT+6, PRT+11, STS+23, STS+34, KIDS+3
^ORD(100.01 - [#100.01]	STS+1
^ORD(100.02 - [#100.02]	STS+27
^ORD(101.41 - [#101.41]	PRT+10
^TMP("ORR"	EN+4, EN+16, EN+26, PRT+2, STS+41
^VA(200 - [#200]	PRT+12, STS+22, STS+28, STS+29

Label References

Name	Line Occurrences
$$MTIM	STS+15, STS+18
$$SET	STS+26
KIDS	STS+38
PGCHK	EN+29, STS+5, STS+19, STS+42, KIDS+3
PRT	EN+26
PTHDR	EN+15, PRT+3, PGCHK+19, PGCHK+25

Naked Globals

Name	Field # of Occurrence
^(	PRT+2, STS+34
^(0	PRT+6, PRT+11, PRT+12, STS+23
^(2	PRT+6
^(3	PRT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	PGCHK~, PGCHK+2*, PGCHK+11, PGCHK+20
DIR	EN+19!, PGCHK+1~
DIR("A"	EN+19, PGCHK+5, PGCHK+8, PGCHK+14
DIR(0	EN+19, PGCHK+5, PGCHK+8, PGCHK+14
>> DIROUT	EN+1*
DIRUT	EN+2~
>> DTOUT	EN+27
DUOUT	EN+2~, EN+26, EN+27, PGCHK+5, PGCHK+8, PGCHK+16
FIELD	SET~, SET+1
FILE	SET~, SET+1
I	STS+19, STS+36~, STS+37, PGCHK+1~, KIDS+3*
IOF	EN+11, PGCHK+4, PGCHK+23
IOM	EN+8, EN+23, PGCHK+7
IOSL	EN+8, EN+11, STS+19, PGCHK+4, PGCHK+11, PGCHK+20, PGCHK+21
IOST	EN+11, EN+13, EN+18, PRT+4, STS+2, PGCHK+4, PGCHK+5, PGCHK+8, PGCHK+10
>> J	STS+34*
LENGTH	KIDS~, KIDS+3
NATURE	STS+24~, STS+25, STS+27, STS+32
NURSE	STS+24~, STS+25, STS+28, STS+30
NVA	PRT+1~, PRT+10*, PRT+16
OACTION	PRT+1~, PRT+2*, PRT+11, PRT+13, STS+23
>> ORAGE	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
ORASTS	PRT+1~, PRT+11*, STS+1
>> ORBOT	EN+8*, EN+21
ORCHLD	KIDS+1~, KIDS+2, KIDS+3
ORCONT	EN+2~, EN+24!, EN+25, STS+41, PGCHK+6!, PGCHK+16!, PGCHK+19, PGCHK+25, PTHDR+1
ORDAD	EN+2~, EN+8, PRT+6, STS+11, STS+35
ORDIA	PRT+1~, PRT+9*
ORDIAI	PRT+1~, PRT+9*, PRT+16
>> ORDOB	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
OREL	PRT+1~, PRT+7, PRT+11, STS+9, STS+40
OREND	EN+1, EN+2~, EN+8, EN+26, EN+27, STS+6, STS+19, STS+20, STS+35, PGCHK+5* , PGCHK+8, PGCHK+16, KIDS+3
ORFLAG	PRT+1~, STS+3*
ORIFN	PRT+1~, PRT+2, PRT+6, PRT+11, PRT+13, STS+3, STS+23, STS+34, STS+38, KIDS~ , KIDS+2, KIDS+3
>> ORL(0	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
>> ORL(1	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21, PTHDR+2
ORLINE	EN+2~, EN+8*, EN+16, PGCHK+3
>> ORLIST	EN+4, EN+16, EN+26, PRT+2, STS+41
ORLST	EN+2~, EN+25, EN+26, PRT+2, STS+41
ORLSTO	EN+2~, EN+25, EN+28, PGCHK+6
ORMD	PRT+1~, PRT+7, PRT+11
ORNAT	PRT+1~, PRT+11*
ORODT	PRT+1~, PRT+7, PRT+11, STS+10, STS+15
OROIFN	KIDS+1~, KIDS+2*, KIDS+3
>> ORPD	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21
>> ORPNM	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21, PTHDR+1
>> ORREQ	PRT+7, PRT+11, PRT+12, PRT+14, PRT+16, PRT+17, PRT+18, STS+13
>> ORREQ("F"	PRT+17, PRT+18, PRT+19, PRT+20, PRT+21, PRT+22
>> ORREQ("O"	EN+10, PRT+3, PRT+5, PRT+17, PRT+18
>> ORREQ("TIT"	PRT+5, PRT+12, PRT+16, PRT+17, PRT+20, PRT+21, STS+18
ORSEND	EN+13, EN+22, EN+24!, PRT+4, PGCHK+6!, PGCHK+16!, PGCHK+17
ORSEQ	STS+36~, STS+37*
>> ORSHORT	EN+13, EN+14, EN+21, PRT+3, PRT+4, PGCHK+3, PGCHK+4, PGCHK+17, PGCHK+21, PGCHK+24
ORSPG	EN+3!, EN+12, EN+13, EN+14, EN+24!, PRT+3, PRT+4, PRT+5, PGCHK+4, PGCHK+12 , PGCHK+17, PGCHK+18, PGCHK+21, PGCHK+22, PGCHK+24
ORSPG("EOP"	EN+13, EN+17, PRT+3, PRT+4*, PGCHK+17
ORSPG("LAST"	EN+27, STS+41*, PGCHK+3, PGCHK+9
ORSPG(0	PRT+5*
>> ORSSN	EN+13, EN+21, PRT+4, PGCHK+4, PGCHK+17, PGCHK+21, PTHDR+1
>> ORSSTOP	EN+14, PRT+3, PGCHK+24
>> ORSSTRT	EN+14, PRT+3, PGCHK+24
ORSTOP	PRT+1~, PRT+7*, STS+14, STS+18
ORSTRT	PRT+1~, PRT+7*, STS+13, STS+18
ORSTS	PRT+1~, PRT+7, STS+1, STS+11
>> ORTERM(5	STS+2, STS+3
>> ORTERM(7	STS+8, STS+40
>> ORTIT	EN+13, EN+14, PRT+3, PRT+4, STS+37, STS+39*, PGCHK+17, PGCHK+24
>> ORTIT(0	STS+37*, STS+39
ORTX	PRT+1~, PRT+13
ORTX(	STS+12, STS+17, STS+19
ORTX(""	STS+4
ORTX(0	STS+12, STS+16
ORUSER	PRT+1~, PRT+7, PRT+11, STS+22
>> ORVP	EN+8
>> ORWARD	EN+13, PRT+4, PGCHK+17, PTHDR+2
ORXPND	PRT+1~, STS+4*, STS+5, STS+19
RESULT	SET~, SET+1
REVIEW	STS+24~, STS+25, STS+29, STS+31
SHELBY	EN+2~, EN+4*, EN+7
SIGSTS	STS+24~, STS+25, STS+26, STS+33
U	PRT+12, STS+40
X	PRT+6, PRT+7, PRT+9, PRT+11, PRT+12, PRT+14, STS+8, STS+9, STS+16, STS+17 , STS+19, STS+23, STS+25, STS+40, PGCHK+1~, PTHDR+2, PTHDR+3, MTIM~, MTIM+1, MTIM+2 , MTIM+3, MTIM+4, MTIM+5, SET+1, SET+2
>> X3	PRT+6*, PRT+7
Y	EN+8, EN+19!, EN+20
YENKO	EN+2~, EN+4*, EN+7
>> ZTSTOP	EN+1*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORPRS04

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: