Sub-Field: 9002313.4731

Parent File	Name	Number	Package
ABSP DUR/PPS(#9002313.473)	DUR/PPS Repeating Record	9002313.4731	Pharmacy Point of Sale

Details

Field #	Name	Loc	Type	Details
.01	DUR/PPS Repeating Record	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 21, 2003` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` CROSS-REFERENCE: `9002313.4731^B` 1)= S ^ABSP(9002313.473,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ABSP(9002313.473,DA(1),1,"B",$E(X,1,30),DA)
439	Reason for Service Code	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `AUG 19, 2002` HELP-PROMPT: `Answer must be 2 characters in length.`
440	Professional Service Code	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `AUG 19, 2002` HELP-PROMPT: `Answer must be 2 characters in length.`
441	Result of Service Code	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `AUG 19, 2002` HELP-PROMPT: `Answer must be 2 characters in length.`
474	DUR/PPS Level of Effort	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `AUG 19, 2002` HELP-PROMPT: `Answer must be 2 characters in length.`
475	DUR Co-Agent ID Qualifier	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `SEP 09, 2002` HELP-PROMPT: `Answer must be 1-2 characters in length.`
476	Dur Co-Agent ID	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `SEP 09, 2002` HELP-PROMPT: `Answer must be 1-19 characters in length.`