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: ^ACDCS

Package: Alcohol Chemical Dependency

Global: ^ACDCS


Information

FileMan FileNo FileMan Filename Package
9002172 CDMIS CLIENT SVCS Alcohol Chemical Dependency

Description

Directly Accessed By Routines, Total: 25

Package Total Routines
Alcohol Chemical Dependency 24 ACD4P1P    ACD4P1PB    ACDAUTO1    ACDBILLP    ACDCLN    ACDCLN0    ACDCNV    ACDDE3
ACDDE3B    ACDDEM    ACDDEU    ACDENVCK    ACDFLAT3    ACDPCCL3    ACDPCCL7    ACDPCS1M
ACDRR1CC    ACDRR2C    ACDVIMP1    ACDVSAVE    ACDVSRV2    ACDWCD3    ACDWCS    ACDWSTAF
Mental Health Social Services 1 AMHCDBL2    

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Alcohol Chemical Dependency 13 ACD4P1P    ACDAUTO1    ACDCLN    ACDCNV    ACDDE3B    ACDDE3C    ACDDEM    ACDDIK
ACDPVDSP    ACDRESET    ACDVIMP1    ACDVSAVE    ACDVSRV2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Alcohol Chemical Dependency 1 CDMIS BILL(#9002172.9)[#9002172.921(.01)]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Alcohol Chemical Dependency 4 CDMIS LOCATION(#9002170.8)[2]    CDMIS PHARMACOTHERAPY DRUGS(#9002170.11)[8]    CDMIS SERVICE(#9002170.6)[1]    CDMIS VISIT(#9002172.1)[99.99]    
Kernel 1 NEW PERSON(#200)[7, #9002172.01(.01)]    
Utility Tables 1 LOCATION(#9999999.06)[6]    

Fields, Total: 10

Field # Name Loc Type Details
.01 DAY 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>31)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 17, 1989
  • HELP-PROMPT:  Type the day the service was provided. i.e. 1,15,28
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9002172^B
    1)= S ^ACDCS("B",$E(X,1,30),DA)=""
    2)= K ^ACDCS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002172^AC^MUMPS
    1)= S:$D(ACDDR) DIC("DR")=""
    2)= Q
1 SVC/ACT 0;2 POINTER TO CDMIS SERVICE FILE (#9002170.6)
************************REQUIRED FIELD************************
CDMIS SERVICE(#9002170.6)
2 LOC/TYPE 0;3 POINTER TO CDMIS LOCATION FILE (#9002170.8)
************************REQUIRED FIELD************************
CDMIS LOCATION(#9002170.8)
3 HOURS 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<.25)!(X?.E1"."3N.N) X I $D(X),X[".",$P(X,".",2)_"0"#25 K X
  • LAST EDITED:  JAN 10, 1995
  • HELP-PROMPT:  Type a Number between .25 and 12, Decimal can only be .25, .5, or .75
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 EXTRACT DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 29, 1990
  • CROSS-REFERENCE:  9002172^AD
    1)= S ^ACDCS("AD",$E(X,1,30),DA)=""
    2)= K ^ACDCS("AD",$E(X,1,30),DA)
6 PCC LOCATION 0;6 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  NOV 27, 1995
  • DESCRIPTION:  
    This field is asked only if the PCC link is active and then only if the PCC ASK LOCATION field in the CDMIS LOCATION file for the LOC/TYPE value entered in this client svc record is set to YES.
7 CREATED BY USER 0;7 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  FEB 20, 1997
  • DESCRIPTION:  
    This field contains the user who created this entry.  This field is valued by software.
8 PHARMACOTHERAPY DRUG 0;8 POINTER TO CDMIS PHARMACOTHERAPY DRUGS FILE (#9002170.11) CDMIS PHARMACOTHERAPY DRUGS(#9002170.11)

  • LAST EDITED:  JUL 03, 1996
  • DESCRIPTION:  
    This field is only asked if the client service being provided is 'pharmacotherapy'.  The user enters the drug being prescribed.
99.99 CDMIS VISIT DATE BWP;1 POINTER TO CDMIS VISIT FILE (#9002172.1)
************************REQUIRED FIELD************************
CDMIS VISIT(#9002172.1)

  • LAST EDITED:  JUL 07, 1989
  • CROSS-REFERENCE:  9002172^C
    1)= S ^ACDCS("C",$E(X,1,30),DA)=""
    2)= K ^ACDCS("C",$E(X,1,30),DA)
100 PROVIDER 1;0 POINTER Multiple #9002172.01 9002172.01

  • LAST EDITED:  JAN 06, 1994
  • DESCRIPTION:  This field allows the data entry clerk to credit multiple providers for the same client service day. There may be 4 or 5 docs doing a client service for a group of clients. This field is used in the staff reports locally
    at the facilities. This means there is no need to extract this field to the area's and to HQ. So, this field is 'NOT EXTRACTED'.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All