STANDARD DATA DICTIONARY #9000011 -- PROBLEM FILE 3/24/25 PAGE 1
STORED IN ^AUPNPROB( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains patient specific problems entered by the various providers of service. The PATIENT NAME field (.02) is a
backward pointer to the IHS PATIENT file. This file contains one record for each problem for each patient, therefore, the KEY
field (.01) is duplicated.
As of March 17, 1986 the FACILITY must be entered prior to the NUMBER. If the NUMBER is entered without previously entering the
FACILITY the "AA" index is created with no FACILITY pointer.
IDENTIFIED BY: PATIENT NAME (#.02)[R], FACILITY (#.06)[R], NMBR (#.07)[R]
POINTED TO BY: PROBLEM field (#.01) of the PROBLEM LIST AUDIT File (#125.8)
PROBLEM field (#.02) of the TIU PROBLEM LINK File (#8925.9)
PROBLEM LIST ENTRY field (#.16) of the V POV File (#9000010.07)
PROBLEM LIST ENTRY field (#.06) of the V STANDARD CODES File (#9000010.71)
CROSS
REFERENCED BY: NMBR(AA), PATIENT NAME(AATOO), FACILITY(AATOO2), PATIENT NAME(AC), STATUS(ACTIVE), PATIENT NAME(ACTIVE1),
SNOMED CT CONCEPT CODE(ASCT), FACILITY(AV1), DIAGNOSIS(AV9), DIAGNOSIS(B), PROBLEM(C),
DATE LAST MODIFIED(MODIFIED)
INDEXED BY: DIAGNOSIS & PATIENT NAME & DATE LAST MODIFIED & STATUS & PRIORITY & CONDITION & CODING SYSTEM (ACR01), CODE & CODING
SYSTEM (ACRMT), DATE LAST MODIFIED & STATUS & PRIORITY & CONDITION (ACRMTA), SNOMED CT CONCEPT CODE & PATIENT NAME &
DATE LAST MODIFIED & STATUS & PRIORITY & CONDITION (ACRSCT), DATE ENTERED & SNOMED CT-TO-ICD MAP STATUS (DM)
9000011,.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Required)
INPUT TRANSFORM: S DIC("S")="I 1 Q:$G(DUZ(""AG""))=""V"" I $E(^(0))'=""E"",$P(^(0),U,9)="""" Q:$P(^(0),U,10)=""""
I $P(^(0),U,10)=AUPNSEX" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 30, 2012
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")="I 1 Q:$G(DUZ(""AG""))=""V"" I $E(^(0))'=""E"",$P(^(0),U,9)="""" Q:$P(^(0),U,10)=""""
I $P(^(0),U,10)=AUPNSEX"
EXPLANATION: Cannot be an E code or an inactive code and must be appropriate for the sex of the Patient.
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^AV9^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.
RECORD INDEXES: ACR01 (#703)
9000011,.02 PATIENT NAME 0;2 POINTER TO PATIENT/IHS FILE (#9000001) (Required)
LAST EDITED: NOV 30, 2012
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.
RECORD INDEXES: ACR01 (#703), ACRSCT (#755)
9000011,.03 DATE LAST MODIFIED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: NOV 30, 2012
HELP-PROMPT: TYPE A DATE BETWEEN 1900 AND TODAY
DESCRIPTION:
This is the last date/time this problem was changed.
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(^AUPNPRO
B(DA,0),"^",2),%)=""
2)= Q
This Index will keep track of the last time this Patients problem list was modified.
^AUPNPROB("MODIFIED"),PATIENT,DATE
RECORD INDEXES: ACR01 (#703), ACRMTA (#429), ACRSCT (#755)
9000011,.04 CLASS 0;4 SET
'P' FOR PERSONAL HISTORY;
'F' FOR FAMILY HISTORY;
LAST EDITED: OCT 07, 1987
HELP-PROMPT: If this problem is historical, indicate if it is Personal or Family history.
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.
9000011,.05 PROVIDER NARRATIVE 0;5 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) (Required)
INPUT TRANSFORM: S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 28, 1988
HELP-PROMPT: Enter a description of this patient's problem.
DESCRIPTION:
This contains the actual text used by the provider to describe this problem.
9000011,.06 FACILITY 0;6 POINTER TO LOCATION FILE (#9999999.06) (Required)
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.
9000011,.07 NMBR 0;7 NUMBER (Required)
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.
9000011,.08 DATE ENTERED 0;8 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 07, 2012
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 (#756)
9000011,.12 STATUS 0;12 SET (Required)
'A' FOR ACTIVE;
'I' FOR INACTIVE;
LAST EDITED: NOV 30, 2012
HELP-PROMPT: Enter the current status of this problem, active or inactive.
DESCRIPTION: This is the current activity status of this problem, whether active or inactive; if more detail is
needed, a notation may be filed with this problem.
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 (#703), ACRMTA (#429), ACRSCT (#755)
9000011,.13 DATE OF ONSET 0;13 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUN 13, 1993
HELP-PROMPT: TYPE A DATE BETWEEN 1880 AND TODAY
DESCRIPTION:
This is the approximate date this problem appeared, as precisely as known.
9000011,1.01 PROBLEM 1;1 POINTER TO EXPRESSIONS FILE (#757.01)
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)
9000011,1.02 CONDITION 1;2 SET
'T' FOR TRANSCRIBED;
'P' FOR PERMANENT;
'H' FOR HIDDEN;
LAST EDITED: NOV 30, 2012
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 (#703), ACRMTA (#429), ACRSCT (#755)
9000011,1.03 ENTERED BY 1;3 POINTER TO NEW PERSON FILE (#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.
9000011,1.04 RECORDING PROVIDER 1;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 02, 1996
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.
SCREEN: S DIC("S")="I $S('$D(^(""PS"")):1,'$P(^(""PS""),U,4):1,DT')$P(^(""PS""),U,4):1,1:0)&($D(^XUSEC(""PR
OVIDER"",Y)))"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9000011,1.05 RESPONSIBLE PROVIDER 1;5 POINTER TO NEW PERSON FILE (#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.
9000011,1.06 SERVICE 1;6 POINTER TO SERVICE/SECTION FILE (#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.
9000011,1.07 DATE RESOLVED 1;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 26, 1993
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.
9000011,1.08 CLINIC 1;8 POINTER TO HOSPITAL LOCATION FILE (#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.
9000011,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.
9000011,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.
9000011,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.
9000011,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.
9000011,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.
9000011,1.14 PRIORITY 1;14 SET
'A' FOR ACUTE;
'C' FOR CHRONIC;
LAST EDITED: NOV 30, 2012
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 (#703), ACRMTA (#429), ACRSCT (#755)
9000011,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.
9000011,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.
9000011,1.17 COMBAT VETERAN 1;17 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 25, 2003
HELP-PROMPT: If this problem is a result of combat it may be flagged here
9000011,1.18 SHIPBOARD HAZARD & DEFENSE 1;18 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 18, 2006
HELP-PROMPT: If this problem is a result of SHAD, it may be flagged here
9000011,1101 NOTE FACILITY 11;0 POINTER Multiple #9000011.11 (Add New Entry without Asking)
DESCRIPTION:
This is the location at which the notes in this multiple originated.
9000011.11,.01 NOTE FACILITY 0;1 POINTER TO LOCATION FILE (#9999999.06) (Multiply asked)
LAST EDITED: SEP 09, 1993
HELP-PROMPT: Enter the location at which these notes originated.
DESCRIPTION:
This is the location at which the notes in this multiple originated.
CROSS-REFERENCE: 9000011.11^B
1)= S ^AUPNPROB(DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^AUPNPROB(DA(1),11,"B",$E(X,1,30),DA)
9000011.11,1101 NOTE 11;0 Multiple #9000011.1111 (Add New Entry without Asking)
DESCRIPTION: Each entry in this multiple is a notation appended to a problem for further clarification or
information. Data includes a note number and status, the date the note was added, the provider
who added it, and the actual text of the note.
IDENTIFIED BY: NOTE NARRATIVE(#.03)[R]
9000011.1111,.01 NOTE NMBR 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 25, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the unique note identifier.
CROSS-REFERENCE: 9000011.1111^B
1)= S ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 9000011.1111^AV9^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.
9000011.1111,.03 NOTE NARRATIVE 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>200!($L(X)<3) X
LAST EDITED: AUG 14, 2014
HELP-PROMPT: Answer must be 3-200 characters in length.
DESCRIPTION:
Additional comments may be entered here to further describe this problem.
9000011.1111,.04 STATUS 0;4 SET (Required)
'A' FOR ACTIVE;
LAST EDITED: MAY 01, 1990
HELP-PROMPT: If this note is currently ACTIVE, indicate it here.
DESCRIPTION:
This flag indicates if this note is currently active.
9000011.1111,.05 DATE NOTE ADDED 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:DTX) X
LAST EDITED: JUL 26, 1993
HELP-PROMPT: TYPE A DATE BETWEEN 1880 AND TODAY
DESCRIPTION:
This is the date this note was entered into this file.
9000011.1111,.06 AUTHOR 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 30, 1993
HELP-PROMPT: Enter the name of the provider who authored the text of this note.
DESCRIPTION:
This is the provider who authored the text of this note.
9000011,80001 SNOMED CT CONCEPT CODE 800;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!'(X?1.40N) X
LAST EDITED: JUN 07, 2012
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.
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.
RECORD INDEXES: ACRSCT (#755)
9000011,80002 SNOMED CT DESIGNATION CODE 800;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!'(X?1.40N) X
LAST EDITED: JUN 06, 2012
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.
9000011,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.
9000011,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.
9000011,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 (#756)
9000011,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.
9000011,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.
9000011,80201 DATE OF INTEREST 802;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 24, 2012
HELP-PROMPT: (No range limit on date)
DESCRIPTION: This is the date when the DIAGNOSIS (#.01) and CODING SYSTEM (#80202) fields were filed or
modified. This allows proper resolution of the code, irrespective of code set versions, etc.
9000011,80202 CODING SYSTEM 802;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: JUL 17, 2012
HELP-PROMPT: Answer must be 3 characters in length.
DESCRIPTION: This identifies the Coding System to which the Code belongs. It corresponds to the Coding System
Abbreviation in the ICD Coding Systems File, to optimize internal/external API calls for resolving
codes, independent of their code set version, and to facilitate transition from ICD-9-CM to
ICD-10-CM.
Examples include:
CODING SYS
ABBREV NOMENCLATURE ICD FILE
---------------------------------------------
10D ICD-10-CM ICD Diagnosis
ICD ICD-9-CM ICD Diagnosis
TECHNICAL DESCR: This field is populated via M code and utilizes incremental/decremental timed locks to the PROBLEM
file #9000011 for new problem entries. The Coding System Source Abbreviation (SAB) is
programmatically filed in NEW^GMPLSAVE. The Coding System SAB is further validated before storage
by utilizing the following ICD API's: $$CSI^ICDEX and $$SAB^ICDEX. This ensures that the correct
code version or SAB is getting filed.
RECORD INDEXES: ACR01 (#703)
9000011,80300 MAPPING TARGETS 803;0 Multiple #9000011.803 (Add New Entry without Asking)
DESCRIPTION: This multiple includes mapped expressions: complications, comorbidities, and compound diagnoses.
e.g., the single SNOMED CT concept Diabetic neuropathy (230572002) is mapped to two ICD-9-CM
diagnoses: DIABETES WITH NEUROLOGICAL MANIFESTATIONS, TYPE II OR UNSPECIFIED TYPE, NOT STATED AS
UNCONTROLLED (250.60) and POLYNEUROPATHY IN DIABETES (357.2).
9000011.803,.01 CODE 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the code in the target coding system to which the problem is mapped.
CROSS-REFERENCE: 9000011.803^B
1)= S ^AUPNPROB(DA(1),803,"B",$E(X,1,30),DA)=""
2)= K ^AUPNPROB(DA(1),803,"B",$E(X,1,30),DA)
RECORD INDEXES: ACRMT (#754) (WHOLE FILE #9000011)
9000011.803,.02 CODING SYSTEM 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<3) X
LAST EDITED: OCT 24, 2012
HELP-PROMPT: Answer must be 3-7 characters in length.
DESCRIPTION: This identifies the Coding System to which the Code belongs. It corresponds to the Source
Abbreviation in the Coding Systems File, to optimize calls to the Lexicon and ICD APIs for
resolving codes, independent of their code set version, and to facilitate transition from
ICD-9-CM to ICD-10-CM. Examples include:
SOURCE ABBREV NOMENCLATURE SOURCE TITLE
--------------------------------------------------------------------------
10D ICD-10-CM International Classification of Diseases, Diagnosis ICD ICD-9-CM
International Classification of Diseases, Diagnosis
RECORD INDEXES: ACRMT (#754) (WHOLE FILE #9000011)
9000011.803,.03 CODE DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 06, 2012
HELP-PROMPT: (No range limit on date)
DESCRIPTION: This is the date when the code and coding system were filed. This allows proper resolution of the
code, irrespective of code set versions, etc.
FILES POINTED TO FIELDS
EXPRESSIONS (#757.01) PROBLEM (#1.01)
HOSPITAL LOCATION (#44) CLINIC (#1.08)
ICD DIAGNOSIS (#80) DIAGNOSIS (#.01)
LOCATION (#9999999.06) FACILITY (#.06)
NOTE FACILITY:NOTE FACILITY (#.01)
NEW PERSON (#200) ENTERED BY (#1.03)
RECORDING PROVIDER (#1.04)
RESPONSIBLE PROVIDER (#1.05)
NOTE:AUTHOR (#.06)
PATIENT/IHS (#9000001) PATIENT NAME (#.02)
PROVIDER NARRATIVE (#9999999.27) PROVIDER NARRATIVE (#.05)
SERVICE/SECTION (#49) SERVICE (#1.06)
File #9000011
Record Indexes:
ACR01 (#703) RECORD MUMPS IR ACTION
Short Descr: Clinical Reminders Index for ICD diagnosis code lookup.
Description: This cross-reference builds two indexes, one for finding all patients with a particular ICD diagnosis code and
one for finding all the ICD diagnosis codes a patient has. The indexes are stored in the Clinical Reminders
Index global as:
^PXRMINDX(9000011,CODESYS,"ISPP",CODE,STATUS,PRIORITY,DFN,DLM,DAS)
^PXRMINDX(9000011,CODESYS,"PSPI",DFN,STATUS,PRIORITY,CODE,DLM,DAS) respectively.
CODESYS is the standard three-character abbreviation for the coding system. STATUS can be "A" for active or
"I" for inactive. PRIORITY can be "A" for acute or "C" for chronic. If PRIORITY is missing, then a "U" will be
stored in the Index. For Problems whose PRIORITY is "C", Clinical Reminders uses today's date for the date of
the Problem. In all other cases, Clinical Reminders uses DLM, where DLM is the Date Last Modified. When
Problems are "removed", then CONDITION is set to "H" for hidden. Hidden Problems are not indexed. For complete
details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
Set Logic: D SPROB01^GMPLPXRM(.X,.DA)
Kill Logic: D KPROB01^GMPLPXRM(.X,.DA)
X(1): DIAGNOSIS (9000011,.01) (Subscr 1) (forwards)
X(2): PATIENT NAME (9000011,.02) (Subscr 2) (forwards)
X(3): DATE LAST MODIFIED (9000011,.03) (Subscr 3) (forwards)
X(4): STATUS (9000011,.12) (Subscr 4) (forwards)
X(5): PRIORITY (9000011,1.14)
X(6): CONDITION (9000011,1.02)
X(7): CODING SYSTEM (9000011,80202)
ACRMTA (#429) RECORD MUMPS IR ACTION
Short Descr: Clinical Reminders Index for Mapping Targets code lookup.
Description: This cross-reference builds two indexes, one for finding all patients with a particular Mapping Target code and
one for finding all the Mapping Target codes a patient has. The indexes are stored in the Clinical Reminders
Index global as:
^PXRMINDX(9000011,CODESYS,"ISPP",CODE,STATUS,PRIORITY,DFN,DLM,DAS)
^PXRMINDX(9000011,CODESYS,"PSPI",DFN,STATUS,PRIORITY,CODE,DLM,DAS) respectively.
CODESYS is the standard three-character abbreviation for the coding system. STATUS can be "A" for active or
"I" for inactive. PRIORITY can be "A" for acute or "C" for chronic. If PRIORITY is missing, then a "U" will be
stored in the Index. For Problems whose PRIORITY is "C", Clinical Reminders uses today's date for the date of
the Problem. In all other cases, Clinical Reminders uses DLM, where DLM is the Date Last Modified. When
Problems are "removed", then CONDITION is set to "H" for hidden. Hidden Problems are not indexed. For complete
details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
This cross-reference is based on the fields DATE LAST MODIFIED, STATUS, PRIORITY, and CONDITION because the
first three are Index subscripts Problems whose CONDITION equals HIDDEN are not indexed.
Set Logic: D SPROBMTA^GMPLPXRM(.X,.DA)
Kill Logic: D KPROBMTA^GMPLPXRM(.X,.DA)
X(1): DATE LAST MODIFIED (9000011,.03) (Subscr 1) (forwards)
X(2): STATUS (9000011,.12) (Subscr 2) (forwards)
X(3): PRIORITY (9000011,1.14)
X(4): CONDITION (9000011,1.02)
ACRSCT (#755) RECORD MUMPS IR ACTION
Short Descr: Clinical Reminders Index for SNOMED CT concept code lookup.
Description: This cross-reference builds two indexes, one for finding all patients with a particular SNOMED CT code and one
for finding all the SNOMED CT codes a patient has. The indexes are stored in the Clinical Reminders Index
global as:
^PXRMINDX(9000011,CODESYS,"ISPP",CODE,STATUS,PRIORITY,DFN,DLM,DAS)
^PXRMINDX(9000011,CODESYS,"PSPI",DFN,STATUS,PRIORITY,CODE,DLM,DAS) respectively.
CODESYS is the standard three-character abbreviation for the coding system. STATUS can be "A" for active or
"I" for inactive. PRIORITY can be "A" for acute or "C" for chronic. If PRIORITY is missing, then a "U" will be
stored in the Index. For Problems whose PRIORITY is "C", Clinical Reminders uses today's date for the date of
the Problem. In all other cases, Clinical Reminders uses DLM, where DLM is the Date Last Modified. When
Problems are "removed", then CONDITION is set to "H" for hidden. Hidden Problems are not indexed. For complete
details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
Set Logic: D SPROBSCT^GMPLPXRM(.X,.DA)
Kill Logic: D KPROBSCT^GMPLPXRM(.X,.DA)
X(1): SNOMED CT CONCEPT CODE (9000011,80001) (Subscr 1) (forwards)
X(2): PATIENT NAME (9000011,.02) (Subscr 2) (forwards)
X(3): DATE LAST MODIFIED (9000011,.03) (Subscr 3) (forwards)
X(4): STATUS (9000011,.12) (Subscr 4) (forwards)
X(5): PRIORITY (9000011,1.14)
X(6): CONDITION (9000011,1.02)
DM (#756) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Index on Date Entered & Map Status
Description: This REGULAR new-style index on Date Entered and SNOMED CT to ICD Map Status will facilitate the Mapping
Follow-up Report.
Set Logic: S ^AUPNPROB("DM",X(1),X(2),DA)=""
Kill Logic: K ^AUPNPROB("DM",X(1),X(2),DA)
Whole Kill: K ^AUPNPROB("DM")
X(1): DATE ENTERED (9000011,.08) (Subscr 1) (forwards)
X(2): SNOMED CT-TO-ICD MAP STATUS (9000011,80005) (Subscr 2) (forwards)
Subfile #9000011.803
Record Indexes:
ACRMT (#754) RECORD MUMPS IR ACTION WHOLE FILE (#9000011)
Short Descr: Clinical Reminders Index for Mapping Targets code lookup.
Description: This cross-reference builds two indexes, one for finding all patients with a particular Mapping Target code and
one for finding all the Mapping Target codes a patient has. The indexes are stored in the Clinical Reminders
Index global as:
^PXRMINDX(9000011,CODESYS,"ISPP",CODE,STATUS,PRIORITY,DFN,DLM,DAS)
^PXRMINDX(9000011,CODESYS,"PSPI",DFN,STATUS,PRIORITY,CODE,DLM,DAS) respectively.
CODESYS is the standard three-character abbreviation for the coding system. STATUS can be "A" for active or
"I" for inactive. PRIORITY can be "A" for acute or "C" for chronic. If PRIORITY is missing, then a "U" will be
stored in the Index. For Problems whose PRIORITY is "C", Clinical Reminders uses today's date for the date of
the Problem. In all other cases, Clinical Reminders uses DLM, where DLM is the Date Last Modified. When
Problems are "removed", then CONDITION is set to "H" for hidden. Hidden Problems are not indexed. For complete
details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
Set Logic: D SPROBMT^GMPLPXRM(.X,.DA)
Kill Logic: D KPROBMT^GMPLPXRM(.X,.DA)
X(1): CODE (9000011.803,.01) (Subscr 1) (forwards)
X(2): CODING SYSTEM (9000011.803,.02) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):