ABMDEI.m

ABMDEI ; IHS/ASDST/DMJ - Special Identifier for DIC Lookup ;

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

 ;

 Q

 I $D(DZ),$E(DZ)'="?" W !,X

 W " -"

 ;start CSV

 S ABMU("TXT")=""

 D IHSCPTD^ABMCVAPI($P(ABM("X0"),U),ABMZCPTD,"","")

 S ABMU("CP")=0

 F  S ABMU("CP")=$O(ABMZCPTD(ABMU("CP"))) Q:'$D(ABMZCPTD(ABMU("CP")))  D

 .S ABMU("TXT")=ABMU("TXT")_ABMZCPTD(ABMU("CP"))_" "

 ;end CSV

 S ABMU("RM")=79,ABMU("LM")=11,ABMU("TAB")=-3

 D ^ABMDWRAP

 ;

XIT K ABMU

 Q

 ;

EXT ;PEP - External Entry Point for displaying CPT codes

 ;start CSV

 S ABMU("TXT")=""

 D IHSCPTD^ABMCVAPI($P(ABM("X0"),U),ABMZCPTD,"","")

 S ABMU("CP")=0

 F  S ABMU("CP")=$O(ABMZCPTD(ABMU("CP"))) Q:'$D(ABMZCPTD(ABMU("CP")))  D

 .S ABMU("TXT")=ABMU("TXT")_ABMZCPTD(ABMU("CP"))_" "

 ;end CSV

 S ABMU("RM")=67,ABMU("LM")=11,ABMU("TAB")=-13

 D ^ABMDWRAP

 G XIT

 ;

ADA W " - ",$P(^AUTTADA(+Y,0),U,2)

 G XIT

 ;

REVN W " - ",$P(^AUTTREVN(+Y,0),U,2)

 G XIT

ABMDEI    ; IHS/ASDST/DMJ - Special Identifier for DIC Lookup ;

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

 +2       ;

 +3        QUIT 

 +4        IF $DATA(DZ)

               IF $EXTRACT(DZ)'="?"

                   WRITE !,X

 +5        WRITE " -"

 +6       ;start CSV

 +7        SET ABMU("TXT")=""

 +8        DO IHSCPTD^ABMCVAPI($PIECE(ABM("X0"),U),ABMZCPTD,"","")

 +9        SET ABMU("CP")=0

 +10       FOR 

               SET ABMU("CP")=$ORDER(ABMZCPTD(ABMU("CP")))

               IF '$DATA(ABMZCPTD(ABMU("CP")))

                   QUIT 

               Begin DoDot:1

 +11               SET ABMU("TXT")=ABMU("TXT")_ABMZCPTD(ABMU("CP"))_" "

               End DoDot:1

 +12      ;end CSV

 +13       SET ABMU("RM")=79

           SET ABMU("LM")=11

           SET ABMU("TAB")=-3

 +14       DO ^ABMDWRAP

 +15      ;

XIT        KILL ABMU

 +1        QUIT 

 +2       ;

EXT       ;PEP - External Entry Point for displaying CPT codes

 +1       ;start CSV

 +2        SET ABMU("TXT")=""

 +3        DO IHSCPTD^ABMCVAPI($PIECE(ABM("X0"),U),ABMZCPTD,"","")

 +4        SET ABMU("CP")=0

 +5        FOR 

               SET ABMU("CP")=$ORDER(ABMZCPTD(ABMU("CP")))

               IF '$DATA(ABMZCPTD(ABMU("CP")))

                   QUIT 

               Begin DoDot:1

 +6                SET ABMU("TXT")=ABMU("TXT")_ABMZCPTD(ABMU("CP"))_" "

               End DoDot:1

 +7       ;end CSV

 +8        SET ABMU("RM")=67

           SET ABMU("LM")=11

           SET ABMU("TAB")=-13

 +9        DO ^ABMDWRAP

 +10       GOTO XIT

 +11      ;

ADA        WRITE " - ",$PIECE(^AUTTADA(+Y,0),U,2)

 +1        GOTO XIT

 +2       ;

REVN       WRITE " - ",$PIECE(^AUTTREVN(+Y,0),U,2)

 +1        GOTO XIT