ABMDTEL.m

ABMDTEL ; IHS/ASDST/DMJ - ADDD/EDIT ELIG INFO ;

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

 ;

MCR ;EP for going to Medicare Page

 S AGXTERN="" K DIC D ^AGVAR,^AGEDIT,^AGED4:$D(DFN),KILL^AG K AGXTERN,DFN

 Q

 ;

MCD ;EP for going to Medicaid Page

 S AGXTERN="" K DIC D ^AGVAR,^AGEDIT,^AGED5:$D(DFN),KILL^AG K AGXTERN,DFN

 Q

 ;

RR ;EP for going to RailRoad Page

 S AGXTERN="" K DIC D ^AGVAR,^AGEDIT,^AGED6:$D(DFN),KILL^AG K AGXTERN,DFN

 Q

 ;

PI ;EP for going to Private Ins Page

 S AGXTERN="" K DIC D ^AGVAR,^AGEDIT,^AGED7:$D(DFN),KILL^AG K AGXTERN,DFN

 Q

ABMDTEL   ; IHS/ASDST/DMJ - ADDD/EDIT ELIG INFO ;

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

 +2       ;

MCR       ;EP for going to Medicare Page

 +1        SET AGXTERN=""

           KILL DIC

           DO ^AGVAR

           DO ^AGEDIT

           IF $DATA(DFN)

               DO ^AGED4

           DO KILL^AG

           KILL AGXTERN,DFN

 +2        QUIT 

 +3       ;

MCD       ;EP for going to Medicaid Page

 +1        SET AGXTERN=""

           KILL DIC

           DO ^AGVAR

           DO ^AGEDIT

           IF $DATA(DFN)

               DO ^AGED5

           DO KILL^AG

           KILL AGXTERN,DFN

 +2        QUIT 

 +3       ;

RR        ;EP for going to RailRoad Page

 +1        SET AGXTERN=""

           KILL DIC

           DO ^AGVAR

           DO ^AGEDIT

           IF $DATA(DFN)

               DO ^AGED6

           DO KILL^AG

           KILL AGXTERN,DFN

 +2        QUIT 

 +3       ;

PI        ;EP for going to Private Ins Page

 +1        SET AGXTERN=""

           KILL DIC

           DO ^AGVAR

           DO ^AGEDIT

           IF $DATA(DFN)

               DO ^AGED7

           DO KILL^AG

           KILL AGXTERN,DFN

 +2        QUIT