Routine: ORS100

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Order Entry Results Reporting	1	LOOP^ORS100A
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

Order Entry Results Reporting

LOOP^ORS100A

VA Fileman

^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	5	OR UNSIGNED ORDERS ORS100A ORS100B ORSNAST1 ORSNAST2

Package

Total

Caller Graph

Order Entry Results Reporting

OR UNSIGNED ORDERS ORS100A ORS100B ORSNAST1 ORSNAST2

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;Print header
DIV(LOC)	;determines the division based on the entry in file 44
SER(SER)	;resolves pointer to the service/section file
SUMONLY	;ask if summary only or full detail
SINGLE	;sets DIR call to ask the user if they want to sort for a single
EDATE	;sets DIR call to ask the user for an ending date (optional)
TASK	;
PV	;PROVIDER statistics
PT	;PATIENT statistics
LONER	;sets DIR call to allow the user to select the specific sort entity
SWITCH	;takes the date input from the user and does a switcheroo so the program
SORT	;sets DIR call to ask for the sorting criteria
EN	;
STATS	;SERVICE/SECTION statistics
D	;DIVISION statistics
L	;LOCATION statistics
EB	;ENTERED BY statistics
STAT(STA)	;resolves pointer to the order status file
LOC(LOC)	;resolves the location pointer
SDATE	;sets DIR call to ask the user for a starting date
USER(USER)	;resolves user pointers
EXIT
TYPE	;sets DIR call to ask the user to select the type of order status

Name	Field # of Occurrence
^%ZIS	TASK+1
^%ZISC	EXIT+1
^%ZTLOAD	TASK+7
^DIR	TYPE+4, SORT+4, SINGLE+6, LONER+7, SDATE+4, EDATE+4, SUMONLY+2, HDR+2
LOOP^ORS100A	TASK+8
$$FMTE^XLFDT	SDATE+4, EDATE+4
$$REPEAT^XLFSTR	HDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?30,"Unsigned Orders Search",!?15,"This report is formatted for a 132 column output.",! Line Location: EN+6
Function Call: WRITE	Prompt: !,?32,"REQUEST QUEUED" Line Location: TASK+7
Function Call: WRITE	Prompt: !,"There are no statistics for the selected sort range." Line Location: STATS+2
Function Call: WRITE	Prompt: !?41,"Subtotal",?51,LCNT Line Location: D+8
Function Call: WRITE	Prompt: !?5,"Total orders for Division: ",DIV_" = "_DCNT Line Location: D+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: @RPDT Line Location: HDR+4
Function Call: WRITE	Prompt: @HDR Line Location: HDR+5
Function Call: WRITE	Prompt: @HDR1 Line Location: HDR+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM),! Line Location: HDR+7
Routine Call	DIR Line Location: TYPE+4 SORT+4 SINGLE+6 LONER+7 SDATE+4 EDATE+4 SUMONLY+2 HDR+2
Routine Call	%ZIS Line Location: TASK+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV+3
^DIC(49 - [#49]	SER+2
^ORD(100.01 - [#100.01]	STAT+2
^SC - [#44]	LOC+2, DIV+2
^TMP("ORSTATS"	EN+5!, STATS+2, STATS+3, STATS+7, STATS+8, PV+1, PV+5, PV+6, PT+1, PT+5 , PT+6, L+1, L+5, L+6, EB+1, EB+5, EB+6, D+1, D+3, D+4 , D+6, EXIT!
^TMP("ORUNS"	EN+5!, EXIT!
^VA(200 - [#200]	USER+2

Name	Line Occurrences
EXIT	TYPE+4, SORT+4, SINGLE+6, LONER+2, SDATE+4, EDATE+4
HDR	STATS+2, STATS+6, STATS+10, PV+4, PV+8, PT+4, PT+8, L+4, L+8, EB+4 , EB+8, D+5, D+7

Name	Field # of Occurrence
^(	STATS+9, PV+7, PT+7, L+7, EB+7, D+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	TASK+1*
CNT	EN+1~
DASH	EN+1~
DATE	EN+1~
DCNT	EN+1~, D+3, D+8, D+9
DFN	EN+1~
DIR	EN+1~, TYPE+4!, SORT+4!, SINGLE+6!, LONER+7!, SDATE+4!, EDATE+4!, SUMONLY+2!, HDR+2!
DIR("?"	TYPE+3, SORT+3, SINGLE+5, LONER+6, SDATE+3, EDATE+3, SUMONLY+1*
DIR("A"	TYPE+2, SORT+2, SINGLE+3, LONER+5, SDATE+2, EDATE+2, SUMONLY+1*
DIR("B"	SINGLE+4, SUMONLY+1
DIR(0	TYPE+1, SORT+1, SINGLE+2, LONER+4, SDATE+1, EDATE+1, SUMONLY+1, HDR+2
DIRUT	EN+1~
DIV	EN+1~, D+3*, D+4, D+6, D+9
DTOUT	EN+1~, TYPE+4, SORT+4, SINGLE+6, LONER+7, SDATE+4, EDATE+4
DUOUT	EN+1~, TYPE+4, SORT+4, SINGLE+6, LONER+7, SDATE+4, EDATE+4
EDATE	EN+1~, EDATE+4, SWITCH+2
EDT	EN+1~, EDATE+4*
HDR	EN+2~, STATS+4, PV+2, PT+2, L+2, EB+2, D+2, HDR+5
HDR1	EN+2~, STATS+5, PV+3, PT+3, L+3, EB+3, D+5, HDR+6
IEN	EN+2~
IO	TASK+8
IO("Q"	TASK+2!
IOF	EN+6, HDR+3
IOM	HDR+7
ION	TASK+3
>> IOS	EB+8
IOSL	STATS+10, PV+8, PT+8, L+8, D+7
IOST	HDR+2, HDR+3
LCNT	EN+2~, D+4, D+7, D+8
LOC	EN+2~, L+5, L+6, L+7, D+4, D+6, LOC~, LOC+2, DIV~, DIV+2
LONER	EN+2~, LONER+2
LONER(	LONER+7*
LONUM	EN+2~
PAGE	EN+2~, STATS+1, HDR+2, HDR+3, HDR+8
PAT	EN+2~
PNM	EN+2~, PV+6, PV+7, PT+5, PT+6, PT+7, EB+6*, EB+7
>> POP	TASK+1
PROV	EN+2~, STATS+8, STATS+9, PV+5, PV+6, PV+7, PT+6, PT+7, L+6, L+7 , D+6*, D+7
QUIT	EN+2~, LONER+2, LONER+3, LONER+7*
RPDT	EN+2~, HDR+4
SD1	EN+3~, SDATE+4*, SWITCH+2
SD2	EN+3~, EDATE+4*, SWITCH+2
SDATE	EN+3~, SDATE+4, SWITCH+2
SDT	EN+3~, SDATE+4*
SER	EN+3~, STATS+7*, STATS+8, STATS+9, SER~, SER+2
SINGLE	EN+3~, SINGLE+6*, LONER+2
SORT	EN+3~, SORT+4*, SINGLE+3, LONER+4, LONER+5, STATS+3, PV+1, PT+1, L+1, EB+1 , D+1
SSN	EN+3~
STA	STAT~, STAT+2
STATUS	EN+3~
STOP	EN+3~, STATS+2, STATS+7, STATS+8, STATS+10, STATS+11, STATS+12, PV+5, PV+6, PV+8 , PV+9, PV+10, PT+5, PT+6, PT+8, PT+9, PT+10, L+5, L+6, L+8 , L+9, L+10, EB+5, EB+6, EB+8, EB+9, EB+10, D+3, D+4, D+5 , D+6, D+7, D+8, D+9, HDR+2*
SUB	EN+3~
SUMONLY	EN+3~, SUMONLY+2, STATS+1, HDR+1
TOT	EN+3~, STATS+6, STATS+10, STATS+12, PV+4, PV+8, PV+10, PT+4, PT+8, PT+10 , L+4, L+8, L+10, EB+4, EB+8, EB+10
TOT0	EN+3~, STATS+7, STATS+9, STATS+11, PV+5, PV+8, PV+9, PT+5, PT+7, PT+9 , L+5, L+7, L+9, EB+5, EB+7, EB+9
TOT1	EN+3~, STATS+9, STATS+10, PV+7, PV+8, PT+7, PT+8, L+7, L+8, EB+7* , EB+8
TYPE	EN+4~, TYPE+4*
U	EN+5*, LONER+7, LOC+2, USER+2, STAT+2, SER+2, DIV+2, DIV+3
USER	USER~, USER+2
VA	EN+4~
VADM	EN+4~
VAERR	EN+4~
WHEN	EN+4~
WHO	EN+4~, EB+5*, EB+6, EB+7
X	LOC+1~, LOC+2, LOC+3, USER+1~, USER+2, USER+3, STAT+1~, STAT+2, STAT+3, SER+1~ , SER+2, SER+3, DIV+1~, DIV+2, DIV+3, DIV+4
Y	EN+4~, TYPE+4, SORT+4, SINGLE+6, LONER+3, LONER+7, SDATE+4, EDATE+4, SUMONLY+2, HDR+2
>> ZTDESC	TASK+3*
>> ZTIO	TASK+3*
>> ZTRTN	TASK+4*
>> ZTSAVE("EDATE"	TASK+5*
>> ZTSAVE("EDT"	TASK+6*
>> ZTSAVE("LONER*"	TASK+6*
>> ZTSAVE("SDATE"	TASK+5*
>> ZTSAVE("SDT"	TASK+6*
>> ZTSAVE("SINGLE"	TASK+5*
>> ZTSAVE("SORT"	TASK+4*
>> ZTSAVE("SUMONLY"	TASK+6*
>> ZTSAVE("TYPE"	TASK+4*
>> ZTSK	TASK+7

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORS100

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: