- 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
