FBNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JAN 30, 1995@14:25:08
;;3.5;FEE BASIS;;JAN 30, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
;;7.2;JAN 30, 1995@14:25:08
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 ;;
FBCHRR ;;7282468
FBCHSCB ;;6573176
FBCHSL1 ;;8984574
FBCHSLP ;;8509290
FBCHSTA ;;3828644
FBCHSTAT ;;5062352
FBCHVH ;;10895543
FBCHVP ;;14312605
FBCKDIS ;;17064040
FBCKDIS1 ;;4825715
FBCNHCEN ;;12089173
FBDOC ;;208431
FBMRASV1 ;;11363374
FBMRASV2 ;;12114185
FBMRASVR ;;15871936
FBNHACT ;;7377096
FBNHAMI1 ;;10257785
FBNHAMI2 ;;6743548
FBNHAMIE ;;8906087
FBNHAMIS ;;18698941
FBNHDEC ;;3000257
FBNHDIEP ;;1822085
FBNHDLAD ;;5489319
FBNHDLDI ;;7535255
FBNHDLTR ;;3056815
FBNHEA ;;9042749
FBNHEAU1 ;;4563644
FBNHEAU2 ;;8102988
FBNHEAUT ;;17899847
FBNHED ;;8997353
FBNHEDA1 ;;3108080
FBNHEDAD ;;1690767
FBNHEDAT ;;10167462
FBNHEDDI ;;4313528
FBNHEDPA ;;6175427
FBNHEDTR ;;5402733
FBNHEP ;;20057397
FBNHEP1 ;;6219597
FBNHEP2 ;;14099420
FBNHET ;;6903761
FBNHEXP ;;5281991
FBNHPAMS ;;14276588
FBNHPC ;;9944869
FBNHPC1 ;;8251325
FBNHPLT ;;7785082
FBNHRAT ;;8512413
FBNHRAT1 ;;4767279
FBNHRC ;;11532054
FBNHRCS ;;4973071
FBNHRCS1 ;;6111456
FBNHRCS2 ;;4585977
FBNHRCS3 ;;2192097
FBNHRCS4 ;;1521491
FBNHRDEL ;;2136211
FBNHROS ;;6787692
FBP35D ;;2550500
FBPAID ;;7993157
FBPAID1 ;;2937603
FBPAID2 ;;11705622
FBPAY ;;12670963
FBPAY2 ;;10449356
FBPAY21 ;;6882423
FBPAY3 ;;14897836
FBPAY67 ;;17774089
FBPAY671 ;;13723194
FBPCR ;;12194673
FBPCR2 ;;12312031
FBPCR3 ;;10581098
FBPCR67 ;;9893934
FBPCR671 ;;8261947
FBPHON ;;14011993
FBPHON1 ;;10086411
FBPHON2 ;;9327779
FBPRE35 ;;5136542
FBPRICE ;;13736306
FBPRICE1 ;;4733284
FBPST35 ;;8167497
FBPST35A ;;16775666
FBPST35B ;;7164566
FBPST35C ;;9143037
FBUCDD ;;3821845
FBUCDD1 ;;7275596
FBUCDIS ;;10618926
FBUCDUP ;;3798696
FBUCED ;;10874060
FBUCED0 ;;18866078
FBUCED1 ;;4332811
FBUCEN ;;14613914
FBUCEN1 ;;6621239
FBUCEVT ;;439790
FBUCEX ;;12923887
FBUCLET ;;14516629
FBUCLET0 ;;9111656
FBUCLET1 ;;11867847
FBUCLINK ;;11678403
FBUCLNK1 ;;9379737
FBUCOUT ;;2256740
FBUCOUT1 ;;8762575
FBUCPAY ;;15066764
FBUCPEND ;;7313035
FBUCSTAT ;;10504241
FBUCUPD ;;9689085
FBUCUPD1 ;;6807028
FBUCUTL ;;3957346
FBUCUTL1 ;;9828164
FBUCUTL2 ;;10327684
FBUCUTL3 ;;9669404
FBUCUTL4 ;;3662827
FBUCUTL5 ;;11780524
FBUCUTL6 ;;7064155
FBUCUTL7 ;;9716645
FBUCUTL8 ;;3419884
FBUINS ;;4813918
FBVDISP ;;1398023
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBNTEG0 3028 printed Dec 13, 2024@01:59:20 Page 2
FBNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JAN 30, 1995@14:25:08
+1 ;;3.5;FEE BASIS;;JAN 30, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;;7.2;JAN 30, 1995@14:25:08
+4 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 ;;
FBCHRR ;;7282468
FBCHSCB ;;6573176
FBCHSL1 ;;8984574
FBCHSLP ;;8509290
FBCHSTA ;;3828644
FBCHSTAT ;;5062352
FBCHVH ;;10895543
FBCHVP ;;14312605
FBCKDIS ;;17064040
FBCKDIS1 ;;4825715
FBCNHCEN ;;12089173
FBDOC ;;208431
FBMRASV1 ;;11363374
FBMRASV2 ;;12114185
FBMRASVR ;;15871936
FBNHACT ;;7377096
FBNHAMI1 ;;10257785
FBNHAMI2 ;;6743548
FBNHAMIE ;;8906087
FBNHAMIS ;;18698941
FBNHDEC ;;3000257
FBNHDIEP ;;1822085
FBNHDLAD ;;5489319
FBNHDLDI ;;7535255
FBNHDLTR ;;3056815
FBNHEA ;;9042749
FBNHEAU1 ;;4563644
FBNHEAU2 ;;8102988
FBNHEAUT ;;17899847
FBNHED ;;8997353
FBNHEDA1 ;;3108080
FBNHEDAD ;;1690767
FBNHEDAT ;;10167462
FBNHEDDI ;;4313528
FBNHEDPA ;;6175427
FBNHEDTR ;;5402733
FBNHEP ;;20057397
FBNHEP1 ;;6219597
FBNHEP2 ;;14099420
FBNHET ;;6903761
FBNHEXP ;;5281991
FBNHPAMS ;;14276588
FBNHPC ;;9944869
FBNHPC1 ;;8251325
FBNHPLT ;;7785082
FBNHRAT ;;8512413
FBNHRAT1 ;;4767279
FBNHRC ;;11532054
FBNHRCS ;;4973071
FBNHRCS1 ;;6111456
FBNHRCS2 ;;4585977
FBNHRCS3 ;;2192097
FBNHRCS4 ;;1521491
FBNHRDEL ;;2136211
FBNHROS ;;6787692
FBP35D ;;2550500
FBPAID ;;7993157
FBPAID1 ;;2937603
FBPAID2 ;;11705622
FBPAY ;;12670963
FBPAY2 ;;10449356
FBPAY21 ;;6882423
FBPAY3 ;;14897836
FBPAY67 ;;17774089
FBPAY671 ;;13723194
FBPCR ;;12194673
FBPCR2 ;;12312031
FBPCR3 ;;10581098
FBPCR67 ;;9893934
FBPCR671 ;;8261947
FBPHON ;;14011993
FBPHON1 ;;10086411
FBPHON2 ;;9327779
FBPRE35 ;;5136542
FBPRICE ;;13736306
FBPRICE1 ;;4733284
FBPST35 ;;8167497
FBPST35A ;;16775666
FBPST35B ;;7164566
FBPST35C ;;9143037
FBUCDD ;;3821845
FBUCDD1 ;;7275596
FBUCDIS ;;10618926
FBUCDUP ;;3798696
FBUCED ;;10874060
FBUCED0 ;;18866078
FBUCED1 ;;4332811
FBUCEN ;;14613914
FBUCEN1 ;;6621239
FBUCEVT ;;439790
FBUCEX ;;12923887
FBUCLET ;;14516629
FBUCLET0 ;;9111656
FBUCLET1 ;;11867847
FBUCLINK ;;11678403
FBUCLNK1 ;;9379737
FBUCOUT ;;2256740
FBUCOUT1 ;;8762575
FBUCPAY ;;15066764
FBUCPEND ;;7313035
FBUCSTAT ;;10504241
FBUCUPD ;;9689085
FBUCUPD1 ;;6807028
FBUCUTL ;;3957346
FBUCUTL1 ;;9828164
FBUCUTL2 ;;10327684
FBUCUTL3 ;;9669404
FBUCUTL4 ;;3662827
FBUCUTL5 ;;11780524
FBUCUTL6 ;;7064155
FBUCUTL7 ;;9716645
FBUCUTL8 ;;3419884
FBUINS ;;4813918
FBVDISP ;;1398023
