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 |  Accessed By FileMan Db Calls |  Fields |  All
Print Page as PDF
Global: ^ACDWORK

Package: Alcohol Chemical Dependency

Global: ^ACDWORK


Information

FileMan FileNo FileMan Filename Package
9002174 CDMIS WORK Alcohol Chemical Dependency

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Alcohol Chemical Dependency 1 ACDFUL1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Alcohol Chemical Dependency 3 ACDFUL0    ACDFUL1    ACDFUL2    

Fields, Total: 13

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9002174^B
    1)= S ^ACDWORK("B",$E(X,1,30),DA)=""
    2)= K ^ACDWORK("B",$E(X,1,30),DA)
1 PROGRAM 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X Q:'$D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 07, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002174^AC
    1)= S ^ACDWORK("AC",$E(X,1,30),DA)=""
    2)= K ^ACDWORK("AC",$E(X,1,30),DA)
2 COMPONENT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • HELP-PROMPT:  Answer must be 4 characters in length.
3 DISCHARGE DATE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  MAR 30, 1998
  • HELP-PROMPT:  Answer must be 8 characters in length.
4 PROVIDER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
5 PATIENT ID 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • HELP-PROMPT:  Answer must be 9 characters in length.
6 BIRTH DATE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • HELP-PROMPT:  Answer must be 8 characters in length.
7 F/U DUE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
1101 ADDRESS-STREET 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 26, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
1102 ADDRESS-CITY 11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 26, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
1103 ADDRESS-STATE 11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 26, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
1104 ADDRESS-ZIP 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 26, 1995
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
1105 HOME PHONE 11;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  APR 26, 1995
  • HELP-PROMPT:  Answer must be 7-20 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All