DVBANT21.m

DVBANT21 ;ALB/JLU;pending 21 day certificate;9/15/94

 ;;2.7;AMIE;;Apr 10, 1995

 ;

EN ;the main entry point

 D HDR

 S DVBTYPE=$$TYPE()

 I DVBTYPE'=1 DO

 .I DVBTYPE="B" D BOTH

 .I DVBTYPE="N" D NOTICE

 .I DVBTYPE="C" D CERTIF

 .S L=0,DIC="^DVB(396,",(FR,TO)=""

 .D EN1^DIP

 .K L,DIC,FR,TO,BY,FLDS

 .Q

 D KILL

 Q

 ;

KILL K DVBTYPE,DUOUT,DTOUT

 Q

 ;

HDR ;issues an initial form feed

 S VAR(1,0)="0,0,0,0,1^"

 D WR^DVBAUTL4("VAR")

 K VAR

 Q

 ;

TYPE() ;gets from the user what type of report they are interested in.

 N DVBOUT

 S DIR(0)="SM^N:Notice of Discharge;C:21 Day Certificate;B:Both"

 S DIR("A")="Select the desired report"

 D ^DIR

 K DIR

 I $D(DUOUT)!($D(DTOUT)) S DVBOUT=1

 I Y="" S DVBOUT=1

 I "NCB"[Y S DVBOUT=Y

 E  S DVBOUT=1

 Q DVBOUT

 ;

NOTICE ;sets up the templates for the notice of discharge reports.

 S (FLDS,BY)="[DVBA NOTICE OF DISCHARGE]"

 Q

 ;

BOTH ;sets up the templates for both the notice of discharge and 21 day cert

 S (FLDS,BY)="[DVBA NOT/DIS-21 DAY CERT CHECK]"

 Q

 ;

CERTIF ;sets up the templates for the 21 day certificate

 S (FLDS,BY)="[DVBA 21 DAY CERT]"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBANT21   1134     printed  Apr 09, 2024@20:50:44                                                                                                                                                                                                    Page 2

DVBANT21  ;ALB/JLU;pending 21 day certificate;9/15/94

 +1       ;;2.7;AMIE;;Apr 10, 1995

 +2       ;

EN        ;the main entry point

 +1        DO HDR

 +2        SET DVBTYPE=$$TYPE()

 +3        IF DVBTYPE'=1

               Begin DoDot:1

 +4                IF DVBTYPE="B"

                       DO BOTH

 +5                IF DVBTYPE="N"

                       DO NOTICE

 +6                IF DVBTYPE="C"

                       DO CERTIF

 +7                SET L=0

                   SET DIC="^DVB(396,"

                   SET (FR,TO)=""

 +8                DO EN1^DIP

 +9                KILL L,DIC,FR,TO,BY,FLDS

 +10               QUIT 

               End DoDot:1

 +11       DO KILL

 +12       QUIT 

 +13      ;

KILL       KILL DVBTYPE,DUOUT,DTOUT

 +1        QUIT 

 +2       ;

HDR       ;issues an initial form feed

 +1        SET VAR(1,0)="0,0,0,0,1^"

 +2        DO WR^DVBAUTL4("VAR")

 +3        KILL VAR

 +4        QUIT 

 +5       ;

TYPE()    ;gets from the user what type of report they are interested in.

 +1        NEW DVBOUT

 +2        SET DIR(0)="SM^N:Notice of Discharge;C:21 Day Certificate;B:Both"

 +3        SET DIR("A")="Select the desired report"

 +4        DO ^DIR

 +5        KILL DIR

 +6        IF $DATA(DUOUT)!($DATA(DTOUT))

               SET DVBOUT=1

 +7        IF Y=""

               SET DVBOUT=1

 +8        IF "NCB"[Y

               SET DVBOUT=Y

 +9       IF '$TEST

               SET DVBOUT=1

 +10       QUIT DVBOUT

 +11      ;

NOTICE    ;sets up the templates for the notice of discharge reports.

 +1        SET (FLDS,BY)="[DVBA NOTICE OF DISCHARGE]"

 +2        QUIT 

 +3       ;

BOTH      ;sets up the templates for both the notice of discharge and 21 day cert

 +1        SET (FLDS,BY)="[DVBA NOT/DIS-21 DAY CERT CHECK]"

 +2        QUIT 

 +3       ;

CERTIF    ;sets up the templates for the 21 day certificate

 +1        SET (FLDS,BY)="[DVBA 21 DAY CERT]"

 +2        QUIT