Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^DDA

Package: VA Fileman

Global: ^DDA


Information

FileMan FileNo FileMan Filename Package
.6 DD AUDIT VA Fileman

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
VA Fileman 4 DIAU    DICATT4    DICATTA    DICRW    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.04]    

Fields, Total: 12

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  A whole number greater than 1.
.01 FIELD NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • CROSS-REFERENCE:  .6^B
    1)= S ^DDA(DDA,"B",$E(X,1,30),DA)=""
    2)= K ^DDA(DDA,"B",$E(X,1,30),DA)
.02 TYPE 0;2 SET
************************REQUIRED FIELD************************
  • 'E' FOR EDIT;
  • 'N' FOR NEW;
  • 'D' FOR DELETE;
.03 DATE UPDATED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
  • CROSS-REFERENCE:  .6^D
    1)= S ^DDA(DDA,"D",$E(X,1,30),DA)=""
    2)= K ^DDA(DDA,"D",$E(X,1,30),DA)
.04 USER 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • CROSS-REFERENCE:  .6^E
    1)= S ^DDA(DDA,"E",$E(X,1,30),DA)=""
    2)= K ^DDA(DDA,"E",$E(X,1,30),DA)
.05 ATTRIBUTE NAME 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-75 characters in length.
.06 ATTRIBUTE NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.07 FILE NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
1 OLD VALUE 1;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
1.1 OLD VALUE(S) 1.1;0 WORD-PROCESSING #.601
2 NEW VALUE 2;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
2.1 NEW VALUE(S) 2.1;0 WORD-PROCESSING #.602
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  All