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

Package: IHS Patient

Global: ^AUPNVXAM


Information

FileMan FileNo FileMan Filename Package
9000010.13 V EXAM IHS Patient

Description

Directly Accessed By Routines, Total: 100

Package Total Routines
IHS GPRA Information System 25 BGP0D24    BGP0D26    BGP0D55    BGP1D24    BGP1D26    BGP1D55    BGP2D24    BGP2D26
BGP2D55    BGP3D24    BGP3D26    BGP3D55    BGP4D24    BGP4D26    BGP4D55    BGP5D24
BGP5D26    BGP5D55    BGP6D26    BGP6D55    BGP7D26    BGP7D55    BGP8D55    BGP8PC12
BGP9D24    
Mental Health Social Services 25 AMHEHR    AMHLESEA    AMHLESEP    AMHLESEX    AMHRAS1    AMHRAS2    AMHRAS31    AMHRAS4
AMHRAS5    AMHRDE1    AMHRDE2    AMHRDE31    AMHRDE4    AMHRDE5    AMHRDV1    AMHRDV2
AMHRDV31    AMHRDV4    AMHRDV5    AMHRSB1    AMHRSR1    AMHRSR2    AMHRSR31    AMHRSR4
AMHRSR5    
Patient Care Component Reports 16 APCLAL1    APCLAL1A    APCLAL2    APCLAL31    APCLAL4    APCLAL5    APCLDE1    APCLDE2
APCLDE31    APCLDE4    APCLDE5    APCLDV1    APCLDV2    APCLDV31    APCLDV4    APCLDV5
Patient Care Component 6 APCDDMU1    APCDEGPP    APCDR13    APCDTWC1    BJPC2P22    BJPC2PMU    
IHS Patient 4 AUPNCIX    AUPNCIXL    AUPNCPT    AUPNMAP    
PCE Patient Care Encounter 4 PXAIXAM    PXPXRM    PXPXRMI2    PXQUTL3B    
PCC New Encounter Form 3 VENPCC1D    VENPCC1E    VENPCCQC    
Patient Care Component Data Transmission 3 APCPDR2    APCPREX2    APCPUTIL    
GUI Objects 2 BGOTRG    BGOVEXAM    
Third Party Billing 2 ABMDVCK3    ABMDVST7    
Data Warehouse Export System 1 BDWUTIL    
Diabetes Registry 1 BDMEDMU1    
Health Summary Components 1 BHSEXAM1    
IHS HIV Management System 1 BKMQQCRC    
IHS Support HL7 Interfaces 1 BHLOBRI    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMGR1    
Scheduling 1 SCRPW25    
Utilities 1 AUP2POST    
iCare 1 BQITUTL    

Accessed By FileMan Db Calls, Total: 15

Package Total Routines
IHS Mods To Text Integration Utilities 2 BTIULO2    BTIUPCC6    
PCE Patient Care Encounter 2 PXCEXAM    PXPXRMI2    
iCare 2 BQICMUT2    BQIPTEXM    
Automated Information Collection System 1 IBDFRPC6    
Clinical Reminders 1 PXRMEXAM    
IHS Code Mapping 1 BCQMUTL    
IHS Electronic Health Record 1 BEHOENPP    
IHS HIV Management System 1 BKMIXX1    
IHS Patient 1 AUPNMAP    
Mental Health Social Services 1 AMHPCCL    
PCC New Encounter Form 1 VENPCCQC    
Patient Care Component 1 APCDTWC1    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V EXAM(#9000010.13)[1208]    
Patient Care Component 1 PCC DATA TRANS LOG(#9001005)[#9001005.05101(.02)]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    V EXAM(#9000010.13)[1208]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[1202, 1204, 1217, 1219]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1213]    
PCE Patient Care Encounter 1 PCE DATA SOURCE(#839.7)[81203]    
Utility Tables 1 EXAM(#9999999.15)[.01]    

Fields, Total: 26

Field # Name Loc Type Details
.01 EXAM 0;1 POINTER TO EXAM FILE (#9999999.15)
************************REQUIRED FIELD************************
EXAM(#9999999.15)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1&($P(^(0),U,2)'=40)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 22, 2013
  • HELP-PROMPT:  Enter the exam which was done to the patient.
  • DESCRIPTION:  
    This is the entry in the Exam file that represents what type of exam was done at the encounter.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEX")
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1&($P(^(0),U,2)'=40)"
  • EXPLANATION:  Allow only active Exams to be selected. Exam code 40 should only be entered in the V NUTRITION SCREENING file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.13^B
    1)= S ^AUPNVXAM("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVXAM("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.13^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.13^AATOO^MUMPS
    1)= I $P(^AUPNVXAM(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVXAM("AA",$P(^AUPNVXAM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVXAM(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVXAM("AA",$P(^AUPNVXAM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, Exam pointer, inverted visit date, and internal entry number.
    "AA",PATIENT,EXAM,VISIT,DA
  • CROSS-REFERENCE:  9000010.13^AQTOO^MUMPS
    1)= D AQE1^AUPNCIXL
    2)= D AQEKILL1^AUPNCIXL
    QMAN XREF
  • FIELD INDEX:  AMAP (#488)    MUMPS    IR    ACTION
    Short Descr:  MAP SNOMED AND LOINC BASED ON .01, .04
    Set Logic:  D EXAM^AUPNMAP
    Kill Logic:  D EXWIPE^AUPNMAP
    X(1):  EXAM  (9000010.13,.01)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACR (#416)





.019
EXAM CODE

COMPUTED

  • MUMPS CODE:  X ^DD(9000010.13,.019,9.3) S X=$P(Y(9000010.13,.019,101),U,2) S D0=Y(9000010.13,.019,80)
    9.2 = S Y(9000010.13,.019,80)=$S($D(D0):D0,1:""),Y(9000010.13,.019,1)=$S($D(^AUPNVXAM(D0,0)):^(0),1:"")
    9.3 = X ^DD(9000010.13,.019,9.2) S D0=$P(Y(9000010.13,.019,1),U,1) S:'$D(^AUTTEXAM(+D0,0)) D0=-1 S Y(9000010.13,.019,101)=$S($D(^AUTTEXAM(D0,0)):^(0),1:"")
  • ALGORITHM:  EXAM:CODE





.02
PATIENT NAME
0;2
POINTER TO PATIENT FILE (#9000001) 

************************REQUIRED FIELD************************
PATIENT(#9000001)
  • LAST EDITED:  NOV 03, 2008
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.13^AC
    1)= S ^AUPNVXAM("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVXAM("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.13^AATOO2^MUMPS
    1)= I $P(^AUPNVXAM(DA,0),U,3)]"" S ^AUPNVXAM("AA",X,+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVXAM(DA,0),U,3)]"" K ^AUPNVXAM("AA",X,+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),".",1)),DA)
  • RECORD INDEXES:  ACR (#416)





.03
VISIT
0;3
POINTER TO VISIT FILE (#9000010) 

************************REQUIRED FIELD************************
VISIT(#9000010)
  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVXAM(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the exam was done.
  • DESCRIPTION:  
    This is the encounter in the Visit file that represents when and where the exam was done.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVXAM(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.13^AD
    1)= S ^AUPNVXAM("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVXAM("AD",$E(X,1,30),DA)
    This cross-reference is used for searches by the visit pointer and internal entry number.
    "AD",VISIT,DA
  • CROSS-REFERENCE:  9000010.13^AA^MUMPS
    1)= Q:$P(^AUPNVXAM(DA,0),U,2)=""  S ^AUPNVXAM("AA",$P(^AUPNVXAM(DA,0),U,2),+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVXAM(DA,0),U,2)=""  K ^AUPNVXAM("AA",$P(^AUPNVXAM(DA,0),U,2),+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, exam pointer, inverted visit, internal entry number.
    "AA",PATIENT,EXAM,VISIT,DA
  • CROSS-REFERENCE:  9000010.13^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
  • RECORD INDEXES:  ACR (#416)





.04
RESULT
0;4
SET 

************************REQUIRED FIELD************************
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL/NEGATIVE;
  • 'PR' FOR PRESENT;
  • 'PAP' FOR PRESENT AND PAST;
  • 'PA' FOR PAST;
  • 'PO' FOR POSITIVE;
  • 'RF' FOR REFERRAL NEEDED;
  • 'L' FOR LOW;
  • 'M' FOR MODERATE;
  • 'H' FOR HIGH;
  • 'PS' FOR PASS;
  • INPUT TRANSFORM:  D VXAM04^AUPNCIX
  • LAST EDITED:  AUG 06, 2013
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRES")
  • EXECUTABLE HELP:  D VXAM04H^AUPNCIX
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.13^AQ^MUMPS
    1)= D AQE^AUPNCIXL
    2)= D AQEKILL^AUPNCIXL
  • RECORD INDEXES:  AMAPR (#489)





1201
EVENT DATE AND TIME
12;1
DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the date and time the exam was given.
  • DESCRIPTION:  This is the date and time the exam was given 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 primary 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
    measurement was done.  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 a 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")





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:  JUN 08, 1994
  • HELP-PROMPT:  Enter the provider who ordered this exam.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the exam.
  • 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:  Select ordering 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 gave the exam.
  • DESCRIPTION:  
    This is the provider who gave the exam.
  • 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 EXAM FILE (#9000010.13)
V EXAM(#9000010.13)
  • 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")





1213
ANCILLARY POV
12;13
POINTER TO ICD DIAGNOSIS FILE (#80)
ICD DIAGNOSIS(#80)
  • LAST EDITED:  SEP 19, 2003





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.13^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVXAM(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.13,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVXAM(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.13,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.13^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVXAM(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.13,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVXAM(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.13,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 EXAM 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 EXAM File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.13^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVXAM(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.13,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVXAM(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.13,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 EXAM File





2601
SNOMED CT
26;0
Multiple #9000010.1326 
9000010.1326




2701
LOINC CODES
27;0
Multiple #9000010.1327 
9000010.1327




80101
EDITED FLAG
801;1
SET

  • '1' FOR EDITED;
  • LAST EDITED:  JUN 08, 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 exam 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 be
    automatically 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 addition 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 exam.  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







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All