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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^ACDVIS

Package: Alcohol Chemical Dependency

Global: ^ACDVIS


Information

FileMan FileNo FileMan Filename Package
9002172.1 CDMIS VISIT Alcohol Chemical Dependency

Description

Directly Accessed By Routines, Total: 51

Package Total Routines
Alcohol Chemical Dependency 48 ACD4P1PB    ACDAUTO    ACDAUTO1    ACDAUTO2    ACDAUTO3    ACDCKIN    ACDCLN    ACDCLN0
ACDCNV    ACDCREAT    ACDDE2    ACDDE3    ACDDE3A    ACDDEM    ACDDEU    ACDDFAC
ACDENVCK    ACDFLAT    ACDFLAT2    ACDFUL2    ACDLVBD    ACDPCCL    ACDPCCL2    ACDPCCL7
ACDPCCLS    ACDPCS1M    ACDPDIF    ACDPFACE    ACDPPFIX    ACDPSOT    ACDPURG    ACDPVDSP
ACDPVH1M    ACDRESET    ACDRL1    ACDRLP    ACDRLU2    ACDRR1C    ACDRR1CB    ACDRR2C
ACDRR3C    ACDVFIX    ACDVIMP1    ACDVSAV2    ACDVSRV2    ACDWDRV1    ACDWDRV4    ACDWVIS
Mental Health Social Services 2 AMHCDBL    AMHCDBL2    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 17

Package Total Routines
Alcohol Chemical Dependency 17 ACDAUTO    ACDAUTO1    ACDCLN    ACDCNV    ACDCREAT    ACDDE3    ACDDE3B    ACDDEM
ACDDEU    ACDDFAC    ACDDIK    ACDPURG    ACDRESET    ACDVFIX    ACDVIMP1    ACDVSAV2
ACDVSRV2    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Alcohol Chemical Dependency 5 CDMIS BILL(#9002172.9)[.04]    CDMIS CLIENT SVCS(#9002172)[99.99]    CDMIS INIT/INFO/FU(#9002170)[99.99]    CDMIS TRANS/DISC/CLOSE(#9002171)[99.99]    CDMIS VISIT(#9002172.1)[100]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Alcohol Chemical Dependency 3 CDMIS COMPONENT(#9002170.1)[1]    CDMIS PROGRAM(#9002173)[99.99]    CDMIS VISIT(#9002172.1)[100]    
IHS Patient 2 PATIENT(#9000001)[4]    VISIT(#9000010)[#9002172.121(.02)]    
Kernel 2 STATE(#5)[106]    NEW PERSON(#200)[2, 1102]    
Utility Tables 2 LOCATION(#9999999.06)[#9002172.121(.03)]    TRIBE(#9999999.03)[105]    
VA Fileman 1 FILE(#1)[#9002172.12111(.01)]    

Fields, Total: 26

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JAN 05, 1995
  • HELP-PROMPT:  TYPE A DATE NO LATER THAN TODAY
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9002172.1^B
    1)= S ^ACDVIS("B",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("B",$E(X,1,30),DA)
1 COMPONENT (CODE) 0;2 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
  • CROSS-REFERENCE:  9002172.1^F
    1)= S ^ACDVIS("F",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("F",$E(X,1,30),DA)
2 PRIMARY PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  FEB 20, 1997
  • CROSS-REFERENCE:  9002172.1^I
    1)= S ^ACDVIS("I",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("I",$E(X,1,30),DA)
    3)= NO DELETE
3 TYPE CONTACT 0;4 SET
************************REQUIRED FIELD************************
  • 'IN' FOR INITIAL;
  • 'RE' FOR REOPEN;
  • 'CS' FOR CLIENT SERVICE;
  • 'IR' FOR INFO/REFERRAL;
  • 'FU' FOR FOLLOWUP;
  • 'TD' FOR TRANS/DISC/CLOSE;
  • 'OT' FOR CRISIS/BRIEF INT;

  • LAST EDITED:  JAN 06, 1994
  • CROSS-REFERENCE:  9002172.1^E
    1)= S ^ACDVIS("E",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("E",$E(X,1,30),DA)
    3)= NO DELETE
3.5 FOLLOWUP MONTHS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 13, 1989
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
4 CLIENTS NAME 0;5 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  MAY 12, 1994
  • CROSS-REFERENCE:  9002172.1^D
    1)= S ^ACDVIS("D",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("D",$E(X,1,30),DA)
5 COMPONENT (TYPE) 0;7 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
6 COMPONENT COMPUTED

  • MUMPS CODE:  X ^DD(9002172.1,6,9.2) S X=$S('$D(^ACDCOMP(+$P(Y(9002172.1,6,1),U,2),0)):"",1:$P(^(0),U,1))_" - "_$P($P(Y(9002172.1,6,2),$C(59)_$P(Y(9002172.1,6,1),U,7)_":",2),$C(59),1)
    9.2 = S Y(9002172.1,6,2)=$C(59)_$S($D(^DD(9002172.1,5,0)):$P(^(0),U,3),1:""),Y(9002172.1,6,1)=$S($D(^ACDVIS(D0,0)):^(0),1:"")
  • ALGORITHM:  `1_" - "_`5
  • LAST EDITED:  JUL 28, 1989
7 CLIENTS AGE COMP COMPUTED

  • MUMPS CODE:  X ^DD(9002172.1,7,9.2) X $P(^DD(9000001,1102.99,0),U,5,99) S Y(9002172.1,7,101)=X S X=Y(9002172.1,7,101) S D0=Y(9002172.1,7,80)
    9.2 = S Y(9002172.1,7,80)=$S($D(D0):D0,1:""),Y(9002172.1,7,1)=$S($D(^ACDVIS(D0,0)):^(0),1:""),D0=$P(Y(9002172.1,7,1),U,5) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  CLIENT:AGE
  • LAST EDITED:  MAY 28, 1995
8 CLIENTS SEX COMP COMPUTED

  • MUMPS CODE:  X ^DD(9002172.1,8,9.2) X $P(^DD(9000001,1101.2,0),U,5,99) S Y(9002172.1,8,101)=X S X=Y(9002172.1,8,101) S D0=Y(9002172.1,8,80)
    9.2 = S Y(9002172.1,8,80)=$S($D(D0):D0,1:""),Y(9002172.1,8,1)=$S($D(^ACDVIS(D0,0)):^(0),1:""),D0=$P(Y(9002172.1,8,1),U,5) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  CLIENT:SEX
  • LAST EDITED:  MAY 28, 1995
9 CLIENTS AGE RANGE 0;8 SET
  • '1' FOR 0-12;
  • '2' FOR 13-18;
  • '3' FOR 19-24;
  • '4' FOR 25-34;
  • '5' FOR 35-44;
  • '6' FOR 45-54;
  • '7' FOR 55-64;
  • '8' FOR 65-74;
  • '9' FOR 75+;

  • LAST EDITED:  DEC 30, 1994
10 CONTACT COMPUTED

  • MUMPS CODE:  X ^DD(9002172.1,10,9.2) S X=$P($P(Y(9002172.1,10,2),$C(59)_$P(Y(9002172.1,10,1),U,4)_":",2),$C(59),1)_" "_$P(Y(9002172.1,10,1),U,6)
    9.2 = S Y(9002172.1,10,2)=$C(59)_$S($D(^DD(9002172.1,3,0)):$P(^(0),U,3),1:""),Y(9002172.1,10,1)=$S($D(^ACDVIS(D0,0)):^(0),1:"")
  • ALGORITHM:  `3_" "_`3.5
  • LAST EDITED:  MAY 13, 1994
25 EXTRACT DATE 0;25 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 16, 1992
  • CROSS-REFERENCE:  9002172.1^AD
    1)= S ^ACDVIS("AD",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("AD",$E(X,1,30),DA)
26 CRISIS BRIEF NAME 0;26 FREE TEXT

  • 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.
  • DESCRIPTION:  
    This field contains the patient name for crisis brief type visits only.
99.99 CDMIS PROGRAM BWP;1 POINTER TO CDMIS PROGRAM FILE (#9002173)
************************REQUIRED FIELD************************
CDMIS PROGRAM(#9002173)

  • LAST EDITED:  JUL 07, 1989
  • CROSS-REFERENCE:  9002172.1^C
    1)= S ^ACDVIS("C",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("C",$E(X,1,30),DA)
100 DUPLICATED FROM 0;9 POINTER TO CDMIS VISIT FILE (#9002172.1) CDMIS VISIT(#9002172.1)

  • LAST EDITED:  SEP 22, 1993
  • CROSS-REFERENCE:  9002172.1^ADUP
    1)= S ^ACDVIS("ADUP",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("ADUP",$E(X,1,30),DA)
    3)= INDEX stores visits duplicated from another visit
    This index stores all cdmis visits that were auto-generated from another visit. If they edit a visit they may want to auto-create the same edit on all visits that are duplicates of that original.
101 CLIENTS TRIBE CODE 0;10 FREE TEXT

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X Q:'$D(X) K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  MAR 07, 1995
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002172.1^H
    1)= S ^ACDVIS("H",$E(X,1,30),DA)=""
    2)= K ^ACDVIS("H",$E(X,1,30),DA)
103 CLIENTS SEX 0;12 SET
************************REQUIRED FIELD************************
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  JAN 16, 1998
  • HELP-PROMPT:  MUST ENTER 'M' or 'F'
104 IS CLIENT A VETERAN (Y/N) 0;13 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

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

  • LAST EDITED:  MAR 01, 1995
106 CLIENTS RESIDENT STATE 0;15 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 16, 1998
107 CLIENTS AGE 0;16 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
1101 PCC SERVICE CATEGORY 11;1 SET
  • 'A' FOR AMBULATORY;
  • 'H' FOR HOSPITALIZATION;
  • 'I' FOR IN HOSPITAL;
  • 'C' FOR CHART REVIEW;
  • 'T' FOR TELECOMMUNICATIONS;
  • 'N' FOR NOT FOUND;
  • 'R' FOR NURSING HOME;

  • LAST EDITED:  MAY 11, 1995
  • DESCRIPTION:  
    This field is required if PCC visits are to be generated from CDMIS visits.
1102 CREATED BY USER 11;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  FEB 20, 1997
  • DESCRIPTION:  
    This field contains the user who added this record.  It is set by data entry software.
2100 PCC VISIT LINKAGE 21;0 Multiple #9002172.121 9002172.121

  • DESCRIPTION:  This multiple is only used when the PCC link is active. It is used to store pointers to the PCC file entries generated from this CDMIS visit. CS type visits may have multiple entries in this multiple and the .01 value
    will be the day of the month on which the client service was provided.  All others will have only one entry and its value will be 1.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All