Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ORSNAST2

Package: Order Entry Results Reporting

Routine: ORSNAST2


Information

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

Source Information

Source file <ORSNAST2.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call