©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
XBSUMBLD ; IHS/ADC/GTH - ROUTINE INTEGRITY CHECK GENERATOR ; [ 10/29/2002 7:42 AM ]
Source file <XBSUMBLD.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS VA Utilities | 2 | $$DIR^XBDIR ^XBKVAR |
| VA Fileman | 1 | DD^%DT |
| 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),@("XBSUMBLD("_I_")=X")
|
|
| CODE3 | ;; X XBSUMBLD(1)
|
|
| LINE7 | ;;F I=1:1:3 S V="CODE"_I S Z=XBSUMBLD(V) Q:Z="" ZI Z
|
|
| LINE9 | ;;ZI "LINE5 ;;S B=$P(^UTILITY($J,RTN),""^"",1),C=$P(^(RTN),""^"",2) I B'=BYTE!(C'=COUNT) W "" has been modified""" ZI "LINE6 ;;K XBSUMBLD,B,C,I,J,R,X,Y" ZI " ;" ZI "LIST ;"
|
|
| LINE8 | ;;ZI " Q" ZI " ;" ZI "LINE1 ;;X XBSUMBLD(2),XBSUMBLD(6)" F I=2:1:4 S Z="LINE"_I_" ;;"_XBSUMBLD(I) ZI Z
|
|
| CHECKRTN | ;
|
|
| EOJ | ;
|
|
| LINE5 | ;;S ^TMP("XBSUMBLD",$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 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),XBSUMBLD(11)
|
|
| START | ;
|
|
| LINE11 | ;;K %,XBSUMBLD,DTOUT,DUOUT,DIRUT,DIROUT,I,J,V,X,Y,Z,^UTILITY($J),^TMP("XBSUMBLD",$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 XBSUMBLD(7),XBSUMBLD(8),XBSUMBLD(9),XBSUMBLD(10) ZS @RTNAME
|
|
| LINE10 | ;;S RTN="" F S RTN=$O(^TMP("XBSUMBLD",$J,RTN)) Q:RTN="" S Z=^(RTN),Z=" ;;"_RTN_"^"_Z ZI Z
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("RSEL" | START+7 |
| ^%ZOSF("TEST" | CHECKRTN+2 |
| ^TMP("XBSUMBLD" | START+5! |
| ^UTILITY($J | START+5!, START+8, EOJ+1! |
| Name | Line Occurrences |
|---|---|
| CHECKRTN | START+11 |
| EOJ | START+8, START+10, START+12, START+14, START+16, START+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | START+24*, START+25*, START+26!, EOJ+1! |
| BYTE | START+4~ |
| COUNT | START+4~ |
| DIROUT | EOJ+1! |
| DIRUT | START+10, START+14, START+21, CHECKRTN+5, EOJ+1! |
| DTOUT | START+16, EOJ+1! |
| DUOUT | START+16, EOJ+1! |
| QUIT | START+4~ |
| RTDATE | START+4~, START+23* |
| RTN | START+4~ |
| RTNAME | START+4~, START+9*, CHECKRTN+1 |
| VERSION | START+4~, START+13*, START+15*, START+23* |
| X | START+24*, START+25*, START+26!, CHECKRTN+1*, EOJ+1! |
| XBSUMBLD | EOJ+1! |
| XBSUMBLD(1 | START+27 |
| Y | START+12, START+19*, START+23, START+26!, CHECKRTN+1*, CHECKRTN+4*, CHECKRTN+5*, EOJ+1! |
| Name | Field # of Occurrence |
|---|---|
| $T(@(3) | START+24, START+25 |