source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCATCK.m@ 1259

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

initial load of WorldVistAEHR

File size: 981 bytes
Line 
1DVBCATCK ;ALB/GTS-557/THM-HIGHER LEVEL A&A EXAM ; 1/3/91 9:37 AM
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4 K LINE S PG=1,HD91="Department of Veterans Affairs"
5 S HD9=$S($D(CMBN):"Abbreviated",1:"Full")_" Exam Worksheet"
6 S $P(LINE,"-",75)="-"
7EN D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
8 W !?25,HD91,!?22,"Compensation and Pension Examination",! W ?33,"# 1720 Worksheet" S HD7="HIGHER LEVEL AID & ATTENDANCE",HD8="For "_HD7 W !?(40-($L(HD9)\2)),HD9,!?(40-($L(HD8)\2)),HD8,!!
9 W !,"Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________"
10 W !!,"Type of Exam: ",HD7,!!!!,"Narrative: "
11 S TXT="TXT10" D PTXT W !!!!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
12 K LN,LN1,LN2,LINE
13 Q
14 ;
15HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam "_HD8,!,"for ",NAME,!!!
16 Q
17 ;
18PTXT D PTXT^DVBCATC1
19 Q
20 ;
21SETIOF ; ** Set device control var's
22 D HOME^%ZIS
23 Q
Note: See TracBrowser for help on using the repository browser.