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

Package: IHS Patient

Global: ^AUPNFH


Information

FileMan FileNo FileMan Filename Package
9000014 FAMILY HISTORY IHS Patient

Description

Directly Accessed By Routines, Total: 25

Package Total Routines
Patient Care Component 10 APCDFH    APCDFH1    APCDHIST    APCDPLFH    APCHPWH9    APCHS61    APCHSAS1    BJPC1EC1
BJPC2EV3    BJPC2PMU    
Health Summary Components 4 BHSAST1    BHSFH    BHSFH1    BHSHS1    
IHS Standard Terminology 3 BSTS10P1    BSTS10P2    BSTSCFIX    
Patient Care Component Reports 2 APCLVLU    APCLVLU1    
Patient Care Component Table Maintiance 2 APCM24E6    APCM25E6    
GUI Objects 1 BGOFHX    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMUL3    
PCC New Encounter Form 1 VENPCC1F    

Accessed By FileMan Db Calls, Total: 18

Package Total Routines
Patient Care Component 7 APCDFH    APCDFH1    APCDFHA    APCDPLFH    BJPC1EC1    BJPC2EV3    BJPC2PMU    
IHS Standard Terminology 4 BSTS10P1    BSTS10P2    BSTSCFIX    BSTSMAP1    
iCare 4 BQIPTFHD    BQIPTFHE    BQIPTFHR    BQIPTFHS    
Patient Care Component Table Maintiance 2 APCM24E6    APCM25E6    
GUI Objects 1 BGOFHX    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Patient 2 FAMILY HISTORY FAMILY MEMBERS(#9000014.1)[.09]    PATIENT(#9000001)[.02]    
Utility Tables 2 PROVIDER NARRATIVE(#9999999.27)[.04]    RELATIONSHIP(#9999999.36)[.07]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.01, #9000014.11(.01)]    
Kernel 1 NEW PERSON(#200)[.08]    

Fields, Total: 18

Field # Name Loc Type Details
.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D FHCHK^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 29, 2008
  • HELP-PROMPT:  Enter the Family History ICD code that best describes the diagnosis.
  • SCREEN:  S DIC("S")="D FHCHK^AUPNSICD"
  • EXPLANATION:  MUST BE AN ACTIVE CODE.
  • EXECUTABLE HELP:  D HELPFH^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000014^B
    1)= S ^AUPNFH("B",$E(X,1,30),DA)=""
    2)= K ^AUPNFH("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000014^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 17, 1986
    UNEDITABLE
  • CROSS-REFERENCE:  9000014^AC
    1)= S ^AUPNFH("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNFH("AC",$E(X,1,30),DA)
.03 DATE NOTED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  FEB 17, 1987
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
    UNEDITABLE
  • CROSS-REFERENCE:  9000014^AD
    1)= S ^AUPNFH("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNFH("AD",$E(X,1,30),DA)
.04 PROVIDER NARRATIVE 0;4 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
  • OUTPUT TRANSFORM:  S Y=$$PNPROB^AUPNVUTL(Y)
  • LAST EDITED:  MAR 08, 2013
  • SCREEN:  S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
.05 DIAGNOSIS ONSET AGE 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 22, 2013
  • HELP-PROMPT:  Type a number between 1 and 150, 0 decimal digits.
.06 *STATUS 0;6 SET
  • 'L' FOR LIVING;
  • 'D' FOR DECEASED;
  • 'U' FOR UNKNOWN;
  • 'R' FOR PT REFUSED TO ANSWER;

  • LAST EDITED:  MAY 29, 2008
  • HELP-PROMPT:  Please enter the status of the specified family member.
.07 *RELATIONSHIP 0;7 POINTER TO RELATIONSHIP FILE (#9999999.36) RELATIONSHIP(#9999999.36)

  • LAST EDITED:  MAY 28, 2008
  • HELP-PROMPT:  Enter the relationship to the patient.
.08 PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 28, 2008
.09 RELATION/FAMILY MEMBER 0;9 POINTER TO FAMILY HISTORY FAMILY MEMBERS FILE (#9000014.1) FAMILY HISTORY FAMILY MEMBERS(#9000014.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=$P(^AUPNFH(DA,0),U,2)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  SEP 30, 2008
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=$P(^AUPNFH(DA,0),U,2)"
  • EXPLANATION:  Must be a relation for this patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000014^AE
    1)= S ^AUPNFH("AE",$E(X,1,30),DA)=""
    2)= K ^AUPNFH("AE",$E(X,1,30),DA)
.11 AGE AT ONSET 0;11 SET
  • 'I' FOR In Infancy;
  • '1' FOR Before age 20;
  • '2' FOR At age 20-29;
  • '3' FOR At age 30-39;
  • '4' FOR At age 40-49;
  • '5' FOR At age 50-59;
  • '6' FOR 60 and older;
  • 'U' FOR Age Unknown;

  • LAST EDITED:  MAY 30, 2008
  • HELP-PROMPT:  Select the age range for the date of onset of this condition.
.12 DATE LAST MODIFIED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 02, 2008
.13 SNOMED CT 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 31, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.139 SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000014,.139,1)=$S($D(^AUPNFH(D0,0)):^(0),1:"") S X=$P(Y(9000014,.139,1),U,13),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#.13)
.14 SNOMED DESCRIPTION ID 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 31, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.15 APPROXIMATE AGE? 0;15 SET
  • '1' FOR YES, APPROXIMATE AGE;
  • '0' FOR NO;

  • LAST EDITED:  FEB 21, 2013
.16 AGE RANGE MOVED (PATCH) 0;16 SET
  • '1' FOR YES;

  • LAST EDITED:  FEB 22, 2013
  • DESCRIPTION:  
    USED ONLY BY POST INIT FOR MU PATCH, FIELD WILL EVENTUALLY BE DELETED
.17 LATERALITY ATTRIBUTE|QUALIFIER 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=$$AQ^AUPNVUTL(Y)
  • LAST EDITED:  JAN 14, 2016
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1101 ADDITIONAL ICD CODES 11;0 POINTER Multiple #9000014.11 9000014.11
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All