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

Package: IHS Patient

Global: ^AUPNPH


Information

FileMan FileNo FileMan Filename Package
9000013 PERSONAL HISTORY IHS Patient

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Patient Care Component 3 APCDHIST    APCHS2    APCHS6    
Clinical Scheduling for Windows 2 BSDX41F    BSDX41H    
Health Summary Components 2 BHSHS1    BHSMEA    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMUL3    
PCC New Encounter Form 1 VENPCC1F    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[.01]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.04]    

Fields, Total: 7

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 ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 22, 2012
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Personal HX Diagnosis cannot be an External Cause code or an inactive code. It must also be appropriate for the Patient's sex.
  • EXECUTABLE HELP:  D HELP^AUPNSICD
  • CROSS-REFERENCE:  9000013^B
    1)= S ^AUPNPH("B",$E(X,1,30),DA)=""
    2)= K ^AUPNPH("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000013^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 06, 1988
    UNEDITABLE
  • CROSS-REFERENCE:  9000013^AC
    1)= S ^AUPNPH("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNPH("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000013^AATOO^MUMPS
    1)= S ^AUPNPH("AA",X,9999999,DA)=""
    2)= K ^AUPNPH("AA",X,9999999,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:  9000013^AD
    1)= S ^AUPNPH("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNPH("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
  • LAST EDITED:  NOV 28, 1988
  • SCREEN:  S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
.05 DATE OF ONSET 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 22, 1986
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1940 AND TODAY
  • CROSS-REFERENCE:  9000013^AA^MUMPS
    1)= K ^AUPNPH("AA",$P(^AUPNPH(DA,0),U,2),9999999,DA) S ^AUPNPH("AA",$P(^AUPNPH(DA,0),U,2),9999999-X,DA)=""
    2)= K ^AUPNPH("AA",$P(^AUPNPH(DA,0),U,2),9999999-X,DA)
.06 MULTIPLE BIRTH? 0;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  JUN 24, 2008
  • HELP-PROMPT:  Was this patient a multiple birth? (e.g. Twin, etc.)
.07 MULTIPLE BIRTH TYPE 0;7 SET
  • 'TU' FOR TWIN, UNSPECIFIED;
  • 'IT' FOR IDENTICAL TWIN;
  • 'FT' FOR FRATERNAL TWIN;
  • 'TR' FOR TRIPLET;
  • 'OTH' FOR OTHER MULTIPLE;

  • LAST EDITED:  JUN 24, 2008
  • HELP-PROMPT:  Select the type of multiple birth for this patient.
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All