LRZINTEG.m

LRZINTEG ; INTEGRITY CHECKER FOR LABORATORY - ISC/SFO ; 17-Nov-1986 10:21 am

 ;;LAB VERSION 3.05V

 W !,"Routine Integrity Check",!,"-----------------------",!

 S FLG=0 D CC F I=1:1 S X=$T(ROU+I),T=$P(X," ",1),U=$P(X,";;",2) Q:X=""  D TEST

 Q

TEST W:'(FLG#8*FLG) ! W ?(FLG#8*10),T S X=T,FLG=FLG+1

ENTEST I $D(^%ZOSF("TEST")) X ^("TEST") I '$T W *7,!?3,"<<",X,">> is not in your directory" S FLG=0 Q

 X "ZL @T F Y=1:1:99 S L=$T(+Y),LN=$L(L) X CC S:'LN Y=99"

 I (U-T) W *7,!?3,"<<",X,">> Routine is off by ",U-T," bit",$E("s",U'?.P1"1") S FLG=0 Q

 Q

CC S CC="F C=1:1:LN S T=$A(L,C)+T" Q

EN ;Entry point to check individual routines

 R !,"Routine: ",R:$S($D(DTIME)#2:DTIME,1:120) Q:'$T!(R="^")!(R="")!(R=".")

 I ($T(@R)']"") W !?3,"<<",R,">> is not in my routine list" G EN

 S X=$T(@R),T=$P(X," ",1),U=$P(X,";",3),X=T

 D CC,ENTEST W:(U=T) "  ...IS OK" G EN

ROU ;;

LR1103 ;;49044

LRABG ;;40868

LRABG1 ;;152361

LRAC ;;125035

LRAC1 ;;201301

LRAC2 ;;235756

LRAC3 ;;141563

LRAC4 ;;149769

LRAC5 ;;228295

LRAC6 ;;233208

LRAC7 ;;55677

LRACDIAG ;;216918

LRACFILE ;;24016

LRACFIX ;;47338

LRACK ;;49412

LRACKL ;;179910

LRACM ;;205300

LRACM1 ;;189474

LRACM2 ;;223654

LRACM3 ;;132734

LRACM4 ;;92672

LRACP ;;98171

LRACS ;;188446

LRACS1 ;;192121

LRACS2 ;;111160

LRACS3 ;;130822

LRACSUM ;;175646

LRACSUM1 ;;200072

LRACSUM3 ;;129191

LRACSUM4 ;;141219

LRACSUM5 ;;218698

LRACSUM6 ;;165836

LRAD2ORD ;;33887

LRAMIS ;;91511

LRAMIS1 ;;74422

LRAP ;;85644

LRAPA ;;60718

LRAPAP ;;35365

LRAPC ;;111309

LRAPCUM ;;231481

LRAPDA ;;124545

LRAPDEL ;;45823

LRAPED ;;139558

LRAPINC ;;95929

LRAPL ;;115724

LRAPOLD ;;131646

LRAPPF ;;63215

LRAPPF1 ;;149517

LRAPPF2 ;;36814

LRAPPOW ;;64372

LRAPR ;;19184

LRAPREF ;;39829

LRAPS ;;52542

LRAPS1 ;;111860

LRAPS2 ;;141817

LRAPSM ;;156202

LRAPSM1 ;;159692

LRAPT ;;112830

LRAPT1 ;;29134

LRAPT2 ;;123462

LRAPT3 ;;72491

LRAPTT ;;102752

LRAU ;;41419

LRAUAW ;;62714

LRAUDA ;;88901

LRAULG ;;46933

LRAUP ;;56103

LRAURPT ;;150819

LRAUS ;;58981

LRAUS1 ;;55850

LRAUSICD ;;76622

LRAUSM ;;179557

LRAUSTA ;;87467

LRCE ;;142756

LRCENDE1 ;;144105

LRCENDEL ;;187370

LRCHIV ;;184736

LRCHIVD ;;108570

LRCHIVE ;;109140

LRCHIVK ;;45328

LRCKF ;;46115

LRCKF60 ;;211711

LRCKF62 ;;41877

LRCKF68 ;;206424

LRCKF69 ;;102465

LRCKFLA ;;193031

LRCKPTR ;;156016

LRCONJAM ;;234634

LRCS14S4 ;;128459

LRCS14S5 ;;206482

LRCY ;;47787

LRCYDA ;;111404

LRCYLG ;;52339

LRCYP ;;71562

LRDIQ ;;105770

LRDIST ;;204793

LRDIST1 ;;214044

LRDIST2 ;;113545

LRDIST3 ;;64941

LRDPA ;;169442

LRDPA1 ;;122234

LRDRAW ;;153147

LREDO ;;26145

LREM ;;41728

LREMDA ;;109283

LREMLG ;;51521

LREMP ;;69639

LREV ;;27000

LREXEC ;;30664

LREXECU ;;75445

LREXPD ;;47076

LRFAST ;;214267

LRFLAG ;;126541

LRFNDLOC ;;57354

LRGEN ;;82586

LRGEN1 ;;174361

LRGEN2 ;;213016

LRGP ;;150304

LRGP1 ;;181628

LRGP2 ;;147810

LRGV ;;203940

LRGV1 ;;100444

LRGV2 ;;177164

LRGVG ;;24124

LRGVG1 ;;190207

LRGVG2 ;;58326

LRGVGK ;;65134

LRGVK ;;84864

LRGVP ;;83610

LRHDR ;;56779

LRHEMA ;;93863

LRHSP ;;132039

LRJOB ;;123611

LRJOB1 ;;43700

LRKDIFF ;;142739

LRKDIFF1 ;;179264

LRKDIFF2 ;;184018

LRKILL ;;10091

LRLABEL ;;28427

LRLABEL1 ;;55965

LRLABEL2 ;;25822

LRLABEL3 ;;50046

LRLABLD ;;97251

LRLABLIO ;;84197

LRLABXT ;;81864

LRLAM ;;80817

LRLIST ;;196133

LRLL ;;259369

LRLL1 ;;179931

LRLL2 ;;171327

LRLL3 ;;78125

LRLL4 ;;61703

LRLLP ;;135603

LRLLP2 ;;157387

LRLLP3 ;;31271

LRLLP4 ;;56475

LRLLS ;;163852

LRLLS2 ;;205284

LRLLS3 ;;84026

LRLLU ;;34958

LRLOAD ;;163617

LRLSR ;;48604

LRLSTWRK ;;204783

LRLSTWRL ;;235664

LRLTR ;;28538

LRLTR2 ;;130541

LRMIAW ;;163780

LRMIBH ;;77217

LRMIBL ;;220254

LRMIEDZ ;;117254

LRMIEDZ1 ;;87778

LRMIEDZ2 ;;231747

LRMIFIX ;;34082

LRMINEW1 ;;257461

LRMINEWD ;;155121

LRMIPC ;;107002

LRMIPLOG ;;88657

LRMIPSZ ;;208511

LRMIPSZ1 ;;217263

LRMIPSZ2 ;;171642

LRMIPSZ3 ;;240280

LRMIPSZ4 ;;98684

LRMIPSZ5 ;;213868

LRMISEZ ;;262470

LRMISEZ1 ;;198228

LRMISEZ2 ;;182374

LRMISEZ3 ;;204658

LRMISR ;;110276

LRMISTUF ;;264910

LRMITRZ ;;256891

LRMITRZ1 ;;126863

LRMITRZ2 ;;115273

LRMITRZ3 ;;117722

LRMIVER ;;92414

LRMIVER1 ;;230068

LRMRSHRT ;;240521

LRNIGHT ;;137717

LRNODRAW ;;76815

LRNORMAL ;;64757

LRNUM ;;25030

LROC ;;166168

LROC1 ;;22913

LROE ;;217029

LROE1 ;;204607

LROI ;;28576

LROLOVER ;;134052

LRORD ;;252100

LRORD1 ;;255894

LRORD2 ;;193183

LRORD3 ;;98412

LRORDERN ;;10675

LRORDST ;;212303

LROREO ;;87088

LROS ;;231082

LROW ;;151275

LROW1 ;;249367

LROW2 ;;207544

LROW2P ;;111997

LROW3 ;;111244

LROW4 ;;38249

LROW5 ;;114191

LRPARAM ;;40864

LRPHEXPT ;;140227

LRPHITE1 ;;114381

LRPHITE2 ;;68645

LRPHITEM ;;252934

LRPHLIS1 ;;181388

LRPHLIST ;;141764

LRPHSET ;;135711

LRPHSET1 ;;145023

LRPREINT ;;219811

LRQC ;;19529

LRQCC ;;187875

LRQCLOG ;;116296

LRRD ;;157003

LRRP ;;118750

LRRP1 ;;176289

LRRP2 ;;230030

LRRP3 ;;193752

LRRS ;;156444

LRRSP ;;100461

LRSETUP ;;83283

LRSMAC ;;146558

LRSOR ;;168782

LRSOR1 ;;28529

LRSORA ;;83779

LRSORB ;;113895

LRSORC ;;98224

LRSORD ;;98850

LRSP ;;59610

LRSPDA ;;118475

LRSPGD ;;15463

LRSPLG ;;54986

LRSPP ;;78552

LRSPRPT ;;187096

LRSPRPT1 ;;98932

LRSPRPT2 ;;52116

LRSPS ;;59473

LRSPSICD ;;77955

LRSPSICP ;;92268

LRSPT ;;97394

LRSTUF ;;52538

LRSTUF1 ;;245854

LRTASK ;;71635

LRTOT ;;95301

LRTP ;;27769

LRTSTJAM ;;233505

LRTSTJAN ;;225862

LRU ;;127329

LRUA ;;135732

LRUAP ;;147459

LRUB ;;57850

LRUC ;;72634

LRUCE ;;59832

LRUCLR ;;46947

LRUD ;;147444

LRUDEL ;;101163

LRUDIT ;;31249

LRUDPT ;;76972

LRUE ;;97229

LRUFILE ;;95139

LRUG ;;18737

LRULB ;;50216

LRULB1 ;;94221

LRULY ;;66419

LRULY1 ;;123884

LRULY2 ;;84369

LRUMD ;;186105

LRUMD1 ;;167698

LRUMDP ;;100657

LRUMDU ;;148805

LRUP ;;16704

LRUPA ;;133027

LRUPA1 ;;100923

LRUPA2 ;;144492

LRUPAC ;;89484

LRUPACA ;;136696

LRUPACS ;;151884

LRUPACT ;;148516

LRUPAD ;;134412

LRUPAD1 ;;110587

LRUPAD2 ;;146256

LRUPS ;;106117

LRUPT ;;173055

LRUSE ;;49748

LRUSNOM ;;67501

LRUSP ;;67090

LRUT ;;52017

LRUTA ;;104477

LRUTAD ;;143429

LRUTELL ;;31562

LRUTL ;;153027

LRUTW ;;148702

LRUW ;;153327

LRUWG ;;175929

LRUWLF ;;111490

LRUWLF1 ;;89290

LRUX ;;54033

LRVER ;;160495

LRVER1 ;;104093

LRVER2 ;;133473

LRVER3 ;;241571

LRVER4 ;;173538

LRVER5 ;;187655

LRVR ;;198522

LRVR1 ;;163634

LRVR2 ;;131193

LRVR3 ;;168241

LRVR4 ;;163864

LRVR5 ;;161033

LRVRW ;;173176

LRWATCH ;;69189

LRWD ;;32729

LRWLHEAD ;;16950

LRWLST ;;170934

LRWLST1 ;;184475

LRWLST11 ;;210984

LRWLST2 ;;72292

LRWRKIN1 ;;79697

LRWRKINC ;;224044

LRWRKLS1 ;;67422

LRWRKLST ;;216094

LRWRKS ;;161272

LRWRKS2 ;;107669

LRWU ;;112787

LRWU1 ;;84429

LRWU2 ;;54519

LRWU3 ;;160147

LRWU4 ;;106516

LRZINTEG  ; INTEGRITY CHECKER FOR LABORATORY - ISC/SFO ; 17-Nov-1986 10:21 am

 +1       ;;LAB VERSION 3.05V

 +2        WRITE !,"Routine Integrity Check",!,"-----------------------",!

 +3        SET FLG=0

           DO CC

           FOR I=1:1

               SET X=$TEXT(ROU+I)

               SET T=$PIECE(X," ",1)

               SET U=$PIECE(X,";;",2)

               IF X=""

                   QUIT 

               DO TEST

 +4        QUIT 

TEST       IF '(FLG#8*FLG)

               WRITE !

           WRITE ?(FLG#8*10),T

           SET X=T

           SET FLG=FLG+1

ENTEST     IF $DATA(^%ZOSF("TEST"))

               XECUTE ^("TEST")

               IF '$TEST

                   WRITE *7,!?3,"<<",X,">> is not in your directory"

                   SET FLG=0

                   QUIT 

 +1        XECUTE "ZL @T F Y=1:1:99 S L=$T(+Y),LN=$L(L) X CC S:'LN Y=99"

 +2        IF (U-T)

               WRITE *7,!?3,"<<",X,">> Routine is off by ",U-T," bit",$EXTRACT("s",U'?.P1"1")

               SET FLG=0

               QUIT 

 +3        QUIT 

CC         SET CC="F C=1:1:LN S T=$A(L,C)+T"

           QUIT 

EN        ;Entry point to check individual routines

 +1        READ !,"Routine: ",R:$SELECT($DATA(DTIME)#2:DTIME,1:120)

           IF '$TEST!(R="^")!(R="")!(R=".")

               QUIT 

 +2        IF ($TEXT(@R)']"")

               WRITE !?3,"<<",R,">> is not in my routine list"

               GOTO EN

 +3        SET X=$TEXT(@R)

           SET T=$PIECE(X," ",1)

           SET U=$PIECE(X,";",3)

           SET X=T

 +4        DO CC

           DO ENTEST

           IF (U=T)

               WRITE "  ...IS OK"

           GOTO EN

ROU       ;;

LR1103    ;;49044

LRABG     ;;40868

LRABG1    ;;152361

LRAC      ;;125035

LRAC1     ;;201301

LRAC2     ;;235756

LRAC3     ;;141563

LRAC4     ;;149769

LRAC5     ;;228295

LRAC6     ;;233208

LRAC7     ;;55677

LRACDIAG  ;;216918

LRACFILE  ;;24016

LRACFIX   ;;47338

LRACK     ;;49412

LRACKL    ;;179910

LRACM     ;;205300

LRACM1    ;;189474

LRACM2    ;;223654

LRACM3    ;;132734

LRACM4    ;;92672

LRACP     ;;98171

LRACS     ;;188446

LRACS1    ;;192121

LRACS2    ;;111160

LRACS3    ;;130822

LRACSUM   ;;175646

LRACSUM1  ;;200072

LRACSUM3  ;;129191

LRACSUM4  ;;141219

LRACSUM5  ;;218698

LRACSUM6  ;;165836

LRAD2ORD  ;;33887

LRAMIS    ;;91511

LRAMIS1   ;;74422

LRAP      ;;85644

LRAPA     ;;60718

LRAPAP    ;;35365

LRAPC     ;;111309

LRAPCUM   ;;231481

LRAPDA    ;;124545

LRAPDEL   ;;45823

LRAPED    ;;139558

LRAPINC   ;;95929

LRAPL     ;;115724

LRAPOLD   ;;131646

LRAPPF    ;;63215

LRAPPF1   ;;149517

LRAPPF2   ;;36814

LRAPPOW   ;;64372

LRAPR     ;;19184

LRAPREF   ;;39829

LRAPS     ;;52542

LRAPS1    ;;111860

LRAPS2    ;;141817

LRAPSM    ;;156202

LRAPSM1   ;;159692

LRAPT     ;;112830

LRAPT1    ;;29134

LRAPT2    ;;123462

LRAPT3    ;;72491

LRAPTT    ;;102752

LRAU      ;;41419

LRAUAW    ;;62714

LRAUDA    ;;88901

LRAULG    ;;46933

LRAUP     ;;56103

LRAURPT   ;;150819

LRAUS     ;;58981

LRAUS1    ;;55850

LRAUSICD  ;;76622

LRAUSM    ;;179557

LRAUSTA   ;;87467

LRCE      ;;142756

LRCENDE1  ;;144105

LRCENDEL  ;;187370

LRCHIV    ;;184736

LRCHIVD   ;;108570

LRCHIVE   ;;109140

LRCHIVK   ;;45328

LRCKF     ;;46115

LRCKF60   ;;211711

LRCKF62   ;;41877

LRCKF68   ;;206424

LRCKF69   ;;102465

LRCKFLA   ;;193031

LRCKPTR   ;;156016

LRCONJAM  ;;234634

LRCS14S4  ;;128459

LRCS14S5  ;;206482

LRCY      ;;47787

LRCYDA    ;;111404

LRCYLG    ;;52339

LRCYP     ;;71562

LRDIQ     ;;105770

LRDIST    ;;204793

LRDIST1   ;;214044

LRDIST2   ;;113545

LRDIST3   ;;64941

LRDPA     ;;169442

LRDPA1    ;;122234

LRDRAW    ;;153147

LREDO     ;;26145

LREM      ;;41728

LREMDA    ;;109283

LREMLG    ;;51521

LREMP     ;;69639

LREV      ;;27000

LREXEC    ;;30664

LREXECU   ;;75445

LREXPD    ;;47076

LRFAST    ;;214267

LRFLAG    ;;126541

LRFNDLOC  ;;57354

LRGEN     ;;82586

LRGEN1    ;;174361

LRGEN2    ;;213016

LRGP      ;;150304

LRGP1     ;;181628

LRGP2     ;;147810

LRGV      ;;203940

LRGV1     ;;100444

LRGV2     ;;177164

LRGVG     ;;24124

LRGVG1    ;;190207

LRGVG2    ;;58326

LRGVGK    ;;65134

LRGVK     ;;84864

LRGVP     ;;83610

LRHDR     ;;56779

LRHEMA    ;;93863

LRHSP     ;;132039

LRJOB     ;;123611

LRJOB1    ;;43700

LRKDIFF   ;;142739

LRKDIFF1  ;;179264

LRKDIFF2  ;;184018

LRKILL    ;;10091

LRLABEL   ;;28427

LRLABEL1  ;;55965

LRLABEL2  ;;25822

LRLABEL3  ;;50046

LRLABLD   ;;97251

LRLABLIO  ;;84197

LRLABXT   ;;81864

LRLAM     ;;80817

LRLIST    ;;196133

LRLL      ;;259369

LRLL1     ;;179931

LRLL2     ;;171327

LRLL3     ;;78125

LRLL4     ;;61703

LRLLP     ;;135603

LRLLP2    ;;157387

LRLLP3    ;;31271

LRLLP4    ;;56475

LRLLS     ;;163852

LRLLS2    ;;205284

LRLLS3    ;;84026

LRLLU     ;;34958

LRLOAD    ;;163617

LRLSR     ;;48604

LRLSTWRK  ;;204783

LRLSTWRL  ;;235664

LRLTR     ;;28538

LRLTR2    ;;130541

LRMIAW    ;;163780

LRMIBH    ;;77217

LRMIBL    ;;220254

LRMIEDZ   ;;117254

LRMIEDZ1  ;;87778

LRMIEDZ2  ;;231747

LRMIFIX   ;;34082

LRMINEW1  ;;257461

LRMINEWD  ;;155121

LRMIPC    ;;107002

LRMIPLOG  ;;88657

LRMIPSZ   ;;208511

LRMIPSZ1  ;;217263

LRMIPSZ2  ;;171642

LRMIPSZ3  ;;240280

LRMIPSZ4  ;;98684

LRMIPSZ5  ;;213868

LRMISEZ   ;;262470

LRMISEZ1  ;;198228

LRMISEZ2  ;;182374

LRMISEZ3  ;;204658

LRMISR    ;;110276

LRMISTUF  ;;264910

LRMITRZ   ;;256891

LRMITRZ1  ;;126863

LRMITRZ2  ;;115273

LRMITRZ3  ;;117722

LRMIVER   ;;92414

LRMIVER1  ;;230068

LRMRSHRT  ;;240521

LRNIGHT   ;;137717

LRNODRAW  ;;76815

LRNORMAL  ;;64757

LRNUM     ;;25030

LROC      ;;166168

LROC1     ;;22913

LROE      ;;217029

LROE1     ;;204607

LROI      ;;28576

LROLOVER  ;;134052

LRORD     ;;252100

LRORD1    ;;255894

LRORD2    ;;193183

LRORD3    ;;98412

LRORDERN  ;;10675

LRORDST   ;;212303

LROREO    ;;87088

LROS      ;;231082

LROW      ;;151275

LROW1     ;;249367

LROW2     ;;207544

LROW2P    ;;111997

LROW3     ;;111244

LROW4     ;;38249

LROW5     ;;114191

LRPARAM   ;;40864

LRPHEXPT  ;;140227

LRPHITE1  ;;114381

LRPHITE2  ;;68645

LRPHITEM  ;;252934

LRPHLIS1  ;;181388

LRPHLIST  ;;141764

LRPHSET   ;;135711

LRPHSET1  ;;145023

LRPREINT  ;;219811

LRQC      ;;19529

LRQCC     ;;187875

LRQCLOG   ;;116296

LRRD      ;;157003

LRRP      ;;118750

LRRP1     ;;176289

LRRP2     ;;230030

LRRP3     ;;193752

LRRS      ;;156444

LRRSP     ;;100461

LRSETUP   ;;83283

LRSMAC    ;;146558

LRSOR     ;;168782

LRSOR1    ;;28529

LRSORA    ;;83779

LRSORB    ;;113895

LRSORC    ;;98224

LRSORD    ;;98850

LRSP      ;;59610

LRSPDA    ;;118475

LRSPGD    ;;15463

LRSPLG    ;;54986

LRSPP     ;;78552

LRSPRPT   ;;187096

LRSPRPT1  ;;98932

LRSPRPT2  ;;52116

LRSPS     ;;59473

LRSPSICD  ;;77955

LRSPSICP  ;;92268

LRSPT     ;;97394

LRSTUF    ;;52538

LRSTUF1   ;;245854

LRTASK    ;;71635

LRTOT     ;;95301

LRTP      ;;27769

LRTSTJAM  ;;233505

LRTSTJAN  ;;225862

LRU       ;;127329

LRUA      ;;135732

LRUAP     ;;147459

LRUB      ;;57850

LRUC      ;;72634

LRUCE     ;;59832

LRUCLR    ;;46947

LRUD      ;;147444

LRUDEL    ;;101163

LRUDIT    ;;31249

LRUDPT    ;;76972

LRUE      ;;97229

LRUFILE   ;;95139

LRUG      ;;18737

LRULB     ;;50216

LRULB1    ;;94221

LRULY     ;;66419

LRULY1    ;;123884

LRULY2    ;;84369

LRUMD     ;;186105

LRUMD1    ;;167698

LRUMDP    ;;100657

LRUMDU    ;;148805

LRUP      ;;16704

LRUPA     ;;133027

LRUPA1    ;;100923

LRUPA2    ;;144492

LRUPAC    ;;89484

LRUPACA   ;;136696

LRUPACS   ;;151884

LRUPACT   ;;148516

LRUPAD    ;;134412

LRUPAD1   ;;110587

LRUPAD2   ;;146256

LRUPS     ;;106117

LRUPT     ;;173055

LRUSE     ;;49748

LRUSNOM   ;;67501

LRUSP     ;;67090

LRUT      ;;52017

LRUTA     ;;104477

LRUTAD    ;;143429

LRUTELL   ;;31562

LRUTL     ;;153027

LRUTW     ;;148702

LRUW      ;;153327

LRUWG     ;;175929

LRUWLF    ;;111490

LRUWLF1   ;;89290

LRUX      ;;54033

LRVER     ;;160495

LRVER1    ;;104093

LRVER2    ;;133473

LRVER3    ;;241571

LRVER4    ;;173538

LRVER5    ;;187655

LRVR      ;;198522

LRVR1     ;;163634

LRVR2     ;;131193

LRVR3     ;;168241

LRVR4     ;;163864

LRVR5     ;;161033

LRVRW     ;;173176

LRWATCH   ;;69189

LRWD      ;;32729

LRWLHEAD  ;;16950

LRWLST    ;;170934

LRWLST1   ;;184475

LRWLST11  ;;210984

LRWLST2   ;;72292

LRWRKIN1  ;;79697

LRWRKINC  ;;224044

LRWRKLS1  ;;67422

LRWRKLST  ;;216094

LRWRKS    ;;161272

LRWRKS2   ;;107669

LRWU      ;;112787

LRWU1     ;;84429

LRWU2     ;;54519

LRWU3     ;;160147

LRWU4     ;;106516