LANTEG.m

LANTEG ; IHS/DIR/FJE - KERNEL - Package checksum checker OCT 25, 1994@16:19:45 ;

 ;;5.2;LA;;NOV 01, 1997

 ;;7.2;OCT 25, 1994@16:19:45

 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!

CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2=""  S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")

 G CONT^LANTEG0

 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q

ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!

 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")

 W ! G CONT

ROU ;;

LA1103 ;;2783225

LAABL3 ;;2008068

LAABL500 ;;2175200

LAACA ;;2620189

LAACA4 ;;2267008

LAAIMX ;;2663037

LAALTA ;;2228642

LAASTRA ;;2584890

LAB ;;4398199

LABALARM ;;1650198

LABCX4B ;;4898600

LABCX4D ;;13092397

LABCX4H ;;2806099

LABCX4I ;;1686962

LABCX4XX ;;9649352

LABERR ;;6644019

LABERRP ;;8870102

LABINIT ;;1234544

LABIOH ;;3367777

LABIOU ;;2914334

LABITKU ;;2821318

LABL330 ;;1722719

LABMD87P ;;2175579

LABTEST ;;5613373

LAC178 ;;1540695

LAC178HP ;;1853069

LACBIO ;;2148068

LACCHEM6 ;;2097015

LACEL8E ;;2264233

LACFARA ;;2918540

LACHEM1 ;;2717606

LACL5500 ;;1539985

LACLNTE ;;1552893

LACLNTEK ;;1673253

LACLT200 ;;1551991

LACLT20P ;;1474233

LACMIRA ;;3311054

LACMIRAS ;;3312103

LACOAGX2 ;;5672263

LACOARA4 ;;1951210

LACOLT ;;2545954

LACOLT1 ;;2654404

LACOLT2 ;;2836496

LACOLT24 ;;1802705

LACOLT3 ;;2164064

LACOLT5 ;;2323809

LACOLT6 ;;2256792

LACOLTSE ;;2430777

LACOLTSS ;;2715542

LACRIT ;;1736540

LACTDMS ;;1465520

LADACOS ;;2166624

LADEKT7B ;;4967221

LADIMD ;;6103418

LADIMPI ;;1405264

LADIMPXX ;;8026120

LADJOB ;;8760268

LADKERM2 ;;1726176

LADKERM3 ;;2978971

LADKERMI ;;6011628

LADMND ;;3072669

LADOWN ;;9920580

LADOWN1 ;;1202585

LAE4A ;;2248577

LAEKT4 ;;2208086

LAEKT7 ;;3350851

LAEKT7B ;;4892440

LAEKT7D ;;4868873

LAEKT7P ;;1708897

LAELT ;;1407224

LAELT8D ;;1959164

LAEPXD ;;6684633

LAEPXPXX ;;2943031

LAERA ;;2063732

LAEXEC ;;2382145

LAFARA2 ;;1982181

LAFUNC ;;8102106

LAGEN ;;8938687

LAH1 ;;1891499

LAH480 ;;1867912

LAH6K ;;1615361

LAH705 ;;2274079

LAH717D ;;3491011

LAH717H ;;1408129

LAH717U ;;3049965

LAH737 ;;2103160

LAH747 ;;4392886

LAHLOG ;;2059494

LAHT1K ;;3366699

LAHT1KD ;;4182105

LAHTCCA ;;3313807

LAHTCCAD ;;7101782

LAHTCCAH ;;1445957

LAHTRK ;;4972157

LAHWATCH ;;9397067

LAJOB ;;9221165

LAJOB1 ;;1554580

LAKDA ;;1509851

LAKDIFF ;;9316350

LAKDIFF1 ;;8917764

LAKDIFF2 ;;9640378

LAKDIFF3 ;;2515859

LAKERM2 ;;1880826

LAKERM3 ;;2978413

LAKERMIT ;;6324167

LAKOAG40 ;;2868887

LAKUR ;;9165972

LAKUR1 ;;9779892

LAL13 ;;1439802

LAL1306 ;;1467621

LAL1312 ;;3502635

LAL508 ;;2285737

LAL943 ;;2023211

LALBG3 ;;2249849

LAMIAUT0 ;;16381256

LAMIAUT1 ;;10322419

LAMIAUT2 ;;8411115

LAMIAUT3 ;;10479359

LAMIAUT4 ;;12090481

LAMIAUT5 ;;3703164

LAMIAUT6 ;;10716148

LAMIAUT7 ;;13571379

LAMIAUT8 ;;10268917

LAMICRA ;;6240705

LAMILL ;;8873545

LAMIV00 ;;5791650

LAMIV10 ;;3260019

LAMIV11 ;;4758588

LAMIV12 ;;3536770

LAMIVT5 ;;6911163

LAMIVT6 ;;6905221

LAMIVTE6 ;;6926973

LAMIVTK ;;6713826

LAMIVTK6 ;;7014176

LAMIVTKC ;;3923165

LAMIVTKD ;;13170264

LAMIVTKU ;;6973867

LAMLA1KC ;;3053010

LAMLA7 ;;1570534

LAMODH ;;3388022

LAMODU ;;3723782

LAMODUT ;;2139931

LAMONARK ;;2238324

LAMSA ;;6011981

LAMSA1 ;;3554365

LAMSBLD ;;3663195

LAMSD ;;7874896

LAMSP ;;621129

LAMSPAN ;;1767497

LAMSTAT ;;2048832

LANOVA ;;1641181

LANOVST ;;1777132

LAPARA ;;1995628

LAPARAP ;;2803252

LAPER ;;2505784

LAPERD ;;3756688

LAPFICH ;;4040500

LAPMAX ;;2197178

LAPMAXD ;;6347878

LAPORTXX ;;4413930

LAPX ;;1763878

LARA1K ;;1874527

LANTEG    ; IHS/DIR/FJE - KERNEL - Package checksum checker OCT 25, 1994@16:19:45 ;

 +1       ;;5.2;LA;;NOV 01, 1997

 +2       ;;7.2;OCT 25, 1994@16:19:45

 +3        SET XT4="I 1"

           SET X=$TEXT(+3)

           WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!

CONT       FOR XT1=1:1

               SET XT2=$TEXT(ROU+XT1)

               IF XT2=""

                   QUIT 

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

               SET XT3=$PIECE(XT2,";",3)

               XECUTE XT4

               IF $TEST

                   WRITE !,X

                   XECUTE ^%ZOSF("TEST")

                   IF '$TEST

                       SET XT3=0

                   IF XT3

                       XECUTE ^%ZOSF("RSUM")

                   WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")

 +1        GOTO CONT^LANTEG0

 +2        KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4

           QUIT 

ONE        SET XT4="I $D(^UTILITY($J,X))"

           SET X=$TEXT(+3)

           WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!

 +1        WRITE !,"Check a subset of routines:"

           KILL ^UTILITY($JOB)

           XECUTE ^%ZOSF("RSEL")

 +2        WRITE !

           GOTO CONT

ROU       ;;

LA1103    ;;2783225

LAABL3    ;;2008068

LAABL500  ;;2175200

LAACA     ;;2620189

LAACA4    ;;2267008

LAAIMX    ;;2663037

LAALTA    ;;2228642

LAASTRA   ;;2584890

LAB       ;;4398199

LABALARM  ;;1650198

LABCX4B   ;;4898600

LABCX4D   ;;13092397

LABCX4H   ;;2806099

LABCX4I   ;;1686962

LABCX4XX  ;;9649352

LABERR    ;;6644019

LABERRP   ;;8870102

LABINIT   ;;1234544

LABIOH    ;;3367777

LABIOU    ;;2914334

LABITKU   ;;2821318

LABL330   ;;1722719

LABMD87P  ;;2175579

LABTEST   ;;5613373

LAC178    ;;1540695

LAC178HP  ;;1853069

LACBIO    ;;2148068

LACCHEM6  ;;2097015

LACEL8E   ;;2264233

LACFARA   ;;2918540

LACHEM1   ;;2717606

LACL5500  ;;1539985

LACLNTE   ;;1552893

LACLNTEK  ;;1673253

LACLT200  ;;1551991

LACLT20P  ;;1474233

LACMIRA   ;;3311054

LACMIRAS  ;;3312103

LACOAGX2  ;;5672263

LACOARA4  ;;1951210

LACOLT    ;;2545954

LACOLT1   ;;2654404

LACOLT2   ;;2836496

LACOLT24  ;;1802705

LACOLT3   ;;2164064

LACOLT5   ;;2323809

LACOLT6   ;;2256792

LACOLTSE  ;;2430777

LACOLTSS  ;;2715542

LACRIT    ;;1736540

LACTDMS   ;;1465520

LADACOS   ;;2166624

LADEKT7B  ;;4967221

LADIMD    ;;6103418

LADIMPI   ;;1405264

LADIMPXX  ;;8026120

LADJOB    ;;8760268

LADKERM2  ;;1726176

LADKERM3  ;;2978971

LADKERMI  ;;6011628

LADMND    ;;3072669

LADOWN    ;;9920580

LADOWN1   ;;1202585

LAE4A     ;;2248577

LAEKT4    ;;2208086

LAEKT7    ;;3350851

LAEKT7B   ;;4892440

LAEKT7D   ;;4868873

LAEKT7P   ;;1708897

LAELT     ;;1407224

LAELT8D   ;;1959164

LAEPXD    ;;6684633

LAEPXPXX  ;;2943031

LAERA     ;;2063732

LAEXEC    ;;2382145

LAFARA2   ;;1982181

LAFUNC    ;;8102106

LAGEN     ;;8938687

LAH1      ;;1891499

LAH480    ;;1867912

LAH6K     ;;1615361

LAH705    ;;2274079

LAH717D   ;;3491011

LAH717H   ;;1408129

LAH717U   ;;3049965

LAH737    ;;2103160

LAH747    ;;4392886

LAHLOG    ;;2059494

LAHT1K    ;;3366699

LAHT1KD   ;;4182105

LAHTCCA   ;;3313807

LAHTCCAD  ;;7101782

LAHTCCAH  ;;1445957

LAHTRK    ;;4972157

LAHWATCH  ;;9397067

LAJOB     ;;9221165

LAJOB1    ;;1554580

LAKDA     ;;1509851

LAKDIFF   ;;9316350

LAKDIFF1  ;;8917764

LAKDIFF2  ;;9640378

LAKDIFF3  ;;2515859

LAKERM2   ;;1880826

LAKERM3   ;;2978413

LAKERMIT  ;;6324167

LAKOAG40  ;;2868887

LAKUR     ;;9165972

LAKUR1    ;;9779892

LAL13     ;;1439802

LAL1306   ;;1467621

LAL1312   ;;3502635

LAL508    ;;2285737

LAL943    ;;2023211

LALBG3    ;;2249849

LAMIAUT0  ;;16381256

LAMIAUT1  ;;10322419

LAMIAUT2  ;;8411115

LAMIAUT3  ;;10479359

LAMIAUT4  ;;12090481

LAMIAUT5  ;;3703164

LAMIAUT6  ;;10716148

LAMIAUT7  ;;13571379

LAMIAUT8  ;;10268917

LAMICRA   ;;6240705

LAMILL    ;;8873545

LAMIV00   ;;5791650

LAMIV10   ;;3260019

LAMIV11   ;;4758588

LAMIV12   ;;3536770

LAMIVT5   ;;6911163

LAMIVT6   ;;6905221

LAMIVTE6  ;;6926973

LAMIVTK   ;;6713826

LAMIVTK6  ;;7014176

LAMIVTKC  ;;3923165

LAMIVTKD  ;;13170264

LAMIVTKU  ;;6973867

LAMLA1KC  ;;3053010

LAMLA7    ;;1570534

LAMODH    ;;3388022

LAMODU    ;;3723782

LAMODUT   ;;2139931

LAMONARK  ;;2238324

LAMSA     ;;6011981

LAMSA1    ;;3554365

LAMSBLD   ;;3663195

LAMSD     ;;7874896

LAMSP     ;;621129

LAMSPAN   ;;1767497

LAMSTAT   ;;2048832

LANOVA    ;;1641181

LANOVST   ;;1777132

LAPARA    ;;1995628

LAPARAP   ;;2803252

LAPER     ;;2505784

LAPERD    ;;3756688

LAPFICH   ;;4040500

LAPMAX    ;;2197178

LAPMAXD   ;;6347878

LAPORTXX  ;;4413930

LAPX      ;;1763878

LARA1K    ;;1874527