VAQNTEG0.m

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 ---VAQNTEG0   2717     printed  Apr 09, 2024@21:29:01                                                                                                                                                                                                    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