Routine: ORSNAST

Information

ORSNAST ;SLC/RAF - Policy order search ;06/25/2007

Source Information

Source file <ORSNAST.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Order Entry Results Reporting	1	EN^ORSNAST1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Order Entry Results Reporting	1	OR NATURE/STATUS ORDER SEARCH

Entry Points

Name	Comments	DBIA/ICR reference
SORT
SERV	;sets the variable SERVICE equal to 1 if the user wants to sort by
SDATE	;sets DIR call to ask the user for a starting date
EN	;
FORMAT	;allows choice of formats for evaluation purpose
LONER	;sets DIR call to allow the user to select a single service/section
CKDATE	; Make sure the end date is not older than the start date.
SINGLE	;sets variable SINGLE to set up a search of a single service
TASK	;
EXIT	;
EDATE	;sets DIR call to ask the user for an ending date (optional)

External References

Name	Field # of Occurrence
^%ZIS	TASK+1
^%ZISC	EXIT+2
^%ZTLOAD	TASK+8
^DIR	SORT+3, SORT+6, FORMAT+4, SERV+7, SINGLE+5, LONER+5, SDATE+4, EDATE+4
EN^ORSNAST1	TASK+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?18,"Nature of Order or Order Status Search.",!?15,"This report is formatted for 132 column output." Line Location: EN+2
Function Call: WRITE	Prompt: !,?32,"REQUEST QUEUED" Line Location: TASK+8
Function Call: WRITE	Prompt: !!,?10,"The starting date must be older than the ending date.",!,?10,"Please re-enter start and end dates.",!! Line Location: CKDATE+2
Routine Call	DIR Line Location: SORT+3 SORT+6 FORMAT+4 SERV+7 SINGLE+5 LONER+5 SDATE+4 EDATE+4
Routine Call	%ZIS Line Location: TASK+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ORNS"	EN+1!, EXIT+1!
^TMP("ORSERV"	EN+1!, EXIT+1!

Label References

Name	Line Occurrences
CKDATE	SORT+9, CKDATE+5
EDATE	SORT+8, CKDATE+4
EXIT	SORT+3, SORT+6, SORT+7, SORT+8, SORT+9, FORMAT+4, SERV+2, SINGLE+1, LONER+1, TASK+10
SDATE	SORT+7, CKDATE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	TASK+1*
DASH	EN+3~
DATE	EN+3~
DFN	EN+3~
DIR	EN+3~, SORT+3!, SORT+6!, FORMAT+4!, SERV+7!, SINGLE+5!, LONER+5!, SDATE+4!, EDATE+4!
DIR("?"	SORT+2, FORMAT+3, SERV+5, SINGLE+4, SDATE+3, EDATE+3
DIR("A"	SORT+1, SORT+5, FORMAT+2, SERV+4, SINGLE+3, LONER+4, SDATE+2, EDATE+2
DIR("B"	SERV+6, SINGLE+2
DIR(0	SORT, SORT+4, FORMAT+1, SERV+3, SINGLE+2, LONER+3, SDATE+1, EDATE+1
DTOUT	EN+3~, SORT+3, SORT+6, SORT+7, SORT+8, SORT+9, FORMAT+4, SERV+2, SINGLE+1, LONER+5 , SDATE+4, EDATE+4, CKDATE+3, CKDATE+4
DUOUT	EN+3~, SORT+3, SORT+6, SORT+7, SORT+8, SORT+9, FORMAT+4, SERV+2, SINGLE+1, LONER+5 , SDATE+4, EDATE+4, CKDATE+3, CKDATE+4
EDATE	EN+3~, EDATE+4, EDATE+5, CKDATE+1
FORMAT	EN+3~, FORMAT+4*, SERV+2, SINGLE+1, LONER+1
HDR	EN+3~
HDR1	EN+3~
IEN	EN+3~
IO	TASK+9
IO("Q"	TASK+2!
IOF	EN+2
ION	TASK+3
LOC	EN+4~
LONER	EN+4~, LONER+1
LONER(	LONER+5*
ORIGVIEW	EN+4~
PAGE	EN+4~
PNM	EN+4~
>> POP	TASK+1
PROV	EN+4~
QUIT	EN+4~, LONER+1, LONER+2, LONER+5*
REF	EN+4~
RPDT	EN+4~
SDATE	EN+4~, SDATE+4, SDATE+5, CKDATE+1
SEARCH	EN+5~, SORT+6*
SER	EN+4~
SERVICE	EN+4~, SERV+7*, SINGLE+1, LONER+1
SIGNED	EN+5~
SINGLE	EN+5~, SINGLE+5*, LONER+1
SNAME	EN+5~, SORT+6*
SORT	EN+5~, SORT+3*, SORT+4, SORT+5
SSN	EN+5~
STATUS	EN+5~
STOP	EN+4~
SUB	EN+5~
TEXT	EN+4~
TEXTSUB	EN+4~
U	EN+1*, SORT+6, LONER+5
VA	EN+6~
VADM	EN+6~
WHEN	EN+6~
WHO	EN+6~
Y	EN+6~, SORT+3, SORT+6, FORMAT+4, SERV+7, SINGLE+5, LONER+2, LONER+5, SDATE+4, EDATE+4
>> ZTDESC	TASK+3*
>> ZTIO	TASK+3*
>> ZTRTN	TASK+4*
>> ZTSAVE("ED1"	TASK+7*
>> ZTSAVE("EDATE"	TASK+5*
>> ZTSAVE("FORMAT"	TASK+4*
>> ZTSAVE("LONER*"	TASK+7*
>> ZTSAVE("SD1"	TASK+6*
>> ZTSAVE("SDATE"	TASK+5*
>> ZTSAVE("SEARCH"	TASK+5*
>> ZTSAVE("SERVICE"	TASK+6*
>> ZTSAVE("SINGLE"	TASK+7*
>> ZTSAVE("SNAME"	TASK+6*
>> ZTSAVE("SORT"	TASK+4*
>> ZTSK	TASK+8

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORSNAST

Call Graph Total: 5

Caller Graph Total: 1