| 1 | LRCKF ;SLC/RWF - CHECK FILE FOR COHESIVENESS ; 8/30/87 17:19 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**272,293**;Sep 27, 1994
|
|---|
| 3 | D DT^LRX
|
|---|
| 4 | W !,"I WILL CHECK ALL LAB FILES TO LOOK FOR INCONSISTENCIES",!!
|
|---|
| 5 | D LOG Q:LREND Q:POP
|
|---|
| 6 | L D ENT^LRCKF60,ENT^LRCKF62,ENT^LRCKFLA,ENT^LRCKF68,ENT^LRCKF69,ENT^LRACDIAG,ENT^LRCKPTR ;,LRCKF^LRBLJI
|
|---|
| 7 | K LRCKW
|
|---|
| 8 | W !! W:$E(IOST,1,2)="P-" @IOF D ^%ZISC Q
|
|---|
| 9 | LOG ;from LRCKF60, LRCKF62, LRCKF68, LRCKF69, LRCKFLA
|
|---|
| 10 | S U="^" D DT^LRX S LREND=0
|
|---|
| 11 | W !,"DO YOU WANT WARNINGS REPORTED " S %=2 D YN^DICN G LOG:%=0 S LRCKW=(%=1) I %<0 S LREND=1 Q
|
|---|
| 12 | ASK W !!,"Do you want to only check tests in file 60 that are orderable and/or",!,"printable" S %=1 D YN^DICN Q:%=-1 G:%=0 HELP I %=1 S LRYES=1
|
|---|
| 13 | W !,"Where should I send the problem report?",! S %ZIS("A")="REPORT DEVICE: ",%ZIS="QM" D ^%ZIS I POP S LREND=1 Q
|
|---|
| 14 | I $D(IO("Q")) K IO("Q") S:'$D(ZTRTN) ZTRTN="DQ^LRCKF" S LREND=1,ZTSAVE("LRCKW")="",ZTDESC="Integrity Report" D ^%ZTLOAD W:$D(ZTSK) !,"REQUEST QUEUED" K ZTSK,ZTRTN,ZTIO,ZTDESC,ZTSAVE Q
|
|---|
| 15 | Q
|
|---|
| 16 | DQ S:$D(ZTQUEUED) ZTREQ="@" U IO D DT^LRX G L
|
|---|
| 17 | HELP W !!,"Enter 'YES' if you want me to only check tests that are orderable and/or",!,"printable. Enter 'NO' if you want me to check all tests in file 60." G ASK
|
|---|
