Global: ^AUPNPROB

FileMan FileNo	FileMan Filename	Package
9000011	PROBLEM	IHS Patient

Package	Total	Routines
IHS GPRA Information System	302	BGP0ALG1 BGP0C11 BGP0C12 BGP0C13 BGP0CU1 BGP0CU2 BGP0D22 BGP0D31 BGP0D36 BGP0D41 BGP0D54 BGP0D55 BGP0D5A BGP0D7 BGP0D71 BGP0D72 BGP0D722 BGP0D732 BGP0D8 BGP0D81 BGP0D82 BGP0D862 BGP0D9 BGP0DU BGP1ALG1 BGP1C11 BGP1C12 BGP1C13 BGP1CU1 BGP1CU2 BGP1D22 BGP1D31 BGP1D36 BGP1D3A BGP1D41 BGP1D54 BGP1D55 BGP1D5A BGP1D7 BGP1D71 BGP1D72 BGP1D722 BGP1D723 BGP1D732 BGP1D8 BGP1D81 BGP1D82 BGP1D862 BGP1D88 BGP1D9 BGP1DU BGP2ALG1 BGP2C11 BGP2C12 BGP2C13 BGP2CU1 BGP2CU2 BGP2D22 BGP2D31 BGP2D36 BGP2D3A BGP2D41 BGP2D54 BGP2D55 BGP2D5A BGP2D7 BGP2D71 BGP2D72 BGP2D722 BGP2D723 BGP2D732 BGP2D8 BGP2D81 BGP2D82 BGP2D84 BGP2D862 BGP2D88 BGP2D9 BGP2DU BGP3ALG1 BGP3C11 BGP3C12 BGP3C13 BGP3CU1 BGP3CU2 BGP3D21A BGP3D22 BGP3D31 BGP3D36 BGP3D3A BGP3D41 BGP3D54 BGP3D55 BGP3D5A BGP3D7 BGP3D71 BGP3D72 BGP3D722 BGP3D723 BGP3D732 BGP3D8 BGP3D81 BGP3D82 BGP3D84 BGP3D862 BGP3D88 BGP3D9 BGP3DU BGP4ALG1 BGP4ALG2 BGP4C11 BGP4C13 BGP4CU1 BGP4D21A BGP4D22 BGP4D31 BGP4D36 BGP4D3A BGP4D41 BGP4D54 BGP4D55 BGP4D5A BGP4D7 BGP4D71 BGP4D72 BGP4D722 BGP4D723 BGP4D732 BGP4D8 BGP4D81 BGP4D82 BGP4D84 BGP4D862 BGP4D88 BGP4D9 BGP4DU BGP5ALG1 BGP5ALG2 BGP5C1 BGP5C11 BGP5C12 BGP5C13 BGP5CU1 BGP5D21A BGP5D22 BGP5D31 BGP5D36 BGP5D3A BGP5D41 BGP5D54 BGP5D55 BGP5D5A BGP5D7 BGP5D71 BGP5D72 BGP5D722 BGP5D723 BGP5D732 BGP5D8 BGP5D81 BGP5D82 BGP5D84 BGP5D862 BGP5D88 BGP5D9 BGP5DU BGP6ALG1 BGP6ALG2 BGP6C1 BGP6C11 BGP6C12 BGP6C13 BGP6CU1 BGP6D212 BGP6D21A BGP6D22 BGP6D31 BGP6D3A BGP6D41 BGP6D54 BGP6D55 BGP6D5A BGP6D7 BGP6D71 BGP6D714 BGP6D72 BGP6D722 BGP6D723 BGP6D732 BGP6D8 BGP6D81 BGP6D82 BGP6D841 BGP6D862 BGP6D88 BGP6D9 BGP6DU BGP7ALG1 BGP7ALG2 BGP7C1 BGP7C11 BGP7C12 BGP7C13 BGP7CU1 BGP7D213 BGP7D21A BGP7D22 BGP7D24A BGP7D31 BGP7D3A BGP7D41 BGP7D5A BGP7D7 BGP7D71 BGP7D714 BGP7D72 BGP7D722 BGP7D723 BGP7D732 BGP7D8 BGP7D81 BGP7D82 BGP7D841 BGP7D88 BGP7D89 BGP7D9 BGP7DU BGP8ALG1 BGP8ALG2 BGP8C11 BGP8C12 BGP8C13 BGP8CU1 BGP8CU2 BGP8D213 BGP8D21A BGP8D22 BGP8D24A BGP8D31 BGP8D3A BGP8D41 BGP8D5A BGP8D7 BGP8D71 BGP8D714 BGP8D715 BGP8D72 BGP8D722 BGP8D723 BGP8D729 BGP8D732 BGP8D8 BGP8D81 BGP8D82 BGP8D841 BGP8D88 BGP8D9 BGP8DU BGP8PC12 BGP8PC14 BGP8PC16 BGP8PC4 BGP8PC6 BGP8PC61 BGP8PC62 BGP8PC63 BGP8PC64 BGP8PC65 BGP8PC66 BGP8PC67 BGP8PC68 BGP8PC69 BGP8PC9 BGP9ALG1 BGP9C11 BGP9C12 BGP9C13 BGP9CU1 BGP9CU2 BGP9D22 BGP9D31 BGP9D41 BGP9D5 BGP9D54 BGP9D7 BGP9D71 BGP9D72 BGP9D722 BGP9D732 BGP9D8 BGP9D81 BGP9D82 BGP9D862 BGP9D9 BGP9DU BGPDU BGPMUD09 BGPMUG03 BGPMUG04 BGPMUG08 BGPMUUT1 BGPMUUT3
Diabetes Registry	135	BDMD012 BDMD013 BDMD016 BDMD018 BDMD01T BDMD112 BDMD113 BDMD116 BDMD118 BDMD11T BDMD206 BDMD207 BDMD208 BDMD216 BDMD217 BDMD218 BDMD312 BDMD313 BDMD316 BDMD318 BDMD412 BDMD413 BDMD418 BDMD41T BDMD4DU BDMD512 BDMD513 BDMD516 BDMD518 BDMD612 BDMD613 BDMD616 BDMD618 BDMD712 BDMD713 BDMD716 BDMD718 BDMD812 BDMD813 BDMD816 BDMD818 BDMD912 BDMD913 BDMD916 BDMD918 BDMD91T BDMD996 BDMD997 BDMD998 BDMDA12 BDMDA13 BDMDA18 BDMDA1T BDMDADU BDMDB12 BDMDB13 BDMDB18 BDMDB1T BDMDBDU BDMDC12 BDMDC13 BDMDC16 BDMDC18 BDMDC1B BDMDC1T BDMDCDU BDMDD12 BDMDD13 BDMDD16 BDMDD18 BDMDD1B BDMDD1T BDMDDDU BDMDE12 BDMDE13 BDMDE16 BDMDE18 BDMDE1B BDMDE1T BDMDEDU BDMDF12 BDMDF13 BDMDF16 BDMDF18 BDMDF1B BDMDF1D BDMDF1T BDMDFDU BDMDG12 BDMDG13 BDMDG16 BDMDG18 BDMDG1B BDMDG1D BDMDG1T BDMDGDU BDMDM1 BDMDR1 BDMDR2 BDMFLOW BDMGE BDMGUA BDMP013 BDMP016 BDMP113 BDMP116 BDMP413 BDMP416 BDMP513 BDMP516 BDMP613 BDMP616 BDMP713 BDMP716 BDMP813 BDMP816 BDMP913 BDMP916 BDMPA13 BDMPA16 BDMPB13 BDMPC13 BDMPD13 BDMPE13 BDMPF13 BDMPG13 BDMPL BDMPROB BDMS9B1 BDMS9B3 BDMS9B4 BDMS9D1 BDMSMU BDMUTL BDMVRL8
IHS Uniform Data System	74	BUD0DU BUD0RP6B BUD0RP7A BUD0RP7B BUD0RP7C BUD1DU BUD1RP6B BUD1RP6U BUD1RP7A BUD1RP7B BUD1RP7C BUD2DU BUD2RP6B BUD2RP6O BUD2RP6U BUD2RP7A BUD2RP7B BUD2RP7C BUD8DU BUD8RP6B BUD8RP7A BUD8RP7B BUD8RP7C BUD9DU BUD9RP6B BUD9RP7A BUD9RP7B BUD9RP7C BUDADU BUDARP6B BUDARP6O BUDARP6U BUDARP7A BUDARP7B BUDARP7C BUDBDU BUDBRP6B BUDBRP6O BUDBRP6Q BUDBRP6U BUDBRP7A BUDBRP7B BUDBRP7C BUDBRPC1 BUDCDU BUDCRP6B BUDCRP6Q BUDCRP6U BUDCRP7A BUDCRP7B BUDCRP7C BUDDDU BUDDRP6B BUDDRP6Q BUDDRP6U BUDDRP7A BUDDRP7C BUDEDU BUDERP6B BUDERP6Q BUDERP6U BUDERP7A BUDERP7C BUDHDU BUDHRP6B BUDHRP6C BUDHRP6D BUDHRP6Q BUDHRP6U BUDHRP6X BUDHRP6Y BUDHRP7A BUDHRP7C BUDHUTL3
Patient Care Component Reports	44	APCLAPIU APCLD206 APCLD207 APCLD208 APCLD216 APCLD217 APCLD218 APCLD313 APCLD316 APCLD318 APCLD512 APCLD513 APCLD516 APCLD518 APCLD612 APCLD613 APCLD616 APCLD618 APCLD712 APCLD713 APCLD716 APCLD718 APCLD812 APCLD813 APCLD816 APCLD818 APCLD996 APCLD997 APCLD998 APCLDM1 APCLDM6 APCLDR1 APCLDR2 APCLP513 APCLP516 APCLP613 APCLP616 APCLP713 APCLP716 APCLP813 APCLP816 APCLPDBL APCLSIL2 APCLVLU1
Patient Care Component	40	APCDALGP APCDALGQ APCDALGR APCDALV2 APCDAPRB APCDFPPV APCDFUNC APCDPL APCDPL1 APCDPL2 APCDPL3 APCDPLFH APCDPLIE APCDPLST APCDPROB APCDVM3 APCHPALG APCHPMH1 APCHPRE1 APCHPST1 APCHPWH2 APCHPWH3 APCHPWH5 APCHPWH6 APCHPWH9 APCHS12 APCHS4 APCHS40 APCHS9A APCHS9B1 APCHS9B4 APCHS9B5 APCHS9B6 APCHS9D1 APCHSAST APCHSMAS APCHSMU APCHSMU1 BJPC1EC1 BJPC2EV2
Problem List	39	ADDITIONAL ICD CODES ASSOCIATED WITH PROBLEM CLINICAL COURSE FINDING SITE GMPL GMPL1 GMPL15P GMPL31P GMPLCODE GMPLDISP GMPLDUP2 GMPLEDIT GMPLEDT2 GMPLEDT3 GMPLENFM GMPLHS GMPLMGR GMPLMGR1 GMPLMGR2 GMPLNTFT GMPLNTRT GMPLPRNT GMPLPXRM GMPLRPTR GMPLRPTS GMPLSAVE GMPLUTL GMPLUTL1 GMPLUTL2 GMPLUTL3 GMPLX GMPLX1 MAPPING TARGETS NOTE NOTE FACILITY RECONCILLIATION SEVERITY USE AS POV (VISIT) USED FOR INPATIENT
Health Summary Components	18	BHSAST BHSDM1 BHSDM4 BHSDM5 BHSDM6 BHSDMPRE BHSFLOW BHSMEA BHSMU BHSPL BHSPL2 BHSPLOB BHSPLST BHSPLST1 BHSPLST2 BHSPMH1 BHSPMH3 BHSSUPP
GUI Objects	11	BGOHOS BGOPRBN BGOPRDD BGOPROB BGOPROB1 BGOPROB2 BGOPROB3 BGOVPOV BGOVPOV1 BGOVPOV2 BGOVPOV3
iCare	11	BQICASUI BQIDCAH4 BQIDCUTL BQINIGHT BQIRGASU BQIRGDMS BQIRPL BQIRPLN BQITDUTL BQITRUTL BQIVFDEF
IHS Mods To Text Integration Utilities	10	BTIUCPL1 BTIUPCC1 BTIUPDD BTIUPDD1 BTIUPDD2 BTIUPDD3 BTIUPLAN BTIUPRVI BTIUPV1 BTIUPV2
IHS Prenatal Care Module	9	BJPN20P1 BJPN20PS BJPNAPIS BJPNCPIP BJPNFAUD BJPNGNOT BJPNGPIP BJPNPBDT BJPNSPRB
Mental Health Social Services	7	AMHBPL2 AMHGBPL AMHGSBPL AMHPL1 AMHPL2 AMHPL3 AMHPROB
Patient Care Component Table Maintiance	6	APCM11E2 APCM13E2 APCM14E2 APCM24E2 APCM25E2 APCM2AE2
IHS HIV Management System	5	BKMQQCRU BKMVA1C BKMVC6 BKMVFAPI BKMVSUP6
IHS Standard Terminology	5	BSTS10P1 BSTS10P2 BSTSCFIX BSTSMAP1 BSTSUTIL
Order Entry Results Reporting	5	ORCPROB ORQQPL1 ORQQPL2 ORQQPL3 ORWDXIHS
PCE Patient Care Encounter	5	PXCADXP1 PXCAPL PXCAPL1 PXCAPL2 PXCAPOV
Patient Chart	4	BPCDBS1 BPCNOTEC BPCPRBC BPCPROB
IHS Changes To Lab	3	BLRSGNS2 BLRSGNSD BLRSGNSY
M Transfer	3	BMXADOFD BMXADOFS BMXADOX
PCC New Encounter Form	3	VENPCC1C VENPCC1H VENPCC1K
Automated Information Collection System	2	IBDFBK3 IBDFN11
Clinical Scheduling for Windows	2	BSDX41C BSDX41N
IHS Electronic Health Record	2	BEHOENP2 BEHOPLDD
IHS Patient	2	AUPNVPLC ^AUPNPROB
Aberdeen GPRA Report	1	CIMGAGP3
Asthma Tracking System	1	BATU
Case Management System	1	ACMPROB
Comprehensive Diabetes Management	1	BCDMFLDS
Data Warehouse Export System	1	BDWUTIL2
Health Summary	1	GMTSPLSZ
IHS Changes To ADT	1	ADGPCAC6
IHS Changes To Pharmacy	1	APSPPCC1
IHS Mods To Patient Care Encounter	1	BPXRMSNO
Local Area Programs	1	AZAXDPM1
NCI Study Extract	1	CIMSNCI1
PCC Medical Query	1	AMQQMUL3

Package	Total	Routines
IHS Prenatal Care Module	15	BJPN20PS BJPNAPI BJPNAPI1 BJPNAPI2 BJPNAPIS BJPNCPIP BJPNFAUD BJPNGNOT BJPNGPIP BJPNPCHK BJPNPEDT BJPNPKL BJPNPSET BJPNPUTL BJPNSPRB
Problem List	14	GMPL1 GMPLCODE GMPLEDT3 GMPLIPST GMPLNTFT GMPLNTRT GMPLP37I GMPLP44I GMPLPXRM GMPLRPTR GMPLSAVE GMPLUTL2 GMPLUTL3 GMPLX
Patient Care Component	12	APCDALV2 APCDAPRB APCDDMUP APCDPL APCDPL1 APCDPLFH APCDPLIE APCDPLST APCHS4 APCHS81 BJPC2EV2 BJPC2P16
GUI Objects	11	BGOCPTP3 BGOPRDD BGOPROB BGOPROB1 BGOPROB2 BGOVOB BGOVPOV BGOVPOV1 BGOVPOV2 BGOVPOV3 BGOVVI
iCare	9	BQICAUTL BQICMUTL BQIDCUTL BQIPTDX BQIPTFHT BQIRPL BQIRPLN BQIUL1 BQIVFTRB
IHS Mods To Text Integration Utilities	8	BTIUCPL1 BTIUPCC1 BTIUPDD BTIUPDD1 BTIUPLAN BTIUPRV2 BTIUPRVI BTIUPV1
Health Summary Components	6	BHSPL BHSPL2 BHSPLOB BHSPLST BHSPLST1 BHSPLST2
IHS HIV Management System	6	BKMIXX BKMQSSR6 BKMVC6 BKMVSSR6 BKMVSUP6 BKMVUTL
Mental Health Social Services	6	AMHBPL2 AMHGBPL AMHLEPOV AMHPL1 AMHPL3 AMHPROB
IHS Standard Terminology	5	BSTS10P1 BSTS10P2 BSTSCFIX BSTSMAP1 BSTSUTIL
Diabetes Registry	4	BDMEDMUP BDMGR BDMGUA BDMPROB
IHS Changes To Lab	3	BLRSGNS2 BLRSGNSD BLRSGNSU
Consult Request Tracking	2	GMRCGUIC GMRCSLM2
IHS Electronic Health Record	2	BEHOENP2 BEHOPLDD
IHS Patient Merge	2	BPMXFX1 BPMXPRB
Order Entry Results Reporting	2	ORQQPL2 ORWDXIHS
Clinical Reminders	1	PXRMPROB
Comprehensive Diabetes Management	1	BCDMFLDS
Data Warehouse Export System	1	BDWUTIL2
IHS Changes To Pharmacy	1	APSPPCC1
IHS Mods To Patient Care Encounter	1	BPXRMSNO
IHS Patient	1	AUPN9920
M Transfer	1	BMXADOFS
Patient Chart	1	BPCPRBC
Pharmacy Point of Sale	1	ABSPOSII
Scheduling	1	SCRPW1

Package	Total	FileMan Files
IHS Patient	8	CARE PLAN(#9000092)[.01] PROBLEM(#9000011)[#9000011.19(.01)] V OB(#9000010.43)[.01] V PATIENT ED(#9000010.16)[1103] V POV(#9000010.07)[.16] V REFERRAL(#9000010.59)[.04] V TREATMENT/REGIMEN(#9000010.61)[.04] V VISIT INSTRUCTIONS(#9000010.58)[.01]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[9999999.02]
GUI Objects	1	BGO PROBLEM PRIORITY(#90362.22)[.01]
IHS Prenatal Care Module	1	BJPN PRENATAL PROBLEMS(#90680.01)[.1]
Patient Care Component	1	PCC PATIENT EDUCATION DUPLICATE DELETES(#9001040.16)[1103]
Problem List	1	PROBLEM LIST AUDIT(#125.8)[.01]
Text Integration Utility	1	TIU PROBLEM LINK(#8925.9)[.02]
iCare	1	ICARE DX CAT FACTORS(#90509.5)[.05]

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] PROBLEM(#9000011)[#9000011.19(.01)] VISIT(#9000010)[#9000011.14(.01), #9000011.15(.01)]
Kernel	2	SERVICE/SECTION(#49)[1.06] NEW PERSON(#200)[.14, 1.03, 1.04, 1.05, 2.01, #9000011.1111(.06), #9000011.1111(.07), #9000011.1111(.09), #9000011.13(.02), #9000011.13(.04), #9000011.16(.02)]
Utility Tables	2	PROVIDER NARRATIVE(#9999999.27)[.05] LOCATION(#9999999.06)[.06, #9000011.11(.01)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.01, .16, .17, .18, #9000011.12(.01)]
Lexicon Utility	1	EXPRESSIONS(#757.01)[1.01]
Scheduling	1	HOSPITAL LOCATION(#44)[1.08]

Fields, Total: 56

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: `MAR 11, 2014` HELP-PROMPT: `Enter the ICD Code for this problem.` DESCRIPTION: This is the ICD coded diagnosis of the narrative entered describing this problem. TECHNICAL DESCR: `The DHCP Problem List application derives its entries from a lookup into the Clinical Lexicon Utility rather than the ICD Diagnosis file. If the term selected from the CLU is not coded to ICD, then code 799.99 "Other` Unknown or Unspecified Cause, NEC" will be used here in order to be able to create a new entry. This field may later be edited. SCREEN: `S DIC("S")="D ^AUPNSICD"` EXPLANATION: `Cannot be an External Cause or an inactive code and must be appropriate for the sex of the Patient.` EXECUTABLE HELP: `D:$T(HELP^AUPNSICD)]"" HELP^AUPNSICD` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000011^B` 1)= S ^AUPNPROB("B",$E(X,1,30),DA)="" 2)= K ^AUPNPROB("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000011^AZ9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q Controls the behaviour of the input templates used by IHS to populate and maintain this file. CROSS-REFERENCE: `9000011^ABAT^MUMPS` 1)= D AST^AUPNVXRF 2)= Q RECORD INDEXES: `ACR01 (#585)`
.019	SNOMED CONCEPT PREFERRED TERM		COMPUTED	MUMPS CODE: `S Y(9000011,.019,1)=$S($D(^AUPNPROB(D0,800)):^(800),1:"") S X=$P(Y(9000011,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)` ALGORITHM: `AUPNPT(#80001)`
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `FEB 22, 2016` HELP-PROMPT: `Enter the name of the patient for whom this problem has been observed.` DESCRIPTION: This is the patient for whom this problem has been observed and recorded. UNEDITABLE CROSS-REFERENCE: `9000011^AC` 1)= S ^AUPNPROB("AC",$E(X,1,30),DA)="" 2)= K ^AUPNPROB("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000011^AATOO^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,6)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2),^AUPNPROB("AA",X,$P(^(0),U,6)," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA)="" K X1,X2 2)= I $P(^AUPNPROB(DA,0),U,6)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2) K ^AUPNPROB("AA",X,$P(^(0),U,6)," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA),X1,X2 Allows problem retrieval by patient, facility, and problem number (Nmbr); the number is used as a string in " 000.00" format to assure a consistent ordering. CROSS-REFERENCE: `9000011^ACTIVE1^MUMPS` 1)= S:$L($P(^AUPNPROB(DA,0),U,12)) ^AUPNPROB("ACTIVE",X,$P(^(0),U,12),DA)="" 2)= K:$L($P(^AUPNPROB(DA,0),U,12)) ^AUPNPROB("ACTIVE",X,$P(^(0),U,12),DA) Allows problem retrieval by patient and status, in order of entry. CROSS-REFERENCE: `9000011^ASLTB^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,22)]"",$P($G(^AUPNPROB(DA,800)),U,1)]"" S ^AUPNPROB("ASLT",X,$P(^AUPNPROB(DA,800),U,1),$P(^AUPNPROB(DA,0),U,22),DA)="" 2)= I $P(^AUPNPROB(DA,0),U,22)]"",$P($G(^AUPNPROB(DA,800)),U,1)]"" K ^AUPNPROB("ASLT",X,$P(^AUPNPROB(DA,800),U,1),$P(^AUPNPROB(DA,0),U,22),DA) RECORD INDEXES: `ACR01 (#585), ACRSCT (#586)`
.03	DATE LAST MODIFIED	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `MAR 11, 2014` HELP-PROMPT: `TYPE A DATE BETWEEN 1900 AND TODAY` DESCRIPTION: This is the last date/time this problem was changed. AUDIT: `YES, ALWAYS` SOURCE OF DATA: 018/PRCOND CROSS-REFERENCE: `9000011^MODIFIED^MUMPS` 1)= K ^AUPNPROB("MODIFIED",$P(^AUPNPROB(DA,0),"^",2)) D NOW^%DTC S ^AUPNPROB("MODIFIED",$P(^AUPNPROB(DA,0),"^",2),%)="" 2)= Q This Index will keep track of the last time this Patients problem list was modified. ^AUPNPROB("MODIFIED"),PATIENT,DATE CROSS-REFERENCE: `9000011^ADLM` 1)= S ^AUPNPROB("ADLM",$E(X,1,30),DA)="" 2)= K ^AUPNPROB("ADLM",$E(X,1,30),DA) RECORD INDEXES: `ACR01 (#585), ACRSCT (#586)`
.04	CLASS	0;4	SET	'P' FOR PERSONAL HISTORY; LAST EDITED: `JAN 29, 2008` DESCRIPTION: This flag is used by the IHS Problem List to indicate if this problem is documented for historical purposes. TECHNICAL DESCR: VA sites using the DHCP Problem List application will not be prompted for this information.
.05	PROVIDER NARRATIVE	0;5	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 11, 2014` HELP-PROMPT: `Enter a description of this patient's problem.` DESCRIPTION: This contains the actual text used by the provider to describe this problem. SCREEN: `S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO")` EXPLANATION: `OLD LOOKUP` AUDIT: `YES, ALWAYS`
.06	FACILITY	0;6	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `JAN 10, 1994` HELP-PROMPT: `Enter the location at which this problem was first observed and recorded.` DESCRIPTION: This is the facility at which this problem was originally observed and documented. UNEDITABLE CROSS-REFERENCE: `9000011^AV1^MUMPS` 1)= Q 2)= Q No longer in use. CROSS-REFERENCE: `9000011^AATOO2^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,2)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2),^AUPNPROB("AA",$P(^(0),U,2),X," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA)="" K X1,X2 2)= I $P(^AUPNPROB(DA,0),U,2)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2) K ^AUPNPROB("AA",$P(^(0),U,2),X," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA),X1,X2 Allows problem retrieval by patient, facility, and problem number (Nmbr); the number is used as a string in " 000.00" format to assure a consistent ordering.
.07	NMBR	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999.99)!(X<1)!(X?.E1"."3N.N) X Q:'$D(X) K:$D(^AUPNPROB("AA",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1))) X` LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 999.99` DESCRIPTION: `This is a number which, together with the Patient (#.02) and Facility (#.06) fields, serves as a unique identifier for this problem. Up to 2 decimal places may be used to indicate that a problem is a result of, or related` to, another problem. SOURCE OF DATA: 018/PRNUMB NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000011^AA^MUMPS` 1)= S ^AUPNPROB("AA",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA)="" 2)= K ^AUPNPROB("AA",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA) Allows problem retrieval by patient, facility, and problem number (Nmbr); the number is used as a string in " 000.00" format to assure a consistent ordering.
.08	DATE ENTERED	0;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:DTX) X` LAST EDITED: `MAR 07, 1988` HELP-PROMPT: `TYPE A DATE BETWEEN 1900 AND TODAY` DESCRIPTION: This is the date this problem was entered into this file. SOURCE OF DATA: 018/PREDAT UNEDITABLE RECORD INDEXES: `DM (#584)`
.12	STATUS	0;12	SET	**********************REQUIRED FIELD********************** 'A' FOR CHRONIC; 'I' FOR INACTIVE; 'D' FOR DELETED; 'S' FOR SUB-ACUTE; 'E' FOR EPISODIC; 'O' FOR SOCIAL; 'R' FOR ROUTINE/ADMIN; LAST EDITED: `FEB 09, 2016` HELP-PROMPT: `Enter the current status of this problem. Valid entries are Chronic, Sub-acute, Episodic, Social, Routine/Admin or Inactive.` DESCRIPTION: This is the current activity status of this problem, if more detail is needed, a notation may be filed with this problem. AUDIT: `YES, ALWAYS` SOURCE OF DATA: 018/PRSTAT CROSS-REFERENCE: `9000011^ACTIVE^MUMPS` 1)= S:$P(^AUPNPROB(DA,0),U,2) ^AUPNPROB("ACTIVE",+$P(^(0),U,2),X,DA)="" 2)= K ^AUPNPROB("ACTIVE",+$P(^AUPNPROB(DA,0),U,2),X,DA) Allows problem retrieval by patient and status, in order of entry. RECORD INDEXES: `ACR01 (#585), ACRSCT (#586)`
.13	DATE OF ONSET	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:DTX) X` LAST EDITED: `JUN 29, 2016` HELP-PROMPT: `TYPE A DATE BETWEEN 1880 AND TODAY` DESCRIPTION: This is the approximate date this problem appeared, as precisely as known. AUDIT: `YES, ALWAYS`
.14	USER LAST MODIFIED	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 1997` CROSS-REFERENCE: `9000011^AAUDTOO^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,3)]"" S ^AUPNPROB("AAUD",$P(^AUPNPROB(DA,0),U,3),X,DA)="" 2)= I $P(^AUPNPROB(DA,0),U,3)]"" K ^AUPNPROB("AAUD",$P(^AUPNPROB(DA,0),U,3),X,DA)
.15	CLASSIFICATION	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X D INPUT^AUPNVPLC` OUTPUT TRANSFORM: `S Y=$$OUT^AUPNVPLC(D0,Y)` LAST EDITED: `MAR 07, 2013` EXECUTABLE HELP: `D HELP^AUPNVPLC` AUDIT: `EDITED OR DELETED` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.16	EXTERNAL CAUSE	0;16	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 an active E code.`
.17	EXTERNAL CAUSE 2	0;17	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 an active E code.`
.18	EXTERNAL CAUSE 3	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 an active E code.`
.19	PIP	0;19	SET	'1' FOR YES, ACTIVE IN PIP; LAST EDITED: `MAR 11, 2014` AUDIT: `YES, ALWAYS`
.21	ASSOCIATED WITH	0;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 15, 2013` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.22	LATERALITY ATTRIBUTE\|QUALIFIER	0;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` OUTPUT TRANSFORM: `S Y=$$AQ^AUPNVUTL(Y)` LAST EDITED: `FEB 22, 2016` HELP-PROMPT: `Answer must be 1-60 characters in length.` CROSS-REFERENCE: `9000011^ASLTA^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,2)]"",$P($G(^AUPNPROB(DA,800)),U,1)]"" S ^AUPNPROB("ASLT",$P(^AUPNPROB(DA,0),U,2),$P(^AUPNPROB(DA,800),U,1),X,DA)="" 2)= I $P(^AUPNPROB(DA,0),U,2)]"",$P($G(^AUPNPROB(DA,800)),U,1)]"" K ^AUPNPROB("ASLT",$P(^AUPNPROB(DA,0),U,2),$P(^AUPNPROB(DA,800),U,1),X,DA)
1.01	PROBLEM	1;1	POINTER TO AN UNDEFINED FILE	LAST EDITED: `JUL 28, 1993` HELP-PROMPT: `Enter the problem observed for this patient.` DESCRIPTION: This field contains the standardized text stored in the Clinical Lexicon for this problem. CROSS-REFERENCE: `9000011^C` 1)= S ^AUPNPROB("C",$E(X,1,30),DA)="" 2)= K ^AUPNPROB("C",$E(X,1,30),DA)
1.02	CONDITION	1;2	SET	'T' FOR TRANSCRIBED; 'P' FOR PERMANENT; 'H' FOR HIDDEN; LAST EDITED: `JUL 26, 1993` DESCRIPTION: This reflects the current condition of this entry, whether transcribed by a clerk from the paper chart, entered or verified by a provider, or marked as removed from the patient's list. TECHNICAL DESCR: `This flag is used internally by the DHCP Problem List; entries having an H in this field have been "deleted" and are maintained for historical use but are generally ignored. If the parameter "Verify Transcribed Entries"` is turned on in File #125.99, entries made by a clerk will have a T here, and a flag will appear on the clinician's display of the list. P entries have been entered or verified by a provider. RECORD INDEXES: `ACR01 (#585), ACRSCT (#586)`
1.03	ENTERED BY	1;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter the name of the current user.` DESCRIPTION: This is the user who actually entered this problem into this file.
1.04	RECORDING PROVIDER	1;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter the name of the provider who first recorded this data.` DESCRIPTION: This is the provider who first recorded this problem, either on the paper chart or online.
1.05	RESPONSIBLE PROVIDER	1;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter the name of the local provider treating this problem.` DESCRIPTION: This is the provider currently responsible for treating this problem.
1.06	SERVICE	1;6	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter the service to be associated with this problem.` DESCRIPTION: `This is the service primarily involved in the treatment of this problem; the DHCP Problem List defaults this field to the service defined in File #200 for the Recording Provider of this problem, upon entry of the problem.` It may later be used to categorize problems for screening and sorting.
1.07	DATE RESOLVED	1;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 29, 2016` HELP-PROMPT: `Enter the date this problem became resolved or inactive, as precisely as known.` DESCRIPTION: This is the date this problem was resolved or inactivated, as precisely as known. AUDIT: `YES, ALWAYS`
1.08	CLINIC	1;8	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 12, 1994` HELP-PROMPT: `Enter the clinic in which the patient is being seen for this problem.` DESCRIPTION: This is the clinic in which this patient is being seen for this problem. The problem list may be screened based on this value, to change one's view of the list. SCREEN: `S DIC("S")="I $P(^(0),U,3)=""C"""` EXPLANATION: `Only clinics are allowed here.`
1.09	DATE RECORDED	1;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:DTX) X` LAST EDITED: `JAN 11, 1994` HELP-PROMPT: `Enter the date this problem was first recorded, as precisely as known.` DESCRIPTION: This is the date this problem was originally recorded, either online or in the paper chart; it may be the same as, or earlier than, the Date Entered.
1.1	SERVICE CONNECTED	1;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `If this problem is service connected, enter YES here.` DESCRIPTION: If the patient has service connection on file in the DHCP Patient file #2, this problem specifically may be flagged as being service connected. TECHNICAL DESCR: This data will be prompted for in the DHCP Problem List only if the patient is indicated for service connection. Non-VA sites will not be prompted for this information.
1.11	AGENT ORANGE EXPOSURE	1;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter YES if this problem is related to exposure to Agent Orange.` DESCRIPTION: If this problem is related to a patient's exposure to Agent Orange, it may be flagged here. TECHNICAL DESCR: This data will be prompted for in the DHCP Problem List only if a patient has Agent Orange exposure indicated. Non-VA sites will not be prompted for this information.
1.12	IONIZING RADIATION EXPOSURE	1;12	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter YES if this problem is related to exposure to ionizing radiation.` DESCRIPTION: If this problem is related to a patient's exposure to ionizing radiation, it may be flagged here. TECHNICAL DESCR: This data will be prompted for in the DHCP Problem List only if the patient has ionizing radiation exposure indicated. Non-VA sites will not be prompted for this information.
1.13	PERSIAN GULF EXPOSURE	1;13	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 26, 1993` HELP-PROMPT: `Enter YES if this problem is related to a Persian Gulf exposure.` DESCRIPTION: If this problem is related to a patient's service in the Persian Gulf, it may be flagged here. TECHNICAL DESCR: This data will be prompted for only if a patient has Persian Gulf service indicated. Non-VA sites will not be prompted for this information.
1.14	PRIORITY	1;14	SET	'A' FOR ACUTE; 'C' FOR CHRONIC; LAST EDITED: `FEB 01, 1994` HELP-PROMPT: `You may further refine the status of this problem by assigning it a priority.` DESCRIPTION: This is a flag to indicate how critical this problem is for this patient; problems marked as Acute will be flagged on the Problem List display. RECORD INDEXES: `ACR01 (#585), ACRSCT (#586)`
1.15	HEAD AND/OR NECK CANCER	1;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 07, 2002` DESCRIPTION: If this problem is related to the treatment of head and/or neck cancer associated with nose or throat radium treatments, it may be flagged here. TECHNICAL DESCR: This data will be prompted for only if a patient has received nose or throat radium treatments.
1.16	MILITARY SEXUAL TRAUMA	1;16	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 07, 2002` DESCRIPTION: If this problem is related to the treatment of military sexual trauma, it may be flagged here. TECHNICAL DESCR: This data will be prompted for only if a patient has been treated for military sexual trauma.
2.01	PROBLEM DELETED BY	2;1	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))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 11, 2014` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"` EXPLANATION: `Must be a provider.` AUDIT: `YES, ALWAYS`
2.02	DATE/TIME PROBLEM DELETED	2;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 11, 2014` AUDIT: `YES, ALWAYS`
2.03	REASON PROBLEM DELETED	2;3	SET	'D' FOR DUPLICATE; 'E' FOR ENTERED IN ERROR; 'O' FOR OTHER; LAST EDITED: `MAR 11, 2014` AUDIT: `YES, ALWAYS`
2.04	REASON IF OTHER	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<2) X` LAST EDITED: `MAR 11, 2014` HELP-PROMPT: `Answer must be 2-100 characters in length.` AUDIT: `YES, ALWAYS`
1101	NOTE FACILITY	11;0	POINTER Multiple #9000011.11	9000011.11 DESCRIPTION: This is the location at which the notes in this multiple originated.
1201	ADDITIONAL ICD CODES	12;0	POINTER Multiple #9000011.12	9000011.12 LAST EDITED: `JAN 29, 2013`
1301	SEVERITY	13;0	Multiple #9000011.13	9000011.13 LAST EDITED: `MAY 14, 2013`
1401	USE AS POV (VISIT)	14;0	POINTER Multiple #9000011.14	9000011.14 LAST EDITED: `JAN 30, 2013`
1501	USED FOR INPATIENT	15;0	POINTER Multiple #9000011.15	9000011.15
1601	RECONCILLIATION	16;0	DATE Multiple #9000011.16	9000011.16
1701	FINDING SITE	17;0	Multiple #9000011.17	9000011.17
1801	CLINICAL COURSE	18;0	Multiple #9000011.18	9000011.18
1901	ASSOCIATED WITH PROBLEM	19;0	POINTER Multiple #9000011.19	9000011.19
80001	SNOMED CT CONCEPT CODE	800;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1)!'(X?1.40N) X` LAST EDITED: `FEB 22, 2016` HELP-PROMPT: `Answer must be 1-40 numeric characters in length.` DESCRIPTION: A clinical idea to which a unique ConceptID has been assigned in SNOMED CT. Each Concept is represented by a row in the Concepts Table. TECHNICAL DESCR: NOTE: This field is filed programmatically. The user should never be directly prompted for it. AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `9000011^ASCT` 1)= S ^AUPNPROB("ASCT",$E(X,1,30),DA)="" 2)= K ^AUPNPROB("ASCT",$E(X,1,30),DA) 3)= DO NOT DELETE This REGULAR FileMan cross-reference on SNOMED CT Concept will help to automate the updating of problems when SNOMED Concepts are mapped or re-mapped to ICD-9-CM codes. CROSS-REFERENCE: `9000011^APCT^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,2) S ^AUPNPROB("APCT",$P(^AUPNPROB(DA,0),U,2),X,DA)="" 2)= I $P(^AUPNPROB(DA,0),U,2) K ^AUPNPROB("APCT",$P(^AUPNPROB(DA,0),U,2),X,DA) CROSS-REFERENCE: `9000011^ASLT^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,2)]"",$P(^AUPNPROB(DA,0),U,22)]"" S ^AUPNPROB("ASLT",$P(^AUPNPROB(DA,0),U,2),X,$P(^AUPNPROB(DA,0),U,22),DA)="" 2)= I $P(^AUPNPROB(DA,0),U,2)]"",$P(^AUPNPROB(DA,0),U,22)]"" K ^AUPNPROB("ASLT",$P(^AUPNPROB(DA,0),U,2),X,$P(^AUPNPROB(DA,0),U,22),DA) RECORD INDEXES: `ACRSCT (#586)`
80002	SNOMED CT DESIGNATION CODE	800;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1)!'(X?1.40N) X` LAST EDITED: `MAR 11, 2014` HELP-PROMPT: `Answer must be 1-40 numeric characters in length.` DESCRIPTION: `A single SNOMED Concept may have multiple Designations, where a Designation may be considered an alternate way of expressing the concept. Synonyms, lexical variants, abbreviations are all different types of designations.` In many cases, a problem (as reported by the patient) and a finding indicating a problem will share the same concept and concept code (e.g., abdominal pain), but will have different designation codes (i.e., the generic "abdominal pain and "abdominal pain (finding) share the concept code 21522001, but they have the designation codes 36112013 and 750827015 respectively. TECHNICAL DESCR: NOTE: This field is filed programmatically. The user should never be directly prompted for it. AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `9000011^APDI^MUMPS` 1)= I $P(^AUPNPROB(DA,0),U,2) S ^AUPNPROB("APDI",$P(^AUPNPROB(DA,0),U,2),X,DA)="" 2)= I $P(^AUPNPROB(DA,0),U,2) K ^AUPNPROB("APDI",$P(^AUPNPROB(DA,0),U,2),X,DA)
80003	VHAT CONCEPT VUID (FUTURE)	800;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1)!'(X?1.20N) X` LAST EDITED: `JUN 06, 2012` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `VHA Unique ID (VUID) for the VHAT Concept. A unique meaningless integer assigned to a corresponding concept VHA wide.` This field is being implemented to allow a more rapidly extensible vocabulary for VA, while international normative standard coding systems continue to evolve more slowly. The precise definition of the concept Polytrauma may prove to be a useful example. Although the term has become common among US Military and VA physicians to describe a seriously injured (i.e., Injury Severity Score (ISS) >= 16) soldier with multiple traumatic injuries, it is not yet available as a coded concept in either SNOMED CT, ICD-9-CM, or ICD-10-CM. Allowing the definition and deployment of VHAT Concept/Designation VUID pairs to identify such problems in advance of their acceptance by the international medical community will help to provide coded, computable documentation in a much more timely manner than waiting for inclusion in SNOMED CT or ICD. When the infrastructure in VA's Enterprise Terminology Server (ETS) & New Term Rapid Turn-around (NTRT) service are ready to deploy VHAT Concepts, this field will allow us to store patient problems encoded with them. TECHNICAL DESCR: NOTE: This field is filed programmatically. The user should never be directly prompted for it.
80004	VHAT DESIGNATION VUID (FUTURE)	800;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1)!'(X?1.20N) X` LAST EDITED: `JUN 06, 2012` HELP-PROMPT: `Answer must be 1-20 numeric characters in length.` DESCRIPTION: `VHA Unique ID (VUID) for the VHAT Designation. A unique meaningless integer assigned to a corresponding designation VHA wide.` VHAT Concept/Designation Code pairs function in a manner identical to that of SNOMED CT Concept/Designation Codes (i.e., they support the unique identification of clinical concepts, along with the many alternative ways in which a given concept may be expressed). TECHNICAL DESCR: NOTE: This field is filed programmatically. The user should never be directly prompted for it.
80005	SNOMED CT-TO-ICD MAP STATUS	800;5	SET	'0' FOR N/A; '1' FOR PENDING; '2' FOR COMPLETED; LAST EDITED: `JUN 07, 2012` HELP-PROMPT: `Set by program to reflect mapping status of a finding` DESCRIPTION: `This Set of Codes type field is set to PENDING when an unmapped Clinical Finding is selected as a patient's problem. It is updated programmatically to COMPLETE when NTRT deploys a new SNOMED CT to ICD mapping for the` problem in question. NOTE: THIS FIELD SHOULD NEVER BE UPDATED BY AN END USER. TECHNICAL DESCR: `This Set of Codes type field is set to PENDING when an unmapped Clinical Finding is selected as a patient's problem. It is updated programmatically to COMPLETE when NTRT deploys a new SNOMED CT to ICD mapping for the` problem in question. RECORD INDEXES: `DM (#584)`
80101	UNIQUE NEW TERM REQUESTED	801;1	SET	'0' FOR False; '1' FOR True; LAST EDITED: `JUN 06, 2012` HELP-PROMPT: `Indicate whether a New Term was requested (NTRT)` DESCRIPTION: `Indicates whether the user requested a new term during the process of entering a freetext problem. It should only be populated automatically by program code.` NOTE: THIS FIELD SHOULD NEVER BE UPDATED BY AN END USER. TECHNICAL DESCR: `This Boolean field indicates whether the provider requested a new term to be proposed and considered for inclusion in SNOMED CT. If accepted, the term will be deployed by the NTRT process. It should only be populated` automatically by program code. The user will never be prompted for a value for this field.
80102	UNIQUE TERM REQUEST COMMENT	801;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `JUN 06, 2012` HELP-PROMPT: `Answer must be 2-80 characters in length.` DESCRIPTION: Please provide clarification of the new term request. For example, if the requested term is an acronym or abbreviation, the comment field accommodates the fully specified name, etc. TECHNICAL DESCR: `This freetext field supports the storage of a one-line explanatory comment, to provide clarification of the new term request. For example, if the requested term is an acronym or abbreviation, the comment field accommodates` the fully specified name, etc.
80300	MAPPING TARGETS	803;0	Multiple #9000011.803	9000011.803

Name	Field # of Occurrence
^%DT	.03+1, .08+1, .13+1, 1.07+1, 1.09+1, 2.02+1
NOW^%DTC	.03(XREF 1S)
HELP^AUPNSICD	.01(HELP )
$$OUT^AUPNVPLC	.15OT+1
HELP^AUPNVPLC	.15(HELP )
INPUT^AUPNVPLC	.15+1
$$AQ^AUPNVUTL	.22OT+1
$$CONCPT^AUPNVUTL	.019+1
$$PNPROB^AUPNVUTL	.05OT+1
AST^AUPNVXRF	.01(XREF 3S)
^DIC	.01+1, .05+1, .16+1, .17+1, .18+1, 1.08+1, 2.01+1
Y^DIQ	ID.06+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	.019+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03(XREF 1S), .06(XREF 2S), .06(XREF 2K) , .07+1, .07(XREF 1S), .07(XREF 1K), .12(XREF 1S), .12(XREF 1K), .14(XREF 1S), .14(XREF 1K), .22(XREF 1S), .22(XREF 1K), 80001(XREF 999999901S) , 80001(XREF 999999901K), 80001(XREF 999999902S), 80001(XREF 999999902K), 80002(XREF 999999901S), 80002(XREF 999999901K)
^AUPNPROB("AA"	.02(XREF 2S), .02(XREF 2K), .06(XREF 2S), .06(XREF 2K), .07+1, .07(XREF 1S), .07(XREF 1K)
^AUPNPROB("AAUD"	.14(XREF 1S), .14(XREF 1K)
^AUPNPROB("AC"	.02(XREF 1S), .02(XREF 1K)
^AUPNPROB("ACTIVE"	.02(XREF 3S), .02(XREF 3K), .12(XREF 1S), .12(XREF 1K)
^AUPNPROB("ADLM"	.03(XREF 2S), .03(XREF 2K)
^AUPNPROB("APCT"	80001(XREF 999999901S), 80001(XREF 999999901K)
^AUPNPROB("APDI"	80002(XREF 999999901S), 80002(XREF 999999901K)
^AUPNPROB("ASCT"	80001(XREF 1S), 80001(XREF 1K)
^AUPNPROB("ASLT"	.02(XREF 4S), .02(XREF 4K), .22(XREF 1S), .22(XREF 1K), 80001(XREF 999999902S), 80001(XREF 999999902K)
^AUPNPROB("B"	.01(XREF 1S), .01(XREF 1K)
^AUPNPROB("C"	1.01(XREF 1S), 1.01(XREF 1K)
^AUPNPROB("MODIFIED"	.03(XREF 1S)
^DD(4	ID.06+1
^DIC(4 - [#4]	ID.06+1
^DPT - [#2]	ID.02+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	.03(XREF 1S)
>> %DT	.03+1, .08+1, .13+1, 1.07+1, 1.09+1, 2.02+1
%I	ID.06+1*!
>> APCDALVR	.05+1, .05SCR+1
>> APCDLOOK	.01(XREF 2S)
>> C	ID.06+1*
>> D0	.019+1, .15OT+1
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K) , .03(XREF 1S), .03(XREF 2S), .03(XREF 2K), .06(XREF 2S), .06(XREF 2K), .07+1, .07(XREF 1S), .07(XREF 1K), .12(XREF 1S), .12(XREF 1K) , .14(XREF 1S), .14(XREF 1K), .22(XREF 1S), .22(XREF 1K), 1.01(XREF 1S), 1.01(XREF 1K), 80001(XREF 1S), 80001(XREF 1K), 80001(XREF 999999901S), 80001(XREF 999999901K) , 80001(XREF 999999902S), 80001(XREF 999999902K), 80002(XREF 999999901S), 80002(XREF 999999901K)
DIC	ID.02+1, ID.06+1, .01+1!, .05+1!, .16+1!, .17+1!, .18+1!, 1.08+1!, 2.01+1!*
DIC("DR"	.01(XREF 2S)
DIC("S"	.01+1, .01SCR+1, .03SCR+1, .08SCR+1, .16+1, .16SCR+1, .17+1, .17SCR+1, .18+1, .18SCR+1 , 1.08+1, 1.08SCR+1, 2.01+1, 2.01SCR+1
DIC(0	.05+1, .05SCR+1
>> DIE	.01+1, .05+1, .16+1, .17+1, .18+1, 1.08+1, 2.01+1
DT	.03+1, .08+1, .13+1, 1.09+1
U	ID.02+1, ID.06+1, ID.07+1, .019+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K) , .06(XREF 2S), .06(XREF 2K), .07+1, .07(XREF 1S), .07(XREF 1K), .12(XREF 1S), .12(XREF 1K), .14(XREF 1S), .14(XREF 1K), .22(XREF 1S) , .22(XREF 1K), 80001(XREF 999999901S), 80001(XREF 999999901K), 80001(XREF 999999902S), 80001(XREF 999999902K), 80002(XREF 999999901S), 80002(XREF 999999901K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .019+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K) , .02(XREF 4S), .02(XREF 4K), .03+1!, .03(XREF 2S), .03(XREF 2K), .05+1!, .06(XREF 2S), .06(XREF 2K), .07+1!, .07(XREF 1S) , .07(XREF 1K), .08+1!, .12(XREF 1S), .12(XREF 1K), .13+1!, .14(XREF 1S), .14(XREF 1K), .15+1!, .16+1!, .17+1! , .18+1!, .21+1!, .22+1!, .22(XREF 1S), .22(XREF 1K), 1.01(XREF 1S), 1.01(XREF 1K), 1.07+1!, 1.08+1!, 1.09+1! , 2.01+1!, 2.02+1!, 2.04+1!, 80001+1!, 80001(XREF 1S), 80001(XREF 1K), 80001(XREF 999999901S), 80001(XREF 999999901K), 80001(XREF 999999902S), 80001(XREF 999999902K) , 80002+1!, 80002(XREF 999999901S), 80002(XREF 999999901K), 80003+1!, 80004+1!, 80102+1!
X1	.02(XREF 2S), .02(XREF 2K), .06(XREF 2S), .06(XREF 2K)
X2	.02(XREF 2S), .02(XREF 2K), .06(XREF 2S), .06(XREF 2K)
>> Y	ID.06+1, .01+1, .03+1, .05+1, .05OT+1, .08+1, .13+1, .15OT+1, .16+1, .17+1 , .18+1, .22OT+1, 1.07+1, 1.08+1, 1.09+1, 2.01+1, 2.02+1
>> Y(0	.05OT+1, .15OT+1, .22OT+1*
>> Y(9000011	.019+1*

Customize PDF page

Package: IHS Patient

Global: ^AUPNPROB

Information

Description

Directly Accessed By Routines, Total: 779

Accessed By FileMan Db Calls, Total: 117

Pointed To By FileMan Files, Total: 15

Pointer To FileMan Files, Total: 10

Fields, Total: 56

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
^(0	ID.02+1, ID.06+1, ID.07+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .06(XREF 2S), .06(XREF 2K), .07+1 , .07(XREF 1S), .07(XREF 1K), .12(XREF 1S)
^(800	.019+1