Routine: XBINTEG

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
IHS VA Utilities	1	^XBKVAR

Entry Points

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	Field # of Occurrence
DD^%DT	START+20
^DIR	START+7, START+12, START+15, START+18, CHECKRTN+6
^XBKVAR	START+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RTN Line Location: LINE2+0
Routine Call	DIR Line Location: START+7 START+12 START+15 START+18 CHECKRTN+6

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	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	Line Occurrences
CHECKRTN	START+10
EOJ	START+6, START+8, START+11, START+13, START+16, START+19