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

Package: IHS Patient

Global: ^AUPNVHF


Information

FileMan FileNo FileMan Filename Package
9000010.23 V HEALTH FACTORS IHS Patient

Description

Directly Accessed By Routines, Total: 140

Package Total Routines
Diabetes Registry 39 BDMAPIU    BDMD019    BDMD119    BDMD219    BDMD319    BDMD419    BDMD519    BDMD619
BDMD719    BDMD819    BDMD919    BDMDA19    BDMDB19    BDMDC19    BDMDD19    BDMDE19
BDMDF19    BDMDG19    BDMDMSM    BDMEDMU2    BDMEDMU3    BDMEDMUP    BDMP019    BDMP119
BDMP419    BDMP519    BDMP619    BDMP719    BDMP819    BDMP919    BDMPA19    BDMPB19
BDMPC19    BDMPD19    BDMPE19    BDMPF19    BDMPG19    BDMSELFM    BDMSMU    
IHS GPRA Information System 27 BGP0D24    BGP0D26    BGP0D55    BGP1D24    BGP1D26    BGP1D55    BGP2D24    BGP2D26
BGP2D55    BGP3D24    BGP3D26    BGP3D55    BGP4D24    BGP4D26    BGP4D55    BGP5D24
BGP5D26    BGP5D55    BGP6D26    BGP6D55    BGP7D26    BGP7D55    BGP8D55    BGP9D24
BGPMUD01    BGPMUD02    BGPMUD07    
Patient Care Component Reports 15 APCLAL1A    APCLAL31    APCLAPIU    APCLD219    APCLD319    APCLD519    APCLD619    APCLD719
APCLD819    APCLDMSM    APCLP519    APCLP619    APCLP719    APCLP819    APCLVLU    
Clinical Reminders 11 PXRMG2E1    PXRMGECJ    PXRMGECK    PXRMGECL    PXRMGECM    PXRMGECN    PXRMGECQ    PXRMGECR
PXRMGECU    PXRMGECV    PXRMOBJX    
Patient Care Component 11 APCDDMU2    APCDDMU3    APCDDMUP    APCDEGPP    APCDHF    APCHS4A    APCHSM08    APCHSMU
BJPC1EC1    BJPC2P5    BJPC2PMU    
IHS Uniform Data System 8 BUD1RP6U    BUD2RP6U    BUDARP6U    BUDBRP6U    BUDCRP6U    BUDDRP6R    BUDERP6R    BUDHRP6R
PCE Patient Care Encounter 5 PXAIHF    PXP119I    PXPXRM    PXPXRMI1    PXQUTL3C    
Mental Health Social Services 4 AMHEHR    AMHLESHF    AMHRAS31    AMHRSB1    
iCare 3 BQIDCUTL    BQIRGASU    BQIRGCOP    
GUI Objects 2 BGOTRG    BGOVHF    
IHS Support HL7 Interfaces 2 BHLOBRI    BHLOBXI    
Asthma Tracking System 1 BATSUM    
Clinical Scheduling for Windows 1 BSDX41B    
Data Warehouse Export System 1 BDWUTIL1    
Health Summary 1 GMTSGEC    
Health Summary Components 1 BHSMU    
Local Area Programs 1 AZAXDPM1    
NCI Study Extract 1 CIMSNCID    
PCC Medical Query 1 AMQQDO    
Patient Care Component Data Transmission 1 APCPUTIL    
Scheduling 1 SCRPW25    
Utility Tables 1 AUT98P25    

Accessed By FileMan Db Calls, Total: 15

Package Total Routines
IHS Mods To Text Integration Utilities 3 BTIULO13    BTIULO2    BTIULO7    
PCE Patient Care Encounter 3 PXCEHF    PXP119I    PXPXRMI1    
Mental Health Social Services 2 AMHGDVF1    AMHPCCL    
iCare 2 BQIPTBTL    BQIPTHF    
Automated Information Collection System 1 IBDFRPC6    
Clinical Reminders 1 PXRMHF    
Health Summary Components 1 BHSDM6    
IHS Electronic Health Record 1 BEHOENPP    
IHS HIV Management System 1 BKMIXX    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V HEALTH FACTORS(#9000010.23)[1208]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V HEALTH FACTORS(#9000010.23)[1208]    VISIT(#9000010)[.03]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[.051202120412171219]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
PCE Patient Care Encounter 1 PCE DATA SOURCE(#839.7)[81203]    
Utility Tables 1 HEALTH FACTORS(#9999999.64)[.01]    

Fields, Total: 27

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"",$P(^(0),U,13)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 27, 2013
  • HELP-PROMPT:  Select the health factor identified at the visit.
  • DESCRIPTION:  
    This is the entry in the Health Factor file that most closely represents the patient's health factor status at the encounter for a given health factor category.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTHF")
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=""F"",$P(^(0),U,13)'=1"
  • EXPLANATION:  Prevents selection of inactive and/or category health factor entries.
  • CROSS-REFERENCE:  9000010.23^B
    1)= S ^AUPNVHF("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVHF("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.23^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.23^AATOO1^MUMPS
    1)= I $P(^AUPNVHF(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVHF("AA",$P(^AUPNVHF(DA,0),U,2),X,(9999999-$P(^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),".")),DA)=""
    2)= I $P(^AUPNVHF(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVHF("AA",$P(^AUPNVHF(DA,0),U,2),X,(9999999-$P(^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),".")),DA)
    This cross-reference is used for searches in sequence by patient, health factor internal entry number, inverted visit date, and internal entry number.
    "AA",PATIENT,HEALTH FACTORS,VISIT,DA
  • RECORD INDEXES:  ACR (#410), AMAP (#494)
.019 HLTH FACTOR CATEGORY COMPUTED

  • MUMPS CODE:  X ^DD(9000010.23,.019,9.2) S Y(9000010.23,.019,101)=$S($D(^AUTTHF(D0,0)):^(0),1:"") S X=$P($G(^AUTTHF(+$P(Y(9000010.23,.019,101),U,3),0)),U) S D0=Y(9000010.23,.019,80)
    9.2 = S Y(9000010.23,.019,80)=$G(D0),Y(9000010.23,.019,1)=$S($D(^AUPNVHF(D0,0)):^(0),1:""),D0=$P(Y(9000010.23,.019,1),U,1) S:'D0!'$D(^AUTTHF(+D0,0)) D0=-1
  • ALGORITHM:  #.01:CATEGORY
  • LAST EDITED:  OCT 29, 2009
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  FEB 17, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.23^AC
    1)= S ^AUPNVHF("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVHF("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.23^AATOO^MUMPS
    1)= I $P(^AUPNVHF(DA,0),U,3)]"" S ^AUPNVHF("AA",X,$P(^AUPNVHF(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVHF(DA,0),U,3)]"" K ^AUPNVHF("AA",X,$P(^AUPNVHF(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),".",1)),DA)
  • RECORD INDEXES:  ACR (#410), AED (#411)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVHF(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVHF(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.23^AD
    1)= S ^AUPNVHF("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVHF("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.23^AA^MUMPS
    1)= Q:$P(^AUPNVHF(DA,0),U,2)=""  S ^AUPNVHF("AA",$P(^AUPNVHF(DA,0),U,2),$P(^(0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVHF(DA,0),U,2)=""  K ^AUPNVHF("AA",$P(^AUPNVHF(DA,0),U,2),$P(^(0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.23^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
  • RECORD INDEXES:  ACR (#410)
.04 LEVEL/SEVERITY 0;4 SET
  • 'M' FOR MINIMAL;
  • 'MO' FOR MODERATE;
  • 'H' FOR HEAVY/SEVERE;

  • LAST EDITED:  JAN 28, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLS")
.05 PROVIDER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 05, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRO")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"
  • EXPLANATION:  Must be an active provider.
.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
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTQTY")
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1994
  • HELP-PROMPT:  Enter the date and time the health factor was recorded.
  • DESCRIPTION:  This is the date and time the health factor was recorded by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date
    and time of the appointment, not the time the provider performed the clinical event.
    The date may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date.
  • TECHNICAL DESCR:  The PCE User Interface, which allows manual entry of data, will be the prmary source of the event date and time. The event date prompt defaults to the visit date and the time is entered to reflect the actual time the exam
    was given. The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not be a future date.
    If a user wants to enter an historical measurement, the user should use the Historical Encounter entry action to document the historical measurement. Historical entries will not be eligible for credit.
    PCE data sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing.
    APCDALVR Variable = APCDALVR("APCDTCDT")
  • RECORD INDEXES:  AED (#411)
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Enter the provider who ordered this health factor recorded.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the health factor recorded.
  • TECHNICAL DESCR:  
    The person entered here must hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Must be a Provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 19, 1994
  • HELP-PROMPT:  Enter the provider who recorded the health factor.
  • DESCRIPTION:  
    This is the provider who recorded the health factor.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.  The person does not have to hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTEPR")
1208 PARENT 12;8 POINTER TO V HEALTH FACTORS FILE (#9000010.23) V HEALTH FACTORS(#9000010.23)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
1209 EXTERNAL KEY 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")
1210 OUTSIDE PROVIDER NAME 12;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")
1215 ORDERING LOCATION 12;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  FEB 19, 2008
1216 DATE/TIME ENTERED 12;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.23^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVHF(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.23,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVHF(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.23,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.23^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVHF(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.23,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVHF(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.23,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218
1217 ENTERED BY 12;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V HEALTH FACTORS File
1218 DATE/TIME LAST MODIFIED 12;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V HEALTH FACTORS File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.23^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVHF(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.23,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVHF(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.23,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219
1219 LAST MODIFIED BY 12;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the V HEALTH FACTORS File
2601 SNOMED CT 26;0 Multiple #9000010.2326 9000010.2326
2701 LOINC CODES 27;0 Multiple #9000010.2327 9000010.2327
80101 EDITED 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  APR 01, 1994
  • HELP-PROMPT:  Answer is automatically entered by PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any original health factor data is being edited.
  • TECHNICAL DESCR:  
    PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".
80102 AUDIT TRAIL 801;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  MAY 09, 1996
  • HELP-PROMPT:  Answer is automatically entered by the PCE filing logic.
  • DESCRIPTION:  
    This field is populated automatically by the PCE filing logic.  The format of the field is as follows:  Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...
  • TECHNICAL DESCR:  The PCE filing logic requires a pointer to the PCE data source file. If this is not passed, then PCE filing logic will not process the data.
    If the record is a new record, then an "A" is used to specify the source that added the data.  If the record existed previously, PCE filing logic compares the old and new records of information.  An "E" will automatically
    be used if the filing logic finds the data has been edited.  If "E" is used, then the Edited Flag field is automatically set to 1.
    The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.
    Iterations of editing will be concatenated to the previous data source value, up to 85 characters.
81101 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Enter a comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to the patient's health factor.  The provider may enter this manually via the PCE User Interface.
81201 VERIFIED 812;1 SET
  • '1' FOR ELECTRONICALLY SIGNED;
  • '2' FOR VERIFIED BY PACKAGE;

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
81202 PACKAGE 812;2 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
81203 DATA SOURCE 812;3 POINTER TO PCE DATA SOURCE FILE (#839.7) PCE DATA SOURCE(#839.7)

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
  • RECORD INDEXES:  AED (#411)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All