| [613] | 1 | DVBCREQ3 ;ALB/GTS-557/THM-NEW REQUESTS RECAP SHEET ; 6/18/91 1:23 PM
|
|---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | EN S P1=0,PG=0,$P(PLINE,"-",75)="-" D HDR
|
|---|
| 5 | ;
|
|---|
| 6 | RECAP F X="NEW","MODIFIED","ADDITIONAL" S P1=P1+1 W !!!,X,$S(P1=3:" exams",1:" requests"),":",!! S (PNAM,SSN)="" F SM=1:1 S PNAM=$O(^TMP($J,X,PNAM)) Q:PNAM="" F SN=0:0 S SSN=$O(^TMP($J,X,PNAM,SSN)) Q:SSN="" D RECAP1
|
|---|
| 7 | ;
|
|---|
| 8 | EXIT K P1,COL,SM,SN,PNAM,SSN,CNUM,CN,PG,PLINE,X,^TMP($J),DVBCSSNO Q
|
|---|
| 9 | ;
|
|---|
| 10 | RECAP1 F CN=0:0 S CNUM=$O(^TMP($J,X,PNAM,SSN,CNUM)) Q:CNUM="" S COL=$S(SM>9:0,1:1) D SSNOUT^DVBCUTIL W ?COL,SM,". ",PNAM,?40,DVBCSSNO,?63,CNUM,! I $Y>55 W @IOF,!
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | HDR S PG=PG+1 W @IOF,!,"New Request Recap Sheet for Run Date ",DVBCDT(0),?69,"Page: ",PG,!!!
|
|---|
| 14 | W ?1,"Veteran name",?40,"S S #",?63,"C-number",!,PLINE,!!!
|
|---|
| 15 | Q
|
|---|
