| 1 | DVBAB4 ;ALB/KLB - CAPRI Exam checklist for RO ;03/01/00
|
|---|
| 2 | ;;2.7;AMIE;**35**;Apr 10, 1995
|
|---|
| 3 | STRT(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
|
|---|
