Routine: DIU31

Package	Total	Call Graph
VA Fileman	8	(IT,IT1)^DICATTA YN^DICN ^DICOMP ^DIE ^DIM RW^DIR2 Q^DIU (DIEZ,PZ)^DIU0

Package

Total

Call Graph

VA Fileman

(IT,IT1)^DICATTA YN^DICN ^DICOMP ^DIE ^DIM RW^DIR2 Q^DIU (DIEZ,PZ)^DIU0

Package	Total	Caller Graph
VA Fileman	1	DIU

Package

Total

Caller Graph

VA Fileman

DIU

Name	Field # of Occurrence
IT^DICATTA	2, 5+6, EX
IT1^DICATTA	5+10
YN^DICN	9+2, 9+4
^DICOMP	O+5
^DIE	5+10
^DIM	5+4
RW^DIR2	5+1, O+2
Q^DIU	Q
DIEZ^DIU0	2+1, 5+10
PZ^DIU0	5+8, EX+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"FIELD IS ALREADY UNEDITABLE",!,"DO YOU WANT TO ALLOW EDITING AGAIN" Line Location: 9+2
Function Call: WRITE	Prompt: " ..OK" Line Location: 9+2
Function Call: WRITE	Prompt: !,"WANT TO PREVENT ALL USERS FROM CHANGING OR DELETING DATA VALUES",! Line Location: 9+3
Function Call: WRITE	Prompt: "THAT ARE ENTERED FOR THE '"_$P(Y,U,2)_"' FIELD" Line Location: 9+4
Function Call: WRITE	Prompt: $C(7),!?9,"...FIELD IS NOW UNEDITABLE!" Line Location: 9+4
Function Call: WRITE	Prompt: !,$P(Y,U,2) Line Location: 5+0
Function Call: WRITE	Prompt: " INPUT TRANSFORM: ",Y Line Location: 5+1
Function Call: WRITE	Prompt: !!?5,$C(7),"Input Transform is TOO LONG by ",%-244," characters.",! Line Location: 5+1
Function Call: WRITE	Prompt: $C(7),!?5,"Input Transform must contain D ^DIM",! Line Location: 5+2
Function Call: WRITE	Prompt: $C(7),!?5,"DINUM on a Freetext field can cause database",!?5,"problems unless you are sure DINUM is numeric." Line Location: 5+3
Function Call: WRITE	Prompt: $C(7),"??" Line Location: 5+4
Function Call: WRITE	Prompt: !,$P(Y,U,2)_" OUTPUT TRANSFORM: " Line Location: O+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: O+1
Function Call: WRITE	Prompt: Y Line Location: O+2
Function Call: WRITE	Prompt: !?9,"DELETED!" Line Location: O+2
Function Call: WRITE	Prompt: !?4,"Enter a computed-field expression using '"_$P(Y,U,2)_"'",! Line Location: O+3
Function Call: WRITE	Prompt: ?4,"or MUMPS code that takes Y and transforms it to a different Y.",! Condition for execution: DUZ(0)="@" Line Location: O+3
Function Call: WRITE	Prompt: $C(7),"??" Line Location: X+0
Routine Call	DIE Line Location: 5+10

Name	Line Occurrences (* Changed, ! Killed)
^DD(	5+5, 5+9, O+1, O+6, O+7*
^UTILITY("DDA"	5+9*

Name	Line Occurrences
2	9+2
5	5+1, 5+2, 5+4
EX	O+2, O+6
O	O+3
Q	5+8, 5+10, O+1, O+3

Name	Field # of Occurrence
^(	5+9
^(0	9+2, 9+4, O+2, O+3, O+6
^(12.1	5+7*
^(2	O+2!, O+4!, O+6
^(2.1	O+2!, O+6*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	9+1, 9+2, 9+4, 2, 5+1, 5+7, 5+9, O+2, O+5, O+6* , EX
>> A0	2, 5+6, EX*
>> A1	2, 5+6, EX*
>> A2	2, 5+6, EX*
>> DA	9+1, 5, 5+1, 5+2, 5+4, 5+5, 5+9, O+4, O+5, EX
>> DDA	2, 5, 5+6, 5+10, O+2*, EX
>> DGG	O+4*, O+6
>> DI	5+5, 5+9, 5+10*, O+1, O+4, O+6, O+7
>> DIC	5+8, O+4
DICOMPX	O+5!
DICOMPX(1	O+4*
>> DIE	5+8*
>> DIK	O, O+2, O+7
>> DJJ	O*, O+1, O+3, O+4, O+6, O+7, EX
DQI	O+4*, O+5!
>> DR	5+7*
DTIME	O+1
>> DTOUT	O+1*
DUZ(0	O+3
U	9+2, 9+4, 5, 5+1, 5+2, 5+3, 5+4, 5+5, 5+7, 5+8 , O, O+2, O+3, O+6
X	9+2, 5+1!, 5+2!, 5+3, 5+4, 5+5, 5+6, 5+7, O+1*, O+2 , O+3, O+4, O+6
X(	O+5
>> Y	9+1, 9+4, 5, 5+1, 5+2, 5+4, O, O+2, O+3, O+6
>> Y(0	9+2, 5, 5+1, 5+2, 5+3, 5+4, 5+5, 5+7, 5+8

Customize PDF page

Package: VA Fileman

Routine: DIU31

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
O
Q
2
5
EX
9	;
X