Routine: AMQQNTEG

AMQQNTEG ; IHS/CMI/THL - INTEGRITY CHECKER SEP 21, 2008 ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

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),@("XBINTEG("_I_")=X")

 X XBINTEG(1)

LINE1 ;;X XBINTEG(2),XBINTEG(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 XBINTEG(4),XBINTEG(3),XBINTEG(5)

LINE3 ;;F I=2:1 S X=$T(+I) Q:X=""  X XBINTEG(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(^(RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W "  has been modified"

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

LIST ;

 ;;AMQQ^5250^345164

 ;;AMQQ1^3246^208354

 ;;AMQQ2^1673^106152

 ;;AMQQ200^1319^83602

 ;;AMQQ33P1^1737^104854

 ;;AMQQ33P2^1737^104855

 ;;AMQQAC^4047^254700

 ;;AMQQAC1^1442^94116

 ;;AMQQAPT^2310^147123

 ;;AMQQAT^3864^260619

 ;;AMQQAT1^3055^201032

 ;;AMQQAT11^1428^95496

 ;;AMQQAT2^2558^170378

 ;;AMQQATA^6334^401221

 ;;AMQQATAL^4456^279929

 ;;AMQQATL^3668^220512

 ;;AMQQATL1^879^53692

 ;;AMQQATR^3084^191711

 ;;AMQQATR0^2382^144906

 ;;AMQQATR1^4471^265602

 ;;AMQQATR2^2957^183047

 ;;AMQQATR3^976^57489

 ;;AMQQATR4^606^36166

 ;;AMQQATS^3370^202108

 ;;AMQQATS1^3076^177961

 ;;AMQQATSQ^857^53818

 ;;AMQQAV^1216^78082

 ;;AMQQAV0^5029^314740

 ;;AMQQAV1^4332^264762

 ;;AMQQAV2^2697^173618

 ;;AMQQAVB^1366^83243

 ;;AMQQAVR^3433^232458

 ;;AMQQBAN^402^24767

 ;;AMQQBP1^1913^124970

 ;;AMQQCMP0^4933^338998

 ;;AMQQCMP1^2018^128523

 ;;AMQQCMP2^4062^249747

 ;;AMQQCMP3^2749^169029

 ;;AMQQCMP4^1114^67351

 ;;AMQQCMP6^1801^107864

 ;;AMQQCMPC^1493^92258

 ;;AMQQCMPK^2646^171341

 ;;AMQQCMPL^2876^192054

 ;;AMQQCMPM^4897^309661

 ;;AMQQCMPP^3069^198940

 ;;AMQQCMPS^2155^135366

 ;;AMQQCMPT^3016^174643

 ;;AMQQCMPZ^5062^294587

 ;;AMQQDFN^1562^92204

 ;;AMQQDO^4941^297046

 ;;AMQQDOH^2268^133726

 ;;AMQQDOW^3737^233797

 ;;AMQQEM1^4193^281195

 ;;AMQQEM11^3548^243715

 ;;AMQQEM2^3634^231482

 ;;AMQQEM21^4274^285104

 ;;AMQQEM22^2129^137849

 ;;AMQQEM2O^1764^118759

 ;;AMQQEM3^4502^277880

 ;;AMQQEM31^3037^204007

 ;;AMQQEM4^4655^296528

 ;;AMQQEM41^2455^150261

 ;;AMQQEM5^1607^105049

 ;;AMQQEMAN^5353^357132

 ;;AMQQF^3485^220698

 ;;AMQQF0^2353^143277

 ;;AMQQF1^2062^129942

 ;;AMQQF2^2761^171259

 ;;AMQQF3^1121^70185

 ;;AMQQFAN^1566^99949

 ;;AMQQGTX^1590^109050

 ;;AMQQGTX0^1420^96052

 ;;AMQQHEL1^2425^195131

 ;;AMQQHEL2^669^41417

 ;;AMQQHELP^2670^172068

 ;;AMQQKILL^2150^148117

 ;;AMQQLKUP^651^42189

 ;;AMQQLXR^829^51014

 ;;AMQQMGR^6466^437134

 ;;AMQQMGR1^3359^227560

 ;;AMQQMGR2^3411^216080

 ;;AMQQMGR3^3831^241038

 ;;AMQQMGR4^3539^219057

 ;;AMQQMGR5^3718^253153

 ;;AMQQMGR6^1844^119231

 ;;AMQQMGR7^4541^288299

 ;;AMQQMGR8^2250^145285

 ;;AMQQMGR9^2171^133014

 ;;AMQQMGRX^4977^343742

 ;;AMQQMUL1^4404^282016

 ;;AMQQMUL2^2759^180174

 ;;AMQQMUL3^5128^316446

 ;;AMQQMUL4^2483^160874

 ;;AMQQMUL9^2630^171721

 ;;AMQQMULC^2070^135835

 ;;AMQQMULN^1738^110856

 ;;AMQQMULP^3933^240368

 ;;AMQQMULR^2564^165466

 ;;AMQQMULS^891^56563

 ;;AMQQMULT^4784^308947

 ;;AMQQMULW^2090^137000

 ;;AMQQN^2235^152009

 ;;AMQQN0^3893^232015

 ;;AMQQN1^1586^97662

 ;;AMQQN2^3384^205068

 ;;AMQQNTEG^4175^261929

 ;;AMQQOPT^3786^258766

 ;;AMQQOPT1^3226^223309

 ;;AMQQPIR^474^28828

 ;;AMQQPOR^283^21844

 ;;AMQQPOS^2920^195446

 ;;AMQQPOST^1984^122257

 ;;AMQQQ^2696^172132

 ;;AMQQQ0^3567^233294

 ;;AMQQQ1^2730^178177

 ;;AMQQQ2^1899^121835

 ;;AMQQQE^2871^190818

 ;;AMQQQE1^3066^209983

 ;;AMQQREG^5205^351777

 ;;AMQQRMA^5448^369138

 ;;AMQQRMA1^3051^188469

 ;;AMQQRMAN^851^59263

 ;;AMQQRMD^3636^224841

 ;;AMQQRMFF^2367^167195

 ;;AMQQRMH^1296^84107

 ;;AMQQRML^4318^268541

 ;;AMQQRMM^3435^214366

 ;;AMQQRMT^3940^250155

 ;;AMQQSEC^618^38770

 ;;AMQQSL^3682^227541

 ;;AMQQSQ^4216^275190

 ;;AMQQSQA^1581^103925

 ;;AMQQSQA0^4281^267249

 ;;AMQQSQA1^2670^171198

 ;;AMQQSQA2^3930^259598

 ;;AMQQSQA3^425^27756

 ;;AMQQSQAC^1547^90821

 ;;AMQQSQBP^2120^137670

 ;;AMQQSQIM^891^60336

 ;;AMQQSQL^3795^242857

 ;;AMQQSQL1^1536^100978

 ;;AMQQSQP^3910^269090

 ;;AMQQSQS^2785^179579

 ;;AMQQSQT^1402^94615

 ;;AMQQSQUP^1744^114819

 ;;AMQQSQVS^1162^78181

 ;;AMQQSRV^176^11445

 ;;AMQQTX^5337^352554

 ;;AMQQTX0^3740^240780

 ;;AMQQTXC^3387^222822

 ;;AMQQTXC1^3349^210874

 ;;AMQQTXG^2849^176873

 ;;AMQQTXG1^4071^260230

 ;;AMQQUTIL^405^26110

 ;;AMQQVIEW^4086^258626

 ;;AMQQWH^1002^69329

AMQQNTEG  ; IHS/CMI/THL - INTEGRITY CHECKER SEP 21, 2008 ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +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 @("XBINTEG("_I_")=X")

 +5        XECUTE XBINTEG(1)

 +6        QUIT

 +7       ;

LINE1     ;;X XBINTEG(2),XBINTEG(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 XBINTEG(4),XBINTEG(3),XBINTEG(5)

LINE3     ;;F I=2:1 S X=$T(+I) Q:X=""  X XBINTEG(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(^(RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W "  has been modified"

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

 +1       ;

LIST      ;

 +1       ;;AMQQ^5250^345164

 +2       ;;AMQQ1^3246^208354

 +3       ;;AMQQ2^1673^106152

 +4       ;;AMQQ200^1319^83602

 +5       ;;AMQQ33P1^1737^104854

 +6       ;;AMQQ33P2^1737^104855

 +7       ;;AMQQAC^4047^254700

 +8       ;;AMQQAC1^1442^94116

 +9       ;;AMQQAPT^2310^147123

 +10      ;;AMQQAT^3864^260619

 +11      ;;AMQQAT1^3055^201032

 +12      ;;AMQQAT11^1428^95496

 +13      ;;AMQQAT2^2558^170378

 +14      ;;AMQQATA^6334^401221

 +15      ;;AMQQATAL^4456^279929

 +16      ;;AMQQATL^3668^220512

 +17      ;;AMQQATL1^879^53692

 +18      ;;AMQQATR^3084^191711

 +19      ;;AMQQATR0^2382^144906

 +20      ;;AMQQATR1^4471^265602

 +21      ;;AMQQATR2^2957^183047

 +22      ;;AMQQATR3^976^57489

 +23      ;;AMQQATR4^606^36166

 +24      ;;AMQQATS^3370^202108

 +25      ;;AMQQATS1^3076^177961

 +26      ;;AMQQATSQ^857^53818

 +27      ;;AMQQAV^1216^78082

 +28      ;;AMQQAV0^5029^314740

 +29      ;;AMQQAV1^4332^264762

 +30      ;;AMQQAV2^2697^173618

 +31      ;;AMQQAVB^1366^83243

 +32      ;;AMQQAVR^3433^232458

 +33      ;;AMQQBAN^402^24767

 +34      ;;AMQQBP1^1913^124970

 +35      ;;AMQQCMP0^4933^338998

 +36      ;;AMQQCMP1^2018^128523

 +37      ;;AMQQCMP2^4062^249747

 +38      ;;AMQQCMP3^2749^169029

 +39      ;;AMQQCMP4^1114^67351

 +40      ;;AMQQCMP6^1801^107864

 +41      ;;AMQQCMPC^1493^92258

 +42      ;;AMQQCMPK^2646^171341

 +43      ;;AMQQCMPL^2876^192054

 +44      ;;AMQQCMPM^4897^309661

 +45      ;;AMQQCMPP^3069^198940

 +46      ;;AMQQCMPS^2155^135366

 +47      ;;AMQQCMPT^3016^174643

 +48      ;;AMQQCMPZ^5062^294587

 +49      ;;AMQQDFN^1562^92204

 +50      ;;AMQQDO^4941^297046

 +51      ;;AMQQDOH^2268^133726

 +52      ;;AMQQDOW^3737^233797

 +53      ;;AMQQEM1^4193^281195

 +54      ;;AMQQEM11^3548^243715

 +55      ;;AMQQEM2^3634^231482

 +56      ;;AMQQEM21^4274^285104

 +57      ;;AMQQEM22^2129^137849

 +58      ;;AMQQEM2O^1764^118759

 +59      ;;AMQQEM3^4502^277880

 +60      ;;AMQQEM31^3037^204007

 +61      ;;AMQQEM4^4655^296528

 +62      ;;AMQQEM41^2455^150261

 +63      ;;AMQQEM5^1607^105049

 +64      ;;AMQQEMAN^5353^357132

 +65      ;;AMQQF^3485^220698

 +66      ;;AMQQF0^2353^143277

 +67      ;;AMQQF1^2062^129942

 +68      ;;AMQQF2^2761^171259

 +69      ;;AMQQF3^1121^70185

 +70      ;;AMQQFAN^1566^99949

 +71      ;;AMQQGTX^1590^109050

 +72      ;;AMQQGTX0^1420^96052

 +73      ;;AMQQHEL1^2425^195131

 +74      ;;AMQQHEL2^669^41417

 +75      ;;AMQQHELP^2670^172068

 +76      ;;AMQQKILL^2150^148117

 +77      ;;AMQQLKUP^651^42189

 +78      ;;AMQQLXR^829^51014

 +79      ;;AMQQMGR^6466^437134

 +80      ;;AMQQMGR1^3359^227560

 +81      ;;AMQQMGR2^3411^216080

 +82      ;;AMQQMGR3^3831^241038

 +83      ;;AMQQMGR4^3539^219057

 +84      ;;AMQQMGR5^3718^253153

 +85      ;;AMQQMGR6^1844^119231

 +86      ;;AMQQMGR7^4541^288299

 +87      ;;AMQQMGR8^2250^145285

 +88      ;;AMQQMGR9^2171^133014

 +89      ;;AMQQMGRX^4977^343742

 +90      ;;AMQQMUL1^4404^282016

 +91      ;;AMQQMUL2^2759^180174

 +92      ;;AMQQMUL3^5128^316446

 +93      ;;AMQQMUL4^2483^160874

 +94      ;;AMQQMUL9^2630^171721

 +95      ;;AMQQMULC^2070^135835

 +96      ;;AMQQMULN^1738^110856

 +97      ;;AMQQMULP^3933^240368

 +98      ;;AMQQMULR^2564^165466

 +99      ;;AMQQMULS^891^56563

 +100     ;;AMQQMULT^4784^308947

 +101     ;;AMQQMULW^2090^137000

 +102     ;;AMQQN^2235^152009

 +103     ;;AMQQN0^3893^232015

 +104     ;;AMQQN1^1586^97662

 +105     ;;AMQQN2^3384^205068

 +106     ;;AMQQNTEG^4175^261929

 +107     ;;AMQQOPT^3786^258766

 +108     ;;AMQQOPT1^3226^223309

 +109     ;;AMQQPIR^474^28828

 +110     ;;AMQQPOR^283^21844

 +111     ;;AMQQPOS^2920^195446

 +112     ;;AMQQPOST^1984^122257

 +113     ;;AMQQQ^2696^172132

 +114     ;;AMQQQ0^3567^233294

 +115     ;;AMQQQ1^2730^178177

 +116     ;;AMQQQ2^1899^121835

 +117     ;;AMQQQE^2871^190818

 +118     ;;AMQQQE1^3066^209983

 +119     ;;AMQQREG^5205^351777

 +120     ;;AMQQRMA^5448^369138

 +121     ;;AMQQRMA1^3051^188469

 +122     ;;AMQQRMAN^851^59263

 +123     ;;AMQQRMD^3636^224841

 +124     ;;AMQQRMFF^2367^167195

 +125     ;;AMQQRMH^1296^84107

 +126     ;;AMQQRML^4318^268541

 +127     ;;AMQQRMM^3435^214366

 +128     ;;AMQQRMT^3940^250155

 +129     ;;AMQQSEC^618^38770

 +130     ;;AMQQSL^3682^227541

 +131     ;;AMQQSQ^4216^275190

 +132     ;;AMQQSQA^1581^103925

 +133     ;;AMQQSQA0^4281^267249

 +134     ;;AMQQSQA1^2670^171198

 +135     ;;AMQQSQA2^3930^259598

 +136     ;;AMQQSQA3^425^27756

 +137     ;;AMQQSQAC^1547^90821

 +138     ;;AMQQSQBP^2120^137670

 +139     ;;AMQQSQIM^891^60336

 +140     ;;AMQQSQL^3795^242857

 +141     ;;AMQQSQL1^1536^100978

 +142     ;;AMQQSQP^3910^269090

 +143     ;;AMQQSQS^2785^179579

 +144     ;;AMQQSQT^1402^94615

 +145     ;;AMQQSQUP^1744^114819

 +146     ;;AMQQSQVS^1162^78181

 +147     ;;AMQQSRV^176^11445

 +148     ;;AMQQTX^5337^352554

 +149     ;;AMQQTX0^3740^240780

 +150     ;;AMQQTXC^3387^222822

 +151     ;;AMQQTXC1^3349^210874

 +152     ;;AMQQTXG^2849^176873

 +153     ;;AMQQTXG1^4071^260230

 +154     ;;AMQQUTIL^405^26110

 +155     ;;AMQQVIEW^4086^258626

 +156     ;;AMQQWH^1002^69329

AMQQNTEG.m