source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVB83RPT.m@ 724

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DVB83RPT ;ALB/RLC;REPORT TO IDENTIFY BAD RECORDS IN FILE 396.3; 01/24/05 1:05 PM
2 ;;2.7;AMIE;**83**;Apr 10, 1995
3 ;
4 ;report to identify records that may possibly have to be corrected
5 ;
6 K ^TMP("396.3")
7 D QUE
8 Q
9 ;
10 ;Identify possible corrupt records
11ID S DVBIEN=0
12 F S DVBIEN=$O(^DVB(396.3,DVBIEN)) Q:'DVBIEN D
13 .Q:'$D(^DVB(396.3,DVBIEN,0))
14 .Q:$P(^DVB(396.3,DVBIEN,0),U,13)'=-1!($P(^DVB(396.3,DVBIEN,0),U,14)'=-1)
15 .S ^TMP("396.3",DVBIEN)=""
16 ;
17RPT ;Report of records identified
18 S DVPG=0
19 D HEAD,HD1
20 S DVBIEN=0
21 F S DVBIEN=$O(^TMP("396.3",DVBIEN)) Q:'DVBIEN D
22 .W !?5,DVBIEN
23 .I $D(SCREEN),$Y>IOSL S DIR(0)="E" D ^DIR D HEAD,HD1 Q
24 .I $Y>IOSL D HEAD,HD1
25 D FOOT
26 Q
27 ;
28HEAD ;Report header
29 W:$D(IOF) @IOF
30 S $Y=0
31 W !,"LIST OF RECORDS FROM FILE 396.3 THAT MAY BE CORRUPT"
32 S DVPG=DVPG+1 W ?72,"Page: ",DVPG,!!
33 Q
34 ;
35HD1 ;Column heading
36 W "Internal Record #",!,"================="
37 Q
38 ;
39FOOT ;End of report
40 W !!!,"*** END OF REPORT ***",!
41 K DVBIEN,^TMP("396.3")
42 Q
43 ;
44QUE ;Queue Report
45 W:$D(IOF) @IOF
46 W !,"LIST OF RECORDS FROM FILE 396.3 THAT MAY BE CORRUPT",!!
47 N ZTQUEUED,POP
48 K %ZIS,IOP,IOC,ZTIO S %ZIS="MQ" D ^%ZIS G:POP QUE1
49 S ZTRTN="ID^DVB83RPT"
50 I $D(IO("Q")) K IO("Q") D ^%ZTLOAD W !,"REQUEST QUEUED" Q
51QUE1 S SCREEN="" I $D(ZTRTN) D @ZTRTN
52 Q
Note: See TracBrowser for help on using the repository browser.