source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBANT21.m@ 1093

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DVBANT21 ;ALB/JLU;pending 21 day certificate;9/15/94
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4EN ;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 ;
18KILL K DVBTYPE,DUOUT,DTOUT
19 Q
20 ;
21HDR ;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 ;
27TYPE() ;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 ;
39NOTICE ;sets up the templates for the notice of discharge reports.
40 S (FLDS,BY)="[DVBA NOTICE OF DISCHARGE]"
41 Q
42 ;
43BOTH ;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 ;
47CERTIF ;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.