Routine: DIU31

Information

DIU31 ;SFISC/GFT - UNEDITABLE, INPUT TRANS., OUTPUT TRANS. ;24OCT2016

Call Graph

Call Graph Total: 9

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

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: 1

Package	Total	Caller Graph
VA FileMan	1	DIU

Entry Points

Name	Comments	DBIA/ICR reference
9	;
2
5	;FROM 5+1^DIU
MORE
O	;FROM 7+1^DIU
X
EX
Q
EXTENDED

External References

Name	Field # of Occurrence
LENGTH^DICATT2	MORE+3
IT^DICATTA	2, 5+8, EX
IT1^DICATTA	MORE+3
YN^DICN	9+2, 9+4
^DICOMP	O+7
^DIE	MORE+4
^DIM	5+6
RW^DIR2	5+3, O+4
Q^DIU	Q
DIEZ^DIU0	2+1, MORE+3
PZ^DIU0	5+9, 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+2
Function Call: WRITE	Prompt: " INPUT TRANSFORM: ",Y Line Location: 5+3
Function Call: WRITE	Prompt: !!?5,$C(7),"Input Transform is TOO LONG by ",%-244," characters.",! Line Location: 5+3
Function Call: WRITE	Prompt: $C(7),!?5,"Input Transform must contain D ^DIM",! Line Location: 5+4
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+5
Function Call: WRITE	Prompt: $C(7),"??" Line Location: 5+6
Function Call: WRITE	Prompt: !,$P(Y,U,2)_" OUTPUT TRANSFORM: " Line Location: O+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: O+3
Function Call: WRITE	Prompt: Y Line Location: O+4
Function Call: WRITE	Prompt: !?9,"DELETED!" Line Location: O+4
Function Call: WRITE	Prompt: !?4,"Enter a computed-field expression using '"_$P(Y,U,2)_"'",! Line Location: O+5
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+5
Function Call: WRITE	Prompt: $C(7),"??" Line Location: X+0
Function Call: WRITE	Prompt: !!,"THIS FIELD IS DEFINED AS AN EXTENDED DATA TYPE (",$P($G(^DI(.81,+$P($P(Y(0),U,2),"t",2),0)),U),")." Line Location: EXTENDED+0
Function Call: WRITE	Prompt: !,"ITS INPUT AND OUTPUT TRANSFORMS ARE PART OF THE DEFINITION OF THAT DATA TYPE." Line Location: EXTENDED+1
Routine Call	DIE Line Location: MORE+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	5+7, MORE+2, O+3, O+4!, O+6!, O+8, O+9*
^DI(	EXTENDED
^UTILITY("DDA"	MORE+2*

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	MORE+2
^(0	9+2, 9+4, O+4, O+5, O+8
^(12.1	MORE+1*
^(2	O+4, O+8
^(2.1	O+4!, O+8*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: VA FileMan