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. ;10/4/90 8:57 AM

Source Information

Source file <DIU31.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
VA Fileman 1 DIU  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Legend:

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