Global: ^WV(790.03

FileMan FileNo	FileMan Filename	Package
790.03	WV PAP REGIMEN	Womens Health

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Womens Health	5	WVPRE ^WV(790.03 WVRPSCR1 WVUTL1 ^WV(791

Package	Total	FileMan Files
Womens Health	2	WV PATIENT(#790)[.16] WV PAP REGIMEN LOG(#790.04)[.03]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PAP REGIMEN	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAR 08, 1996` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: `This field stores information used to describe a PAP regimen, such as a procedure and its frequency or a follow-up action. The regimen appears in abbreviated form so that it can display on several screens where there is` `limited space. The following abbreviations may apply to the PAP regimen string:` `Symbol Meaning` `------ -------` `P PAP` `C Colposcopy` `wk Week` `m Month` `y Year` `q Every` `pp Postpartum` `x2 Times 2` `x3 Times 3` `ga Gestation` CROSS-REFERENCE: `790.03^B` `1)= S ^WV(790.03,"B",$E(X,1,30),DA)=""` `2)= K ^WV(790.03,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `790.03^U^MUMPS` `1)= D UPXREF^WVUTL5(X,"^WV(790.03,")` `2)= D KUPXREF^WVUTL5(X,"^WV(790.03,")` `Sets uppercase xref.`
.02	SELECTION#	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 30, 1994` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This field is used to order the regimens within displays or selection lists.` CROSS-REFERENCE: `790.03^C` `1)= S ^WV(790.03,"C",$E(X,1,30),DA)=""` `2)= K ^WV(790.03,"C",$E(X,1,30),DA)`

PAP REGIMEN

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAR 08, 1996
HELP-PROMPT: Answer must be 3-35 characters in length.
DESCRIPTION: This field stores information used to describe a PAP regimen, such as a procedure and its frequency or a follow-up action. The regimen appears in abbreviated form so that it can display on several screens where there is
limited space. The following abbreviations may apply to the PAP regimen string:
Symbol Meaning
------ -------
P PAP
C Colposcopy
wk Week
m Month
y Year
q Every
pp Postpartum
x2 Times 2
x3 Times 3
ga Gestation
CROSS-REFERENCE: 790.03^B
1)= S ^WV(790.03,"B",$E(X,1,30),DA)=""
2)= K ^WV(790.03,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 790.03^U^MUMPS
1)= D UPXREF^WVUTL5(X,"^WV(790.03,")
2)= D KUPXREF^WVUTL5(X,"^WV(790.03,")
Sets uppercase xref.

SELECTION#

0;2

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 30, 1994
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
This field is used to order the regimens within displays or selection lists.
CROSS-REFERENCE: 790.03^C
1)= S ^WV(790.03,"C",$E(X,1,30),DA)=""
2)= K ^WV(790.03,"C",$E(X,1,30),DA)

PAP REGIMEN: Pqy (annually)	PAP REGIMEN: Pq6mx2, Pqy	PAP REGIMEN: Pq4mx3, Pq6mx2, Pqy	PAP REGIMEN: P/Cq3m to 32wkga, P6wkpp, C8-12wkpp	PAP REGIMEN: P6wkpp, C8-12wkpp	PAP REGIMEN: P6wkpp, result, then guidelines	PAP REGIMEN: Other	PAP REGIMEN: Undetermined
PAP REGIMEN: Repeat PAP 3-6m	PAP REGIMEN: Cq6mx3	PAP REGIMEN: To be determined after Colp	PAP REGIMEN: Repeat PAP 6-12wk	PAP REGIMEN: Treat, then repeat PAP 6-12wk	PAP REGIMEN: Pq4-6mx2	PAP REGIMEN: P(midcycle) in 3m	PAP REGIMEN: Pq6mx4

Name	Field # of Occurrence
KUPXREF^WVUTL5	.01(XREF 2K)
UPXREF^WVUTL5	.01(XREF 2S)

Name	Line Occurrences (* Changed, ! Killed)
^WV(790.03 - [#790.03]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K)