ABMDTGRP.m

ABMDTGRP ; IHS/ASDST/DMJ - Add/Edit Group Insurance ;

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

 ;

 K DIC,ABM

 W ! S DIC="^AUTNEGRP(",DIC(0)="QEAML" D ^DIC

 Q:+Y<1!$D(DTOUT)!$D(DUOUT)

 S ABM("EGRP")=+Y

 I '$P(Y,U,3) W ! S DIE="^AUTNEGRP(",DA=+Y,DR=".01Modify GROUP NAME (if Desired): " D ^ABMDDIE Q:$D(Y)!$D(ABM("DIE-FAIL"))

 W !!?5,"NOTE: Some Insurers assign different Group Numbers based upon the",!?11,"particular type of visit (dental, outpatient, etc.) that",!?11,"occurred."

 W ! K DIR S DIR("B")="N",DIR(0)="Y",DIR("A")="Do the Group Numbers vary depending on Visit Type (Y/N)"

 S DIR("B")=$S($D(^AUTNEGRP(ABM("EGRP"),11)):"Y",1:"N") D ^DIR

 Q:$D(DUOUT)!$D(DTOUT)  W !

 I Y=0 S DIE="^AUTNEGRP(",DA=ABM("EGRP"),DR=".02R~[5a] Group Number.....: " D ^ABMDDIE K ^AUTNEGRP(ABM("EGRP"),11) Q

 S DA=ABM("EGRP"),DIE="^AUTNEGRP(",DR="11" D ^ABMDDIE

 ;

XIT K ABM,DIR,DR,DIE

 Q

ABMDTGRP  ; IHS/ASDST/DMJ - Add/Edit Group Insurance ;

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

 +2       ;

 +3        KILL DIC,ABM

 +4        WRITE !

           SET DIC="^AUTNEGRP("

           SET DIC(0)="QEAML"

           DO ^DIC

 +5        IF +Y<1!$DATA(DTOUT)!$DATA(DUOUT)

               QUIT 

 +6        SET ABM("EGRP")=+Y

 +7        IF '$PIECE(Y,U,3)

               WRITE !

               SET DIE="^AUTNEGRP("

               SET DA=+Y

               SET DR=".01Modify GROUP NAME (if Desired): "

               DO ^ABMDDIE

               IF $DATA(Y)!$DATA(ABM("DIE-FAIL"))

                   QUIT 

 +8        WRITE !!?5,"NOTE: Some Insurers assign different Group Numbers based upon the",!?11,"particular type of visit (dental, outpatient, etc.) that",!?11,"occurred."

 +9        WRITE !

           KILL DIR

           SET DIR("B")="N"

           SET DIR(0)="Y"

           SET DIR("A")="Do the Group Numbers vary depending on Visit Type (Y/N)"

 +10       SET DIR("B")=$SELECT($DATA(^AUTNEGRP(ABM("EGRP"),11)):"Y",1:"N")

           DO ^DIR

 +11       IF $DATA(DUOUT)!$DATA(DTOUT)

               QUIT 

           WRITE !

 +12       IF Y=0

               SET DIE="^AUTNEGRP("

               SET DA=ABM("EGRP")

               SET DR=".02R~[5a] Group Number.....: "

               DO ^ABMDDIE

               KILL ^AUTNEGRP(ABM("EGRP"),11)

               QUIT 

 +13       SET DA=ABM("EGRP")

           SET DIE="^AUTNEGRP("

           SET DR="11"

           DO ^ABMDDIE

 +14      ;

XIT        KILL ABM,DIR,DR,DIE

 +1        QUIT