source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAB4.m@ 771

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

initial load of WorldVistAEHR
File size: 2.1 KB
Line 
1DVBAB4 ;ALB/KLB - CAPRI Exam checklist for RO ;03/01/00
2 ;;2.7;AMIE;**35**;Apr 10, 1995
3STRT(MSG) ;
4 K ^TMP($J,"CAPRI")
5 S CNT=1
6 S ^TMP($J,"CAPRI",CNT,0)=";;Exam Checklist for the Regional Office",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
7 S ^TMP($J,"CAPRI",CNT,0)=";;VA Regional Office - "_$$SITE^DVBCUTL4,CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
8 S ^TMP($J,"CAPRI",CNT,0)=";;Compensation and Pension Examination Request Worksheet",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
9 S ^TMP($J,"CAPRI",CNT,0)=";;Veteran's Name: _______________________________________ VAMC: ____________________",CNT=CNT+1
10 S ^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)=";;C-Number: _______________ SSN: _______________",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
11 S ^TMP($J,"CAPRI",CNT,0)=";;Telephone-Day: _______________ Night: _______________ Power of Attorney: _______________",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
12 S ^TMP($J,"CAPRI",CNT,0)=";;Date Ordered: _______________ By: _________________________",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
13 S ^TMP($J,"CAPRI",CNT,0)=";;Priority of Exam: _______________ ( ) Insufficient Exam Dated: _______________",CNT=CNT+1
14 S ^TMP($J,"CAPRI",CNT,0)=" ;;(See Remarks)",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
15 S ^TMP($J,"CAPRI",CNT,0)=";;( ) General Medical Examination ( ) Review of Pertinent Medical Records in",CNT=CNT+1
16 S ^TMP($J,"CAPRI",CNT,0)=";; Claims Folder is Required Prior to Examinations",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1,^TMP($J,"CAPRI",CNT,0)="",CNT=CNT+1
17 S DIF="^TMP($J,""CAPRI"",",XCNP=CNT
18 F ROU="DVBCEXM1" S X=ROU X ^%ZOSF("LOAD")
19 ;M MSG=^TMP($J,"CAPRI")
20 K DIF,XCNP,ROU
21 S A=0
22 F S A=$O(^TMP($J,"CAPRI",A)) Q:'A D
23 .S XXX=$G(^TMP($J,"CAPRI",A,0))
24 .I (XXX[";AMIE;")!(XXX["TOF")!(XXX["END") K ^TMP($J,"CAPRI",A,0)
25 .E S MSG(A)=$P(XXX,";;",2)
26 K ^TMP($J,"CAPRI")
27 K A,CNT,X
28 Q
Note: See TracBrowser for help on using the repository browser.