©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
BADENTEG ;INTEGRITY CHECKER;AUG 22, 2011
Source file <BADENTEG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LIST | ;
|
|
| LINE6 | ;;K XBSUMBLD,B,C,I,J,R,X,Y
|
|
| LINE5 | ;;S B=$P(^UTILITY($J,RTN),"^",1),C=$P(^(RTN),"^",2) I B'=BYTE!(C'=COUNT) W " has been modified"
|
|
| LINE4 | ;;F J=1:1 S Y=$E(X,J) Q:Y="" S BYTE=BYTE+1,COUNT=COUNT+$A(Y)
|
|
| LINE3 | ;;F I=2:1 S X=$T(+I) Q:X="" X XBSUMBLD(4)
|
|
| 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)
|
|
| LINE1 | ;;X XBSUMBLD(2),XBSUMBLD(6)
|
|
| START | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^UTILITY($J | START+2!, START+3* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> B | START+3* |
| BYTE | START+1~ |
| >> C | START+3* |
| COUNT | START+1~ |
| >> I | START+3*, START+4* |
| >> R | START+3* |
| RTN | START+1~ |
| >> X | START+3*, START+4* |
| >> XBSUMBLD(1 | START+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(@(3) | START+4 |
| $T(LIST+I | START+3 |