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 |  All
Print Page as PDF
Global: ^AMHRCDST

Package: Mental Health Social Services

Global: ^AMHRCDST


Information

FileMan FileNo FileMan Filename Package
9002011.06 BH CD STAGING TOOL Mental Health Social Services

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Mental Health Social Services 4 AMHCDBL1    AMHEYD2    AMHLEFP4    AMHPST    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Mental Health Social Services 8 AMHBHDEL    AMHCDBL1    AMHGVDEL    AMHLEA    AMHLEDEL    AMHLEP2    AMHPOST    AMHUTIL
Patient Chart 1 BPCBHDEL    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Mental Health Social Services 5 MHSS PROBLEM/POV CODES(#9002012.2)[.03]    MHSS RECORD(#9002011)[.01]    MHSS CD DIFFERENCE REASON(#9002014.81)[.23]    MHSS CDMIS COMPONENT(#9002013.7)[.21, .22]    MHSS CDMIS DRUG TYPES(#9002013.5)[#9002011.41(.01)]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.05]    
Utility Tables 1 HEALTH FACTORS(#9999999.64)[.11]    

Fields, Total: 23

Field # Name Loc Type Details
.01 MHSS VISIT 0;1 POINTER TO MHSS RECORD FILE (#9002011)
************************REQUIRED FIELD************************
MHSS RECORD(#9002011)

  • LAST EDITED:  MAY 29, 2000
  • CROSS-REFERENCE:  9002011.06^B
    1)= S ^AMHRCDST("B",$E(X,1,30),DA)=""
    2)= K ^AMHRCDST("B",$E(X,1,30),DA)
.018 CLIENT STAGING AVERAGE COMPUTED

  • MUMPS CODE:  S X=$$STAGE^AMHUTIL(DA)
  • ALGORITHM:  S X=$$STAGE^AMHUTIL(DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  DEC 03, 2002
  • CROSS-REFERENCE:  9002011.06^AC
    1)= S ^AMHRCDST("AC",$E(X,1,30),DA)=""
    2)= K ^AMHRCDST("AC",$E(X,1,30),DA)
.03 PRIMARY PROBLEM 0;3 POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2) MHSS PROBLEM/POV CODES(#9002012.2)

  • LAST EDITED:  MAY 29, 2000
.04 DATE ADDED TO FILE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 29, 2000
.05 USER WHO ADDED 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 29, 2000
.06 DAYS USED ALCOHOL 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.07 DAYS USED DRUGS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.08 DAYS HOSPITALIZED 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.09 ALC/DRUG RELATED ARRESTS 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.11 TOBACCO USE 0;11 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$SMK^AMHUTIL(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 15, 2001
  • SCREEN:  S DIC("S")="I $$SMK^AMHUTIL(Y)"
  • EXPLANATION:  Must be a tobacco health factor.
.12 ALC/SUB STAGE 0;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.13 PHYSICAL STAGE 0;13 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.14 EMOTIONAL STAGE 0;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.15 SOCIAL STAGE 0;15 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.16 CUL/SPIRIT STAGE 0;16 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.17 BEHAVIORAL STAGE 0;17 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.18 VOC/ED STAGE 0;18 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 6, 0 Decimal Digits
.19 CDMIS DISPOSITION 0;19 SET
  • 'IN' FOR INITIAL;
  • 'RE' FOR REOPEN;
  • 'TD' FOR TRANS/DISC/CLOSE;
  • 'FU' FOR FOLLOWUP;

  • LAST EDITED:  MAY 30, 2000
.21 RECOMMENDED PLACEMENT 0;21 POINTER TO MHSS CDMIS COMPONENT FILE (#9002013.7) MHSS CDMIS COMPONENT(#9002013.7)

  • LAST EDITED:  DEC 03, 2002
.22 ACTUAL PLACEMENT 0;22 POINTER TO MHSS CDMIS COMPONENT FILE (#9002013.7) MHSS CDMIS COMPONENT(#9002013.7)

  • LAST EDITED:  DEC 03, 2002
.23 DIFFERENCE REASON 0;23 POINTER TO MHSS CD DIFFERENCE REASON FILE (#9002014.81) MHSS CD DIFFERENCE REASON(#9002014.81)

  • LAST EDITED:  DEC 19, 2003
4100 DRUG TYPE 41;0 POINTER Multiple #9002011.41 9002011.41
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All