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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACDINTV

Package: Alcohol Chemical Dependency

Global: ^ACDINTV


Information

FileMan FileNo FileMan Filename Package
9002173.5 CDMIS INTERVENTIONS Alcohol Chemical Dependency

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Alcohol Chemical Dependency 6 ACD4P1PB    ACDENVCK    ACDPPFIX    ACDPURG    ACDRR2CB    ACDWCINV    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Alcohol Chemical Dependency 3 ACDCINV    ACDCINV2    ACDPURG    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Alcohol Chemical Dependency 4 CDMIS COMPONENT(#9002170.1)[10, 11]    CDMIS PROGRAM(#9002173)[19]    CDMIS PLACEMENT REASON(#9002170.4)[12]    CDMIS PROBLEM(#9002170.3)[7, #9002173.58(.01)]    
Kernel 2 STATE(#5)[23]    NEW PERSON(#200)[#9002173.516(.01)]    
Utility Tables 1 TRIBE(#9999999.03)[24]    

Fields, Total: 26

Field # Name Loc Type Details
.01 VISIT DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 12, 1994
  • CROSS-REFERENCE:  9002173.5^B
    1)= S ^ACDINTV("B",$E(X,1,30),DA)=""
    2)= K ^ACDINTV("B",$E(X,1,30),DA)
1 CLIENTS NAME 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 03, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  9002173.5^D
    1)= S ^ACDINTV("D",$E(X,1,30),DA)=""
    2)= K ^ACDINTV("D",$E(X,1,30),DA)
    3)= NO DELETION
2 CLIENTS TRIBE CODE (3 DIG) 0;3 FREE TEXT
************************REQUIRED FIELD************************

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

  • LAST EDITED:  MAR 20, 1998
4 CLIENTS AGE 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Type a Number between 1 and 150, 0 Decimal Digits
5 REFERRAL SOURCE 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 14, 1997
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
7 PRIMARY PROBLEM 0;8 POINTER TO CDMIS PROBLEM FILE (#9002170.3)
************************REQUIRED FIELD************************
CDMIS PROBLEM(#9002170.3)

  • LAST EDITED:  MAY 11, 1994
8 OTHER PROBLEM(S) 1;0 POINTER Multiple #9002173.58 9002173.58
9 SUICIDAL HISTORY (Y/N) 0;9 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  MAY 17, 1994
10 RECOMMENDED PLACEMENT (COMP) 0;10 POINTER TO CDMIS COMPONENT FILE (#9002170.1)
************************REQUIRED FIELD************************
CDMIS COMPONENT(#9002170.1)

  • INPUT TRANSFORM:  S DIC("S")="S %=$P(^(0),U,2) I %'=""CLO"",%'=""DIS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 12, 1996
  • SCREEN:  S DIC("S")="S %=$P(^(0),U,2) I %'=""CLO"",%'=""DIS"""
  • EXPLANATION:  CLOSED & DISCHARGED not allowed
11 ACTUAL PLACEMENT (COMP) 0;11 POINTER TO CDMIS COMPONENT FILE (#9002170.1)
************************REQUIRED FIELD************************
CDMIS COMPONENT(#9002170.1)

  • LAST EDITED:  MAY 17, 1994
12 DIFFERENCE REASON 0;12 POINTER TO CDMIS PLACEMENT REASON FILE (#9002170.4) CDMIS PLACEMENT REASON(#9002170.4)

  • LAST EDITED:  MAY 11, 1994
13 ACTUAL PLACEMENT PROGRAM NAME 0;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  JAN 14, 1997
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
14 COST 0;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
15 TOTAL DAYS OF TREATMENT 0;15 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 11, 1994
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
16 INTERVENTION MEMBER(S) 2;0 POINTER Multiple #9002173.516 9002173.516
17 COMPONENT TYPE 0;7 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADULT;
  • 'F' FOR FAMILY;
  • 'M' FOR MIXED (ADULT&YOUTH);
  • 'S' FOR STAFF;
  • 'E' FOR ELDERLY ONLY;
  • 'W' FOR WOMEN ONLY;
  • 'Y' FOR YOUTH;

  • LAST EDITED:  JAN 06, 1995
18 TREATMENT COMPLETE (Y/N) 0;16 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  MAY 17, 1994
19 CDMIS PROGRAM 0;17 POINTER TO CDMIS PROGRAM FILE (#9002173)
************************REQUIRED FIELD************************
CDMIS PROGRAM(#9002173)

  • LAST EDITED:  MAY 12, 1994
  • CROSS-REFERENCE:  9002173.5^C
    1)= S ^ACDINTV("C",$E(X,1,30),DA)=""
    2)= K ^ACDINTV("C",$E(X,1,30),DA)
    3)= DO NOT DELETE
20 ACTUAL PLACEMENT (TYPE) 0;18 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADULT;
  • 'F' FOR FAMILY;
  • 'M' FOR MIXED (ADULT&YOUTH);
  • 'Y' FOR YOUTH;
  • 'S' FOR STAFF;
  • 'E' FOR ELDERLY ONLY;
  • 'W' FOR WOMEN ONLY;

  • LAST EDITED:  JAN 06, 1995
21 RECOMMENEDED PLACEMENT (TYPE) 0;19 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADULT;
  • 'F' FOR FAMILY;
  • 'M' FOR MIXED (ADULT&YOUTH);
  • 'Y' FOR YOUTH;
  • 'S' FOR STAFF;
  • 'E' FOR ELDERLY ONLY;
  • 'W' FOR WOMEN ONLY;

  • LAST EDITED:  JAN 06, 1995
22 CLIENTS STATE CODE 0;20 FREE TEXT
************************REQUIRED FIELD************************

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

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

  • LAST EDITED:  MAY 18, 1994
25 IS CLIENT A VETERAN (Y/N) 0;23 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  MAY 18, 1994
26 HOURS 0;26 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<.25)!(X?.E1"."3N.N) X Q:'$D(X) Q:X'["." K:$P(X,".",2)_"0"#25 X
  • LAST EDITED:  MAR 20, 1998
  • HELP-PROMPT:  Type a Number between .25 and 99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter time taken to conduct this intervention.  Time is in hours.fraction of hours where fraction of hours can only be in .25 increments.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All