VAQNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
;;7.1;NOV 16, 1993@16:51:52
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 ;;
VAQIN057 ;;8670003
VAQIN058 ;;12087698
VAQIN059 ;;12286037
VAQIN060 ;;6852836
VAQIN061 ;;5297635
VAQIN062 ;;4779642
VAQIN063 ;;6226761
VAQIN064 ;;6365462
VAQIN065 ;;5964235
VAQIN066 ;;5634536
VAQIN067 ;;6484532
VAQIN068 ;;6022388
VAQIN069 ;;3994473
VAQIN070 ;;2626845
VAQINIT ;;10527661
VAQINIT1 ;;5724227
VAQINIT2 ;;5232654
VAQINIT3 ;;16094381
VAQINIT4 ;;3357826
VAQINIT5 ;;2381973
VAQINITY ;;15302173
VAQLED01 ;;5227014
VAQLED02 ;;3706614
VAQLED03 ;;2552336
VAQLED04 ;;1371437
VAQLED05 ;;5243841
VAQLED07 ;;5461822
VAQLED09 ;;2819147
VAQLED10 ;;2269021
VAQON001 ;;5039803
VAQON002 ;;5429303
VAQON003 ;;5050536
VAQON004 ;;5410521
VAQON005 ;;2067030
VAQONIT ;;985790
VAQONIT1 ;;1702666
VAQONIT2 ;;82874
VAQONIT3 ;;10576636
VAQPAR1 ;;4057523
VAQPAR10 ;;2132222
VAQPAR11 ;;6358641
VAQPAR6 ;;1190252
VAQPAR60 ;;2321560
VAQPAR61 ;;1663308
VAQPSE01 ;;6697231
VAQPSE02 ;;5744737
VAQPSE03 ;;3755878
VAQPSE04 ;;10337589
VAQPSL ;;6880843
VAQPSL1 ;;6668278
VAQPSL2 ;;7070001
VAQPSL3 ;;5092352
VAQPST01 ;;4846072
VAQPST02 ;;3653169
VAQPST03 ;;5893015
VAQPST04 ;;2363361
VAQPST05 ;;1783930
VAQPST10 ;;4238957
VAQPST20 ;;9859635
VAQPST21 ;;3695767
VAQPST22 ;;3677988
VAQPST23 ;;7275908
VAQPST24 ;;2831063
VAQPST25 ;;1644171
VAQPST30 ;;3803265
VAQPST31 ;;665330
VAQPST40 ;;2063031
VAQPUR ;;2604304
VAQPUR10 ;;4828736
VAQPUR11 ;;1795000
VAQREQ01 ;;5103405
VAQREQ02 ;;4279045
VAQREQ03 ;;3699641
VAQREQ04 ;;4933003
VAQREQ05 ;;4065406
VAQREQ06 ;;4957964
VAQREQ07 ;;4654674
VAQREQ08 ;;196494
VAQREQ09 ;;6206842
VAQREQ10 ;;6036863
VAQREQ11 ;;1458438
VAQUIN01 ;;5272447
VAQUPD1 ;;3950454
VAQUPD2 ;;5217698
VAQUPD25 ;;2213566
VAQUTL1 ;;2067120
VAQUTL2 ;;587104
VAQUTL3 ;;985218
VAQUTL4 ;;2714753
VAQUTL92 ;;1371964
VAQUTL93 ;;783669
VAQUTL94 ;;1525592
VAQUTL95 ;;1148867
VAQUTL96 ;;370770
VAQUTL97 ;;1449446
VAQUTL98 ;;723049
VAQUTL99 ;;2220245
VAQXRF1 ;;855609
VAQXRF2 ;;2617277
VAQXRF3 ;;861029
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQNTEG0 2717 printed Oct 16, 2024@18:26:50 Page 2
VAQNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
+2 ;;7.1;NOV 16, 1993@16:51:52
+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 ;;
VAQIN057 ;;8670003
VAQIN058 ;;12087698
VAQIN059 ;;12286037
VAQIN060 ;;6852836
VAQIN061 ;;5297635
VAQIN062 ;;4779642
VAQIN063 ;;6226761
VAQIN064 ;;6365462
VAQIN065 ;;5964235
VAQIN066 ;;5634536
VAQIN067 ;;6484532
VAQIN068 ;;6022388
VAQIN069 ;;3994473
VAQIN070 ;;2626845
VAQINIT ;;10527661
VAQINIT1 ;;5724227
VAQINIT2 ;;5232654
VAQINIT3 ;;16094381
VAQINIT4 ;;3357826
VAQINIT5 ;;2381973
VAQINITY ;;15302173
VAQLED01 ;;5227014
VAQLED02 ;;3706614
VAQLED03 ;;2552336
VAQLED04 ;;1371437
VAQLED05 ;;5243841
VAQLED07 ;;5461822
VAQLED09 ;;2819147
VAQLED10 ;;2269021
VAQON001 ;;5039803
VAQON002 ;;5429303
VAQON003 ;;5050536
VAQON004 ;;5410521
VAQON005 ;;2067030
VAQONIT ;;985790
VAQONIT1 ;;1702666
VAQONIT2 ;;82874
VAQONIT3 ;;10576636
VAQPAR1 ;;4057523
VAQPAR10 ;;2132222
VAQPAR11 ;;6358641
VAQPAR6 ;;1190252
VAQPAR60 ;;2321560
VAQPAR61 ;;1663308
VAQPSE01 ;;6697231
VAQPSE02 ;;5744737
VAQPSE03 ;;3755878
VAQPSE04 ;;10337589
VAQPSL ;;6880843
VAQPSL1 ;;6668278
VAQPSL2 ;;7070001
VAQPSL3 ;;5092352
VAQPST01 ;;4846072
VAQPST02 ;;3653169
VAQPST03 ;;5893015
VAQPST04 ;;2363361
VAQPST05 ;;1783930
VAQPST10 ;;4238957
VAQPST20 ;;9859635
VAQPST21 ;;3695767
VAQPST22 ;;3677988
VAQPST23 ;;7275908
VAQPST24 ;;2831063
VAQPST25 ;;1644171
VAQPST30 ;;3803265
VAQPST31 ;;665330
VAQPST40 ;;2063031
VAQPUR ;;2604304
VAQPUR10 ;;4828736
VAQPUR11 ;;1795000
VAQREQ01 ;;5103405
VAQREQ02 ;;4279045
VAQREQ03 ;;3699641
VAQREQ04 ;;4933003
VAQREQ05 ;;4065406
VAQREQ06 ;;4957964
VAQREQ07 ;;4654674
VAQREQ08 ;;196494
VAQREQ09 ;;6206842
VAQREQ10 ;;6036863
VAQREQ11 ;;1458438
VAQUIN01 ;;5272447
VAQUPD1 ;;3950454
VAQUPD2 ;;5217698
VAQUPD25 ;;2213566
VAQUTL1 ;;2067120
VAQUTL2 ;;587104
VAQUTL3 ;;985218
VAQUTL4 ;;2714753
VAQUTL92 ;;1371964
VAQUTL93 ;;783669
VAQUTL94 ;;1525592
VAQUTL95 ;;1148867
VAQUTL96 ;;370770
VAQUTL97 ;;1449446
VAQUTL98 ;;723049
VAQUTL99 ;;2220245
VAQXRF1 ;;855609
VAQXRF2 ;;2617277
VAQXRF3 ;;861029
