Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002011.6771

Package: Mental Health Social Services

MHSS GROUP(#9002011.67)-->9002011.6771

Sub-Field: 9002011.6771


Information

Parent File Name Number Package
MHSS GROUP(#9002011.67) EDUCATION TOPIC 9002011.6771 Mental Health Social Services

Details

Field # Name Loc Type Details
.01 PATIENT EDUCATION 0;1 POINTER TO EDUCATION TOPICS FILE (#9999999.09) EDUCATION TOPICS(#9999999.09)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 16, 2009
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  must be an active topic.
  • CROSS-REFERENCE:  9002011.6771^B
    1)= S ^AMHGROUP(DA(1),71,"B",$E(X,1,30),DA)=""
    2)= K ^AMHGROUP(DA(1),71,"B",$E(X,1,30),DA)
.02 PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 25, 2006
.03 INDIVIDUAL/GROUP 0;3 SET
  • 'I' FOR INDIVIDUAL;
  • 'G' FOR GROUP;

  • LAST EDITED:  JAN 25, 2006
.04 LENGTH OF TIME SPENT (MINUTES) 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 25, 2006
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
.05 CPT CODE 0;5 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 25, 2006
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  MUST BE AN ACTIVE CPT CODE
.06 LEVEL OF UNDERSTANDING 0;6 SET
  • '4' FOR GROUP-NO ASSESSMENT;

  • LAST EDITED:  JAN 25, 2006
.07 GOAL 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>68!($L(X)<1) X
  • LAST EDITED:  JUL 02, 2007
  • HELP-PROMPT:  Answer must be 1-68 characters in length.
.08 STATUS 0;8 SET
  • 'GS' FOR GOAL SET;
  • 'GM' FOR GOAL MET;
  • 'GNM' FOR GOAL NOT MET;
  • 'GNS' FOR GOAL NOT SET;

  • LAST EDITED:  JUL 10, 2007
1101 COMMENT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  JAN 25, 2006
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
1102 READINESS TO LEARN 11;2 POINTER TO READINESS TO LEARN FILE (#99999.15) READINESS TO LEARN(#99999.15)

  • LAST EDITED:  SEP 16, 2009
Info |  Details |  All