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

Package: Mental Health Social Services

Global: ^AMHPTPGL


Information

FileMan FileNo FileMan Filename Package
9002011.63 *MHSS PATIENT TP GOALS 2 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    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Mental Health Social Services 2 *MHSS PATIENT TP PROBLEMS(#9002011.62)[.03]    MHSS PATIENT TREATMENT PLANS(#9002011.56)[.13]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.05, .06, #9002011.6312(.02)]

Fields, Total: 14

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 25, 2000
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This contains the standardized text stored in the Clinical Term file for this problem.
  • CROSS-REFERENCE:  9002011.63^B
    1)= S ^AMHPTPGL("B",$E(X,1,30),DA)=""
    2)= K ^AMHPTPGL("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.63^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.63^AC
    1)= S ^AMHPTPGL("AC",$E(X,1,30),DA)=""
    2)= K ^AMHPTPGL("AC",$E(X,1,30),DA)
.03 PROBLEM 0;3 POINTER TO *MHSS PATIENT TP PROBLEMS FILE (#9002011.62)
************************REQUIRED FIELD************************
*MHSS PATIENT TP PROBLEMS(#9002011.62)

  • LAST EDITED:  JUL 25, 2000
  • DESCRIPTION:  
    This is the last date/time this problem was changed.
    SOURCE OF DATA:   018/PRCOND
  • CROSS-REFERENCE:  9002011.63^AD
    1)= S ^AMHPTPGL("AD",$E(X,1,30),DA)=""
    2)= K ^AMHPTPGL("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
.07 REVISE/ACHIEVE BY 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • 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
.09 SCORE 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 25, 2000
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
.12 STATUS 0;12 SET
************************REQUIRED FIELD************************
  • 'M' FOR MET;
  • 'N' FOR NOT MET;
  • 'C' FOR CONTINUED;

  • LAST EDITED:  JUL 25, 2000
    SOURCE OF DATA:   018/PRSTAT
.13 TREATMENT PLAN 0;13 POINTER TO MHSS PATIENT TREATMENT PLANS FILE (#9002011.56) MHSS PATIENT TREATMENT PLANS(#9002011.56)

  • LAST EDITED:  JUL 25, 2000
1101 GOAL DESCRIPION 11;0 WORD-PROCESSING #9002011.6311
1201 COMMENTS 12;0 DATE Multiple #9002011.6312 9002011.6312
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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All