Global: ^WV(790.1

FileMan FileNo	FileMan Filename	Package
790.1	WV PROCEDURE	Womens Health

Package	Total	Routines
Womens Health	46	PREVIOUS DIAGNOSIS PROCEDURE ACTIONS WV1024P WV1026P WVALERTF WVALERTR WVALERTS WVBRDUP WVBRNOT WVBRPCD WVHS WVLAB WVLABAD1 WVLABADD WVLABCHK WVLABLG WVLABWP WVLRLINK WVPRE WVPROC WVPROC1 WVPROF2 WVPRPCD WVRADWP WVRALIN1 WVRALINK WVRPCGF WVRPCGF1 WVRPCNO WVRPCPR WVRPCPT1 WVRPCPT2 WVRPPCD2 WVRPPCD3 WVRPSCR1 WVRPSNP WVSNOMED WVUTL1 WVUTL1A WVUTL2 WVUTL5 ^WV(790.4 ^WV(791 WVUTL3 WVUTL4 ^WV(790.1
Clinical Reminders	2	PXRMCALT PXRMCWH

Package	Total	Routines
Womens Health	6	WVLABAD1 WVLRLINK WVRALIN1 WVRALINK WVRPCPT2 WVUTL6

Package	Total	FileMan Files
Womens Health	2	WV PROCEDURE(#790.1)[.3] WV NOTIFICATION(#790.4)[.06]
Clinical Reminders	1	REMINDERS EPISODE OF CARE(#809)[#809.04(.01)]

Package	Total	FileMan Files
Womens Health	4	WV PATIENT(#790)[.02] WV PROCEDURE(#790.1)[.3] WV PROCEDURE TYPE(#790.2)[.04] WV RESULTS/DIAGNOSIS(#790.31)[.05, .06, .26, .28, .29, .33, #790.24(.01)]
Kernel	2	INSTITUTION(#4)[.1, .34] NEW PERSON(#200)[.07, .18]
PCE Patient Care Encounter	1	VISIT(#9000010)[#790.23(2)]
Scheduling	1	HOSPITAL LOCATION(#44)[.11]
Text Integration Utility	1	TIU DOCUMENT(#8925)[#790.23(3)]

Fields, Total: 44

Field #	Name	Loc	Type	Details
.01	ACCESSION#	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
.02	PATIENT	0;2	POINTER TO WV PATIENT FILE (#790)	**********************REQUIRED FIELD********************** WV PATIENT(#790) 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)`
.04	PROCEDURE	0;4	POINTER TO WV PROCEDURE TYPE FILE (#790.2)	**********************REQUIRED FIELD********************** WV PROCEDURE TYPE(#790.2) 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)`
.05	RESULTS/DIAGNOSIS	0;5	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#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)= ;`
.06	SEC RESULT/DIAGNOSIS	0;6	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#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.`
.07	PROVIDER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
.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.`
.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.`
.1	HEALTH CARE FACILITY	0;10	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#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.`
.11	WARD/CLINIC/LOCATION	0;11	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#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.`
.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)`
.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.`
.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)`
.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)`
.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.`
.18	ENTERING USER	0;18	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
.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)`
.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).`
.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.`
.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.`
.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).`
.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.`
.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`
.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.`
.26	ECTOCERVICAL BIOPSY	0;26	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#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.`
.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.`
.28	STD EVALUATION	0;28	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#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.`
.29	IMPRESSION	0;29	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#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.`
.3	SCREENING PAP	0;30	POINTER TO WV PROCEDURE FILE (#790.1)	WV PROCEDURE(#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.`
.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.`
.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.`
.33	FINAL DX PAP/COLP	0;33	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#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.`
.34	FACILITY WHERE ACCESSIONED	0;34	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#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.`
.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.`
.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.`
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.`
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.`
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.`
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.`
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.`
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).`
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.`
10	PROCEDURE ACTIONS	10;0	Multiple #790.23	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)`
20	PREVIOUS DIAGNOSIS	11;0	POINTER Multiple #790.24	790.24 DESCRIPTION: `This multiple store the previous primary diagnosis if the primary diagnosis changes base off an update from the radiology package.`

Name	Field # of Occurrence
^%DT	.12+1, .13+1, .19+1, .32+1
^DIC	.05+1, .06+1, .07+1, .26+1, .28+1, .29+1, .3+1, .33+1
Y^DIQ	ID.02+1
$$KILLOPEN^WVRPCGF1	IXARADOPENKCC+1
$$SETOPEN^WVRPCGF1	IXARADOPENSCC+1
$$QUAD^WVUTL1A	.245+1
XREFP05^WVUTL2	.05(XREF 1S)
XREFP12^WVUTL2	.12(XREF 1S)

Name	Line Occurrences (* Changed, ! Killed)
^DD(790	ID.02+1
^WV(790 - [#790]	ID.02+1
^WV(790.1 - [#790.1]	IXACSL+1, IXACKL+1!, IXACKEIC+1!, IXARADOPENSL+1, IXARADOPENKL+1!, IXARADOPENKEIC+1!, IXNOTESL+1*, IXNOTEKL+1!, IXNOTEKEIC+1!, .01(XREF 1S) , .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .12(XREF 1K), .12(XREF 2S), .12(XREF 2K), .14(XREF 1S), .14(XREF 1K) , .15(XREF 1S), .15(XREF 1K), .19(XREF 1S), .19(XREF 1K), .3(XREF 1S), .3(XREF 1K), 2.17(XREF 1S), 2.17(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.12+1, .13+1, .19+1, .32+1
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	IXACSL+1, IXACKL+1, IXARADOPENSL+1, IXARADOPENSCC+1, IXARADOPENKL+1, IXARADOPENKCC+1, IXNOTESL+1, IXNOTEKL+1, .01(XREF 1S), .01(XREF 1K) , .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .12(XREF 1K), .12(XREF 2S), .12(XREF 2K), .14(XREF 1S), .14(XREF 1K), .15(XREF 1S) , .15(XREF 1K), .19(XREF 1S), .19(XREF 1K), .3(XREF 1S), .3(XREF 1K), 2.17(XREF 1S), 2.17(XREF 1K)
>> DA(1	IXNOTESL+1, IXNOTEKL+1
DIC	ID.02+1, .05+1!, .06+1!, .07+1!, .26+1!, .28+1!, .29+1!, .3+1!, .33+1!
DIC("S"	.05+1, .05SCR+1, .06+1, .06SCR+1, .07+1, .07SCR+1, .26+1, .26SCR+1, .28+1, .28SCR+1 , .29+1, .29SCR+1, .3+1, .3SCR+1, .33+1, .33SCR+1
>> DIE	.05+1, .06+1, .07+1, .26+1, .28+1, .29+1, .3+1, .33+1
DT	.12+1
U	ID.02+1, ID.12+1, .245+1, .3(XREF 1S), .3(XREF 1K)
WV9	.245+1*!
X	IXARADOPENSCC+1, IXARADOPENKCC+1, IXNOTESL+1, IXNOTEKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S) , .04(XREF 1K), .05+1!, .06+1!, .07+1!, .12+1!, .12(XREF 1K), .12(XREF 2S), .12(XREF 2K), .13+1!, .14(XREF 1S) , .14(XREF 1K), .15+1!, .15(XREF 1S), .15(XREF 1K), .19+1!, .19(XREF 1S), .19(XREF 1K), .24+1!, .245+1!, .26+1! , .28+1!, .29+1!, .3+1!, .3(XREF 1S), .3(XREF 1K), .32+1!, .33+1*!, 2.17+1!, 2.17(XREF 1S), 2.17(XREF 1K) , 2.18+1!, 2.19+1!, 2.2+1!, 3.01+1!
X(1	IXACSL+1, IXACKL+1, IXARADOPENSL+1, IXARADOPENKL+1
X(2	IXACSL+1, IXACKL+1, IXARADOPENSL+1, IXARADOPENKL+1
>> X2	IXARADOPENSCC+1, IXARADOPENKCC+1
>> Y	ID.02+1*, .05+1, .06+1, .07+1, .12+1, .13+1, .19+1, .26+1, .28+1, .29+1 , .3+1, .32+1, .33+1

Customize PDF page

Package: Womens Health

Global: ^WV(790.1

Information

Description

Directly Accessed By Routines, Total: 50

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 9

Fields, Total: 44

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: