DVBCQDRV.m

DVBCQDRV ;;ALB-CIOFO/SBW - Generic Driver for DBQ ; 11/AUG/2011

 ;;2.7;AMIE;**175**;Apr 10, 1995;Build 6

EN ;

 N DVBAX,TT,PG

 D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF

 ;

 ; TNAM is defined in routine DVBCADE1 which is used in the processing of

 ; the following options:

 ;     DVBA C PRINT WORKSHEETS

 ;     DVBA C ADD ADDITIONAL EXAM  

 ; CPNO is defined in routine DVBACPPB which is used by the 

 ;     DVBA C PRINT BLANK C&P WORKSHE option 

 I $G(TNAM)']"",+$G(CPNO)>0 S TNAM=$P($G(^DVB(396.6,+CPNO,0)),U,1)

 I $G(TNAM)']"" W !,"*** Error, DBQ Name Not Defined. ***",!! Q

 S DVBAX=TNAM,TT=40-($L(DVBAX)\2),PG=1

 W !,?TT,DVBAX

 W !?40-($L("Disability Benefits Questionnaire")\2),"Disability Benefits Questionnaire",!!

 W !?1,"Name of patient/Veteran: ",$S($G(NAME)]"":NAME,1:"_______________________")

 W ?45,"   SSN: ",$S($G(SSN)]"":SSN,1:"________________"),!!

 W !?3,"For a printed copy of the Disability Benefit Questionnaire (DBQ) form,"

 W !?3,"please visit the DBQ Switchboard, http://go.domain.ext/DBQ.  This page"

 W !?3,"serves as a switchboard for DBQ-related information.  For comments,"

 W !?3,"questions, or suggestions regarding DBQ policy, content, or use,"

 W !?3,"please contact the Disability Examination Management Office (DEMO)"

 W !?3,"Corporate Mailbox by sending an email to:"

 W !?8,"CorporateMailbox.DEMO@domain.ext.",!!!

 Q

 ;

SETIOF ;  ** Set device control var's

 D HOME^%ZIS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCQDRV   1440     printed  Apr 09, 2024@20:59:33                                                                                                                                                                                                    Page 2

DVBCQDRV  ;;ALB-CIOFO/SBW - Generic Driver for DBQ ; 11/AUG/2011

 +1       ;;2.7;AMIE;**175**;Apr 10, 1995;Build 6

EN        ;

 +1        NEW DVBAX,TT,PG

 +2        if '$DATA(IOF)

               DO SETIOF

           if (IOST?1"C-".E)

               WRITE @IOF

 +3       ;

 +4       ; TNAM is defined in routine DVBCADE1 which is used in the processing of

 +5       ; the following options:

 +6       ;     DVBA C PRINT WORKSHEETS

 +7       ;     DVBA C ADD ADDITIONAL EXAM  

 +8       ; CPNO is defined in routine DVBACPPB which is used by the 

 +9       ;     DVBA C PRINT BLANK C&P WORKSHE option 

 +10       IF $GET(TNAM)']""

               IF +$GET(CPNO)>0

                   SET TNAM=$PIECE($GET(^DVB(396.6,+CPNO,0)),U,1)

 +11       IF $GET(TNAM)']""

               WRITE !,"*** Error, DBQ Name Not Defined. ***",!!

               QUIT 

 +12       SET DVBAX=TNAM

           SET TT=40-($LENGTH(DVBAX)\2)

           SET PG=1

 +13       WRITE !,?TT,DVBAX

 +14       WRITE !?40-($LENGTH("Disability Benefits Questionnaire")\2),"Disability Benefits Questionnaire",!!

 +15       WRITE !?1,"Name of patient/Veteran: ",$SELECT($GET(NAME)]"":NAME,1:"_______________________")

 +16       WRITE ?45,"   SSN: ",$SELECT($GET(SSN)]"":SSN,1:"________________"),!!

 +17       WRITE !?3,"For a printed copy of the Disability Benefit Questionnaire (DBQ) form,"

 +18       WRITE !?3,"please visit the DBQ Switchboard, http://go.domain.ext/DBQ.  This page"

 +19       WRITE !?3,"serves as a switchboard for DBQ-related information.  For comments,"

 +20       WRITE !?3,"questions, or suggestions regarding DBQ policy, content, or use,"

 +21       WRITE !?3,"please contact the Disability Examination Management Office (DEMO)"

 +22       WRITE !?3,"Corporate Mailbox by sending an email to:"

 +23       WRITE !?8,"CorporateMailbox.DEMO@domain.ext.",!!!

 +24       QUIT 

 +25      ;

SETIOF    ;  ** Set device control var's

 +1        DO HOME^%ZIS

 +2        QUIT