ACRFNTEG.m

ACRFNTEG ;INTEGRITY CHECKER;MAY 29, 2007

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;MAY 29, 2007

 ;

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

 ;;ACRFDOCN^4793^305361

 ;;ACRFEA1^4878^304796

 ;;ACRFEA21^6007^407215

 ;;ACRFEA42^5850^365676

 ;;ACRFMENU^5006^328615

 ;;ACRFNEWF^1609^110055

 ;;ACRFNTEG^1265^79671

 ;;ACRFPAY^11855^736377

 ;;ACRFPO1^6269^406802

 ;;ACRFPRCS^6088^391439

 ;;ACRFPRNT^5723^366591

 ;;ACRFRR^7011^455668

 ;;ACRFRRPT^5856^362439

 ;;ACRFSS^5660^359836

 ;;ACRFSS4^3433^223707

 ;;ACRFTR1^6769^411497

 ;;ACRFUFM2^5578^349532

 ;;ACRFUFM4^13034^823287

 ;;ACRFUFMC^2160^149549

 ;;ACRFUFMD^3572^262819

 ;;ACRFUFMI^11620^683087

 ;;ACRFUFMR^9270^559961

 ;;ACRFUFMU^13413^806621

 ;;ACRFUFMX^4470^276557

 ;;ACRFUFMZ^14035^913753

 ;;ACRFVLK^8093^522404

 ;;ACRFVLK2^4410^259620

 ;;ACRFVLK3^3946^247762

 ;;ACRFWARN^5187^336889

 ;;ACRFZIS^5340^357056

ACRFNTEG  ;INTEGRITY CHECKER;MAY 29, 2007

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;MAY 29, 2007

 +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=0 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       ;;ACRFDOCN^4793^305361

 +2       ;;ACRFEA1^4878^304796

 +3       ;;ACRFEA21^6007^407215

 +4       ;;ACRFEA42^5850^365676

 +5       ;;ACRFMENU^5006^328615

 +6       ;;ACRFNEWF^1609^110055

 +7       ;;ACRFNTEG^1265^79671

 +8       ;;ACRFPAY^11855^736377

 +9       ;;ACRFPO1^6269^406802

 +10      ;;ACRFPRCS^6088^391439

 +11      ;;ACRFPRNT^5723^366591

 +12      ;;ACRFRR^7011^455668

 +13      ;;ACRFRRPT^5856^362439

 +14      ;;ACRFSS^5660^359836

 +15      ;;ACRFSS4^3433^223707

 +16      ;;ACRFTR1^6769^411497

 +17      ;;ACRFUFM2^5578^349532

 +18      ;;ACRFUFM4^13034^823287

 +19      ;;ACRFUFMC^2160^149549

 +20      ;;ACRFUFMD^3572^262819

 +21      ;;ACRFUFMI^11620^683087

 +22      ;;ACRFUFMR^9270^559961

 +23      ;;ACRFUFMU^13413^806621

 +24      ;;ACRFUFMX^4470^276557

 +25      ;;ACRFUFMZ^14035^913753

 +26      ;;ACRFVLK^8093^522404

 +27      ;;ACRFVLK2^4410^259620

 +28      ;;ACRFVLK3^3946^247762

 +29      ;;ACRFWARN^5187^336889

 +30      ;;ACRFZIS^5340^357056