|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
