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

Package: Mental Health Social Services

Global: ^AMHPPROB


Information

FileMan FileNo FileMan Filename Package
9002011.51 MHSS PATIENT PROBLEM LIST Mental Health Social Services

Description

Directly Accessed By Routines, Total: 66

Package Total Routines
IHS GPRA Information System 29 BGP0D54    BGP0D55    BGP0D5A    BGP1D54    BGP1D55    BGP1D5A    BGP2D54    BGP2D55
BGP2D5A    BGP3D54    BGP3D55    BGP3D5A    BGP4D54    BGP4D55    BGP4D5A    BGP5D54
BGP5D55    BGP5D5A    BGP6D54    BGP6D55    BGP6D5A    BGP7D54    BGP7D55    BGP7D5A
BGP8D54    BGP8D55    BGP8D5A    BGP9D5    BGP9D54    
Diabetes Registry 16 BDMD012    BDMD112    BDMD412    BDMD512    BDMD612    BDMD712    BDMD812    BDMD912
BDMDA12    BDMDB12    BDMDC12    BDMDD12    BDMDE12    BDMDF12    BDMDG12    BDMS9B1
Mental Health Social Services 10 AMHAPRB    AMHBPL    AMHBPL1    AMHBPL2    AMHDMHPL    AMHGBPL    AMHGSBPL    AMHHS1
AMHLETN    AMHPL1    
Patient Care Component Reports 4 APCLD512    APCLD612    APCLD712    APCLD812    
Health Summary Components 2 BHSBH1    BHSDM1    
IHS Uniform Data System 2 BUDBRP6Q    BUDCRP6Q    
IHS HIV Management System 1 BKMIXX2    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCHS9B1    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Mental Health Social Services 7 AMHBPL1    AMHBPL2    AMHDMHPL    AMHGBPL    AMHHS1    AMHLEPOV    AMHLETN    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Mental Health Social Services 1 MHSS PATIENT TREATMENT NOTES(#9002011.53)[.03]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Utility Tables 2 PROVIDER NARRATIVE(#9999999.27)[.05]    LOCATION(#9999999.06)[.06]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.15, 2.01]    
Mental Health Social Services 1 MHSS PROBLEM/POV CODES(#9002012.2)[.01]    

Fields, Total: 16

Field # Name Loc Type Details
.01 PROBLEM CODE 0;1 POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)
************************REQUIRED FIELD************************
MHSS PROBLEM/POV CODES(#9002012.2)

  • INPUT TRANSFORM:  S DIC("S")="I $$CHKD^AMHUTIL1(Y,$G(AMHDATE))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2009
  • DESCRIPTION:  
    This contains the standardized text stored in the Clinical Term file for this problem.
  • SCREEN:  S DIC("S")="I $$CHKD^AMHUTIL1(Y,$G(AMHDATE))"
  • EXPLANATION:  Must be an active code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011.51^B
    1)= S ^AMHPPROB("B",$E(X,1,30),DA)=""
    2)= K ^AMHPPROB("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.51^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:  SEP 03, 2003
  • DESCRIPTION:  
    This is the patient for whom this problem has been observed and recorded.
  • CROSS-REFERENCE:  9002011.51^AC
    1)= S ^AMHPPROB("AC",$E(X,1,30),DA)=""
    2)= K ^AMHPPROB("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.51^AATOO^MUMPS
    1)= I $P(^AMHPPROB(DA,0),U,7)]"" S ^AMHPPROB("AA",X," "_$E("000",1,4-$L($P($P(^(0),U,7),".",1))-1)_$P($P(^(0),U,7),".",1)_"."_$P($P(^(0),U,7),".",2)_$E("00",1,3-$L($P($P(^(0),U,7),".",2))-1),DA)=""
    2)= I $P(^AMHPPROB(DA,0),U,7)]"" K ^AMHPPROB("AA",X," "_$E("000",1,4-$L($P($P(^(0),U,7),".",1))-1)_$P($P(^(0),U,7),".",1)_"."_$P($P(^(0),U,7),".",2)_$E("00",1,3-$L($P($P(^(0),U,7),".",2))-1),DA)
.03 DATE LAST MODIFIED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:DT<$P(X,".")!(2000000>X) X
  • LAST EDITED:  AUG 17, 2011
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1900 AND DT
  • DESCRIPTION:  
    This is the last date/time this problem was changed.
    SOURCE OF DATA:   018/PRCOND
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 PROVIDER NARRATIVE 0;5 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)
************************REQUIRED FIELD************************
PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 28, 1988
  • DESCRIPTION:  
    This contains the actual text used by the provider to describe this problem.
  • SCREEN:  S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 FACILITY 0;6 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  SEP 03, 2003
  • DESCRIPTION:  
    This is the facility at which this problem was originally observed and documented.
    UNEDITABLE
  • CROSS-REFERENCE:  9002011.51^AZ1^MUMPS
    1)= Q
    2)= Q
.07 NMBR 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<1)!(X?.E1"."3N.N) X Q:'$D(X) K:$D(^AMHPPROB("AA",$P(^AMHPPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1))) X
  • LAST EDITED:  OCT 28, 1993
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 1 AND 999.99
    SOURCE OF DATA:   018/PRNUMB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011.51^AA^MUMPS
    1)= S ^AMHPPROB("AA",$P(^AMHPPROB(DA,0),U,2)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA)=""
    2)= K ^AMHPPROB("AA",$P(^AMHPPROB(DA,0),U,2)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA)
.08 DATE ENTERED 0;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:DT<$P(X,".")!(2000000>X) X
  • LAST EDITED:  AUG 17, 2011
  • 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
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.12 STATUS 0;12 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;
  • 'D' FOR DELETED;

  • LAST EDITED:  JUN 21, 2011
    SOURCE OF DATA:   018/PRSTAT
.13 DATE OF ONSET 0;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 27, 1993
.14 ADD TO PCC PROBLEM LIST? 0;14 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 19, 1994
.15 USER LAST UPDATE 0;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 21, 2011
2.01 PROBLEM DELETED BY 2;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 21, 2011
2.02 DATE/TIME PROBLEM DELETED 2;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 21, 2011
2.03 REASON PROBLEM DELETED 2;3 SET
  • 'D' FOR DUPLICATE;
  • 'E' FOR ENTERED IN ERROR;
  • 'O' FOR OTHER;

  • LAST EDITED:  JUN 21, 2011
2.04 REASON IF OTHER 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  JUN 21, 2011
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
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