FBNTEG.m

FBNTEG ;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")

 G CONT^FBNTEG0

 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 ;;

FBAA79 ;;15015750

FBAA79A ;;14173754

FBAAAUT ;;11121356

FBAAAV ;;8237458

FBAABDL ;;4402016

FBAABET ;;6666716

FBAABPG ;;11923505

FBAABS ;;1059560

FBAABT ;;10187515

FBAACCB ;;16700140

FBAACCB0 ;;6967207

FBAACCB1 ;;13238124

FBAACCB2 ;;3914458

FBAACH ;;3924398

FBAACIE ;;10479082

FBAACLU ;;2653488

FBAACO ;;17520189

FBAACO0 ;;8787859

FBAACO1 ;;16364206

FBAACO2 ;;9234183

FBAACO3 ;;11803257

FBAACO4 ;;3521393

FBAACO5 ;;2421930

FBAACP ;;11041469

FBAACP1 ;;5031333

FBAACR ;;13238141

FBAADCB ;;3135114

FBAADD ;;9907173

FBAADEM ;;3118155

FBAADEM1 ;;8836879

FBAADOB ;;2276602

FBAADV ;;3617394

FBAAEAR ;;387421

FBAAELT ;;836722

FBAAEPI ;;6142437

FBAAESP ;;852277

FBAAETA ;;1886573

FBAALB ;;3523804

FBAALPI ;;3193402

FBAALU ;;3101269

FBAAMP ;;13573955

FBAAMP1 ;;8078353

FBAAMPG1 ;;4422941

FBAAMPRG ;;5065789

FBAAOB ;;12117504

FBAAODP ;;5681209

FBAAODP0 ;;3892662

FBAAPAA ;;1034994

FBAAPAY ;;9796019

FBAAPCC ;;2074626

FBAAPDM ;;1139836

FBAAPET ;;11564008

FBAAPH ;;14983509

FBAAPHV ;;6264884

FBAAPI ;;1761458

FBAAPIE ;;14735959

FBAAPIE1 ;;11677635

FBAAPII ;;1042268

FBAAPIN ;;14186344

FBAAPIN1 ;;1319058

FBAAPIP ;;10037006

FBAAPIS ;;613307

FBAAPLU ;;12319806

FBAAPM ;;4904986

FBAAPOC ;;3681250

FBAAPP ;;17772954

FBAAPP0 ;;6578102

FBAAPPH ;;11848720

FBAAPRC ;;10396263

FBAAPRGS ;;856003

FBAAPV ;;3616039

FBAARB ;;3914625

FBAARD ;;16165776

FBAARD0 ;;6724396

FBAARD1 ;;10948778

FBAARD2 ;;12170226

FBAARD3 ;;2843765

FBAARJP ;;15794620

FBAARMRA ;;3799769

FBAAROC ;;2542001

FBAARP ;;246821

FBAARR ;;17198810

FBAARR0 ;;8315430

FBAARR1 ;;15532156

FBAARR2 ;;9461559

FBAARV ;;211649

FBAAS79 ;;1846133

FBAASAP ;;919209

FBAASCB ;;11510367

FBAASCB0 ;;10929598

FBAASL ;;8416600

FBAASL1 ;;8501613

FBAASL1B ;;7938938

FBAASLP ;;16458950

FBAASOUT ;;7190423

FBAASTA ;;3157123

FBAATIC ;;2171621

FBAAUTL ;;13857256

FBAAUTL1 ;;10946318

FBAAUTL2 ;;10972683

FBAAUTL3 ;;2438740

FBAAUTL4 ;;2899934

FBAAUTL5 ;;775264

FBAAV0 ;;18979183

FBAAV01 ;;6553775

FBAAV1 ;;21263609

FBAAV2 ;;9083463

FBAAV3 ;;2027833

FBAAV4 ;;7803193

FBAAV5 ;;13627044

FBAAV6 ;;13633513

FBAAVD ;;11915256

FBAAVD1 ;;4740010

FBAAVD2 ;;13913328

FBAAVLU ;;10935879

FBAAVP ;;16705504

FBAAVP0 ;;2865347

FBAAVR ;;14472538

FBAAVR0 ;;10933358

FBAAVR1 ;;14670872

FBAAVR2 ;;5937034

FBAAVS ;;8724685

FBAUTHP ;;2653322

FBCH78 ;;19677146

FBCH780 ;;3773342

FBCH78A ;;12095635

FBCHACT ;;9382205

FBCHACT0 ;;9411687

FBCHACT1 ;;2186657

FBCHC78 ;;11229364

FBCHCD ;;16889244

FBCHCO ;;712427

FBCHCR ;;17403059

FBCHCR1 ;;6788901

FBCHDEL ;;2002180

FBCHDI ;;6253097

FBCHDI2 ;;3467889

FBCHDIN ;;2953481

FBCHDUC ;;4597629

FBCHEAP ;;10591525

FBCHEP ;;18996060

FBCHEP1 ;;6891252

FBCHEUC ;;7559144

FBCHEUC1 ;;8332891

FBCHEUC2 ;;1905120

FBCHP78 ;;20934808

FBCHPET ;;9908667

FBCHPH ;;8218576

FBCHPH0 ;;5388144

FBCHPRC ;;6366752

FBCHPRC1 ;;8882654

FBCHPSA ;;15194005

FBCHPSA0 ;;11162264

FBCHPSA1 ;;6682209

FBCHREQ ;;15052672

FBCHREQ1 ;;9317783

FBCHREQ2 ;;5612542

FBCHRJP ;;7037853

FBCHROC ;;2943853

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBNTEG   3866     printed  Apr 09, 2024@21:02:59                                                                                                                                                                                                      Page 2

FBNTEG    ;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        GOTO CONT^FBNTEG0

 +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       ;;

FBAA79    ;;15015750

FBAA79A   ;;14173754

FBAAAUT   ;;11121356

FBAAAV    ;;8237458

FBAABDL   ;;4402016

FBAABET   ;;6666716

FBAABPG   ;;11923505

FBAABS    ;;1059560

FBAABT    ;;10187515

FBAACCB   ;;16700140

FBAACCB0  ;;6967207

FBAACCB1  ;;13238124

FBAACCB2  ;;3914458

FBAACH    ;;3924398

FBAACIE   ;;10479082

FBAACLU   ;;2653488

FBAACO    ;;17520189

FBAACO0   ;;8787859

FBAACO1   ;;16364206

FBAACO2   ;;9234183

FBAACO3   ;;11803257

FBAACO4   ;;3521393

FBAACO5   ;;2421930

FBAACP    ;;11041469

FBAACP1   ;;5031333

FBAACR    ;;13238141

FBAADCB   ;;3135114

FBAADD    ;;9907173

FBAADEM   ;;3118155

FBAADEM1  ;;8836879

FBAADOB   ;;2276602

FBAADV    ;;3617394

FBAAEAR   ;;387421

FBAAELT   ;;836722

FBAAEPI   ;;6142437

FBAAESP   ;;852277

FBAAETA   ;;1886573

FBAALB    ;;3523804

FBAALPI   ;;3193402

FBAALU    ;;3101269

FBAAMP    ;;13573955

FBAAMP1   ;;8078353

FBAAMPG1  ;;4422941

FBAAMPRG  ;;5065789

FBAAOB    ;;12117504

FBAAODP   ;;5681209

FBAAODP0  ;;3892662

FBAAPAA   ;;1034994

FBAAPAY   ;;9796019

FBAAPCC   ;;2074626

FBAAPDM   ;;1139836

FBAAPET   ;;11564008

FBAAPH    ;;14983509

FBAAPHV   ;;6264884

FBAAPI    ;;1761458

FBAAPIE   ;;14735959

FBAAPIE1  ;;11677635

FBAAPII   ;;1042268

FBAAPIN   ;;14186344

FBAAPIN1  ;;1319058

FBAAPIP   ;;10037006

FBAAPIS   ;;613307

FBAAPLU   ;;12319806

FBAAPM    ;;4904986

FBAAPOC   ;;3681250

FBAAPP    ;;17772954

FBAAPP0   ;;6578102

FBAAPPH   ;;11848720

FBAAPRC   ;;10396263

FBAAPRGS  ;;856003

FBAAPV    ;;3616039

FBAARB    ;;3914625

FBAARD    ;;16165776

FBAARD0   ;;6724396

FBAARD1   ;;10948778

FBAARD2   ;;12170226

FBAARD3   ;;2843765

FBAARJP   ;;15794620

FBAARMRA  ;;3799769

FBAAROC   ;;2542001

FBAARP    ;;246821

FBAARR    ;;17198810

FBAARR0   ;;8315430

FBAARR1   ;;15532156

FBAARR2   ;;9461559

FBAARV    ;;211649

FBAAS79   ;;1846133

FBAASAP   ;;919209

FBAASCB   ;;11510367

FBAASCB0  ;;10929598

FBAASL    ;;8416600

FBAASL1   ;;8501613

FBAASL1B  ;;7938938

FBAASLP   ;;16458950

FBAASOUT  ;;7190423

FBAASTA   ;;3157123

FBAATIC   ;;2171621

FBAAUTL   ;;13857256

FBAAUTL1  ;;10946318

FBAAUTL2  ;;10972683

FBAAUTL3  ;;2438740

FBAAUTL4  ;;2899934

FBAAUTL5  ;;775264

FBAAV0    ;;18979183

FBAAV01   ;;6553775

FBAAV1    ;;21263609

FBAAV2    ;;9083463

FBAAV3    ;;2027833

FBAAV4    ;;7803193

FBAAV5    ;;13627044

FBAAV6    ;;13633513

FBAAVD    ;;11915256

FBAAVD1   ;;4740010

FBAAVD2   ;;13913328

FBAAVLU   ;;10935879

FBAAVP    ;;16705504

FBAAVP0   ;;2865347

FBAAVR    ;;14472538

FBAAVR0   ;;10933358

FBAAVR1   ;;14670872

FBAAVR2   ;;5937034

FBAAVS    ;;8724685

FBAUTHP   ;;2653322

FBCH78    ;;19677146

FBCH780   ;;3773342

FBCH78A   ;;12095635

FBCHACT   ;;9382205

FBCHACT0  ;;9411687

FBCHACT1  ;;2186657

FBCHC78   ;;11229364

FBCHCD    ;;16889244

FBCHCO    ;;712427

FBCHCR    ;;17403059

FBCHCR1   ;;6788901

FBCHDEL   ;;2002180

FBCHDI    ;;6253097

FBCHDI2   ;;3467889

FBCHDIN   ;;2953481

FBCHDUC   ;;4597629

FBCHEAP   ;;10591525

FBCHEP    ;;18996060

FBCHEP1   ;;6891252

FBCHEUC   ;;7559144

FBCHEUC1  ;;8332891

FBCHEUC2  ;;1905120

FBCHP78   ;;20934808

FBCHPET   ;;9908667

FBCHPH    ;;8218576

FBCHPH0   ;;5388144

FBCHPRC   ;;6366752

FBCHPRC1  ;;8882654

FBCHPSA   ;;15194005

FBCHPSA0  ;;11162264

FBCHPSA1  ;;6682209

FBCHREQ   ;;15052672

FBCHREQ1  ;;9317783

FBCHREQ2  ;;5612542

FBCHRJP   ;;7037853

FBCHROC   ;;2943853