Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Line | |
---|
1 | DVBANT21 ;ALB/JLU;pending 21 day certificate;9/15/94
|
---|
2 | ;;2.7;AMIE;;Apr 10, 1995
|
---|
3 | ;
|
---|
4 | EN ;the main entry point
|
---|
5 | D HDR
|
---|
6 | S DVBTYPE=$$TYPE()
|
---|
7 | I DVBTYPE'=1 DO
|
---|
8 | .I DVBTYPE="B" D BOTH
|
---|
9 | .I DVBTYPE="N" D NOTICE
|
---|
10 | .I DVBTYPE="C" D CERTIF
|
---|
11 | .S L=0,DIC="^DVB(396,",(FR,TO)=""
|
---|
12 | .D EN1^DIP
|
---|
13 | .K L,DIC,FR,TO,BY,FLDS
|
---|
14 | .Q
|
---|
15 | D KILL
|
---|
16 | Q
|
---|
17 | ;
|
---|
18 | KILL K DVBTYPE,DUOUT,DTOUT
|
---|
19 | Q
|
---|
20 | ;
|
---|
21 | HDR ;issues an initial form feed
|
---|
22 | S VAR(1,0)="0,0,0,0,1^"
|
---|
23 | D WR^DVBAUTL4("VAR")
|
---|
24 | K VAR
|
---|
25 | Q
|
---|
26 | ;
|
---|
27 | TYPE() ;gets from the user what type of report they are interested in.
|
---|
28 | N DVBOUT
|
---|
29 | S DIR(0)="SM^N:Notice of Discharge;C:21 Day Certificate;B:Both"
|
---|
30 | S DIR("A")="Select the desired report"
|
---|
31 | D ^DIR
|
---|
32 | K DIR
|
---|
33 | I $D(DUOUT)!($D(DTOUT)) S DVBOUT=1
|
---|
34 | I Y="" S DVBOUT=1
|
---|
35 | I "NCB"[Y S DVBOUT=Y
|
---|
36 | E S DVBOUT=1
|
---|
37 | Q DVBOUT
|
---|
38 | ;
|
---|
39 | NOTICE ;sets up the templates for the notice of discharge reports.
|
---|
40 | S (FLDS,BY)="[DVBA NOTICE OF DISCHARGE]"
|
---|
41 | Q
|
---|
42 | ;
|
---|
43 | BOTH ;sets up the templates for both the notice of discharge and 21 day cert
|
---|
44 | S (FLDS,BY)="[DVBA NOT/DIS-21 DAY CERT CHECK]"
|
---|
45 | Q
|
---|
46 | ;
|
---|
47 | CERTIF ;sets up the templates for the 21 day certificate
|
---|
48 | S (FLDS,BY)="[DVBA 21 DAY CERT]"
|
---|
49 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.