Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls