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: ORGUEM3

Package: Order Entry Results Reporting

Routine: ORGUEM3


Information

ORGUEM3 ; slc/KCM - Setup Formatted Protocol Menus (cont) ;7/13/92 15:40

Source Information

Source file <ORGUEM3.m>

Entry Points

Name Comments DBIA/ICR reference
HLP ;Provide help for ORCL PROTOCOL MENU SETUP menu
HLPX
SEQ(PCL,Y) ; For the named protocol (PCL) return array of items in sequence
; Y must be call by reference, returned is Y(n)=item ien^protocol
LIST ; List protocols on menu
DQ
HDR ; Print header
HDR1
PITM(X) ; Print item fields
; ITEM: 123 Displayed Text ?64 SEQUENCE: 99.00
; NAME: NAME OF PROTOCOL (ITEM TEXT)
EOP(LINES) ; Check if end of page, handle CRT & printer advance

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: !,$P(^ORD(101,+XQORNOD,10,+Y(I),0),"^",2)
  • Line Location: HLP+9
Function Call: WRITE
  • Prompt: ?5,^ORD(101,$P(Y(I),"^",2),1,J,0),!
  • Line Location: HLP+11
Function Call: WRITE
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Line Location: HLP+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HLP+14
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HLP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP+16
Function Call: WRITE
  • Prompt: @IOF,$C(13)
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: @IOF,$C(13)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Menu: ",$P(ORGMENU,"^",2),?61,CTM,!!
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: "ITEM: "
  • Line Location: PITM+3
Function Call: WRITE
  • Prompt: "<blank line>"
  • Line Location: PITM+4
Function Call: WRITE
  • Prompt: $P(^ORD(101,+ORGMENU,10,+X,0),"^",2)
  • Line Location: PITM+6
Function Call: WRITE
  • Prompt: ?(6+$S($P($G(^ORD(101,+ORGMENU,4)),"^",2):$P(^(4),"^",2),1:5))
  • Line Location: PITM+7
Function Call: WRITE
  • Prompt: $S($L($P(^ORD(101,+ORGMENU,10,+X,0),"^",6)):$P(^(0),"^",6),1:$P(^ORD(101,$P(X,"^",2),0),"^",2))
  • Line Location: PITM+8
Function Call: WRITE
  • Prompt: ?64,"SEQUENCE: ",$S($L($P(^ORD(101,+ORGMENU,10,+X,0),"^",3)):$J($P(^(0),"^",3),5,2),1:""),!
  • Line Location: PITM+9
Function Call: WRITE
  • Prompt: "PROTOCOL: ",$P(^ORD(101,$P(X,"^",2),0),"^")," "
  • Line Location: PITM+10
Function Call: WRITE
  • Prompt: "(",$P(^(0),"^",2),")"
  • Line Location: PITM+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: PITM+12
Function Call: WRITE
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Line Location: EOP+3
Info |  Source |  Entry Points |  Interaction Calls