Routine: ORGUEM3

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

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD DISP^XQORM1

VA Fileman

(,DD)^%DT

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORGUEM2

Package

Total

Caller Graph

Order Entry Results Reporting

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

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

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

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

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

Local Variables

>>	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!

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORGUEM3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: