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

Package: IHS Patient

Global: ^AUPNINCS


Information

FileMan FileNo FileMan Filename Package
9000026 INCOME STATUS IHS Patient

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Local Area Programs 1 AZAXDPM1    
Women's Health 1 BWUINC    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Women's Health 1 BWUINC    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    

Fields, Total: 4

Field # Name Loc Type Details
.01 INCOME CATEGORY 0;1 SET
************************REQUIRED FIELD************************
  • '1' FOR BELOW 100;
  • '2' FOR BELOW 150;
  • '3' FOR BELOW 200;
  • '4' FOR BELOW 250;
  • '5' FOR ABOVE 250;
  • '6' FOR REFUSED;
  • '7' FOR BELOW 125;
  • '8' FOR BELOW 175;
  • '9' FOR NO INSURANCE;

  • LAST EDITED:  MAY 04, 2005
  • CROSS-REFERENCE:  9000026^B
    1)= S ^AUPNINCS("B",$E(X,1,30),DA)=""
    2)= K ^AUPNINCS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000026^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000026^AATOO^MUMPS
    1)= I $P(^AUPNINCS(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNINCS("AA",$P(^AUPNINCS(DA,0),U,2),9999999-$P(^AUPNINCS(DA,0),U,3),X,DA)=""
    2)= I $P(^AUPNINCS(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNINCS("AA",$P(^(0),U,2),9999999-$P(^(0),U,3),X,DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 21, 2001
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
  • CROSS-REFERENCE:  9000026^AATOO2^MUMPS
    1)= I $P(^AUPNINCS(DA,0),U,1)]"",$P(^(0),U,2)]"" S ^AUPNINCS("AA",$P(^(0),U,2),9999999-X,+^AUPNINCS(DA,0),DA)=""
    2)= I $P(^AUPNINCS(DA,0),U,1)]"",$P(^(0),U,2)]"" K ^AUPNINCS("AA",$P(^(0),U,2),9999999-X,+^AUPNINCS(DA,0),DA)
.04 # IN HOUSEHOLD 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 21, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All