Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  DISP^XQORM1  
VA Fileman 1 (,DD)^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 ORGUEM2  

Entry Points

Name Comments DBIA/ICR reference
EOP(LINES) ; Check if end of page, handle CRT & printer advance
HDR ; Print header
HDR1
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
HLP ;Provide help for ORCL PROTOCOL MENU SETUP menu
HLPX
PITM(X) ; Print item fields
; ITEM: 123 Displayed Text ?64 SEQUENCE: 99.00
; NAME: NAME OF PROTOCOL (ITEM TEXT)
DQ

External References

Name Field # of Occurrence
^%DT DQ+2
DD^%DT DQ+2
^%ZIS LIST+1
HOME^%ZIS LIST+1, LIST+6
^%ZISC DQ+8
^%ZTLOAD LIST+5
DISP^XQORM1 HLP+3

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • LIST+1
    • LIST+6
Routine Call
  • %ZIS
  • Line Location:
    • LIST+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" HLP+7, HLP+15
^ORD(101 - [#101] HLP+8, HLP+9, HLP+10, HLP+11, SEQ+4, SEQ+5, SEQ+7, PITM+4, PITM+6, PITM+7
, PITM+8, PITM+9, PITM+10, PITM+11

Label References

Name Line Occurrences
$$EOP DQ+5
HDR DQ+5
HDR1 DQ+4
HLPX HLP+2, HLP+5
PITM DQ+5
SEQ HLP+6, DQ+1

Naked Globals

Name Field # of Occurrence
^(0 PITM+8, PITM+9, PITM+11
^(4 PITM+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DQ+2*
>> %ZIS LIST+1*
CTM DQ~, DQ+2*, HDR1
DTIME HLP+14, EOP+4
>> DX HLP+7*, HLP+15*
>> DY HLP+7*, HLP+15*
EOP DQ~, DQ+5*
>> I HLP+8*, HLP+9, HLP+10, HLP+11
IO DQ
IO("Q" LIST+2, LIST+3!
IOF DQ+3, DQ+6, HDR+1
IOSL EOP+1
IOST DQ+3, DQ+6, EOP+2
ITM SEQ+2~, SEQ+4*, SEQ+5, SEQ+8, SEQ+10*, SEQ+11, DQ~, DQ+5*
>> J HLP+10*, HLP+11
LINES EOP~, EOP+1
LIST DQ~, DQ+1, DQ+5
LIST( DQ+5
>> ORGMENU DQ+1, HDR1, PITM+6, PITM+7, PITM+8, PITM+9
ORGPOP HLP+1~, HLP+8, HLP+10, HLP+14*
PCL SEQ~, SEQ+4, SEQ+5
>> POP LIST+1
SEQ SEQ+2~, SEQ+7*, SEQ+8, SEQ+9*, SEQ+10, SEQ+11
X HLP+2, HLP+5, HLP+14*, SEQ+2~, SEQ+5*, SEQ+7, SEQ+8, DQ+2*, PITM~, PITM+4
, PITM+6, PITM+8, PITM+9, PITM+10, PITM+11, EOP+2, EOP+4*
X( SEQ+8*, SEQ+9, SEQ+10, SEQ+11
>> XQORNOD HLP+6, HLP+9
Y HLP+6~, HLP+8, SEQ~, SEQ+2!, SEQ+3*, SEQ+11*, DQ+2
Y( HLP+8, HLP+9, HLP+10, HLP+11, SEQ+11*
>> ZTDESC LIST+4*
>> ZTQUEUED DQ+7, DQ+8
>> ZTREQ DQ+7*
>> ZTRTN LIST+4*
>> ZTSAVE("ORGMENU" LIST+4*
ZTSK LIST+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All