INPUT TRANSFORM: S DIC("S")="I $$SCRN^RACPTMSC(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 05, 1999
HELP-PROMPT: Choose one or more CPT Modifiers, one at a time.
DESCRIPTION:
This field is screened to accept only those CPT Modifiers that agree with this exam's CPT CODE and EXAM DATE. The screen code calls the CPT package to evaluate the "CPT code" and "CPT Modifier" pair.
SCREEN: S DIC("S")="I $$SCRN^RACPTMSC(+Y)"
EXPLANATION: CPT Modifier must agree with CPT code
CROSS-REFERENCE: 70.3135^B
1)= S ^RADPT(DA(3),"DT",DA(2),"P",DA(1),"CMOD","B",$E(X,1,30),DA)=""
2)= K ^RADPT(DA(3),"DT",DA(2),"P",DA(1),"CMOD","B",$E(X,1,30),DA)