STANDARD DATA DICTIONARY #790.1 -- WV PROCEDURE FILE 3/24/25 PAGE 1
STORED IN ^WV(790.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the Women Veterans Health's database of procedures actually performed and the data associated with them.
DD ACCESS: @
RD ACCESS:
WR ACCESS:
DEL ACCESS:
LAYGO ACCESS:
AUDIT ACCESS: @
IDENTIFIED BY: PATIENT (#.02)[R], DATE OF PROCEDURE (#.12)
POINTED TO BY: SCREENING PAP field (#.3) of the WV PROCEDURE File (#790.1)
ACCESSION# field (#.06) of the WV NOTIFICATION File (#790.4)
ITEM field (#.01) of the ITEMS sub-field (#809.04) of the REMINDERS EPISODE OF CARE File (#809)
CROSS
REFERENCED BY: RESULTS/DIAGNOSIS(ABNML), DATE OF PROCEDURE(ABNML1), SCREENING PAP(ACOLP), VISIT(AD), DATE FIRST ENTERED(ADE),
PROCEDURE(APCD), ACCESSION#(B), PATIENT(C), DATE OF PROCEDURE(D), RADIOLOGY MAM CASE#(E), LAB ACCESSION#(F),
STATUS(S), VISIT(V)
INDEXED BY: PATIENT & DATE OF PROCEDURE (AC), DATE OF PROCEDURE & PROCEDURE & RADIOLOGY MAM CASE# & STATUS (ARADOPEN), NOTE
(NOTE)
LAST MODIFIED: DEC 7,2021@15:11:18
790.1,.01 ACCESSION# 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>12!($L(X)<6) X
LAST EDITED: JUL 29, 1994
HELP-PROMPT: Answer must be 6-12 characters in length.
DESCRIPTION: This is the record number assigned by the Women's Health package. It is composed of the
procedure's abbreviated code, a four digit year and a sequential number.
CROSS-REFERENCE: 790.1^B
1)= S ^WV(790.1,"B",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"B",$E(X,1,30),DA)
790.1,.02 PATIENT 0;2 POINTER TO WV PATIENT FILE (#790) (Required)
LAST EDITED: MAY 07, 1998
DESCRIPTION: This field contains the name of the patient associated with the procedure. Pointer to the WV
Patient (#790) file.
CROSS-REFERENCE: 790.1^C
1)= S ^WV(790.1,"C",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"C",$E(X,1,30),DA)
RECORD INDEXES: AC (#564)
790.1,.04 PROCEDURE 0;4 POINTER TO WV PROCEDURE TYPE FILE (#790.2) (Required)
LAST EDITED: OCT 20, 2017
DESCRIPTION: This field stores the name of the procedure performed on the patient. Pointer to the WV Procedure
(#790.1) file.
CROSS-REFERENCE: 790.1^APCD
1)= S ^WV(790.1,"APCD",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"APCD",$E(X,1,30),DA)
RECORD INDEXES: ARADOPEN (#1587)
790.1,.05 RESULTS/DIAGNOSIS 0;5 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
INPUT TRANSFORM: S DIC("S")="D PROCSCRN^WVUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1998
DESCRIPTION: This field stores the main result or diagnosis of the patient's procedure. Pointer to the WV
Results/Diagnosis (#790.31) file.
SCREEN: S DIC("S")="D PROCSCRN^WVUTL2"
EXPLANATION: Select the result or diagnosis for this Procedure.
CROSS-REFERENCE: 790.1^ABNML^MUMPS
1)= D XREFP05^WVUTL2
2)= ;
790.1,.06 SEC RESULT/DIAGNOSIS 0;6 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
INPUT TRANSFORM: S DIC("S")="D PROCSCRN^WVUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1998
DESCRIPTION: This field stores a secondary outcome/diagnosis associated with the procedure. Pointer to the WV
Results/Diagnosis (#790.31) file.
SCREEN: S DIC("S")="D PROCSCRN^WVUTL2"
EXPLANATION: Select the result or diagnosis for this Procedure.
790.1,.07 PROVIDER 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 08, 1996
HELP-PROMPT: Select the provider/clinician who performed this procedure.
DESCRIPTION:
This field stores the name of the clinician who ordered and/or performed this procedure.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))"
EXPLANATION: This person must be listed as a PROVIDER in the NEW PERSON file.
790.1,.08 HPV 0;8 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 13, 1994
HELP-PROMPT: Enter 'Yes' if the lab reports include HPV.
DESCRIPTION: This field is used to document the presence or absence of the Human Papilloma Virus (HPV) in the
cytology reports.
790.1,.09 MAM UNILATERAL: LEFT OR RIGHT 0;9 SET
'l' FOR LEFT;
'r' FOR RIGHT;
LAST EDITED: JAN 20, 1995
HELP-PROMPT: Select left or right for this unilateral mammogram.
DESCRIPTION:
Select left or right for this unilateral mammogram.
790.1,.1 HEALTH CARE FACILITY 0;10 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAY 07, 1998
HELP-PROMPT: Enter the name of the health care facility where this procedure was performed.
DESCRIPTION:
This field identifies the name of the health care facility where this procedure was performed.
790.1,.11 WARD/CLINIC/LOCATION 0;11 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: JUL 12, 1994
HELP-PROMPT: Enter the ward, clinic, or location in which the procedure was performed.
DESCRIPTION:
This field contains the name of the ward, clinic, or location where the procedure was performed.
790.1,.12 DATE OF PROCEDURE 0;12 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X>DT X K:Y<1 X
LAST EDITED: OCT 20, 2017
HELP-PROMPT: Enter the date on which the procedure was performed. Dates in the future may not be entered.
DESCRIPTION: This field identifies the date on which the procedure was performed. Dates in the future may not be
entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 790.1^ABNML1^MUMPS
1)= D XREFP12^WVUTL2
2)= K ^WV(790.1,"ABNML",X,DA)
CROSS-REFERENCE: 790.1^D
1)= S ^WV(790.1,"D",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"D",$E(X,1,30),DA)
RECORD INDEXES: AC (#564), ARADOPEN (#1587)
790.1,.13 COMPLETE BY (DATE) 0;13 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 18, 1994
HELP-PROMPT: Enter the date after which this procedure will be marked 'Delinquent' if it has not been 'Closed',
under the Status field.
DESCRIPTION: This field contains the date used to determine that this procedure record is delinquent when a
close status has not been entered in the record.
790.1,.14 STATUS 0;14 SET
'o' FOR OPEN;
'c' FOR CLOSED;
'e' FOR ENTER IN ERROR;
LAST EDITED: JUL 06, 2020
HELP-PROMPT: Enter the status of this procedure.
DESCRIPTION: This field contains the status (set of codes: O = Open, C = Closed). The value of this field is
used in the Program Snapshot reports and the Browse Patients with Needs Past Due report.
CROSS-REFERENCE: 790.1^S
1)= S ^WV(790.1,"S",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"S",$E(X,1,30),DA)
This cross-reference allows for a lookup of women's health procedure by the procedure status.
RECORD INDEXES: ARADOPEN (#1587)
790.1,.15 RADIOLOGY MAM CASE# 0;15 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X
LAST EDITED: OCT 20, 2017
HELP-PROMPT: Enter the VISTA Radiology case# for this mammogram.
DESCRIPTION: This field stores the VISTA Radiology/Nuclear Medicine case# for this mammogram procedure when the
Women's Health package automatically imports radiology procedures.
CROSS-REFERENCE: 790.1^E
1)= S ^WV(790.1,"E",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"E",$E(X,1,30),DA)
This is the crossreference for the Radiology Case#. If mammograms from the VISTA Radiology
software are imported into the Women's Health database, field #.15 in the WV PROCEDURES file, this
xref will allow one to identify the Radiology Procedure that links to this one.
RECORD INDEXES: ARADOPEN (#1587)
790.1,.16 PROCESSED Y/N? 0;16 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 16, 2002
HELP-PROMPT: Answer YES if resulted via a Clinical Reminder.
DESCRIPTION: This field indicates if the procedure result was entered via a Clinical Reminder.
Answer YES to indicate the procedure result was entered by a Clinical Reminder. Answer NO if the
procedure result was not entered by a Clinical Reminder.
790.1,.18 ENTERING USER 0;18 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 27, 2016
HELP-PROMPT: Enter the name of the user who first entered this procedure.
DESCRIPTION:
This field stores the name of the person initially creating this record.
790.1,.19 DATE FIRST ENTERED 0;19 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 30, 1994
HELP-PROMPT: Enter the date on which this procedure was first entered.
DESCRIPTION:
This field stores the date on which this procedure record was first entered.
CROSS-REFERENCE: 790.1^ADE
1)= S ^WV(790.1,"ADE",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"ADE",$E(X,1,30),DA)
790.1,.2 SATISFACTORY EXAM 0;20 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 17, 1994
HELP-PROMPT: Enter 'Yes' if this exam was satisfactory.
DESCRIPTION: This field documents that the procedure or gynecologic exam was satisfactorily performed without
any impediments. Set of codes (1 = Yes, 0 = No).
790.1,.21 T-ZONE SEEN ENTIRELY 0;21 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 17, 1994
HELP-PROMPT: Enter 'Yes' if the entire T-Zone was seen.
DESCRIPTION: This field documents (set of codes: 1 = Yes, 0 = No) that the T-Zone in the colposcopy/biopsy
procedure was adequately visualized.
790.1,.22 LESION OUTSIDE CANAL 0;22 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 17, 1994
HELP-PROMPT: Enter 'Yes' if the lesion was outside the canal.
DESCRIPTION: This field documents (set of codes: 1 = Yes, 0 = No) that the lesion seen during the procedure was
outside the canal.
790.1,.23 MULTIFOCAL 0;23 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 17, 1994
HELP-PROMPT: Was the lesion multifocal (as opposed to unifocal)?
DESCRIPTION: This field documents (set of codes: 1 = Yes, 0 = No) that the lesion seen during the procedure was
multifocal (as opposed to unifocal).
790.1,.24 NUMBER OF QUADRANTS 0;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 17, 1994
HELP-PROMPT: Enter the number of quadrants occupied by the lesion.
DESCRIPTION:
This field contains a number (0-4) that identifies the number of quadrants occupied by the lesion.
790.1,.245 QUADRANT LOCATIONS 2;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<2) X Q:$G(X)="" S WV9=$$QUAD^WVUTL1A(X) K:'WV9 X Q:$G(X)="" S:X'=$P(WV9,U,2) X=
$P(WV9,U,2) K:$P(WV9,U,2)="" X K WV9 Q
LAST EDITED: MAY 21, 1998
HELP-PROMPT: Enter two letter abbreviations for the location(s) of the affected quadrants (ie. UL,LL,UR,LR)
separated by commas. Answer must be 2-11 upper case characters in length.
DESCRIPTION: The location of the affected quadrants. Any of the following abbreviations may be selected:
UL,LL,UR,LR.
UL - Upper Left quadrant LL - Lower Left quadrant UR - Upper Right quadrant LR - Lower Right
quadrant
If more than one quadrant is included separate them with a comma, ie: LL, UL,UR will represent the
inclusion of 3 of the 4 quadrants.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
790.1,.25 ECC DYSPLASIA 0;25 SET
'y' FOR YES;
'n' FOR NO;
'nd' FOR Not Done;
'i' FOR Insufficient Tissue;
LAST EDITED: OCT 19, 1994
HELP-PROMPT: Choose Yes, No, Not Done, or Insufficient Tissue.
DESCRIPTION: This field indicates if ectocervical dysplasia was present, if an insufficient tissue sample was
provided, or the sample was not examined for dysplasia.
790.1,.26 ECTOCERVICAL BIOPSY 0;26 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
INPUT TRANSFORM: S DIC("S")="D PROCSCRN^WVUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1998
DESCRIPTION: This field contains the diagnosis or impression resulting from the cytology examination. Pointer
to the WV Results/Diagnosis (#790.31) file.
SCREEN: S DIC("S")="D PROCSCRN^WVUTL2"
EXPLANATION: Select the diagnosis for the Ectocervical Biopsy.
790.1,.27 MARGINS CLEAR 0;27 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 17, 1994
HELP-PROMPT: Enter 'Yes' if the pathology report states that the margins were clear; enter 'No' if not.
DESCRIPTION:
This field indicates tissue sample showed no pathology at the margins of the tissue sample.
790.1,.28 STD EVALUATION 0;28 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
INPUT TRANSFORM: S DIC("S")="D PROCSCRN^WVUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1998
DESCRIPTION: This field documents the findings after testing for sexually transmitted diseases. Pointer to the
WV Results/Diagnosis (#790.31) file.
SCREEN: S DIC("S")="D PROCSCRN^WVUTL2"
EXPLANATION: Select the diagnosis for the STD Evaluation.
790.1,.29 IMPRESSION 0;29 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
INPUT TRANSFORM: S DIC("S")="D PROCSCRN^WVUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1998
DESCRIPTION: This field contains the impression of the clinician performing the exam. Pointer to the WV
Results/Diagnosis (#790.31) file.
SCREEN: S DIC("S")="D PROCSCRN^WVUTL2"
EXPLANATION: Select the Result/Diagnosis that best matches the Care Provider's Impression.
790.1,.3 SCREENING PAP 0;30 POINTER TO WV PROCEDURE FILE (#790.1)
INPUT TRANSFORM: S DIC("S")="D PAPSCRN^WVUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 01, 1995
DESCRIPTION: This field stores the PAP procedure associated with the follow-up procedure (e.g., colposcopy).
Pointer to the WV Procedure (#790.1) file.
SCREEN: S DIC("S")="D PAPSCRN^WVUTL2"
EXPLANATION: Select the Screening PAP that initiated this Colposcopy.
CROSS-REFERENCE: 790.1^ACOLP^MUMPS
1)= I $P(^WV(790.1,DA,0),U,4)=2 S ^WV(790.1,"ACOLP",X,(9999999-$P(^WV(790.1,DA,0),U,12)),DA)=""
2)= K ^WV(790.1,"ACOLP",X,(9999999-$P(^WV(790.1,DA,0),U,12)),DA)
If this procedure is a Colposcopy, set a crossreference on the PAP that it points to and the
inverse date. This will allow the PAP to bring up the most recent Colp related to it.
790.1,.31 STAGE AT FINAL DX 0;31 SET
'1' FOR I;
'2' FOR II;
'3' FOR III;
'4' FOR IV;
'5' FOR S-Local;
'6' FOR S-Regional;
'7' FOR S-Distant;
'8' FOR Unknown;
LAST EDITED: JUL 31, 1995
HELP-PROMPT: If the final diagnosis is "Invasive carcinoma" enter the pathologic or clinical stage. If clinical
stage is unknown, enter the summary ('S-') stage.
DESCRIPTION: This field is used to document the clinical stage for invasive carcinoma of the cervix. If
clinical stage is unknown, enter the summary ('S-') stage.
790.1,.32 DATE RESULTS RECEIVED 0;32 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 15, 1995
HELP-PROMPT: Enter the date that the results were received/uploaded from the lab.
DESCRIPTION:
Enter the date that the results were received/uploaded from the lab.
790.1,.33 FINAL DX PAP/COLP 0;33 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1998
HELP-PROMPT: Enter the Final Diagnosis for this PAP/Colp case.
DESCRIPTION:
Enter the Final Diagnosis for this PAP/Colp case.
SCREEN: S DIC("S")="I $P(^(0),U,26)"
EXPLANATION: Only Pap/Colp Final Diagnoses may be selected.
790.1,.34 FACILITY WHERE ACCESSIONED 0;34 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAY 07, 1998
HELP-PROMPT: Select the facility where this procedure was accessioned.
DESCRIPTION:
Select the facility where this procedure was accessioned.
790.1,.35 RADIOLOGY CREDIT METHOD 0;35 SET
'0' FOR Regular Credit;
'1' FOR Interpretation Only;
'2' FOR No credit;
'3' FOR Technical Component Only;
LAST EDITED: JUN 17, 1998
DESCRIPTION: This field is a set of codes that identify if the radiology exam was performed at the facility or
elsewhere. This value is automatically entered by the Radiology/NM package when a radiology report
is verified and the WH site parameter is set to accept data from the Radiology/NM package.
This piece of information will be used for WH reporting requirements to determine how many
radiology procedures were performed at the facility and elsewhere.
790.1,.36 OUTSIDE REPORT 0;36 SET
'1' FOR TRUE;
'0' FOR FALSE;
LAST EDITED: AUG 07, 2017
HELP-PROMPT: Enter True if this procedure is being entered from a patient report.
DESCRIPTION: This field marks if the procedure is related to a procedure done outside the VA. This field is set
from the Reminder Dialog that updates the procedure entry.
790.1,1.01 NOTES 1;0 WORD-PROCESSING #790.11
LAST EDITED: MAR 08, 1999
DESCRIPTION: This field allows you to enter word-processing text in which to elaborate further on the results of
this patients various tests.
LAST EDITED: MAR 08, 1999
DESCRIPTION: This field allows you to enter word-processing text in which to elaborate further on the results
of this patients various tests.
790.1,2.17 LAB ACCESSION# 2;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
LAST EDITED: FEB 22, 1999
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION: This field contains the lab accession number from the LAB DATA file (#63) for the patient, if this
procedure entry is a lab test.
CROSS-REFERENCE: 790.1^F
1)= S ^WV(790.1,"F",$E(X,1,30),DA)=""
2)= K ^WV(790.1,"F",$E(X,1,30),DA)
3)= ALLOWS LOOK-UP BY LAB ACCESSION NUMBER
This regular cross-reference allows the user to select a Women's Health procedure entry by the Lab
package accession number.
790.1,2.18 LAB DATA FILE IEN 2;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 19, 1999
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION: This field contains the internal entry number of the LAB DATA file (#63) for the patient, if this
procedure entry is a lab test.
790.1,2.19 LAB INVERSE DATE/TIME 2;19 FREE TEXT
INPUT TRANSFORM: K:$L(X)>14!($L(X)<7) X
LAST EDITED: FEB 23, 1999
HELP-PROMPT: Answer must be 7-14 characters in length.
DESCRIPTION: This field contains the inverse date/time of a lab test from the LAB DATA file (#63) for the
patient, if this procedure entry is a lab test.
790.1,2.2 LAB SUBSCRIPT 2;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2) X
LAST EDITED: APR 19, 1999
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION: This field contains a character string that distinguishes the type of lab test performed. The
letters "CY" will represent a cytology test and the letters "SP" will represent a surgical
pathology test.
790.1,3.01 COMMENTS 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>78!($L(X)<1) X
MAXIMUM LENGTH: 78
LAST EDITED: JUN 03, 2017
HELP-PROMPT: You may enter a one-line clinical history note (limited to 78 characters).
DESCRIPTION:
You may enter a one-line clinical history note (limited to 78 characters).
790.1,9 REPORTS 9;0 WORD-PROCESSING #790.19
LAST EDITED: MAR 10, 1999
DESCRIPTION: This field is not editable through WH options. The lab or radiology exams related to this
procedure are presented here.
LAST EDITED: MAR 10, 1999
HELP-PROMPT: The lab or radiology report is uneditable and is extracted from the Lab or Radiology package each
time it is viewed.
DESCRIPTION: This field is not editable through WH options. The lab or radiology exams related to this
procedure are presented here.
790.1,10 PROCEDURE ACTIONS 10;0 Multiple #790.23
LAST EDITED: JUN 03, 2017
DESCRIPTION: Procedure actions tracks the actions the user selected in the Reminder Dialog that updates the WV
Procedure file.
INDEXED BY: DATE/TIME & ACTION (DATE)
790.23,.01 ACTION 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>120!($L(X)<3) X
MAXIMUM LENGTH: 120
LAST EDITED: SEP 18, 2017
HELP-PROMPT: Enter action text (1 TO 120 characters) (DO NOT EDIT THIS FIELD)
DESCRIPTION:
This field corresponds to an item the user selected in a Reminder Dialog.
CROSS-REFERENCE: 790.23^B
1)= S ^WV(790.1,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^WV(790.1,DA(1),10,"B",$E(X,1,30),DA)
RECORD INDEXES: DATE (#1589)
790.23,1 DATE/TIME 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: SEP 18, 2017
HELP-PROMPT: Enter the Date/Time this Action was updated (No range on limit on date)
DESCRIPTION:
This field is the Date/Time the ACTION field was updated.
RECORD INDEXES: DATE (#1589)
790.23,2 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
LAST EDITED: AUG 19, 2017
HELP-PROMPT: Select the Visit Entry (DO NOT EDIT THIS FIELD).
DESCRIPTION: This field stores a pointer to the VISIT file (#9000010). This field receives the Visit
information from the Reminder Dialog the user process to update the ACTION field.
CROSS-REFERENCE: 790.1^AD^MUMPS
1)= D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT
2)= D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT
NOREINDEX)= 1
This cross-reference maintains the dependent entry count in the visit file (#9000010).
CROSS-REFERENCE: 790.1^V
1)= S ^WV(790.1,"V",$E(X,1,30),DA(1),DA)=""
2)= K ^WV(790.1,"V",$E(X,1,30),DA(1),DA)
This is the standard cross-reference set for the Visit Tracking application. It allows that
application to identify entries that point to the Visit file (#9000010).
790.23,3 NOTE 0;4 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: SEP 02, 2017
HELP-PROMPT: Select the patient note. (DO NOT EDIT THIS FIELD).
DESCRIPTION: This field stores the pointer to the TIU DOCUMENT (#8925). This field receives the TIU DOCUMENT
information from the Reminder Dialog the user processes to update the ACTION field.
FIELD INDEX: NOTE (#1588) REGULAR IR LOOKUP & SORTING WHOLE FILE (#790.1)
Short Descr: xref by Note pointer. Use for lookup on note deletion
Description: This cross reference enables the user to lookup status records based on the NOTE field.
Set Logic: S ^WV(790.1,"NOTE",X,DA(1),DA)=""
Kill Logic: K ^WV(790.1,"NOTE",X,DA(1),DA)
Whole Kill: K ^WV(790.1,"NOTE")
X(1): NOTE (790.23,3) (Subscr 1) (forwards)
790.23,4 ENTERED IN ERROR 0;5 SET
'Y' FOR YES;
LAST EDITED: JUN 03, 2017
HELP-PROMPT: Select Yes if the ACTION value was entered in error.
DESCRIPTION:
This field marks if the ACTION value was entered in error.
790.23,5 FOLLOW UP DATE 0;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUL 09, 2020
HELP-PROMPT: Enter the follow up date
DESCRIPTION:
This is the follow up date entered by the end user in CPRS.
790.23,15 COMMENTS 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<3) X
MAXIMUM LENGTH: 245
LAST EDITED: SEP 02, 2017
HELP-PROMPT: Answer must be 3-245 characters in length.
DESCRIPTION: This field stores the user comments that the user enters when selecting the action in the
Reminder Dialog.
790.1,20 PREVIOUS DIAGNOSIS 11;0 POINTER Multiple #790.24 (Add New Entry without Asking)
DESCRIPTION: This multiple store the previous primary diagnosis if the primary diagnosis changes base off an
update from the radiology package.
790.24,.01 DIAGNOSIS 0;1 POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)
LAST EDITED: FEB 22, 2021
HELP-PROMPT: Select a diagnosis (DO NOT EDIT)
DESCRIPTION:
This field store the previous diagnosis if a diagnosis was change from the radiology package.
CROSS-REFERENCE: 790.24^B
1)= S ^WV(790.1,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^WV(790.1,DA(1),11,"B",$E(X,1,30),DA)
790.24,1 DIAGNOSIS DATE TIME CHANGED 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: FEB 23, 2021
HELP-PROMPT: Select Date/Time a diagnosis was change (DO NOT EDIT)
DESCRIPTION:
This stores the date/time a diagnosis was changed from the radiology package.
CROSS-REFERENCE: 790.24^D
1)= S ^WV(790.1,DA(1),11,"D",$E(X,1,30),DA)=""
2)= K ^WV(790.1,DA(1),11,"D",$E(X,1,30),DA)
This cross-reference is used to sort by date time accession primary diagnosis changed in the
radiology package.
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) WARD/CLINIC/LOCATION (#.11)
INSTITUTION (#4) HEALTH CARE FACILITY (#.1)
FACILITY WHERE ACCESSIONED (#.34)
NEW PERSON (#200) PROVIDER (#.07)
ENTERING USER (#.18)
TIU DOCUMENT (#8925) PROCEDURE ACTIONS:NOTE (#3)
VISIT (#9000010) PROCEDURE ACTIONS:VISIT (#2)
WV PATIENT (#790) PATIENT (#.02)
WV PROCEDURE (#790.1) SCREENING PAP (#.3)
WV PROCEDURE TYPE (#790.2) PROCEDURE (#.04)
WV RESULTS/DIAGNOSIS (#790.31) RESULTS/DIAGNOSIS (#.05)
SEC RESULT/DIAGNOSIS (#.06)
ECTOCERVICAL BIOPSY (#.26)
STD EVALUATION (#.28)
IMPRESSION (#.29)
FINAL DX PAP/COLP (#.33)
PREVIOUS DIAGNOSIS:DIAGNOSIS (#.01)
File #790.1
Record Indexes:
AC (#564) RECORD REGULAR IR SORTING ONLY
Short Descr: Patient and Date of Procedure
Description: This index consists of patient DFN and date of procedure. ex: ^WV(790.1,'AC',DFN,Date of Procedure,DA)
Set Logic: S ^WV(790.1,"AC",X(1),X(2),DA)=""
Kill Logic: K ^WV(790.1,"AC",X(1),X(2),DA)
Whole Kill: K ^WV(790.1,"AC")
X(1): PATIENT (790.1,.02) (Subscr 1) (forwards)
X(2): DATE OF PROCEDURE (790.1,.12) (Subscr 2) (forwards)
ARADOPEN (#1587) RECORD MUMPS IR SORTING ONLY
Short Descr: This xref list open radiology procedures
Description: This cross reference allows for finding patients with open radiology images by date.
Set Logic: S ^WV(790.1,"ARADOPEN",X(1),X(2),DA)=""
Set Cond: S X=$$SETOPEN^WVRPCGF1(DA,.X2)
Kill Logic: K ^WV(790.1,"ARADOPEN",X(1),X(2),DA)
Kill Cond: S X=$$KILLOPEN^WVRPCGF1(DA,.X2)
Whole Kill: K ^WV(790.1,"ARADOPEN")
X(1): DATE OF PROCEDURE (790.1,.12) (Subscr 1) (forwards)
X(2): PROCEDURE (790.1,.04) (Subscr 2) (forwards)
X(3): RADIOLOGY MAM CASE# (790.1,.15) (Subscr 3) (forwards)
X(4): STATUS (790.1,.14) (Subscr 4) (forwards)
Subfile #790.23
Record Indexes:
DATE (#1589) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: This xref create a sort by date/time and item text.
Description: This cross reference enable the user to lookup actions done by a Date/Time.
Set Logic: S ^WV(790.1,DA(1),10,"DATE",X(1),$E(X(2),1,120),DA)=""
Set Cond: N SUB S X=1 F SUB=1:1:2 I $G(X2(SUB))="" S X=0
Kill Logic: K ^WV(790.1,DA(1),10,"DATE",X(1),$E(X(2),1,120),DA)
Kill Cond: N SUB S X=1 F SUB=1:1:2 I $G(X1(SUB))="" S X=0
Whole Kill: K ^WV(790.1,DA(1),10,"DATE")
X(1): DATE/TIME (790.23,1) (Subscr 1) (forwards)
X(2): ACTION (790.23,.01) (Subscr 2) (Len 120) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
WV PROC-FORM-1 JUN 20, 1994 USER #0
WV PROC-EDITBLK-1 DD #790.1
WV PROC-DISPLAY-1 DD #790.1
WV PROC-EDITBLK-POPUP-ITEMS DD #790.23
WV PROC-FORM-2-COLP JUN 20, 1994 USER #0
WV PROC-EDITBLK-1 DD #790.1
WV PROC-DISPLAY-1 DD #790.1
WV PROC-EDITBLK-2-COLP DD #790.1
WV PROC-EDITBLK-POPUP-ITEMS DD #790.23
WV PROC-FORM-LAB JUN 20, 1994 USER #0
WV PROC-EDITBLK-LAB DD #790.1
WV PROC-HEADER-1 DD #790.1