Routine: HLNTEG

HLNTEG ;INTEGRITY CHECKER;MAY 05, 1997

 ;;1.6;HEALTH LEVEL SEVEN;**3**;MAY 05, 1997

START ;

 NEW BYTE,COUNT,RTN

 K ^UTILITY($J)

 F I=1:1 S X=$T(LIST+I) Q:X=""  S X=$P(X,";;",2),R=$P(X,"^",1),B=$P(X,"^",2),C=$P(X,"^",3),^UTILITY($J,R)=B_"^"_C

 F I=1:1:6 S X=$P($T(@("LINE"_I)),";;",2,99),@("XBSUMBLD("_I_")=X")

 X XBSUMBLD(1)

LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)

LINE2 ;;S RTN="" F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""  W !,RTN ZL @RTN S (BYTE,COUNT)=0 S X=$T(+1),X=$P(X," [ ",1) X XBSUMBLD(4),XBSUMBLD(3),XBSUMBLD(5)

LINE3 ;;F I=2:1 S X=$T(+I) Q:X=""  X XBSUMBLD(4)

LINE4 ;;F J=1:1 S Y=$E(X,J) Q:Y=""  S BYTE=BYTE+1,COUNT=COUNT+$A(Y)

LINE5 ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W "  has been modified"

LINE6 ;;K XBSUMBLD,B,C,I,J,R,X,Y

LIST ;

 ;;HLCHK^4851^325741

 ;;HLCS^6943^548127

 ;;HLCS1^6994^541705

 ;;HLCSDL^3783^261754

 ;;HLCSDL1^6478^479189

 ;;HLCSDL2^7647^553490

 ;;HLCSDR^2692^180904

 ;;HLCSDR1^5096^346841

 ;;HLCSDR2^5133^365752

 ;;HLCSFMN^5405^394914

 ;;HLCSFMN0^7290^528986

 ;;HLCSFMN1^5549^402467

 ;;HLCSHDR^5718^420845

 ;;HLCSIN^1523^111308

 ;;HLCSLNCH^3664^272907

 ;;HLCSMM^2826^202609

 ;;HLCSMM1^2802^204009

 ;;HLCSMON^4716^344325

 ;;HLCSMON1^2529^176374

 ;;HLCSORA1^1872^122012

 ;;HLCSORA2^902^57020

 ;;HLCSORAT^2913^200851

 ;;HLCSOUT^2874^205545

 ;;HLCSQUE^4021^282445

 ;;HLCSQUE1^1400^98502

 ;;HLCSQUED^1677^113843

 ;;HLCSRE1^1230^80061

 ;;HLCSREP^784^52059

 ;;HLCSREQ^1726^115411

 ;;HLCSRES^1590^106264

 ;;HLCSRQ^847^56070

 ;;HLCSRV^270^20954

 ;;HLCSTERM^1204^78945

 ;;HLCSUTL^4990^355802

 ;;HLCSUTL1^4550^325136

 ;;HLCSUTL2^4781^345724

 ;;HLDTIW01^2648^171389

 ;;HLDTIW02^2197^144044

 ;;HLDTIW03^6138^408680

 ;;HLDTIW04^6145^410046

 ;;HLDTIW05^4517^308429

 ;;HLDTIW2A^3699^256201

 ;;HLDTIW2B^4583^310401

 ;;HLDTIW2C^5307^345624

 ;;HLDTIWP0^5317^357344

 ;;HLDTIWP1^5236^348416

 ;;HLDTIWP2^5266^363705

 ;;HLDTIWP3^5392^371693

 ;;HLDTIWP4^3133^219026

 ;;HLDTIWP5^3074^209806

 ;;HLDTIWP6^5008^338275

 ;;HLDTIWU0^3501^245728

 ;;HLDTIWU1^5555^389079

 ;;HLDTIWU2^3958^275386

 ;;HLDTIWU3^4298^308376

 ;;HLDTIWU4^5309^375917

 ;;HLDTIWU5^3058^214968

 ;;HLFNC^5674^385917

 ;;HLFNC1^3517^264569

 ;;HLFNC2^4283^309914

 ;;HLFNC3^2271^167829

 ;;HLINI001^4701^298693

 ;;HLINI002^4677^310547

 ;;HLINI003^4728^348717

 ;;HLINI004^1198^82301

 ;;HLINI005^4742^321663

 ;;HLINI006^4736^333161

 ;;HLINI007^4682^346348

 ;;HLINI008^3590^259607

 ;;HLINI009^4719^327465

 ;;HLINI00A^4716^343413

 ;;HLINI00B^2337^156473

 ;;HLINI00C^4738^316381

 ;;HLINI00D^4708^318873

 ;;HLINI00E^350^21603

 ;;HLINI00F^4744^286606

 ;;HLINI00G^4722^304636

 ;;HLINI00H^4701^283540

 ;;HLINI00I^4687^282502

 ;;HLINI00J^4761^301577

 ;;HLINI00K^4684^327056

 ;;HLINI00L^4747^305948

 ;;HLINI00M^4757^284582

 ;;HLINI00N^4687^280081

 ;;HLINI00O^4684^280493

 ;;HLINI00P^4682^281425

 ;;HLINI00Q^4700^282158

 ;;HLINI00R^4722^283848

 ;;HLINI00S^4679^280935

 ;;HLINI00T^4701^282863

 ;;HLINI00U^4709^283745

 ;;HLINI00V^4733^283617

 ;;HLINI00W^4725^282543

 ;;HLINI00X^4741^283766

 ;;HLINI00Y^4698^282557

 ;;HLINI00Z^4705^283502

 ;;HLINI010^4733^299053

 ;;HLINI011^4719^332873

 ;;HLINI012^4703^297284

 ;;HLINI013^4711^321333

 ;;HLINI014^4679^311227

 ;;HLINI015^4679^312946

 ;;HLINI016^4681^325556

 ;;HLINI017^4714^306944

 ;;HLINI018^4704^323497

 ;;HLINI019^4700^300247

 ;;HLINI01A^4751^307323

 ;;HLINI01B^4736^275537

 ;;HLINI01C^4692^313436

 ;;HLINI01D^4712^300588

 ;;HLINI01E^4702^313878

 ;;HLINI01F^4715^308201

 ;;HLINI01G^4677^307484

 ;;HLINI01H^4680^296064

 ;;HLINI01I^3752^246208

 ;;HLINI01J^2310^142032

 ;;HLINI01K^4693^306345

 ;;HLINI01L^240^13593

 ;;HLINI01M^3662^241921

 ;;HLINI01N^4693^294382

 ;;HLINI01O^4698^302547

 ;;HLINI01P^2177^137680

 ;;HLINI01Q^3408^224837

 ;;HLINI01R^3161^197195

 ;;HLINI01S^1890^110866

 ;;HLINI01T^400^23290

 ;;HLINI01U^1767^111851

 ;;HLINI01V^2725^194820

 ;;HLINI01W^1763^111563

 ;;HLINI01X^4710^344148

 ;;HLINI01Y^3061^218877

 ;;HLINI01Z^1387^83268

 ;;HLINI020^604^39174

 ;;HLINI021^4733^314276

 ;;HLINI022^4713^322682

 ;;HLINI023^4682^325382

 ;;HLINI024^4189^292516

 ;;HLINI025^1433^93682

 ;;HLINI026^2036^121158

 ;;HLINI027^4721^293526

 ;;HLINI028^4695^301747

 ;;HLINI029^1423^90745

 ;;HLINI02A^2259^137032

 ;;HLINI02B^1617^108750

 ;;HLINI02C^2152^129093

 ;;HLINI02D^924^56810

 ;;HLINI02E^2125^129384

 ;;HLINI02F^488^29259

 ;;HLINI02G^1834^114718

 ;;HLINI02H^596^35806

 ;;HLINI02I^4756^318511

 ;;HLINI02J^4185^282415

 ;;HLINI02K^4684^301142

 ;;HLINI02L^318^18487

 ;;HLINI02M^4692^330781

 ;;HLINI02N^4743^348842

 ;;HLINI02O^4732^326406

 ;;HLINI02P^3167^216547

 ;;HLINI02Q^4778^322065

 ;;HLINI02R^4737^319596

 ;;HLINI02S^4732^349652

 ;;HLINI02T^4698^315261

 ;;HLINI02U^4686^316608

 ;;HLINI02V^4687^321184

 ;;HLINI02W^4713^316985

 ;;HLINI02X^4696^275483

 ;;HLINI02Y^2840^164701

 ;;HLINIS^1605^111436

 ;;HLINIT^3173^198212

 ;;HLINIT1^1861^115612

 ;;HLINIT2^1581^96969

 ;;HLINIT3^4795^281925

 ;;HLINIT4^1226^69099

 ;;HLINIT5^1447^95387

 ;;HLLM^4571^287853

 ;;HLLM1^1676^106317

 ;;HLLP^4221^275313

 ;;HLMA^3502^264067

 ;;HLMA0^1099^86998

 ;;HLMA1^3453^258012

 ;;HLMA2^1760^142431

 ;;HLONI001^4678^307348

 ;;HLONI002^4721^323712

 ;;HLONI003^4745^300501

 ;;HLONI004^4677^318360

 ;;HLONI005^4711^321001

 ;;HLONI006^4697^317763

 ;;HLONI007^4707^333218

 ;;HLONI008^4747^326833

 ;;HLONI009^4734^323020

 ;;HLONI010^4730^325594

 ;;HLONI011^405^23768

 ;;HLONIT^521^34328

 ;;HLONIT1^578^36541

 ;;HLONIT2^173^10507

 ;;HLONIT3^3605^214017

 ;;HLPOST^3118^218191

 ;;HLPOST16^4370^309074

 ;;HLPOSTQ^2700^198177

 ;;HLPRE16^917^64558

 ;;HLSERV^1034^69238

 ;;HLTASK^823^59049

 ;;HLTF^7853^571287

 ;;HLTF0^4201^316875

 ;;HLTF1^5703^407607

 ;;HLTF2^4152^307804

 ;;HLTP^3465^257618

 ;;HLTP0^3159^222455

 ;;HLTP01^2973^210704

 ;;HLTP1^3153^234415

 ;;HLTP2^1582^122901

 ;;HLTPCK1^2583^191287

 ;;HLTPCK1A^5732^384628

 ;;HLTRANS^4286^299063

 ;;HLUOPT^3115^214956

 ;;HLUOPT1^4377^311587

 ;;HLUPDATE^1921^132203

 ;;HLUTIL1^2337^169084

 ;;HLUTIL2^4679^326029

 ;;HLUTIL3^1363^97526

 ;;HLZFUNC^225^13813

HLNTEG    ;INTEGRITY CHECKER;MAY 05, 1997

 +1       ;;1.6;HEALTH LEVEL SEVEN;**3**;MAY 05, 1997

 +2       ;

START     ;

 +1        NEW BYTE,COUNT,RTN

 +2        KILL ^UTILITY($JOB)

 +3        FOR I=1:1

               SET X=$TEXT(LIST+I)

               IF X=""

                   QUIT

               SET X=$PIECE(X,";;",2)

               SET R=$PIECE(X,"^",1)

               SET B=$PIECE(X,"^",2)

               SET C=$PIECE(X,"^",3)

               SET ^UTILITY($JOB,R)=B_"^"_C

 +4        FOR I=1:1:6

               SET X=$PIECE($TEXT(@("LINE"_I)),";;",2,99)

               SET @("XBSUMBLD("_I_")=X")

 +5        XECUTE XBSUMBLD(1)

 +6        QUIT

 +7       ;

LINE1     ;;X XBSUMBLD(2),XBSUMBLD(6)

LINE2     ;;S RTN="" F  S RTN=$O(^UTILITY($J,RTN)) Q:RTN=""  W !,RTN ZL @RTN S (BYTE,COUNT)=0 S X=$T(+1),X=$P(X," [ ",1) X XBSUMBLD(4),XBSUMBLD(3),XBSUMBLD(5)

LINE3     ;;F I=2:1 S X=$T(+I) Q:X=""  X XBSUMBLD(4)

LINE4     ;;F J=1:1 S Y=$E(X,J) Q:Y=""  S BYTE=BYTE+1,COUNT=COUNT+$A(Y)

LINE5     ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W "  has been modified"

LINE6     ;;K XBSUMBLD,B,C,I,J,R,X,Y

 +1       ;

LIST      ;

 +1       ;;HLCHK^4851^325741

 +2       ;;HLCS^6943^548127

 +3       ;;HLCS1^6994^541705

 +4       ;;HLCSDL^3783^261754

 +5       ;;HLCSDL1^6478^479189

 +6       ;;HLCSDL2^7647^553490

 +7       ;;HLCSDR^2692^180904

 +8       ;;HLCSDR1^5096^346841

 +9       ;;HLCSDR2^5133^365752

 +10      ;;HLCSFMN^5405^394914

 +11      ;;HLCSFMN0^7290^528986

 +12      ;;HLCSFMN1^5549^402467

 +13      ;;HLCSHDR^5718^420845

 +14      ;;HLCSIN^1523^111308

 +15      ;;HLCSLNCH^3664^272907

 +16      ;;HLCSMM^2826^202609

 +17      ;;HLCSMM1^2802^204009

 +18      ;;HLCSMON^4716^344325

 +19      ;;HLCSMON1^2529^176374

 +20      ;;HLCSORA1^1872^122012

 +21      ;;HLCSORA2^902^57020

 +22      ;;HLCSORAT^2913^200851

 +23      ;;HLCSOUT^2874^205545

 +24      ;;HLCSQUE^4021^282445

 +25      ;;HLCSQUE1^1400^98502

 +26      ;;HLCSQUED^1677^113843

 +27      ;;HLCSRE1^1230^80061

 +28      ;;HLCSREP^784^52059

 +29      ;;HLCSREQ^1726^115411

 +30      ;;HLCSRES^1590^106264

 +31      ;;HLCSRQ^847^56070

 +32      ;;HLCSRV^270^20954

 +33      ;;HLCSTERM^1204^78945

 +34      ;;HLCSUTL^4990^355802

 +35      ;;HLCSUTL1^4550^325136

 +36      ;;HLCSUTL2^4781^345724

 +37      ;;HLDTIW01^2648^171389

 +38      ;;HLDTIW02^2197^144044

 +39      ;;HLDTIW03^6138^408680

 +40      ;;HLDTIW04^6145^410046

 +41      ;;HLDTIW05^4517^308429

 +42      ;;HLDTIW2A^3699^256201

 +43      ;;HLDTIW2B^4583^310401

 +44      ;;HLDTIW2C^5307^345624

 +45      ;;HLDTIWP0^5317^357344

 +46      ;;HLDTIWP1^5236^348416

 +47      ;;HLDTIWP2^5266^363705

 +48      ;;HLDTIWP3^5392^371693

 +49      ;;HLDTIWP4^3133^219026

 +50      ;;HLDTIWP5^3074^209806

 +51      ;;HLDTIWP6^5008^338275

 +52      ;;HLDTIWU0^3501^245728

 +53      ;;HLDTIWU1^5555^389079

 +54      ;;HLDTIWU2^3958^275386

 +55      ;;HLDTIWU3^4298^308376

 +56      ;;HLDTIWU4^5309^375917

 +57      ;;HLDTIWU5^3058^214968

 +58      ;;HLFNC^5674^385917

 +59      ;;HLFNC1^3517^264569

 +60      ;;HLFNC2^4283^309914

 +61      ;;HLFNC3^2271^167829

 +62      ;;HLINI001^4701^298693

 +63      ;;HLINI002^4677^310547

 +64      ;;HLINI003^4728^348717

 +65      ;;HLINI004^1198^82301

 +66      ;;HLINI005^4742^321663

 +67      ;;HLINI006^4736^333161

 +68      ;;HLINI007^4682^346348

 +69      ;;HLINI008^3590^259607

 +70      ;;HLINI009^4719^327465

 +71      ;;HLINI00A^4716^343413

 +72      ;;HLINI00B^2337^156473

 +73      ;;HLINI00C^4738^316381

 +74      ;;HLINI00D^4708^318873

 +75      ;;HLINI00E^350^21603

 +76      ;;HLINI00F^4744^286606

 +77      ;;HLINI00G^4722^304636

 +78      ;;HLINI00H^4701^283540

 +79      ;;HLINI00I^4687^282502

 +80      ;;HLINI00J^4761^301577

 +81      ;;HLINI00K^4684^327056

 +82      ;;HLINI00L^4747^305948

 +83      ;;HLINI00M^4757^284582

 +84      ;;HLINI00N^4687^280081

 +85      ;;HLINI00O^4684^280493

 +86      ;;HLINI00P^4682^281425

 +87      ;;HLINI00Q^4700^282158

 +88      ;;HLINI00R^4722^283848

 +89      ;;HLINI00S^4679^280935

 +90      ;;HLINI00T^4701^282863

 +91      ;;HLINI00U^4709^283745

 +92      ;;HLINI00V^4733^283617

 +93      ;;HLINI00W^4725^282543

 +94      ;;HLINI00X^4741^283766

 +95      ;;HLINI00Y^4698^282557

 +96      ;;HLINI00Z^4705^283502

 +97      ;;HLINI010^4733^299053

 +98      ;;HLINI011^4719^332873

 +99      ;;HLINI012^4703^297284

 +100     ;;HLINI013^4711^321333

 +101     ;;HLINI014^4679^311227

 +102     ;;HLINI015^4679^312946

 +103     ;;HLINI016^4681^325556

 +104     ;;HLINI017^4714^306944

 +105     ;;HLINI018^4704^323497

 +106     ;;HLINI019^4700^300247

 +107     ;;HLINI01A^4751^307323

 +108     ;;HLINI01B^4736^275537

 +109     ;;HLINI01C^4692^313436

 +110     ;;HLINI01D^4712^300588

 +111     ;;HLINI01E^4702^313878

 +112     ;;HLINI01F^4715^308201

 +113     ;;HLINI01G^4677^307484

 +114     ;;HLINI01H^4680^296064

 +115     ;;HLINI01I^3752^246208

 +116     ;;HLINI01J^2310^142032

 +117     ;;HLINI01K^4693^306345

 +118     ;;HLINI01L^240^13593

 +119     ;;HLINI01M^3662^241921

 +120     ;;HLINI01N^4693^294382

 +121     ;;HLINI01O^4698^302547

 +122     ;;HLINI01P^2177^137680

 +123     ;;HLINI01Q^3408^224837

 +124     ;;HLINI01R^3161^197195

 +125     ;;HLINI01S^1890^110866

 +126     ;;HLINI01T^400^23290

 +127     ;;HLINI01U^1767^111851

 +128     ;;HLINI01V^2725^194820

 +129     ;;HLINI01W^1763^111563

 +130     ;;HLINI01X^4710^344148

 +131     ;;HLINI01Y^3061^218877

 +132     ;;HLINI01Z^1387^83268

 +133     ;;HLINI020^604^39174

 +134     ;;HLINI021^4733^314276

 +135     ;;HLINI022^4713^322682

 +136     ;;HLINI023^4682^325382

 +137     ;;HLINI024^4189^292516

 +138     ;;HLINI025^1433^93682

 +139     ;;HLINI026^2036^121158

 +140     ;;HLINI027^4721^293526

 +141     ;;HLINI028^4695^301747

 +142     ;;HLINI029^1423^90745

 +143     ;;HLINI02A^2259^137032

 +144     ;;HLINI02B^1617^108750

 +145     ;;HLINI02C^2152^129093

 +146     ;;HLINI02D^924^56810

 +147     ;;HLINI02E^2125^129384

 +148     ;;HLINI02F^488^29259

 +149     ;;HLINI02G^1834^114718

 +150     ;;HLINI02H^596^35806

 +151     ;;HLINI02I^4756^318511

 +152     ;;HLINI02J^4185^282415

 +153     ;;HLINI02K^4684^301142

 +154     ;;HLINI02L^318^18487

 +155     ;;HLINI02M^4692^330781

 +156     ;;HLINI02N^4743^348842

 +157     ;;HLINI02O^4732^326406

 +158     ;;HLINI02P^3167^216547

 +159     ;;HLINI02Q^4778^322065

 +160     ;;HLINI02R^4737^319596

 +161     ;;HLINI02S^4732^349652

 +162     ;;HLINI02T^4698^315261

 +163     ;;HLINI02U^4686^316608

 +164     ;;HLINI02V^4687^321184

 +165     ;;HLINI02W^4713^316985

 +166     ;;HLINI02X^4696^275483

 +167     ;;HLINI02Y^2840^164701

 +168     ;;HLINIS^1605^111436

 +169     ;;HLINIT^3173^198212

 +170     ;;HLINIT1^1861^115612

 +171     ;;HLINIT2^1581^96969

 +172     ;;HLINIT3^4795^281925

 +173     ;;HLINIT4^1226^69099

 +174     ;;HLINIT5^1447^95387

 +175     ;;HLLM^4571^287853

 +176     ;;HLLM1^1676^106317

 +177     ;;HLLP^4221^275313

 +178     ;;HLMA^3502^264067

 +179     ;;HLMA0^1099^86998

 +180     ;;HLMA1^3453^258012

 +181     ;;HLMA2^1760^142431

 +182     ;;HLONI001^4678^307348

 +183     ;;HLONI002^4721^323712

 +184     ;;HLONI003^4745^300501

 +185     ;;HLONI004^4677^318360

 +186     ;;HLONI005^4711^321001

 +187     ;;HLONI006^4697^317763

 +188     ;;HLONI007^4707^333218

 +189     ;;HLONI008^4747^326833

 +190     ;;HLONI009^4734^323020

 +191     ;;HLONI010^4730^325594

 +192     ;;HLONI011^405^23768

 +193     ;;HLONIT^521^34328

 +194     ;;HLONIT1^578^36541

 +195     ;;HLONIT2^173^10507

 +196     ;;HLONIT3^3605^214017

 +197     ;;HLPOST^3118^218191

 +198     ;;HLPOST16^4370^309074

 +199     ;;HLPOSTQ^2700^198177

 +200     ;;HLPRE16^917^64558

 +201     ;;HLSERV^1034^69238

 +202     ;;HLTASK^823^59049

 +203     ;;HLTF^7853^571287

 +204     ;;HLTF0^4201^316875

 +205     ;;HLTF1^5703^407607

 +206     ;;HLTF2^4152^307804

 +207     ;;HLTP^3465^257618

 +208     ;;HLTP0^3159^222455

 +209     ;;HLTP01^2973^210704

 +210     ;;HLTP1^3153^234415

 +211     ;;HLTP2^1582^122901

 +212     ;;HLTPCK1^2583^191287

 +213     ;;HLTPCK1A^5732^384628

 +214     ;;HLTRANS^4286^299063

 +215     ;;HLUOPT^3115^214956

 +216     ;;HLUOPT1^4377^311587

 +217     ;;HLUPDATE^1921^132203

 +218     ;;HLUTIL1^2337^169084

 +219     ;;HLUTIL2^4679^326029

 +220     ;;HLUTIL3^1363^97526

 +221     ;;HLZFUNC^225^13813

HLNTEG.m