Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
995 bytes
|
Line | |
---|
1 | DGMTCOM ;ALB/CAW - Copay Exemption Test Main Menu Driver ;7 JAN 1992 8:00 am
|
---|
2 | ;;5.3;Registration;;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | EN ;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 | ;
|
---|
9 | A W !! S DIC="^DOPT(""DGMTCOP"",",DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0 D @+Y G A
|
---|
10 | ;
|
---|
11 | 1 ;;Add a New Copay Exemption Test
|
---|
12 | S DGMTYPT=2 G EN^DGMTA
|
---|
13 | ;
|
---|
14 | 2 ;;Adjudicate a Copay Exemption Test
|
---|
15 | S DGMTYPT=2 G ADJ^DGMTEO
|
---|
16 | ;
|
---|
17 | 3 ;;Edit an Existing Copay Exemption Test
|
---|
18 | S DGMTYPT=2 G EN^DGMTE
|
---|
19 | ;
|
---|
20 | 4 ;;Delete a Copay Exemption Test
|
---|
21 | S DGMTYPT=2 G EN^DGMTDEL
|
---|
22 | ;
|
---|
23 | 5 ;;List Incomplete Copay Tests
|
---|
24 | S DGMTYPT=2 G EN^DGMTOREQ
|
---|
25 | ;
|
---|
26 | 6 ;;View Copay Exemption Test Editing Activity
|
---|
27 | S DGMTYPT=2 G DIS^DGMTAUD
|
---|
28 | ;
|
---|
29 | 7 ;;View a Past Copay Test
|
---|
30 | S DGMTYPT=2 G EN^DGMTV
|
---|
31 | ;
|
---|
32 | 8 ;;Copay Test Needing Updated At Next Appointment
|
---|
33 | S DGMTYPT=2 G ^DGMTOFA
|
---|
Note:
See
TracBrowser
for help on using the repository browser.