Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDF4C

IBDF4C.m

Go to the documentation of this file.
  1. IBDF4C ;ALB/DHH - CPT MODIFIER SELECTION ;26-MAY-1999
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;**38,51**;APR 24,1997
  1. MOD ;Entry point for selecting or modifying modifiers
  1. ; -- this is called by the input transform (fileman file: selection)
  1. ;
  1. ; slctn -- is the ien of selection file and should be cpt code
  1. ; $$modp^icptmod -- screens appropriate modifiers for a cpt code
  1. ; $p($$mod^icptmod,"^",7) -- check status of the modifier
  1. D
  1. .N DO,CPT,Y,DIC
  1. .Q:$G(SLCTN)=""
  1. .S CPT=$P(^IBE(357.3,SLCTN,0),"^")
  1. .Q:$G(CPT)=""
  1. .;;S DIC=81.3,DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0"
  1. .S DIC=81.3
  1. .;
  1. .;Is the modifier active and can it be used with this CPT code
  1. .S DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0,$P($$MOD^ICPTMOD(+Y,""I""),U,7)=1"
  1. .S DIC(0)="EM" D ^DIC
  1. .S (DIX,X)=$P(Y,"^",2)
  1. .I +Y<1 D
  1. .. D EN^DDIOL("Invalid CPT Modifier entered for CPT procedure code.")
  1. Q
  1. ;
  1. ;
  1. ADD ;add cpt modifiers to the selection file
  1. ;
  1. ; -- this is to be called via IBDF4 AND IBDF4A
  1. ;
  1. ; -- check package interface file to see if CPT Modifiers are to be
  1. ; asked.
  1. ;
  1. Q:$P($G(^IBE(357.6,+$P($G(^IBE(357.2,+IBLIST,0)),U,11),0)),U,21)'=1
  1. ;
  1. ; -- use fileman to allow user to add/edit modifiers
  1. ; using CPT API to screen out inappropriate modifiers ( this is
  1. ; done via the input transform on the CPT MODIFIERS multiple field
  1. ;
  1. N DIE,DA,DR
  1. S DIE="^IBE(357.3,"
  1. S DA=SLCTN
  1. S DR="[IBDF CPT MODIFIER]"
  1. D ^DIE
  1. Q
  1. LOOKUP ;response to ?? while entering CPT Modifiers
  1. ;xecutable help used this from file 357.3 cTP Modifier field
  1. ;
  1. N DO,CPT,DIC
  1. Q:$G(SLCTN)=""
  1. S CPT=$P(^IBE(357.3,SLCTN,0),"^")
  1. Q:$G(CPT)=""
  1. ;S IBDSAV=DIC
  1. ;;S X="??",DIC=81.3,DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0"
  1. S X="??",DIC=81.3
  1. ;
  1. ;Is the modifier active and can it be used with this CPT code
  1. S DIC("S")="I ($$MODP^ICPTMOD(CPT,+Y,""I""))>0,$P($$MOD^ICPTMOD(+Y,""I""),U,7)=1"
  1. S DIC(0)="EMQ" D ^DIC
  1. Q