- IBNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;;7.2;MAR 21, 1994@00:43:44
- 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 ;;
- IBOCPD ;;1720455
- IBOCPDS ;;5830293
- IBODISP ;;2933885
- IBODIV ;;5128254
- IBOEMP ;;6678171
- IBOEMP1 ;;10672548
- IBOEMP2 ;;6906404
- IBOHLD1 ;;4207713
- IBOHLD2 ;;5592060
- IBOLK ;;7791103
- IBOLK1 ;;2492902
- IBOMBL ;;8192932
- IBOMTC ;;1690451
- IBOMTC1 ;;4373193
- IBOMTE ;;5475821
- IBOMTE1 ;;7538361
- IBOMTE2 ;;3031067
- IBOMTP ;;1425622
- IBOMTP1 ;;8257030
- IBORAT ;;2629438
- IBORAT1A ;;1249079
- IBORAT1B ;;747816
- IBORAT1C ;;2564792
- IBORAT2A ;;2888714
- IBORAT2B ;;1609133
- IBORAT2C ;;4187545
- IBORT ;;12589852
- IBORT1 ;;5196896
- IBOST ;;8728133
- IBOSTUS ;;8222172
- IBOSTUS1 ;;13901156
- IBOTR ;;6890483
- IBOTR1 ;;9609343
- IBOTR2 ;;4054313
- IBOTR3 ;;7294292
- IBOTR4 ;;4986294
- IBOUNP1 ;;5103611
- IBOUNP2 ;;5551837
- IBOUNP3 ;;11102312
- IBOUNP4 ;;5816740
- IBOUNP5 ;;4930314
- IBOUNP6 ;;11719330
- IBOUTL ;;3588665
- IBOVOP ;;3951706
- IBOVOP1 ;;6521237
- IBOVOP2 ;;6328287
- IBP ;;4383002
- IBPA ;;5621480
- IBPEX ;;4674014
- IBPF ;;3366298
- IBPF1 ;;3550746
- IBPFU ;;1975348
- IBPO ;;6256568
- IBPP ;;3866201
- IBPU ;;6660057
- IBPU1 ;;4549333
- IBPU2 ;;3153479
- IBPUBUL ;;4295755
- IBPUDEL ;;9049505
- IBR ;;4785208
- IBRBUL ;;4871478
- IBRCON1 ;;11061579
- IBRCON2 ;;5758144
- IBRCON3 ;;2246092
- IBRFN ;;1579924
- IBRFN1 ;;2791885
- IBRFN2 ;;3905109
- IBRREL ;;10253828
- IBRUTL ;;2441491
- IBTOAT ;;5478898
- IBTOAT1 ;;5305537
- IBTOAT2 ;;2761554
- IBTOBI ;;8662378
- IBTOBI1 ;;6435712
- IBTOBI2 ;;7990714
- IBTOBI3 ;;6401647
- IBTOBI4 ;;6224530
- IBTODD ;;8031779
- IBTODD1 ;;8068439
- IBTOLR ;;6224360
- IBTONB ;;1885921
- IBTOPW ;;10707392
- IBTOSA ;;8113371
- IBTOSUM ;;9538577
- IBTOSUM1 ;;8816791
- IBTOSUM2 ;;9298424
- IBTOTR ;;5609897
- IBTOUA ;;6974196
- IBTOUR ;;10111309
- IBTOUR1 ;;7984547
- IBTOUR2 ;;6908472
- IBTOUR3 ;;8357145
- IBTOUR4 ;;8040075
- IBTOUR5 ;;4041626
- IBTOVS ;;1551317
- IBTRC ;;10516194
- IBTRC1 ;;5987611
- IBTRC2 ;;3262204
- IBTRC3 ;;3166666
- IBTRC4 ;;8767502
- IBTRCD ;;9107959
- IBTRCD0 ;;7861660
- IBTRCD1 ;;8922819
- IBTRD ;;7786538
- IBTRD1 ;;7381107
- IBTRDD ;;2526056
- IBTRDD1 ;;597735
- IBTRE ;;10429015
- IBTRE0 ;;598105
- IBTRE1 ;;8033144
- IBTRE2 ;;11012571
- IBTRE20 ;;5512238
- IBTRE3 ;;7554651
- IBTRE4 ;;6681407
- IBTRE5 ;;8002645
- IBTRE6 ;;4226128
- IBTRED ;;8017886
- IBTRED0 ;;8966982
- IBTRED01 ;;11523940
- IBTRED1 ;;3540207
- IBTRED2 ;;2529514
- IBTRKR ;;7275239
- IBTRKR1 ;;3200384
- IBTRKR2 ;;2075452
- IBTRKR3 ;;9828445
- IBTRKR31 ;;4093132
- IBTRKR4 ;;6029559
- IBTRKR41 ;;5933356
- IBTRKR5 ;;8668310
- IBTRP ;;2908119
- IBTRPR ;;9093794
- IBTRPR0 ;;9571992
- IBTRPR01 ;;9199268
- IBTRPR1 ;;6920311
- IBTRPR2 ;;1544197
- IBTRV ;;8563669
- IBTRV1 ;;5485789
- IBTRV2 ;;7873619
- IBTRV3 ;;8401862
- IBTRV31 ;;6699387
- IBTRVD ;;3563633
- IBTRVD0 ;;9150563
- IBTRVD1 ;;8867639
- IBTUTL ;;6486404
- IBTUTL1 ;;5474483
- IBTUTL2 ;;2288421
- IBTUTL3 ;;7164634
- IBTUTL4 ;;14424130
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBNTEG02 3477 printed Mar 13, 2025@21:30:12 Page 2
- IBNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;;7.2;MAR 21, 1994@00:43:44
- +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 ;;
- IBOCPD ;;1720455
- IBOCPDS ;;5830293
- IBODISP ;;2933885
- IBODIV ;;5128254
- IBOEMP ;;6678171
- IBOEMP1 ;;10672548
- IBOEMP2 ;;6906404
- IBOHLD1 ;;4207713
- IBOHLD2 ;;5592060
- IBOLK ;;7791103
- IBOLK1 ;;2492902
- IBOMBL ;;8192932
- IBOMTC ;;1690451
- IBOMTC1 ;;4373193
- IBOMTE ;;5475821
- IBOMTE1 ;;7538361
- IBOMTE2 ;;3031067
- IBOMTP ;;1425622
- IBOMTP1 ;;8257030
- IBORAT ;;2629438
- IBORAT1A ;;1249079
- IBORAT1B ;;747816
- IBORAT1C ;;2564792
- IBORAT2A ;;2888714
- IBORAT2B ;;1609133
- IBORAT2C ;;4187545
- IBORT ;;12589852
- IBORT1 ;;5196896
- IBOST ;;8728133
- IBOSTUS ;;8222172
- IBOSTUS1 ;;13901156
- IBOTR ;;6890483
- IBOTR1 ;;9609343
- IBOTR2 ;;4054313
- IBOTR3 ;;7294292
- IBOTR4 ;;4986294
- IBOUNP1 ;;5103611
- IBOUNP2 ;;5551837
- IBOUNP3 ;;11102312
- IBOUNP4 ;;5816740
- IBOUNP5 ;;4930314
- IBOUNP6 ;;11719330
- IBOUTL ;;3588665
- IBOVOP ;;3951706
- IBOVOP1 ;;6521237
- IBOVOP2 ;;6328287
- IBP ;;4383002
- IBPA ;;5621480
- IBPEX ;;4674014
- IBPF ;;3366298
- IBPF1 ;;3550746
- IBPFU ;;1975348
- IBPO ;;6256568
- IBPP ;;3866201
- IBPU ;;6660057
- IBPU1 ;;4549333
- IBPU2 ;;3153479
- IBPUBUL ;;4295755
- IBPUDEL ;;9049505
- IBR ;;4785208
- IBRBUL ;;4871478
- IBRCON1 ;;11061579
- IBRCON2 ;;5758144
- IBRCON3 ;;2246092
- IBRFN ;;1579924
- IBRFN1 ;;2791885
- IBRFN2 ;;3905109
- IBRREL ;;10253828
- IBRUTL ;;2441491
- IBTOAT ;;5478898
- IBTOAT1 ;;5305537
- IBTOAT2 ;;2761554
- IBTOBI ;;8662378
- IBTOBI1 ;;6435712
- IBTOBI2 ;;7990714
- IBTOBI3 ;;6401647
- IBTOBI4 ;;6224530
- IBTODD ;;8031779
- IBTODD1 ;;8068439
- IBTOLR ;;6224360
- IBTONB ;;1885921
- IBTOPW ;;10707392
- IBTOSA ;;8113371
- IBTOSUM ;;9538577
- IBTOSUM1 ;;8816791
- IBTOSUM2 ;;9298424
- IBTOTR ;;5609897
- IBTOUA ;;6974196
- IBTOUR ;;10111309
- IBTOUR1 ;;7984547
- IBTOUR2 ;;6908472
- IBTOUR3 ;;8357145
- IBTOUR4 ;;8040075
- IBTOUR5 ;;4041626
- IBTOVS ;;1551317
- IBTRC ;;10516194
- IBTRC1 ;;5987611
- IBTRC2 ;;3262204
- IBTRC3 ;;3166666
- IBTRC4 ;;8767502
- IBTRCD ;;9107959
- IBTRCD0 ;;7861660
- IBTRCD1 ;;8922819
- IBTRD ;;7786538
- IBTRD1 ;;7381107
- IBTRDD ;;2526056
- IBTRDD1 ;;597735
- IBTRE ;;10429015
- IBTRE0 ;;598105
- IBTRE1 ;;8033144
- IBTRE2 ;;11012571
- IBTRE20 ;;5512238
- IBTRE3 ;;7554651
- IBTRE4 ;;6681407
- IBTRE5 ;;8002645
- IBTRE6 ;;4226128
- IBTRED ;;8017886
- IBTRED0 ;;8966982
- IBTRED01 ;;11523940
- IBTRED1 ;;3540207
- IBTRED2 ;;2529514
- IBTRKR ;;7275239
- IBTRKR1 ;;3200384
- IBTRKR2 ;;2075452
- IBTRKR3 ;;9828445
- IBTRKR31 ;;4093132
- IBTRKR4 ;;6029559
- IBTRKR41 ;;5933356
- IBTRKR5 ;;8668310
- IBTRP ;;2908119
- IBTRPR ;;9093794
- IBTRPR0 ;;9571992
- IBTRPR01 ;;9199268
- IBTRPR1 ;;6920311
- IBTRPR2 ;;1544197
- IBTRV ;;8563669
- IBTRV1 ;;5485789
- IBTRV2 ;;7873619
- IBTRV3 ;;8401862
- IBTRV31 ;;6699387
- IBTRVD ;;3563633
- IBTRVD0 ;;9150563
- IBTRVD1 ;;8867639
- IBTUTL ;;6486404
- IBTUTL1 ;;5474483
- IBTUTL2 ;;2288421
- IBTUTL3 ;;7164634
- IBTUTL4 ;;14424130
