Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Routine: DIOZ

Package: VA FileMan

Routine: DIOZ

Information

DIOZ ;SFISC/TKW - COMPILED SORT TEMPLATE ;30NOV2012

Source Information

Source file <DIOZ.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	6	(NOW,YX)^%DTC ($$EZBLD,BLD,MSG)^DIALOG ^DIC $$NXTNO^DICLIB OS^DII ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
VA FileMan	4	DI SORT COMPILE DIO DIO2 DIO4

Entry Points

Name	Comments	DBIA/ICR reference
ENCU	;MARK A SORT TEMPLATE FOR ROUTINE COMPILATION
EN1
DIC
ENC	;CREATE COMPILED SORT ROUTINE ; NB: next 2 lines same in EN. Need to make shared.
NEW
NXTNO(DRN)	; GET NEXT AVAILABLE ROUTINE NUMBER
N1
N2
N3
ENRLS(DRN)	; MAKE ROUTINE NUMBER AVAILABLE FOR REUSE & DELETE ROUTINE
R
R1
QSV
QER
TXT	;;

External References

Name	Field # of Occurrence
NOW^%DTC	NEW+1
YX^%DTC	NEW+1
$$EZBLD^DIALOG	ENCU+1, EN1+7, EN1+12
BLD^DIALOG	EN1+3, EN1+7, EN1+8, EN1+12, EN1+13, ENC+3, ENC+4, N2
MSG^DIALOG	QER+1
^DIC	DIC+2
$$NXTNO^DICLIB	N2
OS^DII	EN1+2, ENC+2
^DIR	EN1+8, EN1+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$$EZBLD^DIALOG(101) Line Location: ENCU+1
Function Call: WRITE	Prompt: !!,$C(7),DIR("?",2),!,DIR("?") Line Location: EN1+15
Routine Call	DIALOG Line Location: ENCU+1 EN1+7 EN1+12
Routine Call	DIALOG Line Location: EN1+3 EN1+7 EN1+8 EN1+12 EN1+13 ENC+3 ENC+4 N2
Routine Call	DIALOG Line Location: QER+1
Routine Call	DIC Line Location: DIC+2
Routine Call	DIR Line Location: EN1+8 EN1+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("OS" - [#.7]	EN1+3, ENC+3, ENC+9, R1+1
^DI(	N1, N3, N3+1!, R, R1!
^DIBT - [#.401]	EN1+6, EN1+9*, EN1+14!, NEW+3
^DIC(3	NEW+3
^TMP("DIBTC"	ENC+4, ENC+7, ENC+10!
^UTILITY($J	ENC+7, ENC+8, NEW+2!, NEW+3, NEW+4
^VA(200 - [#200]	NEW+3

Label References

Name	Line Occurrences
DIC	EN1+4
ENRLS	QSV
N1	N1
N2	N2+1
N3	N1, N2+1
NEW	ENC+6
NXTNO	NEW
QSV	EN1+3, ENC+3, ENC+4, ENC+6
R	R1+2
R1	ENRLS+1

Naked Globals

Name	Field # of Occurrence
^(	ENC+7
^("ROUOLD"	EN1+9*
^(0	NEW+3, R1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENC+5~
%H	ENC+5~
%I	ENC+5~
DDH	EN1~
>> DIBT1	NEW+3
DIBTPGM	ENC+9, NEW*, NEW+3, QSV!
DIC	EN1~, DIC*
DIC("S"	DIC+1*
DIC("W"	DIC*
DIC(0	DIC*
DICLEAN	ENRLS+1~*, R1+2
>> DIERR	ENC+6, NEW, QER+1*
DILOCK	NXTNO+1~, N1, N2, N2+1, N3*
DIOZ	EN1~, EN1+4*, EN1+9, EN1+14
>> DIQUIET	QER
DIR	EN1~, ENC+5~
DIR("?"	EN1+10, EN1+15
DIR("B"	EN1+8, EN1+13
DIR(0	EN1+5*
DIROUT	EN1~, ENC+5~
DIRUT	EN1~, ENC+5~
>> DISYS	EN1+2, EN1+3, ENC+2, ENC+3, ENC+9, R1+1
>> DP	NEW+3
DRN	ENC+5~, NEW, NXTNO~, NXTNO+1, N1, N2, N3, N3+1, ENRLS~, ENRLS+1 , R*, R1, R1+1, QSV
DTOUT	EN1~, ENC+5~
DUOUT	EN1~, ENC+5~
DUZ	NEW+3
DUZ(0	ENCU+1
I	ENC+5~, ENC+7, ENC+8
J	ENC+5~, ENC+7*
K	ENC+5~, ENC+7, ENC+8
U	ENC+9, NEW+3, R1
X	EN1~, EN1+12, ENC+5~, ENC+7, ENC+8, ENC+9, ENRLS+1~, R1+1
X(1	EN1+12*
X(2	EN1+12*
Y	EN1~, EN1+4, EN1+6, EN1+8, EN1+13, ENC+5~, NEW+3

Marked Items

Name	Field # of Occurrence
$T(DIOZ+1	NEW+4
$T(TXT+I	ENC+8

Customize PDF page

Package: VA FileMan

Routine: DIOZ

Call Graph Total: 6

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Legend: