| [613] | 1 | DGMTM ;ALB/RMO - Means Test Main Menu Driver ;7 JAN 1992 8:00 am
|
|---|
| 2 | ;;5.3;Registration;**45**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;Entry point to means test menu driver
|
|---|
| 5 | D HOME^%ZIS G:$D(^DOPT("DGMTM",14)) A
|
|---|
| 6 | 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)
|
|---|
| 7 | S DIK="^DOPT(""DGMTM""," D IXALL^DIK K DIK
|
|---|
| 8 | ;
|
|---|
| 9 | A W !! S DIC="^DOPT(""DGMTM"",",DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0 D @+Y G A
|
|---|
| 10 | ;
|
|---|
| 11 | 1 ;;Add a New Means Test
|
|---|
| 12 | S DGMTYPT=1 G EN^DGMTA
|
|---|
| 13 | ;
|
|---|
| 14 | 2 ;;Adjudicate a Means Test
|
|---|
| 15 | S DGMTYPT=1 G ADJ^DGMTEO
|
|---|
| 16 | ;
|
|---|
| 17 | 3 ;;Change a Patient's Means Test Category
|
|---|
| 18 | G CAT^DGMTEO
|
|---|
| 19 | ;
|
|---|
| 20 | 4 ;;Complete a Required Means Test
|
|---|
| 21 | G COM^DGMTEO
|
|---|
| 22 | ;
|
|---|
| 23 | 5 ;;Edit an Existing Means Test
|
|---|
| 24 | S DGMTYPT=1 G EN^DGMTE
|
|---|
| 25 | ;
|
|---|
| 26 | 6 ;;View a Past Means Test
|
|---|
| 27 | S DGMTYPT=1 G EN^DGMTV
|
|---|
| 28 | ;
|
|---|
| 29 | 7 ;;View Means Test Editing Activity
|
|---|
| 30 | S DGMTYPT=1 G DIS^DGMTAUD2
|
|---|
| 31 | ;
|
|---|
| 32 | 8 ;;Delete a Means Test
|
|---|
| 33 | S DGMTYPT=1 G EN^DGMTDEL
|
|---|
| 34 | ;
|
|---|
| 35 | 9 ;;List Required/Pending Means Tests
|
|---|
| 36 | S DGMTYPT=1 G EN^DGMTOREQ
|
|---|
| 37 | ;
|
|---|
| 38 | 10 ;;Required Means Test At Next Appointment
|
|---|
| 39 | S DGMTYPT=1 G ^DGMTOFA
|
|---|
| 40 | ;
|
|---|
| 41 | 11 ;;Means Test w/Previous Year Threshold
|
|---|
| 42 | G ^DGMTOPYT
|
|---|
| 43 | ;
|
|---|
| 44 | 12 ;;Patients Who Have Not Agreed to Pay Deductible
|
|---|
| 45 | G ^DGMTO
|
|---|
| 46 | ;
|
|---|
| 47 | 13 ;;Hardship Review Date
|
|---|
| 48 | G ^DGMTOHD
|
|---|
| 49 | ;
|
|---|
| 50 | 14 ;;Document Comments On a Means Test
|
|---|
| 51 | S DGMTYPT=1 G EN^DGMTREM
|
|---|
