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

Package: Mental Health Social Services

Global: ^AMHTPCAD


Information

FileMan FileNo FileMan Filename Package
9002012.3 MHSS PROBLEM CODE ADDS (TEMP) Mental Health Social Services

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Mental Health Social Services 8 AMH30P10    AMH30P4C    AMH40P10    AMH40P2    AMH40P4    AMH40P7    AMH40P8    AMH40P9

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Mental Health Social Services 8 AMH30P10    AMH30P4    AMH40P10    AMH40P2    AMH40P4    AMH40P7    AMH40P8    AMH40P9

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Mental Health Social Services 1 MHSS DIAGNOSIS CATEGORY(#9002012.6)[#9002012.41(.01)]    

Fields, Total: 18

Field # Name Loc Type Details
.01 CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  MAR 03, 2014
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9002012.3^B
    1)= S ^AMHTPCAD("B",$E(X,1,30),DA)=""
    2)= K ^AMHTPCAD("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002012.3^D^MUMPS
    1)= S ^AMHTPCAD("D",X_" ",DA)=""
    2)= K ^AMHTPCAD("D",X_" ",DA)
.02 NARRATIVE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>160!($L(X)<2) X
  • LAST EDITED:  NOV 05, 2008
  • HELP-PROMPT:  Answer must be 2-160 characters in length.
  • CROSS-REFERENCE:  9002012.3^C
    1)= S ^AMHTPCAD("C",$E(X,1,30),DA)=""
    2)= K ^AMHTPCAD("C",$E(X,1,30),DA)
.03 MHSS PROBLEM CODE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  NOV 05, 2008
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • CROSS-REFERENCE:  9002012.3^AC
    1)= S ^AMHTPCAD("AC",$E(X,1,30),DA)=""
    2)= K ^AMHTPCAD("AC",$E(X,1,30),DA)
.04 PROBLEM CODE NARRATIVE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 05, 2008
  • HELP-PROMPT:  Answer must be 1-30 characters in length
.05 ICD9 CODE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  FEB 27, 2014
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
.08 PASS PROVIDER NARRATIVE AS IS 0;8 SET
  • '1' FOR NO;

  • LAST EDITED:  SEP 27, 1994
.09 SEE PROVIDER NARRATIVE 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 28, 1994
.1 CODING SYSTEM 0;10 SET
  • '4' FOR DSM-IV;
  • '5' FOR DSM-V;
  • '9' FOR ICD-9;
  • '0' FOR ICD10;
  • 'P' FOR PROBLEM CODE;

  • LAST EDITED:  FEB 27, 2014
.11 TENTATIVE DX NARRATIVE 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 14, 1994
.12 SPECIAL EXCEPTIONS 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 01, 1994
.13 INACTIVE FLAG 0;13 SET
  • '1' FOR INACTIVE FLAG;

  • LAST EDITED:  NOV 25, 1996
.14 INACTIVE DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 25, 1996
.15 EHR DEFAULT 0;15 SET
  • '1' FOR YES, USE THIS CODE;

  • LAST EDITED:  OCT 06, 2011
.17 ICD 10 CODE 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  FEB 27, 2014
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
.18 NOT SELECTABLE IN BH 0;18 SET
  • '1' FOR YES, NOT SELECTABLE IN BH;

  • LAST EDITED:  FEB 27, 2014
1101 ACTIVATION DATE 11;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 18, 2018
2101 LONG DESCRIPTION 21;0 WORD-PROCESSING #9002012.32101
3100 DX CATEGORY 31;0 POINTER Multiple #9002012.41 9002012.41
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All