ABMNTEG0.m

ABMNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070914.065402

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;;7.3;3070914.065402

 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^ABMNTEG1

 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 ;;

ABMDF3C ;;11390643

ABMDF3D ;;8233593

ABMDF3E ;;12644239

ABMDF3X ;;10729834

ABMDF4 ;;11757032

ABMDF4A ;;10771620

ABMDF4X ;;6649416

ABMDF51 ;;10701839

ABMDF51X ;;17084868

ABMDF51Y ;;16725805

ABMDF51Z ;;19448220

ABMDFAWP ;;5362694

ABMDFOVR ;;5989236

ABMDFPRT ;;4744606

ABMDFRA ;;4955337

ABMDFRDO ;;7692974

ABMDFUTL ;;12727105

ABMDICST ;;6024526

ABMDLBL1 ;;4738062

ABMDLCK ;;8416003

ABMDLCK1 ;;9802485

ABMDLCK2 ;;6332250

ABMDMDB2 ;;2115927

ABMDMEDB ;;822258

ABMDPOST ;;96373

ABMDPREI ;;1554586

ABMDPST1 ;;7988469

ABMDPST3 ;;7197065

ABMDRAL2 ;;10689260

ABMDRCHK ;;13184216

ABMDRCO3 ;;3852836

ABMDREL1 ;;13755276

ABMDRHD ;;6323470

ABMDRPX ;;7964326

ABMDRRB ;;1228095

ABMDRSEL ;;15451267

ABMDRSL1 ;;5460623

ABMDRSL2 ;;6485136

ABMDRUN2 ;;8099342

ABMDSPLB ;;2355279

ABMDSPLT ;;2824379

ABMDSS ;;2404553

ABMDTASC ;;2136271

ABMDTCD ;;6181870

ABMDTFED ;;4885653

ABMDTFEE ;;4397538

ABMDTIMR ;;10368580

ABMDTIN1 ;;28592994

ABMDTINS ;;11353473

ABMDTLOC ;;755527

ABMDTMS ;;8894993

ABMDTPAR ;;8132413

ABMDTVIS ;;1001037

ABMDUTL ;;7627228

ABMDVCK ;;12364218

ABMDVCK0 ;;10641017

ABMDVCK1 ;;2821520

ABMDVCK2 ;;2909283

ABMDVCK3 ;;8739258

ABMDVS13 ;;2104373

ABMDVST ;;13449304

ABMDVST1 ;;5477713

ABMDVST2 ;;7834484

ABMDVST4 ;;15423708

ABMDVST5 ;;7845401

ABMDVSTH ;;4133574

ABMDWRAP ;;6333912

ABME3EA0 ;;8688940

ABME3EA1 ;;3117541

ABME3FA0 ;;8035254

ABME3GC0 ;;1916730

ABME3HA0 ;;928843

ABME561 ;;3294009

ABME601 ;;4890102

ABME660 ;;3488338

ABME661 ;;3162191

ABME8AMT ;;1526509

ABME8BHT ;;699233

ABME8CAS ;;5301883

ABME8CL1 ;;783354

ABME8CLM ;;2269404

ABME8CN1 ;;496043

ABME8CR1 ;;1176097

ABME8CR6 ;;677749

ABME8CR7 ;;467068

ABME8CRC ;;4944911

ABME8DMG ;;1906736

ABME8DTP ;;1334376

ABME8GE ;;475501

ABME8GS ;;988864

ABME8HCP ;;613648

ABME8HI ;;3574157

ABME8HL ;;610612

ABME8HSD ;;529002

ABME8IEA ;;594460

ABME8ISA ;;1882034

ABME8K3 ;;432048

ABME8L1 ;;165816

ABME8L10 ;;4333457

ABME8L11 ;;53565

ABME8L12 ;;9953694

ABME8L13 ;;1010588

ABME8L14 ;;2299536

ABME8L15 ;;2205225

ABME8L16 ;;4375617

ABME8L2 ;;3669468

ABME8L3 ;;647817

ABME8L4 ;;2880962

ABME8L5 ;;722247

ABME8L6 ;;1822350

ABME8L7 ;;4071633

ABME8L8 ;;1845033

ABME8L9 ;;6420679

ABME8LX ;;438249

ABME8MIA ;;720523

ABME8MOA ;;540872

ABME8N3 ;;1593911

ABME8N4 ;;2374566

ABME8NM1 ;;27292840

ABME8NM2 ;;724623

ABME8NTE ;;1096614

ABME8OI ;;729517

ABME8PAT ;;597229

ABME8PER ;;697006

ABME8PRV ;;1261796

ABME8PWK ;;552295

ABME8QTY ;;591213

ABME8REF ;;16649977

ABME8RF2 ;;512021

ABME8SBR ;;2592414

ABME8SE ;;444552

ABME8ST ;;446255

ABME8SV1 ;;4755662

ABME8SV2 ;;3082270

ABME8SV3 ;;1680617

ABME8SV4 ;;819646

ABME8SVD ;;511534

ABME8TMP ;;467976

ABME8TOO ;;752330

ABMEAUTO ;;2623904

ABMEBDSP ;;6310343

ABMECDSP ;;11861772

ABMECS ;;3653445

ABMEE61 ;;3380780

ABMEEPRV ;;10781227

ABMEF10 ;;5439592

ABMEF20 ;;4803349

ABMEF21 ;;3180270

ABMEF22 ;;3123172

ABMEF23 ;;3089445

ABMEFA0 ;;6839241

ABMEFB0 ;;3867053

ABMEH61 ;;8284948

ABMEH62 ;;4048318

ABMEH63 ;;8019513

ABMEHGR2 ;;15980737

ABMNTEG0  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070914.065402

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;;7.3;3070914.065402

 +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^ABMNTEG1

 +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       ;;

ABMDF3C   ;;11390643

ABMDF3D   ;;8233593

ABMDF3E   ;;12644239

ABMDF3X   ;;10729834

ABMDF4    ;;11757032

ABMDF4A   ;;10771620

ABMDF4X   ;;6649416

ABMDF51   ;;10701839

ABMDF51X  ;;17084868

ABMDF51Y  ;;16725805

ABMDF51Z  ;;19448220

ABMDFAWP  ;;5362694

ABMDFOVR  ;;5989236

ABMDFPRT  ;;4744606

ABMDFRA   ;;4955337

ABMDFRDO  ;;7692974

ABMDFUTL  ;;12727105

ABMDICST  ;;6024526

ABMDLBL1  ;;4738062

ABMDLCK   ;;8416003

ABMDLCK1  ;;9802485

ABMDLCK2  ;;6332250

ABMDMDB2  ;;2115927

ABMDMEDB  ;;822258

ABMDPOST  ;;96373

ABMDPREI  ;;1554586

ABMDPST1  ;;7988469

ABMDPST3  ;;7197065

ABMDRAL2  ;;10689260

ABMDRCHK  ;;13184216

ABMDRCO3  ;;3852836

ABMDREL1  ;;13755276

ABMDRHD   ;;6323470

ABMDRPX   ;;7964326

ABMDRRB   ;;1228095

ABMDRSEL  ;;15451267

ABMDRSL1  ;;5460623

ABMDRSL2  ;;6485136

ABMDRUN2  ;;8099342

ABMDSPLB  ;;2355279

ABMDSPLT  ;;2824379

ABMDSS    ;;2404553

ABMDTASC  ;;2136271

ABMDTCD   ;;6181870

ABMDTFED  ;;4885653

ABMDTFEE  ;;4397538

ABMDTIMR  ;;10368580

ABMDTIN1  ;;28592994

ABMDTINS  ;;11353473

ABMDTLOC  ;;755527

ABMDTMS   ;;8894993

ABMDTPAR  ;;8132413

ABMDTVIS  ;;1001037

ABMDUTL   ;;7627228

ABMDVCK   ;;12364218

ABMDVCK0  ;;10641017

ABMDVCK1  ;;2821520

ABMDVCK2  ;;2909283

ABMDVCK3  ;;8739258

ABMDVS13  ;;2104373

ABMDVST   ;;13449304

ABMDVST1  ;;5477713

ABMDVST2  ;;7834484

ABMDVST4  ;;15423708

ABMDVST5  ;;7845401

ABMDVSTH  ;;4133574

ABMDWRAP  ;;6333912

ABME3EA0  ;;8688940

ABME3EA1  ;;3117541

ABME3FA0  ;;8035254

ABME3GC0  ;;1916730

ABME3HA0  ;;928843

ABME561   ;;3294009

ABME601   ;;4890102

ABME660   ;;3488338

ABME661   ;;3162191

ABME8AMT  ;;1526509

ABME8BHT  ;;699233

ABME8CAS  ;;5301883

ABME8CL1  ;;783354

ABME8CLM  ;;2269404

ABME8CN1  ;;496043

ABME8CR1  ;;1176097

ABME8CR6  ;;677749

ABME8CR7  ;;467068

ABME8CRC  ;;4944911

ABME8DMG  ;;1906736

ABME8DTP  ;;1334376

ABME8GE   ;;475501

ABME8GS   ;;988864

ABME8HCP  ;;613648

ABME8HI   ;;3574157

ABME8HL   ;;610612

ABME8HSD  ;;529002

ABME8IEA  ;;594460

ABME8ISA  ;;1882034

ABME8K3   ;;432048

ABME8L1   ;;165816

ABME8L10  ;;4333457

ABME8L11  ;;53565

ABME8L12  ;;9953694

ABME8L13  ;;1010588

ABME8L14  ;;2299536

ABME8L15  ;;2205225

ABME8L16  ;;4375617

ABME8L2   ;;3669468

ABME8L3   ;;647817

ABME8L4   ;;2880962

ABME8L5   ;;722247

ABME8L6   ;;1822350

ABME8L7   ;;4071633

ABME8L8   ;;1845033

ABME8L9   ;;6420679

ABME8LX   ;;438249

ABME8MIA  ;;720523

ABME8MOA  ;;540872

ABME8N3   ;;1593911

ABME8N4   ;;2374566

ABME8NM1  ;;27292840

ABME8NM2  ;;724623

ABME8NTE  ;;1096614

ABME8OI   ;;729517

ABME8PAT  ;;597229

ABME8PER  ;;697006

ABME8PRV  ;;1261796

ABME8PWK  ;;552295

ABME8QTY  ;;591213

ABME8REF  ;;16649977

ABME8RF2  ;;512021

ABME8SBR  ;;2592414

ABME8SE   ;;444552

ABME8ST   ;;446255

ABME8SV1  ;;4755662

ABME8SV2  ;;3082270

ABME8SV3  ;;1680617

ABME8SV4  ;;819646

ABME8SVD  ;;511534

ABME8TMP  ;;467976

ABME8TOO  ;;752330

ABMEAUTO  ;;2623904

ABMEBDSP  ;;6310343

ABMECDSP  ;;11861772

ABMECS    ;;3653445

ABMEE61   ;;3380780

ABMEEPRV  ;;10781227

ABMEF10   ;;5439592

ABMEF20   ;;4803349

ABMEF21   ;;3180270

ABMEF22   ;;3123172

ABMEF23   ;;3089445

ABMEFA0   ;;6839241

ABMEFB0   ;;3867053

ABMEH61   ;;8284948

ABMEH62   ;;4048318

ABMEH63   ;;8019513

ABMEHGR2  ;;15980737