©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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)
Q
;
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