©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
XBINTEG ; ROUTINE INTEGRITY CHECK
Source file <XBINTEG.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | DD^%DT ^DIR |
| IHS VA Utilities | 1 | ^XBKVAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CODE1 | ;; 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
|
|
| CODE2 | ;; F I=1:1:6 S X=$P($T(@("LINE"_I)),";;",2,99),@("XBINTEG("_I_")=X")
|
|
| CODE3 | ;; X XBINTEG(1)
|
|
| LINE7 | ;;F I=1:1:3 S V="CODE"_I S Z=XBINTEG(V) Q:Z="" ZI Z
|
|
| LINE9 | ;;ZI "LINE5 ;;S B=$P(^(RTN),""^"",1),C=$P(^(RTN),""^"",2) I B'=BYTE!(C'=COUNT) W "" has been modified""" ZI "LINE6 ;;K XBINTEG,B,C,I,J,R,X,Y" ZI " ;" ZI "LIST ;"
|
|
| LINE8 | ;;ZI " Q" ZI " ;" ZI "LINE1 ;;X XBINTEG(2),XBINTEG(6)" F I=2:1:4 S Z="LINE"_I_" ;;"_XBINTEG(I) ZI Z
|
|
| CHECKRTN | ;
|
|
| EOJ | ;
|
|
| LINE5 | ;;S ^UTILITY("XBINTEG",$J,RTN)=BYTE_"^"_COUNT
|
|
| 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 XBINTEG(4)
|
|
| 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)
|
|
| LINE1 | ;;X XBINTEG(2),XBINTEG(6),XBINTEG(11)
|
|
| START | ;
|
|
| LINE11 | ;;K %,XBINTEG,DTOUT,DUOUT,DIRUT,DIROUT,I,J,V,X,Y,Z,^UTILITY($J),^UTILITY("XBINTEG",$J)
|
|
| LINE6 | ;;ZR S X=RTNAME_" ;INTEGRITY CHECKER;"_RTDATE ZI X ZI VERSION ZI " ;" ZI "START ;" ZI " NEW BYTE,COUNT,RTN" ZI " K ^UTILITY($J)" X XBINTEG(7),XBINTEG(8),XBINTEG(9),XBINTEG(10) ZS @RTNAME
|
|
| LINE10 | ;;S RTN="" F S RTN=$O(^UTILITY("XBINTEG",$J,RTN)) Q:RTN="" S Z=^(RTN),Z=" ;;"_RTN_"^"_Z ZI Z
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("RSEL" | START+5 |
| ^DD("OS" - [#.7] | CHECKRTN+2, CHECKRTN+3 |
| ^UTILITY("XBINTEG" | START+2! |
| ^UTILITY($J | START+2!, START+6, EOJ+1! |
| Name | Line Occurrences |
|---|---|
| CHECKRTN | START+10 |
| EOJ | START+6, START+8, START+11, START+13, START+16, START+19 |
| Name | Field # of Occurrence |
|---|---|
| ^(18 | CHECKRTN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | START+23*, START+24*, START+25!, EOJ+1! |
| BYTE | START+1~ |
| COUNT | START+1~ |
| DIR | START+7!, START+12!, START+15!, START+18!, CHECKRTN+6! |
| DIR("?" | START+7*, START+12* |
| DIR("A" | START+7*, START+12*, START+15*, START+18*, CHECKRTN+6* |
| DIR("B" | START+18*, CHECKRTN+6* |
| DIR(0 | START+7*, START+12*, START+15*, START+18*, CHECKRTN+6* |
| DIROUT | EOJ+2! |
| DIRUT | START+8, START+13, START+19, CHECKRTN+7, EOJ+2! |
| DTOUT | START+16, EOJ+2! |
| DUOUT | START+16, EOJ+2! |
| QUIT | START+1~ |
| RTDATE | START+1~, START+21* |
| RTN | START+1~ |
| RTNAME | START+1~, START+9*, CHECKRTN+4 |
| VERSION | START+1~, START+14*, START+17*, START+22* |
| X | START+14, START+17, START+23*, START+24*, START+25!, CHECKRTN+4*, EOJ+1! |
| XBINTEG | EOJ+1! |
| XBINTEG(1 | START+26 |
| Y | START+9, START+11, START+21, START+22, START+25!, CHECKRTN+1*, CHECKRTN+7*, EOJ+1! |
| Name | Field # of Occurrence |
|---|---|
| $T(@(3) | START+23, START+24 |