DGMTCOM.m

DGMTCOM ;ALB/CAW - Copay Exemption Test Main Menu Driver ;7 JAN 1992 8:00 am

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

EN ;Entry point to copay exemption test menu driver

 D HOME^%ZIS G:$D(^DOPT("DGMTCOP",6)) A

 S ^DOPT("DGMTCOP",0)="Copay Exemption Test Menu Options^1N^" F I=1:1 S X=$T(@(I)) Q:X=""  S ^DOPT("DGMTCOP",I,0)=$P(X,";;",2,99)

 S DIK="^DOPT(""DGMTCOP""," D IXALL^DIK K DIK

 ;

A W !! S DIC="^DOPT(""DGMTCOP"",",DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0  D @+Y G A

 ;

1 ;;Add a New Copay Exemption Test

 S DGMTYPT=2 G EN^DGMTA

 ;

2 ;;Adjudicate a Copay Exemption Test

 S DGMTYPT=2 G ADJ^DGMTEO

 ;

3 ;;Edit an Existing Copay Exemption Test

 S DGMTYPT=2 G EN^DGMTE

 ;

4 ;;Delete a Copay Exemption Test

 S DGMTYPT=2 G EN^DGMTDEL

 ;

5 ;;List Incomplete Copay Tests

 S DGMTYPT=2 G EN^DGMTOREQ

 ;

6 ;;View Copay Exemption Test Editing Activity

 S DGMTYPT=2 G DIS^DGMTAUD

 ;

7 ;;View a Past Copay Test

 S DGMTYPT=2 G EN^DGMTV

 ;

8 ;;Copay Test Needing Updated At Next Appointment

 S DGMTYPT=2 G ^DGMTOFA

DGMTCOM   ;ALB/CAW - Copay Exemption Test Main Menu Driver ;7 JAN 1992 8:00 am

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ;Entry point to copay exemption test menu driver

 +1        DO HOME^%ZIS

           IF $DATA(^DOPT("DGMTCOP",6))

               GOTO A

 +2        SET ^DOPT("DGMTCOP",0)="Copay Exemption Test Menu Options^1N^"

           FOR I=1:1

               SET X=$TEXT(@(I))

               IF X=""

                   QUIT 

               SET ^DOPT("DGMTCOP",I,0)=$PIECE(X,";;",2,99)

 +3        SET DIK="^DOPT(""DGMTCOP"","

           DO IXALL^DIK

           KILL DIK

 +4       ;

A          WRITE !!

           SET DIC="^DOPT(""DGMTCOP"","

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           IF Y<0

               QUIT 

           DO @+Y

           GOTO A

 +1       ;

1         ;;Add a New Copay Exemption Test

 +1        SET DGMTYPT=2

           GOTO EN^DGMTA

 +2       ;

2         ;;Adjudicate a Copay Exemption Test

 +1        SET DGMTYPT=2

           GOTO ADJ^DGMTEO

 +2       ;

3         ;;Edit an Existing Copay Exemption Test

 +1        SET DGMTYPT=2

           GOTO EN^DGMTE

 +2       ;

4         ;;Delete a Copay Exemption Test

 +1        SET DGMTYPT=2

           GOTO EN^DGMTDEL

 +2       ;

5         ;;List Incomplete Copay Tests

 +1        SET DGMTYPT=2

           GOTO EN^DGMTOREQ

 +2       ;

6         ;;View Copay Exemption Test Editing Activity

 +1        SET DGMTYPT=2

           GOTO DIS^DGMTAUD

 +2       ;

7         ;;View a Past Copay Test

 +1        SET DGMTYPT=2

           GOTO EN^DGMTV

 +2       ;

8         ;;Copay Test Needing Updated At Next Appointment

 +1        SET DGMTYPT=2

           GOTO ^DGMTOFA