- 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 Mar 13, 2025@21:30:36 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
