ABMNTEG1.m

ABMNTEG1 ;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")

 ;

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

ABMEHGR3 ;;17386853

ABMEHGRV ;;7310341

ABMEMCRC ;;8550187

ABMENVCK ;;7991261

ABMER30 ;;6391952

ABMER30A ;;4439673

ABMER40 ;;3916325

ABMER41A ;;3424127

ABMER60 ;;3714962

ABMER61 ;;3275881

ABMER70 ;;6232514

ABMER70A ;;2796675

ABMER80 ;;6757903

ABMERGR2 ;;13608122

ABMERGR3 ;;18389969

ABMERGRV ;;9553265

ABMERINS ;;11661034

ABMERSND ;;554634

ABMERUTL ;;15384983

ABMEXLIP ;;4817925

ABMFCPT ;;8650451

ABMFOFS ;;5740237

ABMFPRT ;;299701

ABMP2510 ;;3537365

ABMP2511 ;;9045219

ABMP2512 ;;5785695

ABMPFUNC ;;199032

ABMPPAD1 ;;16012338

ABMPPADJ ;;27490295

ABMPPFLR ;;3700784

ABMPRVCV ;;11934453

ABMPSAPI ;;9424683

ABMPSTRD ;;7802160

ABMPT255 ;;4879037

ABMPT256 ;;8070116

ABMPT258 ;;14052380

ABMPT259 ;;5487761

ABMPTSMT ;;19954136

ABMRLABS ;;155478

ABMRMCRD ;;26996738

ABMRSUBN ;;2669324

ABMRVCXR ;;657257

ABMSTAT ;;644084

ABMTALL2 ;;19903727

ABMTALLY ;;31416953

ABMUCANV ;;6006166

ABMUCAPI ;;1510148

ABMUCASH ;;30138938

ABMUCUTL ;;19695061

ABMUEAPI ;;3729754

ABMUITIN ;;6528642

ABMUPTIN ;;2749601

ABMURBCH ;;868591

ABMURCN1 ;;9565844

ABMURCON ;;25732942

ABMUROPN ;;4524463

ABMURREC ;;2591386

ABMUSETU ;;4735389

ABMUTL8 ;;8682757

ABMUTLF ;;1762786

ABMUTLN ;;2810185

ABMUTLP ;;22999697

ABMUUTL ;;6817719

ABMUVBCH ;;15921222

ABMUVCSH ;;11751858

ABMUXCLD ;;2448320

ABMXUS9 ;;3233674

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

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

ABMEHGR3  ;;17386853

ABMEHGRV  ;;7310341

ABMEMCRC  ;;8550187

ABMENVCK  ;;7991261

ABMER30   ;;6391952

ABMER30A  ;;4439673

ABMER40   ;;3916325

ABMER41A  ;;3424127

ABMER60   ;;3714962

ABMER61   ;;3275881

ABMER70   ;;6232514

ABMER70A  ;;2796675

ABMER80   ;;6757903

ABMERGR2  ;;13608122

ABMERGR3  ;;18389969

ABMERGRV  ;;9553265

ABMERINS  ;;11661034

ABMERSND  ;;554634

ABMERUTL  ;;15384983

ABMEXLIP  ;;4817925

ABMFCPT   ;;8650451

ABMFOFS   ;;5740237

ABMFPRT   ;;299701

ABMP2510  ;;3537365

ABMP2511  ;;9045219

ABMP2512  ;;5785695

ABMPFUNC  ;;199032

ABMPPAD1  ;;16012338

ABMPPADJ  ;;27490295

ABMPPFLR  ;;3700784

ABMPRVCV  ;;11934453

ABMPSAPI  ;;9424683

ABMPSTRD  ;;7802160

ABMPT255  ;;4879037

ABMPT256  ;;8070116

ABMPT258  ;;14052380

ABMPT259  ;;5487761

ABMPTSMT  ;;19954136

ABMRLABS  ;;155478

ABMRMCRD  ;;26996738

ABMRSUBN  ;;2669324

ABMRVCXR  ;;657257

ABMSTAT   ;;644084

ABMTALL2  ;;19903727

ABMTALLY  ;;31416953

ABMUCANV  ;;6006166

ABMUCAPI  ;;1510148

ABMUCASH  ;;30138938

ABMUCUTL  ;;19695061

ABMUEAPI  ;;3729754

ABMUITIN  ;;6528642

ABMUPTIN  ;;2749601

ABMURBCH  ;;868591

ABMURCN1  ;;9565844

ABMURCON  ;;25732942

ABMUROPN  ;;4524463

ABMURREC  ;;2591386

ABMUSETU  ;;4735389

ABMUTL8   ;;8682757

ABMUTLF   ;;1762786

ABMUTLN   ;;2810185

ABMUTLP   ;;22999697

ABMUUTL   ;;6817719

ABMUVBCH  ;;15921222

ABMUVCSH  ;;11751858

ABMUXCLD  ;;2448320

ABMXUS9   ;;3233674