Routine: ORSNAST1

Information

ORSNAST1 ;SLC/RAF - continuation of nature/status search ;10/20/00 14:30

Package	Total	Call Graph
Order Entry Results Reporting	3	TEXT^ORQ12 ($$SER,$$STAT,$$USER,HDR)^ORS100 NATURE^ORSNAST2
Kernel	2	^%ZISC $$FMTE^XLFDT
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORSNAST

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
STATUS	;goes thru the "AF" xref in 100 for order dates for a specific status
2
DETAILS
COLUMNS	;this section uses the TMP global for the columnar format
SERV

External References

Name	Field # of Occurrence
^%ZISC	SERV+13
TEXT^ORQ12	DETAILS+10
$$SER^ORS100	2+7
$$STAT^ORS100	2+11
$$USER^ORS100	2+6, 2+9
HDR^ORS100	2+1, DETAILS+2, DETAILS+3, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8, DETAILS+9, DETAILS+10, COLUMNS+4 , COLUMNS+9, SERV+3, SERV+10
NATURE^ORSNAST2	EN+2
DEM^VADPT	2+10
$$FMTE^XLFDT	2+12, DETAILS+7, DETAILS+8, DETAILS+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No orders found." Line Location: 2+0
Function Call: WRITE	Prompt: !,"ORDERED BY: ",$P($G(^VA(200,+$P(^OR(100,IEN,8,SUB,0),U,3),0)),U),?53,"VEILED ORDER?: ",$S($P(^OR(100,IEN,3),U,8)=1:"YES",1:"NO") Line Location: DETAILS+6
Function Call: WRITE	Prompt: $P($G(^VA(200,+$P(^OR(100,IEN,8,SUB,0),U,17),0)),U)," ON ",$$FMTE^XLFDT($P(^OR(100,IEN,8,SUB,0),U,16)) Line Location: DETAILS+8
Function Call: WRITE	Prompt: $P($G(^VA(200,+$P(^OR(100,IEN,8,SUB,0),U,5),0)),U)," ON ",$$FMTE^XLFDT($P(^OR(100,IEN,8,SUB,0),U,6)) Line Location: DETAILS+9
Function Call: WRITE	Prompt: TEXT(TEXTSUB),! Line Location: DETAILS+10
Function Call: WRITE	Prompt: !,"*There is more order text. It is limited to 3 lines for this report*" Line Location: DETAILS+11
Function Call: WRITE	Prompt: !,DASH Line Location: DETAILS+13
Function Call: WRITE	Prompt: !,"No orders found." Line Location: COLUMNS+5
Function Call: WRITE	Prompt: "Entered by: ",WHO,! Line Location: COLUMNS+6
Function Call: WRITE	Prompt: ! Line Location: COLUMNS+6
Function Call: WRITE	Prompt: !,"No orders found." Line Location: SERV+4
Function Call: WRITE	Prompt: "Service/Section: ",SER,! Line Location: SERV+6
Function Call: WRITE	Prompt: "No orders found.",!! Line Location: SERV+7
Function Call: WRITE	Prompt: ?5,"Entered by: ",WHO,! Line Location: SERV+8
Function Call: WRITE	Prompt: ! Line Location: SERV+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	2+10
^OR(100 - [#100]	2+2, 2+3, 2+4, 2+5, 2+6, 2+7, 2+9, 2+10, 2+11, 2+12 , DETAILS+2, DETAILS+4, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8, DETAILS+9
^ORD(100.98 - [#100.98]	DETAILS+4
^TMP("ORNS"	2, 2+14*, COLUMNS+5, COLUMNS+6, COLUMNS+7, COLUMNS+8, SERV+12!
^TMP("ORSERV"	2+15*, SERV+4, SERV+7, SERV+8, SERV+9, SERV+12!
^VA(200 - [#200]	2+6, 2+7, 2+9, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8, DETAILS+9

Naked Globals

Name	Field # of Occurrence
^(	COLUMNS+9, SERV+10
^(0	2+11, 2+12
^(5	2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DASH	DETAILS+13!*
>> DATE	2+2*, 2+3, 2+4
>> DFN	2+10*
>> EDATE	2+2
>> FORMAT	2, 2+1, DETAILS+1, COLUMNS+1, SERV
>> HDR	COLUMNS+3, SERV+2
>> HDR1	COLUMNS+2, SERV+1
>> IEN	2+3, 2+4, 2+5, 2+6, 2+7, 2+9, 2+10, 2+11, 2+12, 2+14 , 2+15, DETAILS+2, DETAILS+4, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8, DETAILS+9, DETAILS+10, COLUMNS+8 , COLUMNS+9, SERV+9*, SERV+10
IOM	DETAILS+10, DETAILS+13
IOSL	DETAILS+2, DETAILS+3, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8, DETAILS+9, DETAILS+10, COLUMNS+9, SERV+10
>> LONER	SERV+5
>> ORIGVIEW	DETAILS+10*
>> PAGE	EN+1*, 2+1
>> PNM	2+10, 2+14, 2+15, DETAILS+3, COLUMNS+7, COLUMNS+8
>> PROV	2+6*, 2+14, 2+15
>> REF	SERV+5*, SERV+6
>> RPDT	EN+1*
>> SDATE	2+2
>> SEARCH	2+5, 2+11
>> SER	2+7, 2+8, 2+15, SERV+6*, SERV+7, SERV+8, SERV+9
>> SERVICE	COLUMNS+1, SERV
>> SIGNED	2+12, 2+13, 2+14, 2+15
>> SORT	EN+2, 2
>> SSN	2+10*, 2+14, 2+15, DETAILS+3
>> STATUS	2+11*, 2+14, 2+15, DETAILS+2
>> STOP	EN+1*, 2+2, 2+3, 2+4, DETAILS+2, DETAILS+3, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8 , DETAILS+9, DETAILS+10, DETAILS+11, DETAILS+13, COLUMNS+6, COLUMNS+7, COLUMNS+8, SERV+6, SERV+8, SERV+9
>> SUB	2+4*, 2+6, 2+9, 2+11, 2+12, DETAILS+2, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8 , DETAILS+9, DETAILS+10
TEXT	DETAILS+10, DETAILS+12!
TEXT(	DETAILS+10
TEXTSUB	DETAILS+10*, DETAILS+11, DETAILS+12!
U	2+5, 2+6, 2+7, 2+9, 2+10, 2+11, 2+12, 2+14, 2+15, DETAILS+2 , DETAILS+4, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+8, DETAILS+9, COLUMNS+9, SERV+10
>> VA("BID"	2+10
>> VADM(1	2+10
>> WHEN	2+12*, 2+14, 2+15
>> WHO	2+9, 2+14, 2+15, COLUMNS+6, COLUMNS+7, COLUMNS+8, SERV+8*, SERV+9

Customize PDF page

Package: Order Entry Results Reporting