ABMDTMOD.m

ABMDTMOD ; IHS/ASDST/DMJ - ENTER/EDIT 3P MODIFIERS ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

 ; IHS/SD/SDR - v2.6 CSV

 ;

START ;START HERE

 W !

 S DIC=$S($$VERSION^XPDUTL("BCSV")>0:"^DIC(81.3,",1:"^AUTTCMOD(")  ;CSV

 S DIC(0)="AEMQL"  ;CSV-c

 D ^DIC Q:+Y<0  ;CSV-c

 S DIE=DIC,DA=+Y,DR=".02;.03//12345;.04"

 D ^DIE

 Q

HELP ;EP - HELP FOR CATEGORIES FIELD

 W !,"Enter category or categories of CPT codes this modifier can be used with."

 W !,"Select from: ",!

 F I=1:1:5 D

 .W !?3,$P("1  Medicine^2  Anesthesia^3  Surgery^4  Radiology^5  Laboratory","^",I)

 W ! Q

H2 ;EP - HELP FOR UNITS FIELD

 W !!,"Enter multiplier to be applied to the base charge"

 W !,"(for example, enter 1.5 to apply a 50% price increase"

 W !,"whenever this modifier is selected).",!

 Q

ABMDTMOD  ; IHS/ASDST/DMJ - ENTER/EDIT 3P MODIFIERS ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

 +3       ; IHS/SD/SDR - v2.6 CSV

 +4       ;

START     ;START HERE

 +1        WRITE !

 +2       ;CSV

           SET DIC=$SELECT($$VERSION^XPDUTL("BCSV")>0:"^DIC(81.3,",1:"^AUTTCMOD(")

 +3       ;CSV-c

           SET DIC(0)="AEMQL"

 +4       ;CSV-c

           DO ^DIC

           IF +Y<0

               QUIT 

 +5        SET DIE=DIC

           SET DA=+Y

           SET DR=".02;.03//12345;.04"

 +6        DO ^DIE

 +7        QUIT 

HELP      ;EP - HELP FOR CATEGORIES FIELD

 +1        WRITE !,"Enter category or categories of CPT codes this modifier can be used with."

 +2        WRITE !,"Select from: ",!

 +3        FOR I=1:1:5

               Begin DoDot:1

 +4                WRITE !?3,$PIECE("1  Medicine^2  Anesthesia^3  Surgery^4  Radiology^5  Laboratory","^",I)

               End DoDot:1

 +5        WRITE !

           QUIT 

H2        ;EP - HELP FOR UNITS FIELD

 +1        WRITE !!,"Enter multiplier to be applied to the base charge"

 +2        WRITE !,"(for example, enter 1.5 to apply a 50% price increase"

 +3        WRITE !,"whenever this modifier is selected).",!

 +4        QUIT