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

Package: Mental Health Social Services

Global: ^AMHPATR


Information

FileMan FileNo FileMan Filename Package
9002011.55 MHSS PATIENT DATA Mental Health Social Services

Description

Directly Accessed By Routines, Total: 28

Package Total Routines
Mental Health Social Services 23 AMH30P1    AMHDPEE    AMHGBDSP    AMHGDCM    AMHGECM    AMHHS    AMHLCD    AMHLE3
AMHLEA    AMHLECOC    AMHLEP2    AMHPOST    AMHRAS31    AMHRDE31    AMHRDV31    AMHRE1
AMHRP5    AMHRP7    AMHRPPD    AMHRSFD    AMHRSR31    AMHVDSG    AMHVDSG1    
IHS Designated Provider 2 BDPLINKI    BDPPOST    
Health Summary Components 1 BHSBH    
Local Area Programs 1 AZAXDPM1    
Patient Care Component Reports 1 APCLAL31    

Accessed By FileMan Db Calls, Total: 11

Package Total Routines
Mental Health Social Services 9 AMHDPEE    AMHGDCM    AMHLCD    AMHLE3    AMHLEA    AMHLECOC    AMHLEP2    AMHPOST
AMHRSFD    
IHS Designated Provider 1 BDPLINKI    
iCare 1 BQIPTPR    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[.02.03.04.12]    

Fields, Total: 10

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  AUG 31, 1993
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011.55^B
    1)= S ^AMHPATR("B",$E(X,1,30),DA)=""
    2)= K ^AMHPATR("B",$E(X,1,30),DA)
.02 DESIGNATED MH PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 02, 2004
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))"
  • EXPLANATION:  Must be a provider.
  • CROSS-REFERENCE:  9002011.55^AMH
    1)= S ^AMHPATR("AMH",$E(X,1,30),DA)=""
    2)= K ^AMHPATR("AMH",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.55^ADP^MUMPS
    1)= I $T(UPDATE^BDPLINKO)]"" D UPDATE^BDPLINKO(9002011.55,.02,DA,X,$P(^AMHPATR(DA,0),U),$G(BDPLINKI))
    2)= I $T(KILL^BDPLINKO)]"" D KILL^BDPLINKO(9002011.55,.02,DA,X,$P(^AMHPATR(DA,0),U),$G(BDPLINKI))
.03 DESIGNATED SS PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 02, 2004
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))"
  • EXPLANATION:  Must be a provider.
  • CROSS-REFERENCE:  9002011.55^ASS
    1)= S ^AMHPATR("ASS",$E(X,1,30),DA)=""
    2)= K ^AMHPATR("ASS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.55^ADPS^MUMPS
    1)= I $T(UPDATE^BDPLINKO)]"" D UPDATE^BDPLINKO(9002011.55,.03,DA,X,$P(^AMHPATR(DA,0),U),$G(BDPLINKI))
    2)= I $T(KILL^BDPLINKO)]"" D KILL^BDPLINKO(9002011.55,.03,DA,X,$P(^AMHPATR(DA,0),U),$G(BDPLINKI))
.04 DESIGNATED CD A/SA PROVIDER 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 27, 2010
  • CROSS-REFERENCE:  9002011.55^AOT
    1)= S ^AMHPATR("AOT",$E(X,1,30),DA)=""
    2)= K ^AMHPATR("AOT",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.55^ADPC^MUMPS
    1)= I $T(UPDATE^BDPLINKO)]"" D UPDATE^BDPLINKO(9002011.55,.04,DA,X,$P(^AMHPATR(DA,0),U),$G(BDPLINKI))
    2)= I $T(KILL^BDPLINKO)]"" D KILL^BDPLINKO(9002011.55,.04,DA,X,$P(^AMHPATR(DA,0),U),$G(BDPLINKI))
.09 FLAG FIELD 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 16, 2004
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.11 MHSS FLAG NARRATIVE 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • LAST EDITED:  DEC 09, 1996
  • HELP-PROMPT:  Answer must be 2-60 characters in length.
.12 DESIGNATED OTHER PROVIDER 0;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 15, 2008
  • CROSS-REFERENCE:  9002011.55^AOTH
    1)= S ^AMHPATR("AOTH",$E(X,1,30),DA)=""
    2)= K ^AMHPATR("AOTH",$E(X,1,30),DA)
.13 OTHER PROVIDER NON-RPMS 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  JUN 15, 2008
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
.14 OTHER PROVIDER NON-RPMS 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  JUN 15, 2008
  • HELP-PROMPT:  Answer must be 2-40 characters in length.
3101 *CASE 31;0 DATE Multiple #9002011.5531 9002011.5531

  • LAST EDITED:  SEP 04, 2002
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All