Global: ^WV(790.71

FileMan FileNo	FileMan Filename	Package
790.71	WV SNAPSHOT REPORTS	Womens Health

Package	Total	Routines
Womens Health	7	WV7PST WVPRE WVRPSNP WVRPSNP1 ^WV(790.71 WVRPSNPR ^WV(791

Package	Total	Routines
Womens Health	1	WVRPSNP

Package	Total	FileMan Files
Kernel	1	INSTITUTION(#4)[.02]

Fields, Total: 48

Field #	Name	Loc	Type	Details
.01	DATE OF SNAPSHOT	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y S:$D(X) DINUM=X K:Y<1 X` LAST EDITED: `JUN 10, 1998` HELP-PROMPT: `Enter the date on which this snapshot report was run.` DESCRIPTION: `This field stores the date on which a Program Snapshot report was run.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `790.71^B` `1)= S ^WV(790.71,"B",$E(X,1,30),DA)=""` `2)= K ^WV(790.71,"B",$E(X,1,30),DA)`
.02	Facility	0;2	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAY 07, 1998` HELP-PROMPT: `Enter the facility for which this snapshot report was run.` DESCRIPTION: `This field stores the name of the facility for which this Program Snapshot report was run.` CROSS-REFERENCE: `790.71^C` `1)= S ^WV(790.71,"C",$E(X,1,30),DA)=""` `2)= K ^WV(790.71,"C",$E(X,1,30),DA)`
.03	Total Women in Register	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the total number of women with active records in the WV Patient (#790) file.`
.04	Women Who Are Pregnant	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of women who were pregnant at the time the Program Snapshot report option was run.`
.05	Women Who Are DES Daughters	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of women who were DES daughters when the Program Snapshot report option was run.`
.06	PAP Needs Not Spec'd/Dated	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of women whose records indicated that their cervical treatment needs were not specificed or the due date was not recorded.`
.07	PAP Needs Spec'd & Past Due	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of women whose records indicated that their cervical treatment needs were specificed and are past due.`
.08	MAM Needs Not Spec'd/Dated	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of women whose records indicated that breast treatment needs were not specificed or the due date was not entered.`
.09	MAM Needs Spec'd & Past Due	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of women whose records indicated that their breast treatment needs were specificed and are past due.`
.1	Total Procedures Status OPEN	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of procedure records that have a status of open.`
.11	OPEN Procedures Past Due	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of procedure records (with an 'Open' status) which indicate that breast or cervical treatment needs are past due.`
.12	Total PAPS for the Year	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 13, 1998` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains a count of the PAP smears done since the beginning of the calendar or fiscal year, depending upon what the user selected.`
.13	Total MAMS for the Year	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 13, 1998` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains a count of the mammograms done since the beginning of the calendar or fiscal year, depending upon what the user selected.`
.14	Total Notifications Stat OPEN	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field stores the number of notification records, with a status of open, when the Program Snapshot report was run.`
.15	OPEN Notifications Past Due	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of notification records that were past due when the Program Snaphot report was run.`
.16	Number of Letters Queued	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains the number of letters scheduled to be queued at a future time. This count is calculated from the type of notification and the print date fields in the WV Notification (790.4) file.`
.17	Total CBEs for the Year	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 13, 1998` HELP-PROMPT: `Type a number between 0 and 999999, 0 decimal digits.` DESCRIPTION: `This field contains a count of the clinical breast exams (CBE) done since the beginning of the calendar or fiscal year, depending upon what the user selected.`
.18	TYPE OF YEAR	0;18	SET	'F' FOR Fiscal Year; 'C' FOR Calendar Year; LAST EDITED: `JUL 09, 1998` DESCRIPTION: `This field contains a code to identify if the report output is for a calendar year (1/1-12/31) or a fiscal year (10/1/-9/30).` CROSS-REFERENCE: `790.71^T` `1)= S ^WV(790.71,"T",$E(X,1,30),DA)=""` `2)= K ^WV(790.71,"T",$E(X,1,30),DA)`
.5	Breast Ultrasounds	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a breast ultrasound within the timeframe associated with the Program Snapshot report.`
.51	Clinical Breast Exams	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a clinical breast exam within the timeframe associated with the Program Snapshot report.`
.52	Colposcopy Impression (NO BX)	2;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, colposcopy impression without biopsy, within the timeframe associated with the Program Snapshot report.`
.53	Colposcopy W/Biopsy	2;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, colposcopy with biopsy, within the timeframe associated with the Program Snapshot report.`
.54	Cone Biopsy	2;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, cone biopsy, within the timeframe associated with the Program Snapshot report.`
.55	Cryotherapy	2;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, cryotherapy, within the timeframe associated with the Program Snapshot report.`
.56	Ectocervical Biopsy	2;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, ectocervical biospy, within the timeframe associated with the Program Snapshot report.`
.57	Endocervical Currettage	2;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, endocervical currettage, within the timeframe associated with the Program Snapshot report.`
.58	Endometrial Biopsy	2;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, endometrial biopsy, within the timeframe associated with the Program Snapshot report.`
.59	Fine Needle Aspiration	2;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the procedure, fine needle aspiration, within the timeframe associated with the Program Snapshot report.`
.6	General Surgery Consult	2;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined a general surgery consult referral within the timeframe associated with the Program Snapshot report.`
.61	Gyn Onc Consult	2;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined a gynecological oncology consult referral, within the timeframe associated with the Program Snapshot report.`
.62	Hysterectomy	2;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a hysterectomy within the timeframe associated with the Program Snapshot report.`
.63	Laser Abilation	2;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a laser abilation procedure within the timeframe associated with the Program Snapshot report.`
.64	Laser Cone	2;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a laser cone procedure, within the timeframe associated with the Program Snapshot report.`
.65	Leep	2;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a loop electrosurgical excision procedure (LEEP) within the timeframe of the Program Snapshot report.`
.66	Lumpectomy	2;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having lumpectomy (of the breast) within the timeframe associated with the Program Snapshot report.`
.67	Mammogram Dx Bilat	2;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the radiology test, mammogram Dx bilateral, within the timeframe associated with the Program Snapshot report.`
.68	Mammogram Dx Unilat	2;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the radiology test, mammogram Dx unilateral, within the timeframe associated with the Program Snapshot report.`
.69	Mammogram Screening	2;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having the radiology procedure, mammogram screening, within the timeframe associated with the Program Snapshot report.`
.7	Masectomy	2;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating that a patient declined having a mastectomy within the timeframe associated with the Program Snapshot report.`
.71	Needle Biopsy	2;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a needle biopsy within the timeframe associated with the Program Snapshot report.`
.72	Open Biopsy	2;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having an open biopsy within the timeframe associated with the Program Snapshot report.`
.73	Pap Smear	2;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a PAP smear within the timeframe associated with the Program Snapshot report.`
.74	Pregnancy Test	2;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a pregnancy test within the timeframe associated with the Program Snapshot report.`
.75	STD Evaluation	2;26	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a STD evaluation within the timeframe associated with the Program Snapshot report.`
.76	Stereotactic Biopsy	2;27	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a stereotactic biospy within the timeframe associated with the Program Snapshot report.`
.77	Tubal Ligation	2;28	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a tubal ligation within the timeframe associated with the Program Snapshot report.`
.78	Pelvic Ultrasound	2;29	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a pelvic ultrasound within the timeframe associated with the Program Snapshot report.`
.79	Vaginal Ultrasound	2;30	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1999` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of records (in File #790.3) indicating a patient declined having a vaginal ultrasound within the timeframe associated with the Program Snapshot report.`

Name	Field # of Occurrence
^%DT	.01+1
Y^DIQ	ID.02+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(4	ID.02+1
^DIC(4 - [#4]	ID.02+1
^WV(790.71 - [#790.71]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .18(XREF 1S), .18(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .18(XREF 1S), .18(XREF 1K)
>> DIC	ID.02+1, ID.18+1
>> DINUM	.01+1*
U	ID.02+1
X	.01+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1!, .04+1!, .05+1!, .06+1!, .07+1! , .08+1!, .09+1!, .1+1!, .11+1!, .12+1!, .13+1!, .14+1!, .15+1!, .16+1!, .17+1! , .18(XREF 1S), .18(XREF 1K), .5+1!, .51+1!, .52+1!, .53+1!, .54+1!, .55+1!, .56+1!, .57+1! , .58+1!, .59+1!, .6+1!, .61+1!, .62+1!, .63+1!, .64+1!, .65+1!, .66+1!, .67+1! , .68+1!, .69+1!, .7+1!, .71+1!, .72+1!, .73+1!, .74+1!, .75+1!, .76+1!, .77+1! , .78+1!, .79+1!
>> Y	ID.02+1*, .01+1

Customize PDF page

Package: Womens Health

Global: ^WV(790.71

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 48

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: