Routine: ORSNAST1

Information

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

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

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