Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DIU31

Package: VA FileMan

Routine: DIU31


Information

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

Source Information

Source file <DIU31.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All