Routine: ORSNAST2

Information

ORSNAST2 ;SLC/RAF - continuation of nature/status search ; 9/13/11 6:56am

Package	Total	Call Graph
Order Entry Results Reporting	2	TEXT^ORQ12 ($$SER,$$STAT,$$USER,HDR)^ORS100
Kernel	1	$$FMTE^XLFDT
Registration	1	DEM^VADPT
VA FileMan	1	$$GET1^DIQ

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	ORSNAST1

Entry Points

Name	Comments	DBIA/ICR reference
NATURE	;goes thru the "AF" xref in 100 for order dates for nature or order
1
DETAILS
COLUMNS	;this section uses the TMP global for the columnar format
SERV

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No orders found." Line Location: 1+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+7
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+9
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+10
Function Call: WRITE	Prompt: TEXT(TEXTSUB),! Line Location: DETAILS+11
Function Call: WRITE	Prompt: !,"*There is more order text. It is limited to 3 lines for this report*" Line Location: DETAILS+12
Function Call: WRITE	Prompt: !,DASH Line Location: DETAILS+14
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

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ

Global Variables Directly Accessed

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

Naked Globals

Name	Field # of Occurrence
^(	COLUMNS+9, SERV+10
^(0	1+13
^(3	1+12
^(5	1+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Order Entry Results Reporting