IBDF4C ;ALB/DHH - CPT MODIFIER SELECTION ;26-MAY-1999
;;3.0;AUTOMATED INFO COLLECTION SYS;**38,51**;APR 24,1997
MOD ;Entry point for selecting or modifying modifiers
; -- this is called by the input transform (fileman file: selection)
;
; slctn -- is the ien of selection file and should be cpt code
; $$modp^icptmod -- screens appropriate modifiers for a cpt code
; $p($$mod^icptmod,"^",7) -- check status of the modifier
D
.N DO,CPT,Y,DIC
.Q:$G(SLCTN)=""
.S CPT=$P(^IBE(357.3,SLCTN,0),"^")
.Q:$G(CPT)=""
.;;S DIC=81.3,DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0"
.S DIC=81.3
.;
.;Is the modifier active and can it be used with this CPT code
.S DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0,$P($$MOD^ICPTMOD(+Y,""I""),U,7)=1"
.S DIC(0)="EM" D ^DIC
.S (DIX,X)=$P(Y,"^",2)
.I +Y<1 D
.. D EN^DDIOL("Invalid CPT Modifier entered for CPT procedure code.")
Q
;
;
ADD ;add cpt modifiers to the selection file
;
; -- this is to be called via IBDF4 AND IBDF4A
;
; -- check package interface file to see if CPT Modifiers are to be
; asked.
;
Q:$P($G(^IBE(357.6,+$P($G(^IBE(357.2,+IBLIST,0)),U,11),0)),U,21)'=1
;
; -- use fileman to allow user to add/edit modifiers
; using CPT API to screen out inappropriate modifiers ( this is
; done via the input transform on the CPT MODIFIERS multiple field
;
N DIE,DA,DR
S DIE="^IBE(357.3,"
S DA=SLCTN
S DR="[IBDF CPT MODIFIER]"
D ^DIE
Q
LOOKUP ;response to ?? while entering CPT Modifiers
;xecutable help used this from file 357.3 cTP Modifier field
;
N DO,CPT,DIC
Q:$G(SLCTN)=""
S CPT=$P(^IBE(357.3,SLCTN,0),"^")
Q:$G(CPT)=""
;S IBDSAV=DIC
;;S X="??",DIC=81.3,DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0"
S X="??",DIC=81.3
;
;Is the modifier active and can it be used with this CPT code
S DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0,$P($$MOD^ICPTMOD(+Y,""I""),U,7)=1"
S DIC(0)="EMQ" D ^DIC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDF4C 1965 printed Oct 16, 2024@18:52:14 Page 2
IBDF4C ;ALB/DHH - CPT MODIFIER SELECTION ;26-MAY-1999
+1 ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,51**;APR 24,1997
MOD ;Entry point for selecting or modifying modifiers
+1 ; -- this is called by the input transform (fileman file: selection)
+2 ;
+3 ; slctn -- is the ien of selection file and should be cpt code
+4 ; $$modp^icptmod -- screens appropriate modifiers for a cpt code
+5 ; $p($$mod^icptmod,"^",7) -- check status of the modifier
+6 Begin DoDot:1
+7 NEW DO,CPT,Y,DIC
+8 if $GET(SLCTN)=""
QUIT
+9 SET CPT=$PIECE(^IBE(357.3,SLCTN,0),"^")
+10 if $GET(CPT)=""
QUIT
+11 ;;S DIC=81.3,DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0"
+12 SET DIC=81.3
+13 ;
+14 ;Is the modifier active and can it be used with this CPT code
+15 SET DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0,$P($$MOD^ICPTMOD(+Y,""I""),U,7)=1"
+16 SET DIC(0)="EM"
DO ^DIC
+17 SET (DIX,X)=$PIECE(Y,"^",2)
+18 IF +Y<1
Begin DoDot:2
+19 DO EN^DDIOL("Invalid CPT Modifier entered for CPT procedure code.")
End DoDot:2
End DoDot:1
+20 QUIT
+21 ;
+22 ;
ADD ;add cpt modifiers to the selection file
+1 ;
+2 ; -- this is to be called via IBDF4 AND IBDF4A
+3 ;
+4 ; -- check package interface file to see if CPT Modifiers are to be
+5 ; asked.
+6 ;
+7 if $PIECE($GET(^IBE(357.6,+$PIECE($GET(^IBE(357.2,+IBLIST,0)),U,11),0)),U,21)'=1
QUIT
+8 ;
+9 ; -- use fileman to allow user to add/edit modifiers
+10 ; using CPT API to screen out inappropriate modifiers ( this is
+11 ; done via the input transform on the CPT MODIFIERS multiple field
+12 ;
+13 NEW DIE,DA,DR
+14 SET DIE="^IBE(357.3,"
+15 SET DA=SLCTN
+16 SET DR="[IBDF CPT MODIFIER]"
+17 DO ^DIE
+18 QUIT
LOOKUP ;response to ?? while entering CPT Modifiers
+1 ;xecutable help used this from file 357.3 cTP Modifier field
+2 ;
+3 NEW DO,CPT,DIC
+4 if $GET(SLCTN)=""
QUIT
+5 SET CPT=$PIECE(^IBE(357.3,SLCTN,0),"^")
+6 if $GET(CPT)=""
QUIT
+7 ;S IBDSAV=DIC
+8 ;;S X="??",DIC=81.3,DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0"
+9 SET X="??"
SET DIC=81.3
+10 ;
+11 ;Is the modifier active and can it be used with this CPT code
+12 SET DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0,$P($$MOD^ICPTMOD(+Y,""I""),U,7)=1"
+13 SET DIC(0)="EMQ"
DO ^DIC
+14 QUIT
