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

Package: IHS Patient

Global: ^AUPNVPOV


Information

FileMan FileNo FileMan Filename Package
9000010.07 V POV IHS Patient

Description

Directly Accessed By Routines, Total: 934

Package Total Routines
IHS GPRA Information System 422 BGP0ALG1    BGP0C11    BGP0C13    BGP0C2X    BGP0C3X    BGP0CPU    BGP0CPU2    BGP0CPU3
BGP0CPU4    BGP0CU    BGP0CU1    BGP0CU2    BGP0CU3    BGP0CU4    BGP0D1    BGP0D10
BGP0D22    BGP0D23    BGP0D24    BGP0D31    BGP0D36    BGP0D3A    BGP0D51    BGP0D6
BGP0D72    BGP0D721    BGP0D722    BGP0D729    BGP0D731    BGP0D732    BGP0D74    BGP0D75
BGP0D8    BGP0D81    BGP0D83    BGP0D84    BGP0D87    BGP0D9    BGP0DPA2    BGP0EO1
BGP0UTL1    BGP1ALG1    BGP1C11    BGP1C13    BGP1C2X    BGP1C3X    BGP1CPU    BGP1CPU2
BGP1CPU3    BGP1CPU4    BGP1CU    BGP1CU1    BGP1CU2    BGP1CU3    BGP1CU4    BGP1D1
BGP1D10    BGP1D22    BGP1D23    BGP1D24    BGP1D31    BGP1D36    BGP1D37    BGP1D38
BGP1D3A    BGP1D51    BGP1D6    BGP1D72    BGP1D721    BGP1D722    BGP1D723    BGP1D729
BGP1D731    BGP1D732    BGP1D74    BGP1D75    BGP1D8    BGP1D81    BGP1D83    BGP1D84
BGP1D87    BGP1D9    BGP1DPA2    BGP1EO1    BGP1UTL1    BGP2ALG1    BGP2C11    BGP2C13
BGP2C2X    BGP2C3X    BGP2CPU    BGP2CPU2    BGP2CPU3    BGP2CPU4    BGP2CU    BGP2CU1
BGP2CU2    BGP2CU3    BGP2CU4    BGP2D1    BGP2D10    BGP2D22    BGP2D23    BGP2D24
BGP2D31    BGP2D36    BGP2D37    BGP2D38    BGP2D3A    BGP2D51    BGP2D6    BGP2D72
BGP2D721    BGP2D722    BGP2D723    BGP2D729    BGP2D731    BGP2D732    BGP2D74    BGP2D75
BGP2D8    BGP2D81    BGP2D83    BGP2D84    BGP2D87    BGP2D9    BGP2DPA2    BGP2EO1
BGP2UTL1    BGP3ALG1    BGP3C11    BGP3C13    BGP3C2X    BGP3C3X    BGP3CPU    BGP3CPU2
BGP3CPU3    BGP3CPU4    BGP3CU    BGP3CU1    BGP3CU2    BGP3CU3    BGP3CU4    BGP3D1
BGP3D10    BGP3D22    BGP3D23    BGP3D24    BGP3D31    BGP3D36    BGP3D37    BGP3D38
BGP3D3A    BGP3D51    BGP3D6    BGP3D72    BGP3D721    BGP3D722    BGP3D723    BGP3D729
BGP3D731    BGP3D732    BGP3D74    BGP3D75    BGP3D8    BGP3D81    BGP3D83    BGP3D84
BGP3D87    BGP3D9    BGP3D91    BGP3DPA2    BGP3UTL1    BGP4ALG1    BGP4ALG2    BGP4C11
BGP4C13    BGP4CU    BGP4CU1    BGP4D1    BGP4D10    BGP4D22    BGP4D23    BGP4D24
BGP4D31    BGP4D36    BGP4D37    BGP4D38    BGP4D3A    BGP4D51    BGP4D6    BGP4D72
BGP4D721    BGP4D722    BGP4D723    BGP4D729    BGP4D731    BGP4D732    BGP4D74    BGP4D75
BGP4D8    BGP4D81    BGP4D83    BGP4D84    BGP4D87    BGP4D9    BGP4D91    BGP4DPA2
BGP4UTL1    BGP5ALG1    BGP5ALG2    BGP5C1    BGP5C11    BGP5C13    BGP5C2    BGP5C3
BGP5CU    BGP5CU1    BGP5D1    BGP5D10    BGP5D22    BGP5D23    BGP5D24    BGP5D31
BGP5D36    BGP5D37    BGP5D38    BGP5D3A    BGP5D51    BGP5D6    BGP5D72    BGP5D721
BGP5D722    BGP5D723    BGP5D729    BGP5D731    BGP5D732    BGP5D74    BGP5D75    BGP5D8
BGP5D81    BGP5D83    BGP5D84    BGP5D87    BGP5D9    BGP5D91    BGP5DPA2    BGP5UTL1
BGP6ALG1    BGP6ALG2    BGP6C1    BGP6C11    BGP6C13    BGP6C2    BGP6C3    BGP6CU
BGP6CU1    BGP6D1    BGP6D10    BGP6D212    BGP6D22    BGP6D23    BGP6D31    BGP6D37
BGP6D38    BGP6D3A    BGP6D51    BGP6D6    BGP6D714    BGP6D72    BGP6D721    BGP6D722
BGP6D723    BGP6D729    BGP6D731    BGP6D732    BGP6D74    BGP6D75    BGP6D8    BGP6D81
BGP6D83    BGP6D84    BGP6D87    BGP6D9    BGP6D91    BGP6DPA2    BGP6UTL1    BGP7ALG1
BGP7ALG2    BGP7C1    BGP7C11    BGP7C13    BGP7C2    BGP7C3    BGP7CU1    BGP7D1
BGP7D10    BGP7D212    BGP7D213    BGP7D22    BGP7D23    BGP7D31    BGP7D37    BGP7D38
BGP7D3A    BGP7D51    BGP7D6    BGP7D714    BGP7D72    BGP7D722    BGP7D723    BGP7D729
BGP7D731    BGP7D732    BGP7D74    BGP7D75    BGP7D8    BGP7D81    BGP7D83    BGP7D84
BGP7D87    BGP7D9    BGP7D91    BGP7DPA2    BGP7UTL1    BGP8ALG1    BGP8ALG2    BGP8C11
BGP8C13    BGP8C2X    BGP8C3X    BGP8CPU    BGP8CPU2    BGP8CPU3    BGP8CPU4    BGP8CU1
BGP8CU2    BGP8CU3    BGP8CU4    BGP8D1    BGP8D10    BGP8D212    BGP8D213    BGP8D22
BGP8D23    BGP8D31    BGP8D37    BGP8D38    BGP8D3A    BGP8D51    BGP8D53    BGP8D6
BGP8D714    BGP8D715    BGP8D72    BGP8D722    BGP8D723    BGP8D729    BGP8D731    BGP8D732
BGP8D74    BGP8D75    BGP8D8    BGP8D81    BGP8D83    BGP8D84    BGP8D87    BGP8D9
BGP8D91    BGP8DPA2    BGP8EO1    BGP8PC13    BGP8PC4    BGP8UTL1    BGP9ALG1    BGP9C11
BGP9C13    BGP9C2X    BGP9C3X    BGP9CPU    BGP9CPU2    BGP9CPU3    BGP9CPU4    BGP9CU
BGP9CU1    BGP9CU2    BGP9CU3    BGP9CU4    BGP9D1    BGP9D10    BGP9D22    BGP9D23
BGP9D24    BGP9D3    BGP9D31    BGP9D51    BGP9D6    BGP9D72    BGP9D721    BGP9D722
BGP9D731    BGP9D732    BGP9D74    BGP9D75    BGP9D8    BGP9D81    BGP9D83    BGP9D84
BGP9D87    BGP9D9    BGP9DPA2    BGP9EO1    BGP9UTL1    BGPD2    BGPD22    BGPD23
BGPD29    BGPD8    BGPMUD09    BGPMUH09    BGPMUUT2    BGPMUUT3    
IHS Uniform Data System 115 BUD0RPC1    BUD0RPC2    BUD0UTL1    BUD1RP6R    BUD1RP6U    BUD1RP6V    BUD1RPC1    BUD1RPC2
BUD1UTL1    BUD2RP6M    BUD2RP6O    BUD2RP6R    BUD2RP6U    BUD2RP6V    BUD2RPC1    BUD2RPC2
BUD2UTL1    BUD4RPC1    BUD5RPC1    BUD6RPC1    BUD7RPC1    BUD8RP6D    BUD8RPC1    BUD8UTL1
BUD9RPC1    BUD9RPC2    BUD9UTL1    BUDARP6M    BUDARP6O    BUDARP6R    BUDARP6U    BUDARP6V
BUDARPC1    BUDARPC2    BUDAUTL1    BUDBRP6M    BUDBRP6O    BUDBRP6Q    BUDBRP6R    BUDBRP6U
BUDBRP6V    BUDBRPC1    BUDBRPC2    BUDBUTL1    BUDCRP6C    BUDCRP6H    BUDCRP6M    BUDCRP6O
BUDCRP6Q    BUDCRP6R    BUDCRP6U    BUDCRP6V    BUDCRP6X    BUDCRP6Y    BUDCRP7B    BUDCRPC1
BUDCUTL1    BUDDRP6A    BUDDRP6B    BUDDRP6C    BUDDRP6D    BUDDRP6H    BUDDRP6M    BUDDRP6N
BUDDRP6O    BUDDRP6Q    BUDDRP6R    BUDDRP6U    BUDDRP6V    BUDDRP6X    BUDDRP6Y    BUDDRP7B
BUDDRP7C    BUDDRPC1    BUDDUTL1    BUDERP6A    BUDERP6B    BUDERP6C    BUDERP6D    BUDERP6H
BUDERP6M    BUDERP6N    BUDERP6O    BUDERP6Q    BUDERP6R    BUDERP6U    BUDERP6V    BUDERP6X
BUDERP6Y    BUDERP7B    BUDERP7C    BUDERPC1    BUDEUTL1    BUDHRP6A    BUDHRP6B    BUDHRP6C
BUDHRP6D    BUDHRP6H    BUDHRP6M    BUDHRP6N    BUDHRP6O    BUDHRP6Q    BUDHRP6R    BUDHRP6U
BUDHRP6V    BUDHRP6X    BUDHRP6Y    BUDHRP7B    BUDHRP7C    BUDHRPC1    BUDHRPC2    BUDHUTL1
BUDHUTL2    BUDHUTL3    BUDRPTC1    
Diabetes Registry 111 BDMAPIU    BDMD013    BDMD016    BDMD018    BDMD01G    BDMD113    BDMD116    BDMD118
BDMD11G    BDMD206    BDMD207    BDMD208    BDMD216    BDMD217    BDMD218    BDMD313
BDMD316    BDMD318    BDMD413    BDMD418    BDMD41G    BDMD513    BDMD516    BDMD518
BDMD51G    BDMD613    BDMD616    BDMD618    BDMD61G    BDMD713    BDMD716    BDMD718
BDMD71G    BDMD813    BDMD816    BDMD818    BDMD81G    BDMD913    BDMD916    BDMD918
BDMD91G    BDMD996    BDMD997    BDMD998    BDMDA13    BDMDA18    BDMDA1G    BDMDB13
BDMDB1G    BDMDC13    BDMDC16    BDMDC1G    BDMDD13    BDMDD16    BDMDD1G    BDMDE13
BDMDE16    BDMDE1B    BDMDE1G    BDMDF13    BDMDF16    BDMDF1B    BDMDF1G    BDMDG13
BDMDG16    BDMDG1B    BDMDG1G    BDMDM1A    BDMDMNC    BDMFLOW    BDMP013    BDMP016
BDMP018    BDMP113    BDMP116    BDMP118    BDMP413    BDMP416    BDMP418    BDMP513
BDMP516    BDMP518    BDMP613    BDMP616    BDMP618    BDMP713    BDMP716    BDMP718
BDMP813    BDMP816    BDMP818    BDMP913    BDMP916    BDMP918    BDMPA13    BDMPA16
BDMPA18    BDMPB13    BDMPB18    BDMPC13    BDMPC18    BDMPD13    BDMPD18    BDMPE13
BDMPE18    BDMPF13    BDMPF18    BDMPG13    BDMPG18    BDMS9B3    BDMSMU2    
Patient Care Component Reports 95 APCLADAP    APCLADX1    APCLAL1A    APCLAP22    APCLAPI2    APCLAPI4    APCLAPIU    APCLAUD1
APCLBV1    APCLCH11    APCLCH21    APCLCP11    APCLCP31    APCLCP5    APCLCP91    APCLD206
APCLD207    APCLD208    APCLD216    APCLD217    APCLD218    APCLD313    APCLD316    APCLD318
APCLD513    APCLD516    APCLD518    APCLD51G    APCLD613    APCLD616    APCLD618    APCLD61G
APCLD713    APCLD716    APCLD718    APCLD71G    APCLD813    APCLD816    APCLD818    APCLD81G
APCLD996    APCLD997    APCLD998    APCLDM1A    APCLDM6    APCLDMNC    APCLDP1P    APCLER1P
APCLER2P    APCLGVP    APCLIPC3    APCLNJ11    APCLNJ12    APCLNJ21    APCLOS3    APCLOS41
APCLOS61    APCLP513    APCLP516    APCLP518    APCLP613    APCLP616    APCLP618    APCLP713
APCLP716    APCLP718    APCLP813    APCLP816    APCLP818    APCLPNP    APCLPP21    APCLPVC1
APCLRADP    APCLRT1P    APCLSIL1    APCLSIL2    APCLSIL3    APCLSIL4    APCLSILI    APCLSILR
APCLSMU    APCLSMU2    APCLTAX    APCLTEN1    APCLV07    APCLV2    APCLVLU    APCLW11
APCLW21    APCLW61    APCLYV22    APCLYV31    APCLYV32    APCLYV51    APCLYV52    
Patient Care Component 44 APCD3M    APCD3MF    APCDACCR    APCDACP1    APCDACP2    APCDADSE    APCDCAFA    APCDCAFC
APCDEGP1    APCDEGP3    APCDEPOV    APCDFQA1    APCDFQAP    APCDFQC1    APCDFQCP    APCDFUNC
APCDOPOV    APCDPNAR    APCDR00    APCDR07    APCDRPOV    APCDRVH    APCDRVH1    APCDSTGC
APCDSW    APCDTWC    APCDVCH    APCDVCH1    APCDVCHK    APCHPWH2    APCHPWH5    APCHPWH7
APCHPWH8    APCHS12    APCHS2B    APCHS2C    APCHS2F    APCHS2G    APCHS2H    APCHS9A
APCHS9B6    APCHSAST    APCHSMU2    BJPC2EV2    
PCE Patient Care Encounter 15 PXAI    PXAIPOV    PXAPIIB    PXAPIOE    PXBPL    PXBSTOR    PXBUTL    PXPXRM
PXPXRMI2    PXQUTL3    PXQUTL3A    PXRRFDSD    PXRRPCE3    PXSCH4    PXUTL1    
iCare 12 BQICAEP2    BQICALRN    BQICALRT    BQICASUI    BQICAVAL    BQICMUT1    BQICMUT2    BQIDCAH6
BQINIGH3    BQITD13    BQITDUTL    BQIUL2    
GUI Objects 10 BGOCPTP3    BGOICDP2    BGOICDPR    BGOPROB    BGOPROB2    BGOSNOP2    BGOVIMM    BGOVPOV
BGOVPOV1    BGOVPOV2    
Health Summary Components 9 BHSAST    BHSDM6    BHSENC    BHSENC2    BHSFLOW    BHSHOS    BHSPHN    BHSPL2
BHSSUPP    
PCC New Encounter Form 8 VENPCC1G    VENPCC1H    VENPCC1K    VENPCCG1    VENPCCKG    VENPCCQB    VENPCCU    VENPCCYV
IHS HIV Management System 7 BKMCRS    BKMQQCRB    BKMQQCRC    BKMQQCRU    BKMVA1C    BKMVC6    BKMVFAPI    
Patient Care Component Data Transmission 7 APCPACHA    APCPAPC    APCPAPOV    APCPHOS1    APCPHOS2    APCPHOSP    APCPHPOV    
Third Party Billing 7 ABMDE5A    ABMDE5C    ABMDLCK    ABMDLCK1    ABMDVCK3    ABMDVST    ABMDVST1    
IHS Mods To Text Integration Utilities 6 BTIULO    BTIULO5    BTIUPDD    BTIUPDD2    BTIUPV1    BTIUPV2    
Local Area Programs 6 AZAMED15    AZANED15    AZAXCAD    AZAXCADB    AZAXCADZ    AZAXDPM1    
Pharmacy Point of Sale 5 ABSPOS26    ABSPOSB3    ABSPOSFC    ABSPOSN6    ABSPOSPX    
Taxonomy 5 ATXBULL    ATXENP    ATXPAT    ATXPOV    ATXPVT    
Aberdeen GPRA Report 4 CIMGAGP2    CIMGAGP3    CIMGAGPR    CIMGAGPX    
Quality Assurance 4 AQAOEDTP    AQAQPR31    AQAQPR32    AQAQPR41    
Emergency Room 3 AMEREDDY    AMERPCC2    AMERVSIT    
IHS Electronic Health Record 3 BEHOENIN    BEHORXEI    BEHOTIU    
PCC Medical Query 3 AMQQATR    AMQQMUL3    AMQQMULP    
Patient Care Component Surveillance 3 APCSHLOC    APCSSIL1    APCSSILI    
Patient Chart 3 BPCDBS1    BPCLALL    BPCPC    
Clinical Reminders 2 PXRMVPOV    PXRMXX2    
Clinical Scheduling for Windows 2 BSDX41I    BSDX41N    
IHS Changes To ADT 2 ADGCRB5    ADGPCAC2    
Scheduling 2 SDSCEDT    SDSCRPT2    
Asthma Tracking System 1 BATU    
Comprehensive Diabetes Management 1 BCDMFLDS    
Data Warehouse Export System 1 BDWUTIL    
Electronic Dental Record 1 BADEHL4    
IHS Changes To Pharmacy 1 APSPPCC1    
IHS Emergency Dept Dashboard 1 BEDDUTIU    
IHS Mods To Patient Care Encounter 1 BPXRMSNO    
IHS Patient 1 AUPNMAP    
IHS Standard Terminology 1 BSTSCFIX    
IHS Support HL7 Interfaces 1 BHLDG1I    
Immunization Tracking 1 BIDX    
Lab Service 1 LREPI3    
M Transfer 1 BMXRPC10    
Mental Health Social Services 1 AMHEHR    
Order Entry Results Reporting 1 ORWDXIHS    
Pharmacy Benefits Management 1 PSUDEM2    
Phoenix Devel Center 1 AZXBV1    

Accessed By FileMan Db Calls, Total: 94

Package Total Routines
Patient Care Component 12 APCD3MF    APCDACCR    APCDEPOV    APCDFUNC    APCDOPOV    APCDRPOV    APCDTWC    APCDVLST
APCHS2B    APCHS2C    APCHS2F    APCHS2H    
Emergency Room 8 AMER31    AMER4    AMEREDDY    AMERPCC2    AMERPCC3    AMERPOV    AMERUTIL    AMERVSIT
IHS HIV Management System 8 BKMIXX1    BKMIXX2    BKMQSSR6    BKMRMDR    BKMVA1C    BKMVC6    BKMVSSR6    BKMVSUP5
IHS Mods To Text Integration Utilities 8 BTIULO5    BTIUPCC    BTIUPCC6    BTIUPDD    BTIUPDD2    BTIUPV1    BTIUPV2    BTIURPT
iCare 7 BQICASUI    BQICAVAL    BQIPTPOV    BQIPTVS    BQIUL1    BQIUL2    BQIULPT    
GUI Objects 4 BGOSNOP2    BGOVPOV    BGOVPOV1    BGOVPOV3    
Health Summary Components 4 BHSENC    BHSENC2    BHSMEA    BHSPL2    
IHS Changes To ADT 4 ADGCRB5    BDGCPT1    BDGCRB1    BDGPCCE1    
IHS Prenatal Care Module 4 BJPNAPI    BJPNPRUT    BJPNPUP    BJPNSPRB    
IHS Electronic Health Record 3 BEHOENP1    BEHOENPP    BEHOTIU    
IHS Emergency Dept Dashboard 3 BEDDPOV    BEDDUTID    BEDDUTIU    
PCC New Encounter Form 3 VENPCCKG    VENPCCQB    VENPCCYV    
IHS Standard Terminology 2 BSTSCFIX    BSTSMSR    
IHS Uniform Data System 2 BUDBRP6Q    BUDCRP6Q    
PCE Patient Care Encounter 2 PXBPL    PXPXRMI2    
Patient Care Component Surveillance 2 APCSHLOC    APCSSLAB    
Pharmacy Point of Sale 2 ABSPOSB3    ABSPOSII    
Third Party Billing 2 ABMDE5A    ABMDE5C    
Automated Information Collection System 1 IBDFRPC6    
Clinical Reminders 1 PXRMVPOV    
Comprehensive Diabetes Management 1 BCDMFLDS    
Data Warehouse Export System 1 BDWUTIL    
IHS Changes To Pharmacy 1 APSPPCC1    
IHS Dental System 1 ADEAPC2    
IHS GPRA Information System 1 BGPMUUT3    
IHS Mods To Patient Care Encounter 1 BPXRMSNO    
IHS Patient 1 AUPNMAP    
M Transfer 1 BMXRPC10    
Mental Health Social Services 1 AMHPCCL    
Order Entry Results Reporting 1 ORWDXIHS    
Patient Care Component Reports 1 APCLSMU2    
Tracking Procedure Workflow 1 BTPWPCHT    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
IHS Patient 2 V ASTHMA(#9000010.41)[.13]    V POV(#9000010.07)[1208]    
Patient Care Component 1 PCC DATA TRANS LOG(#9001005)[#9001005.05101(.02)]    
Text Integration Utility 1 TIU PROBLEM LINK(#8925.9)[.03]    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
IHS Patient 4 PATIENT(#9000001)[.02]    PROBLEM(#9000011)[.16]    V POV(#9000010.07)[1208]    VISIT(#9000010)[.03]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[.141202120412171219#9000010.0713(.02)]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.01.09.18.19.21.23.24.25.26.27.28]
Lexicon Utility 1 EXPRESSIONS(#757.01)[.15]    
PCE Patient Care Encounter 1 PCE DATA SOURCE(#839.7)[81203]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.0480201]    

Fields, Total: 66

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

  • INPUT TRANSFORM:  S:$D(APCDEIN) APCDTPCC="" S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 31, 2013
  • DESCRIPTION:  POV is an abbreviation for "Purpose of Visit". Since Purpose of Visit is often confused with "Chief complaint", another abbreviation might better be "Problem of Visit". This is the Provider's conclusion about what was
    treated at the visit.  The Provider should be able to indicate a preferred narrative for what was treated and an ICD Diagnosis code.  If the problem treated is from the Problem List, then the problem list entry information
    can be used for the "Problem of Visit" entry.  The provider can alternatively have this information automatically captured via scanned Encounter Forms (e.g., AICS - the VA's Encounter Form Data Capture package).
    At VA facilites, the ICD Diagnosis is screened by Inactive Code and it must be appropriate for the Patient's age and sex.
    At IHS facilities, the ICD Diagnosis is screened by Inactive Code, appropriate for the Patient's age and sex, and Not "E" codes.
  • TECHNICAL DESCR:  
    This is a pointer to the ICD Diagnosis (#80) file.  APCDALVR Variable = APCDALVR("APCDTPOV")
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  POV CANNOT BE AN 'E' CODE, AN INACTIVE CODE AND IT MUST BE APPROPRIATE FOR THE PATIENT'S AGE AND SEX
  • EXECUTABLE HELP:  D HELP^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.07^B
    1)= S ^AUPNVPOV("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVPOV("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.07^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.07^AE^MUMPS
    1)= S ATXSAVE=X,X="ATXPOV" X ^%ZOSF("TEST") S X=ATXSAVE K ATXSAVE I $T S ATXAD="" D ^ATXPOV K ATXAD
    2)= K ATXAD S ATXSAVE=X,X="ATXPOV" X ^%ZOSF("TEST") S X=ATXSAVE K ATXSAVE I $T D ^ATXPOV
  • CROSS-REFERENCE:  9000010.07^ABAT^MUMPS
    1)= D ASTV^AUPNVXRF
    2)= Q
  • RECORD INDEXES:  ACR (#414)
.019 ICD NARRATIVE COMPUTED

  • MUMPS CODE:  S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPOV(D0,0),U),$S($P(^AUPNVPOV(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPOV(D0,0),U,3),0),U),"."),1:DT)),U,4)
    9.2 = S Y(9000010.07,.019,80)=$S($D(D0):D0,1:""),Y(9000010.07,.019,1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:""),D0=$P(Y(9000010.07,.019,1),U,1) S:'$D(^ICD9(+D0,0)) D0=-1
  • ALGORITHM:  S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPOV(D0,0),U),$S($P(^AUPNVPOV(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPOV(D0,0),U,3),0),U),"."),1:DT)),U,4)
  • LAST EDITED:  APR 11, 2013
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  OCT 11, 2012
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.07^AC
    1)= S ^AUPNVPOV("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVPOV("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.07^AATOO^MUMPS
    1)= I $P(^AUPNVPOV(DA,0),U,3)]"" S ^AUPNVPOV("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVPOV(DA,0),U,3)]"" K ^AUPNVPOV("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.07^ASNCTOO^MUMPS
    1)= I $P(^AUPNVPOV(DA,0),U,3),$P($G(^AUPNVPOV(DA,11)),U,1)]"" S ^AUPNVPOV("ASNC",X,$P($G(^AUPNVPOV(DA,11)),U,1),(9999999-$P($P(^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),U),".")),DA)=""
    2)= I $P(^AUPNVPOV(DA,0),U,3),$P($G(^AUPNVPOV(DA,11)),U,1)]"" K ^AUPNVPOV("ASNC",X,$P($G(^AUPNVPOV(DA,11)),U,1),(9999999-$P($P(^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),U),".")),DA)
  • RECORD INDEXES:  ACR (#414)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPOV(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 11, 2012
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the problem was treated.
  • DESCRIPTION:  The encounter entry in the Visit file that is associated with this problem treated.
    In IHS facilities, this is the date and time the visit actually occurred.
    In VA facilities, this is the data and time of the clinic appointment for the patient in the Scheduling package, or the date and time the encounter occurred if there was no appointment. By using the appointment date and
    time, clinic activity can be captured for clinical use as well as be used for billing and workload information by the appropriate VA packages.  If the visit was for a walk-in, an appointment should be entered in Scheduling
    first in order to have the clinical information also be used for the administrative uses.
    Non-clinic appointment encounters can be entered, but the clinical POV information is not accepted for billing.
    The patient encounter can be the result of an inpatient encounter.  In this case, the ward would be specified as the hospital location in the Visit File.
  • TECHNICAL DESCR:  
    This is a pointer to the Visit file (#9000010).  This field is stuffed by the applications.  No editing is allowed.  APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPOV(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
  • CROSS-REFERENCE:  9000010.07^AD
    1)= S ^AUPNVPOV("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVPOV("AD",$E(X,1,30),DA)
    This cross-reference is used for searches by the visit pointer and internal entry number.
    "AD",VISIT pointer value, DA
  • CROSS-REFERENCE:  9000010.07^AA^MUMPS
    1)= Q:$P(^AUPNVPOV(DA,0),U,2)=""  S ^AUPNVPOV("AA",$P(^AUPNVPOV(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVPOV(DA,0),U,2)=""  K ^AUPNVPOV("AA",$P(^AUPNVPOV(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, inverted visit date (from the Visit file) and the internal entry number.
    "AA",PATIENT,inverted VISIT, DA
  • CROSS-REFERENCE:  9000010.07^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.
  • CROSS-REFERENCE:  9000010.07^ASNCTOOO^MUMPS
    1)= I $P(^AUPNVPOV(DA,0),U,2),$P($G(^AUPNVPOV(DA,11)),U,1)]"" S ^AUPNVPOV("ASNC",$P(^AUPNVPOV(DA,0),U,2),$P($G(^AUPNVPOV(DA,11)),U,1),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)=""
    2)= I $P(^AUPNVPOV(DA,0),U,2),$P($G(^AUPNVPOV(DA,11)),U,1)]"" K ^AUPNVPOV("ASNC",$P(^AUPNVPOV(DA,0),U,2),$P($G(^AUPNVPOV(DA,11)),U,1),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)
  • RECORD INDEXES:  ACR (#414)
.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(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$$SNOMED^AUPNVUTL(Y)
  • LAST EDITED:  MAR 07, 2013
  • HELP-PROMPT:  Enter the provider's preferred text identifying the diagnosis treated at the encounter.
  • DESCRIPTION:  This is the providers text describing the diagnosis that was treated at the visit. The text may contain additional information related specifically to the patient at the time of the visit (e.g, Hypertension,
    uncontrolled).  The providers' narrative may be different from the ICD Diagnosis files description for a code, but should not have a significantly different meaning.  The ICD Diagnosis code in the POV (.01) field should be
    the code that "most closely" represents the providers narrative.
    In IHS facilities, this narrative is entered by data entry clerks.
    In VA facilities, this narrative may be entered manually or derived from: 1) the ICD Diagnosis text from the ICD Diagnosis file (Scheduling interface) 2) the text defined on Encounter Forms when defining the most common
    diagnosis treated for a clinic (AICS or other automated data capture) 3) the Problem list entries' "provider narrative", captured from the Active Problem list being checked off for problems treated at the encounter on an
    Encounter Form (AICS or other automated data capture).
  • TECHNICAL DESCR:  This is a pointer to the Provider Narrative file (#9999999.27). Disk space is saved by storing ONE entry in the provider narrative file for each unique narrative. The provider narrative is often repetitive, especially,
    if the data capture mode is automated.
    The resulting entries in the Provider Narrative file builds a file of preferred provider terminology.
  • SCREEN:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")
  • EXPLANATION:  IHS OLD LOOKUP or VA Exact Match
.05 STAGE 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X D INPUT^APCDSTGC
  • LAST EDITED:  FEB 21, 2008
  • HELP-PROMPT:  Type a Number, 0 Decimal Digits
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSTG")
  • EXECUTABLE HELP:  D HELP^APCDSTGC
    SOURCE OF DATA:   061/DISPEC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.07^ASTG^MUMPS
    1)= I $T(EP^APCDSTGC)]"" D EP^APCDSTGC($P(^AUPNVPOV(DA,0),U,2),$P(^AUPNVPOV(DA,0),U,3),DA,X)
    2)= I $T(EP^APCDSTGC)]"" D EP^APCDSTGC($P(^AUPNVPOV(DA,0),U,2),$P(^AUPNVPOV(DA,0),U,3),DA,X)
.06 MODIFIER 0;6 SET
  • 'C' FOR CONSIDER;
  • 'D' FOR DOUBTFUL;
  • 'F' FOR FOLLOW UP;
  • 'M' FOR MAYBE, POSSIBLE, PERHAPS;
  • 'O' FOR RULE OUT;
  • 'P' FOR PROBABLE;
  • 'R' FOR RESOLVED;
  • 'S' FOR SUSPECT, SUSPICIOUS;
  • 'T' FOR STATUS POST;

  • LAST EDITED:  AUG 31, 1995
  • HELP-PROMPT:  Enter the provider's modifier of the diagnosis treated.
  • DESCRIPTION:  
    (Optional) This is how a provider may modify the diagnosis or problem treated to reflect the status of the diagnosis as of this visit. Common examples of modifiers are Rule Out, Follow-up, or Status Post.
  • TECHNICAL DESCR:  
    The VA uses a smaller set of modifiers than the IHS does.  The file is distributed with the complete set of codes originally defined by the Indian Health Service.  APCDALVR Variable = APCDALVR("APCDTMOD")
  • SCREEN:  S:DUZ("AG")="V" DIC("S")="I ""FOT""[Y"
  • EXPLANATION:  VA screens for Rule Out, Follow Up, and Status Post
    SOURCE OF DATA:   061/DISPEC
.07 CAUSE OF DX 0;7 SET
  • '1' FOR HOSPITAL ACQUIRED;
  • '2' FOR ALCOHOL RELATED;
  • '3' FOR BATTERED CHILD;
  • '4' FOR EMPLOYMENT RELATED;
  • '5' FOR DOMESTIC VIOLENCE RELATED;
  • '6' FOR DRUG RELATED;

  • LAST EDITED:  JAN 29, 2008
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCD")
    SOURCE OF DATA:   061/DICAUSE
.08 FIRST/REVISIT 0;8 SET
  • '1' FOR FIRST VISIT;
  • '2' FOR REVISIT;

  • LAST EDITED:  APR 07, 1987
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTFR")
    SOURCE OF DATA:   061/DIFVTD
.09 EXTERNAL CAUSE 0;9 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 29, 2012
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCI")
  • SCREEN:  S DIC("S")="D CHKE^AUPNSICD"
  • EXPLANATION:  Must be a valid External Cause Code.
  • EXECUTABLE HELP:  D HELPE^AUPNSICD
    SOURCE OF DATA:   061/DIECIJ
.11 PLACE OF ACCIDENT 0;11 SET
  • 'A' FOR HOME-INSIDE;
  • 'B' FOR HOME-OUTSIDE;
  • 'C' FOR FARM;
  • 'D' FOR SCHOOL;
  • 'E' FOR INDUSTRIAL PREMISES;
  • 'F' FOR RECREATIONAL AREA;
  • 'G' FOR STREET/HIGHWAY;
  • 'H' FOR PUBLIC BUILDING;
  • 'I' FOR RESIDENT INSTITUTION;
  • 'J' FOR HUNTING/FISHING;
  • 'K' FOR OTHER;
  • 'L' FOR UNKNOWN;

  • LAST EDITED:  APR 26, 1990
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPA")
    SOURCE OF DATA:   061/DIPACC
.12 PRIMARY/SECONDARY 0;12 SET
  • 'P' FOR PRIMARY;
  • 'S' FOR SECONDARY;

  • LAST EDITED:  AUG 31, 1995
  • HELP-PROMPT:  Enter the clinically pertinent ranking for this problem treated.
  • DESCRIPTION:  
    This field represents the clinically pertinent ranking of problems treated.  There is no limit on how many POV's may be identified as primary or secondary problems treated at the visit.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPS")
    SOURCE OF DATA:   061/DIPRIME
  • RECORD INDEXES:  ACR (#414)
.13 DATE OF INJURY 0;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  MAY 27, 1987
  • HELP-PROMPT:  Enter the date of the injury. The date may be imprecise.
  • DESCRIPTION:  This is the date the injury occurred for the problem being treated.
    At VA facilities, the date of injury is prompted for when the ICD Diagnosis in the POV field (.01) is for an injury with a code between 800-999.999.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDI")
.14 OVERRIDE/ACCEPT 0;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 23, 1992
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTACC")
.15 CLINICAL TERM 0;15 POINTER TO EXPRESSIONS FILE (#757.01) EXPRESSIONS(#757.01)

  • LAST EDITED:  MAY 18, 1994
  • HELP-PROMPT:  Enter the provider narrative or clinical terminology for the diagnosis treated.
  • DESCRIPTION:  This field is the clinical lexicon term which most closely represents the provider narrative of the problem treated.
    At VA facilities: The clinical lexicon is automatically captured via encounter form data capture (AICS package) when the of problem being treated is from the Active Problem List.  In the manual data entry process, there is
    currently no prompt for the clinical term.
  • TECHNICAL DESCR:  This field was created by the VA to capture the clinical lexicon term, as an alternative to, or in addition to the ICD9 Diagnosis code. This field will primarily be populated when the diagnosis being treated at a visit is
    based on an entry in the Active Problem List.  APCDALVR Variable = APCDALVR("APCDTCT")
.16 PROBLEM LIST ENTRY 0;16 POINTER TO PROBLEM FILE (#9000011) PROBLEM(#9000011)

  • LAST EDITED:  JAN 30, 2013
  • HELP-PROMPT:  Enter the problem entry from the patient's problem list for the problem treated.
  • DESCRIPTION:  
    This field identifies what Problem List entry is related to the problem treated at the visit.
  • TECHNICAL DESCR:  This field was added for use by PCE in the VA.
    Automated data capture methods, that allow the problems treated at a visit to be selected from the active problem list, will be able to provide the problem list entry which is stored in this field.  APCDALVR Variable =
    APCDALVR("APCDTPLE")
  • CROSS-REFERENCE:  9000010.07^APRB
    1)= S ^AUPNVPOV("APRB",$E(X,1,30),DA)=""
    2)= K ^AUPNVPOV("APRB",$E(X,1,30),DA)
.17 DATE OF ONSET 0;17 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 26, 2007
  • DESCRIPTION:  
    Enter the month, day and year of the onset of this diagnosis.  Currently, this is only asked for surgical complication diagnosis codes.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDOO")
.18 EXTERNAL CAUSE 2 0;18 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 29, 2012
  • SCREEN:  S DIC("S")="D CHKE^AUPNSICD"
  • EXPLANATION:  MUST BE A VALID EXTERNAL CAUSE CODE.
  • EXECUTABLE HELP:  D HELPE^AUPNSICD
.19 EXTERNAL CAUSE 3 0;19 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 29, 2012
  • SCREEN:  S DIC("S")="D CHKE^AUPNSICD"
  • EXPLANATION:  MUST BE A VALID EXTERNAL CAUSE CODE.
  • EXECUTABLE HELP:  D HELPE^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.21 PLACE OF OCCURRENCE 0;21 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D PLACE^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 22, 2012
  • SCREEN:  S DIC("S")="D PLACE^AUPNSICD"
  • EXPLANATION:  Must be a valid Place of Occurence Code.
  • EXECUTABLE HELP:  D HELPPL^AUPNSICD
.22 PRESENT ON ADMISSION? 0;22 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'W' FOR CLINICALLY UNDETERMINED;
  • '1' FOR UNREPORTED/NOT USED;

  • LAST EDITED:  OCT 03, 2007
.23 RETAINED FOREIGN BODY 0;23 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D RFB^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 24, 2012
  • SCREEN:  S DIC("S")="D RFB^AUPNSICD"
  • EXPLANATION:  Must be in the code range Z18-Z18.9.
  • EXECUTABLE HELP:  D RFBH^AUPNSICD
.24 ICD-9 CODE 0;24 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S:$D(APCDEIN) APCDTPCC="" S DIC("S")="D CHK9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 16, 2012
  • SCREEN:  S DIC("S")="D CHK9^AUPNSIC9"
  • EXPLANATION:  Must be a valid ICD-9 code.
  • EXECUTABLE HELP:  D HELP9^AUPNSIC9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.241 ICD-9 CODE NARRATIVE COMPUTED

  • MUMPS CODE:  S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPOV(D0,0),U,24),$S($P(^AUPNVPOV(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPOV(D0,0),U,3),0),U),"."),1:DT)),U,4)
  • ALGORITHM:  S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPOV(D0,0),U,24),$S($P(^AUPNVPOV(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPOV(D0,0),U,3),0),U),"."),1:DT)),U,4)
  • LAST EDITED:  MAR 05, 2013
.25 CAUSE (E-code) 0;25 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 16, 2012
  • SCREEN:  S DIC("S")="D CHKE9^AUPNSIC9"
  • EXPLANATION:  Must be a valid ICD-9 E code.
  • EXECUTABLE HELP:  D HELPE9^AUPNSIC9
.26 CAUSE (E-code) #2 0;26 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 16, 2012
  • SCREEN:  S DIC("S")="D CHKE9^AUPNSIC9"
  • EXPLANATION:  Must be a valid ICD-9 E-code.
  • EXECUTABLE HELP:  D HELPE9^AUPNSIC9
.27 CAUSE (E-code) #3 0;27 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKE9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 16, 2012
  • SCREEN:  S DIC("S")="D CHKE9^AUPNSIC9"
  • EXPLANATION:  Must be a valid ICD-9 E code.
  • EXECUTABLE HELP:  D HELPE9^AUPNSIC9
.28 PLACE OF OCCURENCE (E849) 0;28 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHKPL9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 16, 2012
  • SCREEN:  S DIC("S")="D CHKPL9^AUPNSIC9"
  • EXPLANATION:  Must be a valid code in the range E849-E849.9.
  • EXECUTABLE HELP:  D HELPPL9^AUPNSIC9
.29 EXAM FINDINGS 0;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=$$EXFIND^AUPNVUTL(Y)
  • LAST EDITED:  DEC 10, 2015
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
1101 SNOMED CONCEPT ID 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  MAR 11, 2014
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • CROSS-REFERENCE:  9000010.07^ASNC^MUMPS
    1)= I $P(^AUPNVPOV(DA,0),U,2),$P(^AUPNVPOV(DA,0),U,3) S ^AUPNVPOV("ASNC",$P(^AUPNVPOV(DA,0),U,2),X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),U),".")),DA)=""
    2)= I $P(^AUPNVPOV(DA,0),U,2),$P(^AUPNVPOV(DA,0),U,3) K ^AUPNVPOV("ASNC",$P(^AUPNVPOV(DA,0),U,2),X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),U),".")),DA)
    patient dfn, concept id, inverse date, da
  • CROSS-REFERENCE:  9000010.07^ASCI
    1)= S ^AUPNVPOV("ASCI",$E(X,1,30),DA)=""
    2)= K ^AUPNVPOV("ASCI",$E(X,1,30),DA)
1101.019 SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.07,1101.019,1)=$S($D(^AUPNVPOV(D0,11)):^(11),1:"") S X=$P(Y(9000010.07,1101.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#1101)
  • LAST EDITED:  JUL 24, 2013
1102 SNOMED DESCRIPTION ID 11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  OCT 15, 2012
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1102.019 SNOMED DESC ID PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.07,1102.019,1)=$S($D(^AUPNVPOV(D0,11)):^(11),1:"") S X=$P(Y(9000010.07,1102.019,1),U,2),X=$$DESCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNDEST(#1102)
  • LAST EDITED:  JUL 24, 2013
1103 PRIMARY SNOMED 11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 08, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1103.019 PRIMARY SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.07,1103.019,1)=$S($D(^AUPNVPOV(D0,11)):^(11),1:"") S X=$P(Y(9000010.07,1103.019,1),U,3),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#1103)
  • LAST EDITED:  JUL 24, 2013
1104 LATERALITY ATTRIBUTE|QUALIFIER 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=$$AQ^AUPNVUTL(Y)
  • LAST EDITED:  FEB 05, 2016
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1105 *FX HEALING (DO NOT USE) 11;5 SET
  • 'D' FOR Delayed Union;
  • 'M' FOR Malunion;
  • 'N' FOR Nonunion;
  • 'R' FOR Normal Union;

  • LAST EDITED:  DEC 06, 2016
1106 FX HEALING SNOMED 11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=$$CVPARM^BSTSMAP1("HEAL",Y)
  • LAST EDITED:  DEC 06, 2016
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  Enter the date and time this problem was treated.
  • DESCRIPTION:  This is the actual date and time of the encounter. This date and time may be different than the visit date and time specified in the Visit file. However it must be within 30 days of the Visit date and Not be a future
    date.
    This field is useful for capturing the actual time encounters take place, or when, during the encounter, something happened.
  • TECHNICAL DESCR:  This field was added for use by PCE in the VA, to support the capture of the actual event date and time of the encounter which is not reflected in the Visit file entry. IHS allows the Visit date and time to be the actual
    date and time. But, the VA uses the Visit date and time as the Appointment date and time, rather than the "Actual" encounter event date and time.  The Appointment date and time orientation of visits allows the VA
    Scheduling, billing and workload functionality to understand the linkage between the clinical data being captured for a visit and the existing Outpatient Scheduled events.  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:  APR 26, 1994
  • HELP-PROMPT:  Enter the ordering provider.
  • DESCRIPTION:  For consistency, this field was added to each V-file. However, for the V POV, the Ordering Provider does not apply itself well, unless a provider is ordering another provider to treat a problem. Optionally, in the future,
    this field may be able to represent the provider responsible for the encounter providers work.
  • 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 STOP 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 care giver who treated the problem.
  • DESCRIPTION:  
    This is the provider who treated the diagnosis at the encounter.
  • 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 POV FILE (#9000010.07) V POV(#9000010.07)

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

  • LAST EDITED:  JUL 23, 2013
1401 EPISODICITY 14;0 Multiple #9000010.0714 9000010.0714
1501 DATE PASSED TO EXTERNAL 15;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 15, 2000
1701 FINDING SITE 17;0 Multiple #9000010.0717 9000010.0717
1801 CLINICAL COURSE 18;0 Multiple #9000010.0718 9000010.0718
80001 SERVICE CONNECTED 800;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  If this problem treated is service connected, enter "YES" here.
  • DESCRIPTION:  
    This field is used in the VA to indicate that this problem treated at this visit was service connected.
  • TECHNICAL DESCR:  This field is used by the VA. The data is only passed to PCE from the automated data capture of encounter form data when a Problem from the Active Problem list has been identified as the problem treated at the visit. If
    the Problem List identified the Problem as Service Connected, then this Service Connected field would be automatically set to 1.
80002 AGENT ORANGE EXPOSURE 800;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  If the problem treated is related to agent orange exposure, enter "YES" here.
  • DESCRIPTION:  
    This field is used in the VA to indicate that this problem treated at this visit was related to agent orange exposure.
  • TECHNICAL DESCR:  This field is used by the VA. The data is only passed to PCE from the automated data capture of encounter form data. If a problem from the Active Problem List is identified as the problem treated at the visit, and the
    problem has been associated with Agent Orange Exposure in the Problem List, then the POV's Agent Orange Exposure will be set to "1".
80003 IONIZING RADIATION EXPOSURE 800;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  If this problem treated is related to ionizing radiation exposure, enter "YES".
  • DESCRIPTION:  
    This field is used in the VA to indicate that this problem treated at this visit was related to ionizing radiation exposure.
  • TECHNICAL DESCR:  This field is used by the VA. The data is only passed to PCE from the automated data capture of encounter form data. If a problem on the Active Problem List is identified as a problem treated at the visit, and the
    problem is defined as related to ionizing radiation exposure, then the POV Ionizing Radiation Exposure will be set to "1".
80004 PERSIAN GULF EXPOSURE 800;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  If this problem treated is related to Persian Gulf exposure, enter "YES" here.
  • DESCRIPTION:  
    This field is used in the VA to indicate that this problem treated at this visit was related to Persian Gulf exposure.
  • TECHNICAL DESCR:  This field is only passed to PCE from the automated data capture of encounter form data. If a problem on the Active Problem List is identified as the problem treated at the visit, and the problem defined as being related
    to Persian Gulf Exposure in the Problem List, then the POV Persian Gulf Exposure will automatically be set to "1".
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  MAR 08, 1994
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any measurement data is being edited from the original entry of data.
  • 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 must be 2-85 characters in length.
80201 PROVIDER NARRATIVE CATEGORY 802;1 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Enter the category narrative related to this problem treated.
  • DESCRIPTION:  
    This field is the category narrative related to the problem treated.
  • TECHNICAL DESCR:  This field is used by the VA when capturing encounter form information via scanning (e.g., such as AICS scanning) or workstation data capture methods. This field is used to document how providers group the clinical
    terminology being used to document encounters. Providers may group the problems which may be selected under specific headers on the encounter form definition.  This field is used to store the actual header text used by the
    provider.
  • SCREEN:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
81101 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
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