INPUT TRANSFORM: S DIC("S")="N RASERIES I +$D(^RAMIS(71.2,""AB"",(+$$ITYPE^RASITE($$GET^RAPRI(D0))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 06, 1999
HELP-PROMPT: Enter any appropriate procedure modifier(s).
DESCRIPTION:
This multiple field is used to provide rad/nuc med procedure modifiers that are associated with this order.
SCREEN: S DIC("S")="N RASERIES I +$D(^RAMIS(71.2,""AB"",(+$$ITYPE^RASITE($$GET^RAPRI(D0))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""":1,1:0)"
EXPLANATION: Select procedure modifiers which have the same imaging type as the procedure. In addition, if the procedure is 'SERIES', it must not have AMIS CREDIT INDICATOR
SOURCE OF DATA: RAD/NUC MED COORDINATOR
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 75.1125^B
1)= S ^RAO(75.1,DA(1),"M","B",$E(X,1,30),DA)=""
2)= K ^RAO(75.1,DA(1),"M","B",$E(X,1,30),DA)
Regular filewide 'B' cross reference assigned by FileMan.