Routine: DIS

Package	Total	Call Graph
VA Fileman	11	^%DT ^DIC EN^DICOMP ^DICRW ($$CONVQQ,$$UP)^DILIBF ^DIM (DIS,DISC)^DIQQQ ^DIR ^DIS0 (,COMP,Q,TEM)^DIS2 EN^DIS3

Package

Total

Call Graph

VA Fileman

^%DT ^DIC EN^DICOMP ^DICRW ($$CONVQQ,$$UP)^DILIBF ^DIM (DIS,DISC)^DIQQQ ^DIR
^DIS0 (,COMP,Q,TEM)^DIS2 EN^DIS3

Package	Total	Caller Graph
VA Fileman	5	DDXP4 DIAR DIQQQ DIS2 DISEARCH
Dietetics	1	FHSYSF
IHS Accounts Receivable	1	BARFM
IHS Dental System	1	ADEMP
Nursing Service	1	NURSFMU
Scheduling	1	SDWLAHR3

Package

Total

Caller Graph

VA Fileman

DDXP4 DIAR DIQQQ DIS2 DISEARCH

Dietetics

FHSYSF

IHS Accounts Receivable

BARFM

ADEMP

NURSFMU

SDWLAHR3

Name	Field # of Occurrence
^%DT	VALUE
^DIC	F+6, C+2, PT
EN^DICOMP	G+12
^DICRW	DIS+3
$$CONVQQ^DILIBF	SET+3, SET+10
$$UP^DILIBF	SET+8
^DIM	PT+3
DIS^DIQQQ	PT+5, SET
DISC^DIQQQ	C+3
^DIR	SET+2
^DIS0	UP
^DIS2	Q
COMP^DIS2	HARD
Q^DIS2	Q
TEM^DIS2	F+5
EN^DIS3	ENS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: F+2
Function Call: WRITE	Prompt: "SEARCH FOR "_R_" "_$P(^DD(DK,0),U)_": " Line Location: F+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: F+5
Function Call: READ	Prompt: "CONDITION: " Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: R Line Location: C+0
Function Call: READ	Prompt: " DATE: " Timeout: DTIME Variable: X Line Location: VALUE+0
Function Call: WRITE	Prompt: W Line Location: VALUE+0
Function Call: WRITE	Prompt: O Line Location: VALUE+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: PT+0
Function Call: WRITE	Prompt: " "_$P(@(DIC_"0)"),U)_": " Line Location: PT+0
Function Call: READ	Prompt: ": " Timeout: DTIME Variable: Y Line Location: PT+1
Function Call: WRITE	Prompt: !?7 Line Location: SET+4
Function Call: WRITE	Prompt: % Line Location: SET+5
Function Call: WRITE	Prompt: "," Condition for execution: C>1 Line Location: SET+5
Function Call: WRITE	Prompt: " " Line Location: SET+5
Function Call: WRITE	Prompt: !?7 Condition for execution: $X+$L(%)>73 Line Location: SET+5
Function Call: WRITE	Prompt: %_" ]" Line Location: SET+7
Function Call: WRITE	Prompt: $C(7),"??",!! Line Location: X+1
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?DL*2,"-"_$C(DC+64)_"- " Line Location: W+0
Routine Call	DIC Line Location: F+6 C+2 PT
Routine Call	DIR Line Location: SET+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	F+4, G+7, G+10
^DD("DD"	VALUE
^DIC - [#1]	EN+1, G+8
^UTILITY($J	DIS+3!, EN+2!

Label References

Name	Line Occurrences
B	C+3, X+1
C	C+3, WP
F	HARD, G+7, VALUE, PT, PT+2, B, UP
G	F+5
GOT	VALUE, PT, PT+3, SET
OK	G+6, C+5
PT	PT
Q	DIS+4, EN+2, F+5, HARD, C, C+3, VALUE, PT, PT+1
UP	F+1, HARD
VALUE	PT+5, SET
W	F+2, C, VALUE
WP	G+7
X	G+12, VALUE, PT+2, PT+4

Name	Field # of Occurrence
^("GL"	G+8
^(0	R+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	G+12, SET+4~, SET+5, SET+6, SET+7, GOT+1, OK, OK+2, UP
>> %DT	VALUE*
%ZIS	DIS+3!
C	F+3, SET+4~, SET+5, SET+7, SET+10~*, SET+11
D	SET+1~, SET+2, SET+3, SET+5*
DA	EN+2!, G+10, G+11, G+12
DA(	G+12*
DC	DIS+3!, EN+2!, EN+3, F+1, F+5, G+8, G+12, C+5, PT, SET , SET+5, SET+8, GOT+1, GOT+3, GOT+4, OK, OK+1, OK+2, B, UP , X+1, W
DC(	OK*
DDER	SET+2~
DE	F+2!, F+5, G+7, PT+2, SET+5
DI	EN+2!, EN+3*
>> DIARF0	UP
>> DIARU	Q
DIC	DIS+4, EN+1, EN+2, EN+3, F+2!, F+3, G+6!, PT!
DIC("S"	F+3, C+2!, WP*
DIC("W"	F+3*
DIC(0	F+3, G+6, PT*
>> DICOMP	G+12*
>> DICS	F+3
DIR	SET+2~
DIR("V"	SET+2*
DIR(0	SET+2*
DIS	DIS+3!
DIS(	PT!, SET!, SET+5*
DIS("XFORM"	SET!, SET+8, GOT+1, GOT+3
DISPOINT	F+2!, F+5!, G+8, G+9, G+12, PT
DISVX	F+6~*
>> DK	R+1, F+3, F+4, G+7, UP*
DL	EN+2!, EN+3, G+7, G+12, PT, OK, OK+1, OK+2, UP*, W
DL(	G+7*, UP
>> DN	C+1*, C+4, C+5, SET+4, GOT
>> DQ	C+6*, PT, PT+3, PT+4, SET+1, SET+4, GOT, GOT+1
DTIME	F+5, C, VALUE, PT, PT+1
DTOUT	DIS+4, EN+2!, F+5, HARD, C, VALUE, PT, PT+1*
>> DU	F+3, F+5, G+12, PT, OK, OK+2, B, WP*
>> DV	EN+3, G+7, OK, UP*
>> DV(	G+7*, UP
DX	EN+2!
DX(	OK+2*
DY	EN+2!, EN+3*
>> E	F+5, G+6, G+7, G+8, G+9, G+10, C+2, VALUE, PT+2, SET , GOT
I	EN+2!
I(	G+7*, UP!
I(0	EN+3*
J	EN+2!
J(	R+1, G+7, UP!
N	DIS+3!, EN+3, R+1, G+7, G+12, SET+4~, SET+5, OK, OK+2, UP
N(	G+7*, UP
O	DIS+3!, C+4, C+5, VALUE, GOT+1, GOT+3*, GOT+4
O(	F+5, G+12, C+5, GOT+4, OK+1*, X+1!
P	SET+10~*
>> Q	EN+3*
R	DIS+3!, EN+3, R+1, R+2, F+4, OK+1, UP
R(	UP!
U	R+2, F+4, F+5, HARD, G+7, G+8, G+9, G+10, C, C+3 , C+4, VALUE, PT, PT+2, SET, SET+5, SET+10, GOT, GOT+1, GOT+2 , OK, OK+2
X	F+2!, F+5, F+6, HARD, G+6!, G+7, G+8, G+9, G+10, G+11 , G+12, C!, C+1, C+3, C+5, VALUE, PT, PT+3, SET, SET+1! , SET+2, SET+3, SET+5, SET+6!, GOT, OK
X(	G+12
>> Y	F+5, F+6, G+7, G+8, G+9, G+12, C+3, C+4, C+5, C+6 , VALUE, PT, PT+1, PT+2, PT+3, PT+4, PT+5, PT+6, SET+1, SET+2 , SET+3, SET+4, SET+8, SET+10, SET+11, GOT, GOT+1, GOT+2, GOT+4, WP
>> Y(0	F+5, G+7*, G+9
YY	SET+10~*, SET+11
>> Z	F+5*, SET+2, SET+3, SET+5

Customize PDF page

Package: VA Fileman

Routine: DIS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
C
EN	;	ICR #10027 Status: Active Usage: Supported
OK
PT
G	;^DOPT("DIS",1,0)=NULL
F	;
W
HARD
UP
VALUE
ENS	; ENTRY POINT FOR RE-DOING THE SORT USING AN EXISTING SORT TEMPLATE
Q
R	;
X	;
GOT
WP
SET
B