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 |  All
Print Page as PDF
Global: ^AUPNHF

Package: IHS Patient

Global: ^AUPNHF


Information

FileMan FileNo FileMan Filename Package
9000019 HEALTH STATUS IHS Patient

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMUL3    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Utility Tables 1 HEALTH FACTORS(#9999999.64)[.01]    

Fields, Total: 5

Field # Name Loc Type Details
.01 HEALTH FACTOR 0;1 POINTER TO HEALTH FACTORS FILE (#9999999.64)
************************REQUIRED FIELD************************
HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,10)=""F""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 15, 1991
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=""F"""
  • EXPLANATION:  Prevents pointing to categorical entries in the HEALTH FACTORS file.
  • CROSS-REFERENCE:  9000019^B
    1)= S ^AUPNHF("B",$E(X,1,30),DA)=""
    2)= K ^AUPNHF("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000019^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000019^AATOO^MUMPS
    1)= I $P(^AUPNHF(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNHF("AA",$P(^AUPNHF(DA,0),U,2),X,9999999-$P(^AUPNHF(DA,0),U,3),DA)=""
    2)= I $P(^AUPNHF(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNHF("AA",$P(^(0),U,2),X,9999999-$P(^(0),U,3),DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  AUG 20, 1991
    UNEDITABLE
  • CROSS-REFERENCE:  9000019^AC
    1)= S ^AUPNHF("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNHF("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000019^AA^MUMPS
    1)= I $P(^AUPNHF(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNHF("AA",X,+^AUPNHF(DA,0),9999999-$P(^AUPNHF(DA,0),U,3),DA)=""
    2)= I $P(^AUPNHF(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNHF("AA",X,+^AUPNHF(DA,0),9999999-$P(^AUPNHF(DA,0),U,3),DA)
.03 DATE NOTED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  OCT 20, 1993
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
  • CROSS-REFERENCE:  9000019^AATOO2^MUMPS
    1)= I $P(^AUPNHF(DA,0),U,1)]"",$P(^(0),U,2)]"" S ^AUPNHF("AA",$P(^(0),U,2),+^(0),9999999-X,DA)=""
    2)= I $P(^AUPNHF(DA,0),U,1)]"",$P(^(0),U,2)]"" K ^AUPNHF("AA",$P(^(0),U,2),+^(0),9999999-X,DA)
.04 LEVEL/SEVERITY 0;4 SET
  • 'M' FOR MINIMAL;
  • 'MO' FOR MODERATE;
  • 'H' FOR HEAVY/SEVERE;

  • LAST EDITED:  JUL 01, 1991
.06 QUANTITY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JAN 10, 1995
  • HELP-PROMPT:  Type a Number between 0 and 99999, 2 Decimal Digits
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  All