DGMTM.m

DGMTM ;ALB/RMO - Means Test Main Menu Driver ;7 JAN 1992 8:00 am

 ;;5.3;Registration;**45**;Aug 13, 1993

 ;

EN ;Entry point to means test menu driver

 D HOME^%ZIS G:$D(^DOPT("DGMTM",14)) A

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

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

 ;

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

 ;

1 ;;Add a New Means Test

 S DGMTYPT=1 G EN^DGMTA

 ;

2 ;;Adjudicate a Means Test

 S DGMTYPT=1 G ADJ^DGMTEO

 ;

3 ;;Change a Patient's Means Test Category

 G CAT^DGMTEO

 ;

4 ;;Complete a Required Means Test

 G COM^DGMTEO

 ;

5 ;;Edit an Existing Means Test

 S DGMTYPT=1 G EN^DGMTE

 ;

6 ;;View a Past Means Test

 S DGMTYPT=1 G EN^DGMTV

 ;

7 ;;View Means Test Editing Activity

 S DGMTYPT=1 G DIS^DGMTAUD2

 ;

8 ;;Delete a Means Test

 S DGMTYPT=1 G EN^DGMTDEL

 ;

9 ;;List Required/Pending Means Tests

 S DGMTYPT=1 G EN^DGMTOREQ

 ;

10 ;;Required Means Test At Next Appointment

 S DGMTYPT=1 G ^DGMTOFA

 ;

11 ;;Means Test w/Previous Year Threshold

 G ^DGMTOPYT

 ;

12 ;;Patients Who Have Not Agreed to Pay Deductible

 G ^DGMTO

 ;

13 ;;Hardship Review Date

 G ^DGMTOHD

 ;

14 ;;Document Comments On a Means Test

 S DGMTYPT=1 G EN^DGMTREM

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGMTM   1306     printed  Apr 09, 2024@21:47:43                                                                                                                                                                                                       Page 2

DGMTM     ;ALB/RMO - Means Test Main Menu Driver ;7 JAN 1992 8:00 am

 +1       ;;5.3;Registration;**45**;Aug 13, 1993

 +2       ;

EN        ;Entry point to means test menu driver

 +1        DO HOME^%ZIS

           if $DATA(^DOPT("DGMTM",14))

               GOTO A

 +2        SET ^DOPT("DGMTM",0)="Means Test Menu Options^1N^"

           FOR I=1:1

               SET X=$TEXT(@(I))

               if X=""

                   QUIT 

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

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

           DO IXALL^DIK

           KILL DIK

 +4       ;

A          WRITE !!

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

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

           if Y<0

               QUIT 

           DO @+Y

           GOTO A

 +1       ;

1         ;;Add a New Means Test

 +1        SET DGMTYPT=1

           GOTO EN^DGMTA

 +2       ;

2         ;;Adjudicate a Means Test

 +1        SET DGMTYPT=1

           GOTO ADJ^DGMTEO

 +2       ;

3         ;;Change a Patient's Means Test Category

 +1        GOTO CAT^DGMTEO

 +2       ;

4         ;;Complete a Required Means Test

 +1        GOTO COM^DGMTEO

 +2       ;

5         ;;Edit an Existing Means Test

 +1        SET DGMTYPT=1

           GOTO EN^DGMTE

 +2       ;

6         ;;View a Past Means Test

 +1        SET DGMTYPT=1

           GOTO EN^DGMTV

 +2       ;

7         ;;View Means Test Editing Activity

 +1        SET DGMTYPT=1

           GOTO DIS^DGMTAUD2

 +2       ;

8         ;;Delete a Means Test

 +1        SET DGMTYPT=1

           GOTO EN^DGMTDEL

 +2       ;

9         ;;List Required/Pending Means Tests

 +1        SET DGMTYPT=1

           GOTO EN^DGMTOREQ

 +2       ;

10        ;;Required Means Test At Next Appointment

 +1        SET DGMTYPT=1

           GOTO ^DGMTOFA

 +2       ;

11        ;;Means Test w/Previous Year Threshold

 +1        GOTO ^DGMTOPYT

 +2       ;

12        ;;Patients Who Have Not Agreed to Pay Deductible

 +1        GOTO ^DGMTO

 +2       ;

13        ;;Hardship Review Date

 +1        GOTO ^DGMTOHD

 +2       ;

14        ;;Document Comments On a Means Test

 +1        SET DGMTYPT=1

           GOTO EN^DGMTREM