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

Package: Mental Health Social Services

Global: ^AMHPTP


Information

FileMan FileNo FileMan Filename Package
9002011.53 MHSS PATIENT TREATMENT NOTES Mental Health Social Services

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Mental Health Social Services 6 AMHBPL    AMHBPL1    AMHDMHPL    AMHGBPL    AMHHS1    AMHLETN    
Health Summary Components 1 BHSBH1    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Mental Health Social Services 4 AMHBPL1    AMHBPL2    AMHGBPL    AMHLETN    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.06]    
Mental Health Social Services 1 MHSS PATIENT PROBLEM LIST(#9002011.51)[.03]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 26, 1994
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • CROSS-REFERENCE:  9002011.53^B
    1)= S ^AMHPTP("B",$E(X,1,30),DA)=""
    2)= K ^AMHPTP("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.53^AE2^MUMPS
    1)= I $P(^AMHPTP(DA,0),U,3)]"" S ^AMHPTP("AE",$P(^AMHPTP(DA,0),U,3),X,DA)=""
    2)= I $P(^AMHPTP(DA,0),U,3)]"" K ^AMHPTP("AE",$P(^AMHPTP(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.53^AC
    1)= S ^AMHPTP("AC",$E(X,1,30),DA)=""
    2)= K ^AMHPTP("AC",$E(X,1,30),DA)
.03 PROBLEM 0;3 POINTER TO MHSS PATIENT PROBLEM LIST FILE (#9002011.51) MHSS PATIENT PROBLEM LIST(#9002011.51)

  • LAST EDITED:  JUL 26, 1994
  • CROSS-REFERENCE:  9002011.53^AD
    1)= S ^AMHPTP("AD",$E(X,1,30),DA)=""
    2)= K ^AMHPTP("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.53^AE^MUMPS
    1)= S ^AMHPTP("AE",X,$P(^AMHPTP(DA,0),U),DA)=""
    2)= K ^AMHPTP("AE",X,$P(^AMHPTP(DA,0),U),DA)
  • CROSS-REFERENCE:  9002011.53^AY1^MUMPS
    1)= Q
    2)= Q
.04 NARRATIVE 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>205!($L(X)<2) X
  • LAST EDITED:  FEB 22, 1995
  • HELP-PROMPT:  Answer must be 2-205 characters in length.
.05 DATE NOTE ADDED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 26, 1994
.06 AUTHOR 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 26, 1994
.07 LONG/SHORT TERM TREATMENT 0;7 SET
  • '1' FOR SHORT;
  • '2' FOR LONG;

  • LAST EDITED:  JUL 26, 1994
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All