IVMNTEG.m

IVMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 21, 1994@11:22:02

 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94

 ;;7.2;OCT 21, 1994@11:22:02

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

DGMTA ;;9763474

DGMTAUD ;;11963505

DGMTAUD1 ;;1133057

DGMTCOU1 ;;3469843

DGMTDD ;;4910257

DGMTDD2 ;;11677819

DGMTDEL ;;12110387

DGMTE ;;8298721

DGMTEO ;;4697963

DGMTO1 ;;7224400

DGMTOFA1 ;;6838192

DGMTOPYT ;;4023551

DGMTOREQ ;;8062447

DGMTP4 ;;12731270

DGMTSCC ;;11398999

DGMTU ;;7461738

DGMTU11 ;;4522284

DGMTU2 ;;2133657

DGMTU21 ;;965490

DGMTU22 ;;5777022

DGMTU23 ;;8549511

DGMTU3 ;;1527673

DGMTUB ;;3016924

DGMTV ;;6587115

DGPTUTL1 ;;7124770

DGRPU ;;5204869

IBAERR1 ;;4158918

IBAMTED ;;3624105

IBAMTED1 ;;8908404

IBAMTEDU ;;6207987

IBAMTV ;;8196736

IBAMTV1 ;;7319391

IBAMTV2 ;;4260911

IBAMTV3 ;;4398243

IBAMTV31 ;;5035963

IBAMTV32 ;;9562615

IBAMTV4 ;;3583734

IBAUTL5 ;;2774355

IBECEA1 ;;7011157

IBOMTP1 ;;8204447

IVM20E ;;6708358

IVM20P ;;10241210

IVM20P1 ;;6772249

IVM20P2 ;;7478123

IVM20P21 ;;7030272

IVM20P22 ;;2056503

IVM20P3 ;;466267

IVMLDEM ;;6306077

IVMLDEM1 ;;1997131

IVMLDEM2 ;;7285341

IVMLDEM3 ;;7209620

IVMLDEM4 ;;4021721

IVMLDEM5 ;;6125772

IVMLDEM6 ;;6518759

IVMLDEM7 ;;2964108

IVMLDEMU ;;3853428

IVMLINS ;;7257722

IVMLINS1 ;;10281862

IVMLINS2 ;;8245457

IVMLINS3 ;;8463910

IVMLINS4 ;;2545953

IVMLINS5 ;;9408877

IVMLSU ;;5270878

IVMLSU1 ;;3180320

IVMLSU2 ;;4940553

IVMLSU3 ;;7372370

IVMPINS ;;1258003

IVMPMTE ;;3049597

IVMPREC ;;5408501

IVMPREC1 ;;5589031

IVMPREC2 ;;1819615

IVMPREC3 ;;8291275

IVMPREC4 ;;2479178

IVMPREC5 ;;6361733

IVMPREC6 ;;6442288

IVMPREC7 ;;8586441

IVMPREC8 ;;6340841

IVMPREC9 ;;1069358

IVMPRECA ;;7730150

IVMPTRN ;;4640694

IVMPTRN1 ;;2656812

IVMPTRN2 ;;6966933

IVMPTRN3 ;;5735291

IVMPTRN4 ;;5308382

IVMPTRN5 ;;5826033

IVMPTRN6 ;;5346904

IVMPXFR ;;1099474

IVMRBT ;;7381523

IVMRMCR ;;4881808

IVMRMCR1 ;;10381592

IVMRNQ ;;6742559

IVMRNQ1 ;;4976239

IVMRTSR ;;6440393

IVMRTSR1 ;;6561112

IVMRUTL ;;1716183

IVMUCHK ;;4136865

IVMUCHK1 ;;10072622

IVMUCHK2 ;;7031287

IVMUCHK3 ;;4811723

IVMUCHK4 ;;9510634

IVMUCHK5 ;;7582234

IVMUFNC ;;3953089

IVMUFNC1 ;;7034874

IVMUFNC2 ;;4690413

IVMUFNC3 ;;4495477

IVMUFNC4 ;;3409685

IVMUM1 ;;3560437

IVMUM2 ;;3584755

IVMUM3 ;;2543703

IVMUM4 ;;2009725

IVMUM5 ;;3944958

IVMUM6 ;;7280247

IVMUM7 ;;4103182

IVMUM8 ;;1434808

IVMUPAR ;;879565

IVMUPUR ;;7298086

IVMUTQ ;;1321697

VAFHLFNC ;;1383717

VAFHLZDP ;;2620177

VAFHLZGD ;;3404049

VAFHLZIR ;;3337473

VAFHLZMT ;;7188003

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVMNTEG   3103     printed  Apr 23, 2025@18:15:46                                                                                                                                                                                                     Page 2

IVMNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 21, 1994@11:22:02

 +1       ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94

 +2       ;;7.2;OCT 21, 1994@11:22:02

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

DGMTA     ;;9763474

DGMTAUD   ;;11963505

DGMTAUD1  ;;1133057

DGMTCOU1  ;;3469843

DGMTDD    ;;4910257

DGMTDD2   ;;11677819

DGMTDEL   ;;12110387

DGMTE     ;;8298721

DGMTEO    ;;4697963

DGMTO1    ;;7224400

DGMTOFA1  ;;6838192

DGMTOPYT  ;;4023551

DGMTOREQ  ;;8062447

DGMTP4    ;;12731270

DGMTSCC   ;;11398999

DGMTU     ;;7461738

DGMTU11   ;;4522284

DGMTU2    ;;2133657

DGMTU21   ;;965490

DGMTU22   ;;5777022

DGMTU23   ;;8549511

DGMTU3    ;;1527673

DGMTUB    ;;3016924

DGMTV     ;;6587115

DGPTUTL1  ;;7124770

DGRPU     ;;5204869

IBAERR1   ;;4158918

IBAMTED   ;;3624105

IBAMTED1  ;;8908404

IBAMTEDU  ;;6207987

IBAMTV    ;;8196736

IBAMTV1   ;;7319391

IBAMTV2   ;;4260911

IBAMTV3   ;;4398243

IBAMTV31  ;;5035963

IBAMTV32  ;;9562615

IBAMTV4   ;;3583734

IBAUTL5   ;;2774355

IBECEA1   ;;7011157

IBOMTP1   ;;8204447

IVM20E    ;;6708358

IVM20P    ;;10241210

IVM20P1   ;;6772249

IVM20P2   ;;7478123

IVM20P21  ;;7030272

IVM20P22  ;;2056503

IVM20P3   ;;466267

IVMLDEM   ;;6306077

IVMLDEM1  ;;1997131

IVMLDEM2  ;;7285341

IVMLDEM3  ;;7209620

IVMLDEM4  ;;4021721

IVMLDEM5  ;;6125772

IVMLDEM6  ;;6518759

IVMLDEM7  ;;2964108

IVMLDEMU  ;;3853428

IVMLINS   ;;7257722

IVMLINS1  ;;10281862

IVMLINS2  ;;8245457

IVMLINS3  ;;8463910

IVMLINS4  ;;2545953

IVMLINS5  ;;9408877

IVMLSU    ;;5270878

IVMLSU1   ;;3180320

IVMLSU2   ;;4940553

IVMLSU3   ;;7372370

IVMPINS   ;;1258003

IVMPMTE   ;;3049597

IVMPREC   ;;5408501

IVMPREC1  ;;5589031

IVMPREC2  ;;1819615

IVMPREC3  ;;8291275

IVMPREC4  ;;2479178

IVMPREC5  ;;6361733

IVMPREC6  ;;6442288

IVMPREC7  ;;8586441

IVMPREC8  ;;6340841

IVMPREC9  ;;1069358

IVMPRECA  ;;7730150

IVMPTRN   ;;4640694

IVMPTRN1  ;;2656812

IVMPTRN2  ;;6966933

IVMPTRN3  ;;5735291

IVMPTRN4  ;;5308382

IVMPTRN5  ;;5826033

IVMPTRN6  ;;5346904

IVMPXFR   ;;1099474

IVMRBT    ;;7381523

IVMRMCR   ;;4881808

IVMRMCR1  ;;10381592

IVMRNQ    ;;6742559

IVMRNQ1   ;;4976239

IVMRTSR   ;;6440393

IVMRTSR1  ;;6561112

IVMRUTL   ;;1716183

IVMUCHK   ;;4136865

IVMUCHK1  ;;10072622

IVMUCHK2  ;;7031287

IVMUCHK3  ;;4811723

IVMUCHK4  ;;9510634

IVMUCHK5  ;;7582234

IVMUFNC   ;;3953089

IVMUFNC1  ;;7034874

IVMUFNC2  ;;4690413

IVMUFNC3  ;;4495477

IVMUFNC4  ;;3409685

IVMUM1    ;;3560437

IVMUM2    ;;3584755

IVMUM3    ;;2543703

IVMUM4    ;;2009725

IVMUM5    ;;3944958

IVMUM6    ;;7280247

IVMUM7    ;;4103182

IVMUM8    ;;1434808

IVMUPAR   ;;879565

IVMUPUR   ;;7298086

IVMUTQ    ;;1321697

VAFHLFNC  ;;1383717

VAFHLZDP  ;;2620177

VAFHLZGD  ;;3404049

VAFHLZIR  ;;3337473

VAFHLZMT  ;;7188003