source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCEXML.m@ 623

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1DVBCEXML ;ALB/GTS-557/THM-PRINT EXAM CHECKLIST FOR RO ; 5/16/91 1:52 PM
2 ;;2.7;AMIE; **12**;Apr 10, 1995
3 ;
4 K ^TMP($J) D HOME^%ZIS
5 W @IOF,!!,"Print Exam Checklist for the Regional Office",!!!
6DEV S %ZIS="AEQ",%ZIS("A")="Output device: ",%ZIS("B")="0;P-OTHER" D ^%ZIS K %ZIS G:POP EXIT
7 I IOM<132 D ^%ZISC U 0 W *7,!!,"A margin of 132 is required for this printout",!! H 2 G DEV
8 I $D(IO("Q")) S ZTRTN="GO^DVBCEXML",ZTIO=ION,ZTDESC="Print Exam check list",ZTSAVE="" D ^%ZTLOAD W !!,"Request queued",!! H 2 G EXIT
9 ;
10GO ;
11 U IO
12 S PG=1
13 S HD="VA Regional Office - "_$$SITE^DVBCUTL4 W !?(IOM-$L(HD)\2),HD
14 S HD="Compensation and Pension Examination Request Worksheet"
15 W !?(IOM-$L(HD)\2),HD
16 D HDR
17 D DRIVE
18 W !!?13,"** Remarks:",!
19 ;
20EXIT D:$D(ZTQUEUED) KILL^%ZTLOAD
21 K AA,NAME,ZTSK,H,DVBCX,A,OLDEXM,HD G KILL^DVBCUTIL
22 Q
23 ;
24HDR W !!?15,"Veteran's Name: _________________________________________________",?90,"VAMC: __________________________"
25 W !!?21,"C-Number: ____________________",?91,"SSN: __________________________"
26 W !!?13,"Telephone-Day: _______________________ Night:_______________________ Power of Attorney: _________________"
27 W !!?18,"Date Ordered: ____________________________",?92,"By: __________________________"
28 W !!?14,"Priority of Exam: _________________________ ( ) Insufficient Exam Dated: _______________________"
29 W !?14," (See Remarks)"
30 W !!?14,"( ) General Medical Examination ( ) Review of Pertinent Medical Records in"
31 W !?14," Claims Folder is Required Prior to Examination",!!
32 Q
33DRIVE ;
34 S DIF="^TMP($J,""DVBAR"",",XCNP=0
35 K ^TMP($J,"DVBAR")
36 F ROU="DVBCEXM1" S X=ROU X ^%ZOSF("LOAD")
37 K DIF,XCNP,ROU
38 N LP,TEXT
39 S LP=0,STOP=0
40 F S LP=$O(^TMP($J,"DVBAR",LP)) Q:(LP="")!(STOP) D
41 .S TEXT=^TMP($J,"DVBAR",LP,0)
42 .I (TEXT'[";;")!(TEXT[";AMIE;") Q
43 .I TEXT["TOF" D HD2
44 .I TEXT["END" S STOP=1 Q
45 .W:TEXT'["TOF" ?5,$P(TEXT,";;",2),! I $Y>55 D HD2
46 K ^TMP($J,"DVBAR"),TEXT,STOP,LP,PG,DVBAX,X
47 Q
48 ;
49HD2 S PG=PG+1 W @IOF,!?15,"Page: ",PG,!!?15,"Compensation and Pension Examination Request Worksheet, Cont.",!!!
50 Q
51SETIOF ; ** Set device control var's
52 D HOME^%ZIS
53 Q
Note: See TracBrowser for help on using the repository browser.