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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNHMRO

Package: IHS Patient

Global: ^AUPNHMRO


Information

FileMan FileNo FileMan Filename Package
9000025 HEALTH REMINDER OVERRIDE IHS Patient

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Health Summary Components 1 BHSMU    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCHSMU    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.04]    
Patient Care Component 1 HEALTH SUMMARY MAINT ITEM(#9001018)[.01]    

Fields, Total: 6

Field # Name Loc Type Details
.01 HEALTH MAINTENANCE REMINDER 0;1 POINTER TO HEALTH SUMMARY MAINT ITEM FILE (#9001018)
************************REQUIRED FIELD************************
HEALTH SUMMARY MAINT ITEM(#9001018)

  • LAST EDITED:  FEB 27, 2001
  • CROSS-REFERENCE:  9000025^B
    1)= S ^AUPNHMRO("B",$E(X,1,30),DA)=""
    2)= K ^AUPNHMRO("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000025^AA^MUMPS
    1)= I $P(^AUPNHMRO(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNHMRO("AA",X,$P(^AUPNHMRO(DA,0),U,2),(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA)=""
    2)= I $P(^AUPNHMRO(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNHMRO("AA",X,$P(^AUPNHMRO(DA,0),U,2),(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA)
  • CROSS-REFERENCE:  9000025^AC^MUMPS
    1)= I $P(^AUPNHMRO(DA,0),U,2) S ^AUPNHMRO("AC",$P(^AUPNHMRO(DA,0),U,2),X,DA)=""
    2)= I $P(^AUPNHMRO(DA,0),U,2) K ^AUPNHMRO("AC",$P(^AUPNHMRO(DA,0),U,2),X,DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  FEB 27, 2001
  • CROSS-REFERENCE:  9000025^C
    1)= S ^AUPNHMRO("C",$E(X,1,30),DA)=""
    2)= K ^AUPNHMRO("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000025^AA1^MUMPS
    1)= I $P(^AUPNHMRO(DA,0),U,3)]"" S ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),X,(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA)=""
    2)= I $P(^AUPNHMRO(DA,0),U,3)]"" K ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),X,(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA)
  • CROSS-REFERENCE:  9000025^AC
    1)= S ^AUPNHMRO("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNHMRO("AC",$E(X,1,30),DA)
.03 DUE DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 16, 1999
  • CROSS-REFERENCE:  9000025^AA2^MUMPS
    1)= I $P(^AUPNHMRO(DA,0),U,2)]"" S ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),$P(^AUPNHMRO(DA,0),U,2),(9999999-X),DA)=""
    2)= I $P(^AUPNHMRO(DA,0),U,2)]"" K ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),$P(^AUPNHMRO(DA,0),U,2),(9999999-X),DA)
.04 ENTERED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 19, 1997
.05 PROVIDER/COMMENTS 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  FEB 20, 1998
  • HELP-PROMPT:  Answer must be 2-80 characters in length.
.06 DATE ENTERED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 17, 1999
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All