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
Print Page as PDF
Routine: ORUHDR

Package: Order Entry Results Reporting

Routine: ORUHDR


Information

ORUHDR ; slc/dcm - Order entry display headers ;3/25/92 15:05 ;

Source Information

Source file <ORUHDR.m>

Entry Points

Name Comments DBIA/ICR reference
OE ;Main Order Entry Header, expects ORUIEN (variable pointer)
OE2 ;Accept Orders Screen Header From: ORREV31
EXT ;Detailed Display Header From: ORSED
TIT ;General Header From: OROPRO
STIT ;Print Sub-header
STIT1
STIT2
STIT3
HDG ;PRINT HEADING
PGBRK ;Call for page break
PGBRK1
ANSIR ;Reset scroll region to full screen
ANSIS ;Set scroll region
ANSIT ;Move cursor to top of scroll region

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TIT+6
Function Call: WRITE
  • Prompt: $C(13),$$HON^ORU,$S($L(ORCWAD):"<"_ORCWAD_">",1:""),$$HOFF^ORU,?(80-($L(ORTIT)*2))/2,X,?(IOM-12),$$HON^ORU,$S(XQORSPEW:"Quick mode",1:""),$$HOFF^ORU
  • Line Location: TIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TIT+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TIT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: STIT+1
Function Call: WRITE
  • Prompt: $C(13),?(40-($L(ORSTIT)\2)-4),"--- "_ORSTIT_" ---"
  • Line Location: STIT1+0
Function Call: WRITE
  • Prompt: @ORANSI("XY"),@ORANSI("EOLN")
  • Line Location: STIT3+1
Function Call: WRITE
  • Prompt: !,ORPNM_" "_ORSSN_" ",?(39-($L(X1)\2))," "_X1_" ",?(79-$L(X)),X
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PGBRK+1
Function Call: WRITE
  • Prompt: $C(27),$C(91),"1",$C(59),"24",$C(114),$C(13),#,$C(27),$C(91),$C(50),$C(74),$C(27),$C(91),$C(72)
  • Line Location: ANSIR+1
Function Call: WRITE
  • Prompt: $C(27),$C(91),ORANSI("T"),$C(59),ORANSI("B"),$C(114),$C(13)
  • Line Location: ANSIS+1
Function Call: WRITE
  • Prompt: @ORANSI("XY"),$C(13)
  • Line Location: ANSIT+1
Info |  Source |  Entry Points |  Interaction Calls