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 |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^AMHPTXPG

Package: Mental Health Social Services

Global: ^AMHPTXPG


Information

FileMan FileNo FileMan Filename Package
9002011.57 *MHSS PATIENT TX PLAN METHODS Mental Health Social Services

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Local Area Programs 1 AZAXDPM1    
Mental Health Social Services 1 AMHPOST1    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.05]    
Mental Health Social Services 1 MHSS PATIENT TREATMENT PLANS(#9002011.56)[.03]    

Fields, Total: 11

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

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 03, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • CROSS-REFERENCE:  9002011.57^B
    1)= S ^AMHPTXPG("B",$E(X,1,30),DA)=""
    2)= K ^AMHPTXPG("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.57^AE2^MUMPS
    1)= I $P(^AMHPTXPG(DA,0),U,3)]"" S ^AMHPTXPG("AE",$P(^AMHPTXPG(DA,0),U,3),X,DA)=""
    2)= I $P(^AMHPTXPG(DA,0),U,3)]"" K ^AMHPTXPG("AE",$P(^AMHPTXPG(DA,0),U,3),X,DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 26, 1994
  • CROSS-REFERENCE:  9002011.57^AC
    1)= S ^AMHPTXPG("AC",$E(X,1,30),DA)=""
    2)= K ^AMHPTXPG("AC",$E(X,1,30),DA)
.03 TREATMENT PLAN 0;3 POINTER TO MHSS PATIENT TREATMENT PLANS FILE (#9002011.56)
************************REQUIRED FIELD************************
MHSS PATIENT TREATMENT PLANS(#9002011.56)

  • LAST EDITED:  JUL 25, 2000
  • CROSS-REFERENCE:  9002011.57^AD
    1)= S ^AMHPTXPG("AD",$E(X,1,30),DA)=""
    2)= K ^AMHPTXPG("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.57^AE^MUMPS
    1)= S ^AMHPTXPG("AE",X,$P(^AMHPTXPG(DA,0),U),DA)=""
    2)= K ^AMHPTXPG("AE",X,$P(^AMHPTXPG(DA,0),U),DA)
  • CROSS-REFERENCE:  9002011.57^AY1^MUMPS
    1)= Q
    2)= Q
.04 DATE METHOD ESTABLISHED 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 03, 1997
.05 RESPONSIBLE STAFF MEMBER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 03, 1997
.06 DATE METHOD REVIEWED W/CLIENT 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 03, 1997
.07 TARGET DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 05, 1995
.08 *STATUS 0;8 SET
  • 'A' FOR ATTAINED;
  • 'C' FOR CONTINUED;
  • 'R' FOR REVISED;

  • LAST EDITED:  MAY 03, 1997
1101 METHOD 11;0 WORD-PROCESSING #9002011.571101

  • LAST EDITED:  MAY 03, 1997
1201 *METHOD 12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  MAY 03, 1997
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
1301 DURATION 13;1 FREE TEXT

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