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

Package: Mental Health Social Services

Global: ^AMHPTPP


Information

FileMan FileNo FileMan Filename Package
9002011.62 *MHSS PATIENT TP PROBLEMS Mental Health Social Services

Description

Directly Accessed By Routines, Total: 4

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

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Mental Health Social Services 1 AMHLETP1    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Mental Health Social Services 2 *MHSS PATIENT TP GOALS 2(#9002011.63)[.03]    *MHSS PATIENT TP METHODS(#9002011.64)[.12]    

Pointer To FileMan Files, Total: 3

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

Fields, Total: 10

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

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  NOV 28, 2000
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • CROSS-REFERENCE:  9002011.62^B
    1)= S ^AMHPTPP("B",$E(X,1,30),DA)=""
    2)= K ^AMHPTPP("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.62^AZ9^MUMPS
    1)= S:$D(AMHLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 26, 1994
  • DESCRIPTION:  
    This is the patient for whom this problem has been observed and recorded.
  • CROSS-REFERENCE:  9002011.62^AC
    1)= S ^AMHPTPP("AC",$E(X,1,30),DA)=""
    2)= K ^AMHPTPP("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
  • DESCRIPTION:  
    This is the last date/time this problem was changed.
    SOURCE OF DATA:   018/PRCOND
  • CROSS-REFERENCE:  9002011.62^AD
    1)= S ^AMHPTPP("AD",$E(X,1,30),DA)=""
    2)= K ^AMHPTPP("AD",$E(X,1,30),DA)
.04 DATE LAST MODIFIED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 25, 2000
.05 PROVIDER LAST UPDATE 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 25, 2000
.06 ESTABLISHED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 25, 2000
.08 DATE ESTABLISHED 0;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  MAR 07, 1988
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1900 AND DT
  • DESCRIPTION:  
    This is the date this problem was entered into this file.
    SOURCE OF DATA:   018/PREDAT
    UNEDITABLE
.12 STATUS 0;12 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;
  • 'R' FOR RESOLVED;

  • LAST EDITED:  NOV 28, 2000
    SOURCE OF DATA:   018/PRSTAT
1101 DESCRIPTION 11;0 WORD-PROCESSING #9002011.6211
9999 LOOKUP COMPUTED

  • MUMPS CODE:  S X=$S($D(AMHLOOK):AMHLOOK,1:"")
  • ALGORITHM:  S X=$S($D(AMHLOOK):AMHLOOK,1:"")
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All