Global: ^BWPR

Information

FileMan FileNo	FileMan Filename	Package
9002086.03	BW PAP REGIMEN	Women's Health

Package	Total	Routines
Women's Health	1	BWUTL1

Package	Total	FileMan Files
Women's Health	2	BW PATIENT(#9002086)[.16] BW PAP REGIMEN LOG(#9002086.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.` CROSS-REFERENCE: `9002086.03^B` 1)= S ^BWPR("B",$E(X,1,30),DA)="" 2)= K ^BWPR("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002086.03^U^MUMPS` 1)= D UPXREF^BWUTL5(X,"^BWPR(") 2)= D KUPXREF^BWUTL5(X,"^BWPR(") 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` CROSS-REFERENCE: `9002086.03^C` 1)= S ^BWPR("C",$E(X,1,30),DA)="" 2)= K ^BWPR("C",$E(X,1,30),DA)
.03	INACTIVE DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 09, 2003`

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.

CROSS-REFERENCE: 9002086.03^B

1)= S ^BWPR("B",$E(X,1,30),DA)=""

2)= K ^BWPR("B",$E(X,1,30),DA)

CROSS-REFERENCE: 9002086.03^U^MUMPS

1)= D UPXREF^BWUTL5(X,"^BWPR(")

2)= D KUPXREF^BWUTL5(X,"^BWPR(")

Sets uppercase xref.

SELECTION#

0;2

NUMBER

CROSS-REFERENCE: 9002086.03^C

1)= S ^BWPR("C",$E(X,1,30),DA)=""

2)= K ^BWPR("C",$E(X,1,30),DA)

INACTIVE DATE

0;3

DATE

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

Name	Line Occurrences (* Changed, ! Killed)
^BWPR("B"	.01(XREF 1S), .01(XREF 1K)
^BWPR("C"	.02(XREF 1S), .02(XREF 1K)

Name	Field # of Occurrence
^(0	ID.02+1

Name	Field # of Occurrence
>> %DT	.03+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
U	ID.02+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1*!
>> Y	.03+1