Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002172.81

Package: Alcohol Chemical Dependency

CDMIS CLIENT CATEGORY(#9002172.8)-->9002172.81

Sub-Field: 9002172.81


Information

Parent File Name Number Package
CDMIS CLIENT CATEGORY(#9002172.8) CLIENT 9002172.81 Alcohol Chemical Dependency

Details

Field # Name Loc Type Details
.01 CLIENT 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  MAY 23, 1994
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002172.81^B
    1)= S ^ACDPAT(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ACDPAT(DA(1),1,"B",$E(X,1,30),DA)
2 CLIENTS TRIBE CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  MAY 20, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
3 CLIENTS SEX 0;3 SET
************************REQUIRED FIELD************************
  • 'U' FOR UNKNOWN;
  • 'F' FOR FEMALE;
  • 'M' FOR MALE;

  • LAST EDITED:  MAY 20, 1994
4 CLIENTS AGE RANGE 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Number between 0 and 120, 0 Decimal Digits
22 CLIENTS STATE CODE 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  MAY 20, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
23 CLIENTS RESIDENT STATE 0;6 POINTER TO STATE FILE (#5)
************************REQUIRED FIELD************************
STATE(#5)

  • LAST EDITED:  MAY 20, 1994
24 CLIENTS TRIBE NAME 0;7 POINTER TO TRIBE FILE (#9999999.03)
************************REQUIRED FIELD************************
TRIBE(#9999999.03)

  • LAST EDITED:  MAY 20, 1994
25 IS CLIENT A VETERAN 0;8 SET
************************REQUIRED FIELD************************
  • 'U' FOR UNKNOWN;
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 20, 1994
26 CLIENTS AGE 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Number between 1 and 150, 0 Decimal Digits
Info |  Details |  All