Routine: ORY124

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT (BMES,MES)^XPDUTL
Order Entry Results Reporting	2	$$NMSP^ORCD $$STATUS^ORQOR2

Entry Points

Name	Comments	DBIA/ICR reference
TASK	;
HDR	;
PNM(ORIEN)	;Returns patient name
DOSE()	;Returns number of doses associated with order
PRINT	;Print out info associated with order
EXIT	;
CHECK	;Check for patch 94 existence
DQ	;Come here to start

Name	Line Occurrences
Function Call: WRITE	Prompt: "NO DATA TO REPORT." Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF,! Line Location: HDR+3
Function Call: WRITE	Prompt: "Complex Orders Search",?35,DATE,?70,"PAGE: ",PAGE,! Line Location: HDR+4
Function Call: WRITE	Prompt: "ORDER #",?12,"ORDER DATE",?25,"PATIENT NAME",?58,"ORDER STATUS" Line Location: HDR+5
Function Call: WRITE	Prompt: !,DASH,! Line Location: HDR+6
Routine Call	%ZIS Line Location: TASK+1

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	DQ+7, DQ+8, DQ+9, DOSE+2, PRINT+7, PNM+2
^TMP($J	DQ+2!, DQ+11*, PRINT+4, PRINT+5
^XPD(9.7 - [#9.7]	CHECK+2
^XTMP("ORY124"	ORY124+4, DQ+13*

Name	Field # of Occurrence
^(1	CHECK+2

Name	Field # of Occurrence
%ZIS	ORY124+3~, TASK+1*
%ZIS("B"	TASK+1*
%ZIS("S"	TASK+1*
DASH	HDR+1~, HDR+2!, HDR+6*
DATE	PRINT+1~, PRINT+2*, HDR+4
DIC	ORY124+3~, DQ+1~
DOSE	DOSE+1~, DOSE+2*, DOSE+3
DT	DQ+13, PRINT+2
FILE	PNM+1~, PNM+4*, PNM+5
I	DOSE+1~, DOSE+2*
IEN	CHECK+1~, CHECK+2*
IO	DQ+4
IO("Q"	TASK+2
IOF	HDR+3
IOM	HDR+6
IOSL	PRINT+10
IOST	DQ+4
J	PRINT+1~, PRINT+5*, PRINT+6, PRINT+7, PRINT+8, PRINT+9
NAME	PNM+1~, PNM+5*, PNM+6
OBJ	PNM+1~, PNM+2*, PNM+3, PNM+4, PNM+5
OREND	ORY124+3~
ORID	DQ+1~, DQ+5, DQ+6, DQ+7
ORIEN	DQ+1~, DQ+7, DQ+8, DQ+9, DQ+11, DOSE+2, PNM~, PNM+2
ORION	ORY124+3~
ORIOPTR	ORY124+3~
ORMSG	ORY124+3~, ORY124+8
ORMSG(1	ORY124+6*
ORMSG(2	ORY124+6*
ORMSG(3	ORY124+6*
ORMSG(4	ORY124+7*
ORMSG(5	ORY124+7*
ORMSG(6	ORY124+7*
ORMSG(7	ORY124+7*
PAGE	PRINT+1~, PRINT+2, HDR+4, HDR+7
>> POP	TASK+1
QUE	ORY124+3~, ORY124+9*, TASK+1, TASK+2
X	ORY124+3~, DQ+1~
>> XPDENV	ORY124+4
Y	ORY124+3~, ORY124+5, DQ+1~, DQ+3, DQ+5, CHECK+2*, CHECK+3
>> ZTDESC	TASK+2*
>> ZTRTN	TASK+2*
>> ZTSAVE("*"	TASK+2*
>> ZTSK	TASK+2