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