source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGMTCOM.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 995 bytes
RevLine 
[613]1DGMTCOM ;ALB/CAW - Copay Exemption Test Main Menu Driver ;7 JAN 1992 8:00 am
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4EN ;Entry point to copay exemption test menu driver
5 D HOME^%ZIS G:$D(^DOPT("DGMTCOP",6)) A
6 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)
7 S DIK="^DOPT(""DGMTCOP""," D IXALL^DIK K DIK
8 ;
9A W !! S DIC="^DOPT(""DGMTCOP"",",DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0 D @+Y G A
10 ;
111 ;;Add a New Copay Exemption Test
12 S DGMTYPT=2 G EN^DGMTA
13 ;
142 ;;Adjudicate a Copay Exemption Test
15 S DGMTYPT=2 G ADJ^DGMTEO
16 ;
173 ;;Edit an Existing Copay Exemption Test
18 S DGMTYPT=2 G EN^DGMTE
19 ;
204 ;;Delete a Copay Exemption Test
21 S DGMTYPT=2 G EN^DGMTDEL
22 ;
235 ;;List Incomplete Copay Tests
24 S DGMTYPT=2 G EN^DGMTOREQ
25 ;
266 ;;View Copay Exemption Test Editing Activity
27 S DGMTYPT=2 G DIS^DGMTAUD
28 ;
297 ;;View a Past Copay Test
30 S DGMTYPT=2 G EN^DGMTV
31 ;
328 ;;Copay Test Needing Updated At Next Appointment
33 S DGMTYPT=2 G ^DGMTOFA
Note: See TracBrowser for help on using the repository browser.