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

Package: Mental Health Social Services

Global: ^AMHPCASE


Information

FileMan FileNo FileMan Filename Package
9002011.58 MHSS CASE DATES Mental Health Social Services

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Mental Health Social Services 16 AMH30P1    AMHBHSC    AMHHS    AMHLCD    AMHLEP2    AMHLEP3    AMHLEP4    AMHLETR3
AMHRC1    AMHRC1P    AMHRC2    AMHRC4    AMHRLU    AMHRP4    AMHRP4P    AMHRPEC
Health Summary Components 1 BHSBH    
Local Area Programs 1 AZAXDPM1    
Patient Chart 1 BPCBHSC    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Mental Health Social Services 5 AMHGD    AMHGDCM    AMHGSCM    AMHLCD    AMHUTIL1    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Mental Health Social Services 3 MHSS DISPOSITION TYPES(#9002012.8)[.06]    MHSS PROBLEM/POV CODES(#9002012.2)[.09]    MHSS PATIENT TREATMENT PLANS(#9002011.56)[.13]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.08]    

Fields, Total: 13

Field # Name Loc Type Details
.01 CASE OPEN DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1997
  • CROSS-REFERENCE:  9002011.58^B
    1)= S ^AMHPCASE("B",$E(X,1,30),DA)=""
    2)= K ^AMHPCASE("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.58^AA^MUMPS
    1)= I $P(^AMHPCASE(DA,0),U,2)]"" S ^AMHPCASE("AA",$P(^AMHPCASE(DA,0),U,2),(9999999-X),DA)=""
    2)= I $P(^AMHPCASE(DA,0),U,2)]"" K ^AMHPCASE("AA",$P(^AMHPCASE(DA,0),U,2),(9999999-X),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JAN 16, 1997
  • CROSS-REFERENCE:  9002011.58^C
    1)= S ^AMHPCASE("C",$E(X,1,30),DA)=""
    2)= K ^AMHPCASE("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.58^AATOO^MUMPS
    1)= I $P(^AMHPCASE(DA,0),U)]"" S ^AMHPCASE("AA",X,(9999999-$P(^AMHPCASE(DA,0),U)),DA)=""
    2)= I $P(^AMHPCASE(DA,0),U)]"" K ^AMHPCASE("AA",X,(9999999-$P(^AMHPCASE(DA,0),U)),DA)
.03 PROGRAM AFFILIATION 0;3 SET
************************REQUIRED FIELD************************
  • 'M' FOR MENTAL HEALTH;
  • 'S' FOR SOCIAL SERVICES;
  • 'C' FOR CHEMICAL DEPENDENCY;
  • 'O' FOR OTHER;

  • LAST EDITED:  OCT 16, 2009
.04 ADMIT DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1997
  • CROSS-REFERENCE:  9002011.58^AC
    1)= S ^AMHPCASE("AC",$E(X,1,30),DA)=""
    2)= K ^AMHPCASE("AC",$E(X,1,30),DA)
.05 CLOSED DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1997
  • CROSS-REFERENCE:  9002011.58^AD
    1)= S ^AMHPCASE("AD",$E(X,1,30),DA)=""
    2)= K ^AMHPCASE("AD",$E(X,1,30),DA)
.06 DISPOSITION 0;6 POINTER TO MHSS DISPOSITION TYPES FILE (#9002012.8) MHSS DISPOSITION TYPES(#9002012.8)

  • LAST EDITED:  JAN 16, 1997
.07 CASE NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  JAN 16, 1997
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
.08 PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 16, 1997
.09 PRIMARY PROBLEM 0;9 POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2) MHSS PROBLEM/POV CODES(#9002012.2)

  • INPUT TRANSFORM:  S DIC("S")="I $$CHKD^AMHUTIL1(+Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 04, 2013
  • SCREEN:  S DIC("S")="I $$CHKD^AMHUTIL1(+Y,DT)"
  • EXPLANATION:  Must be an active code.
.11 DATE CREATED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1997
.12 NEXT REVIEW DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1997
.13 TREATMENT PLAN 0;13 POINTER TO MHSS PATIENT TREATMENT PLANS FILE (#9002011.56) MHSS PATIENT TREATMENT PLANS(#9002011.56)

  • LAST EDITED:  APR 22, 1997
1101 COMMENT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  JAN 16, 1997
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All