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 ---[H[J[2J[HDVBCQDRV 1440 printed Dec 13, 2024@01:46 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
