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 ---[H[J[2J[HDGMTM 1306 printed Sep 23, 2025@20:20:52 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
