Routine: XBCSPC

Package	Total	Call Graph
IHS VA Utilities	4	$$DIR^XBDIR FLD^XBFDINFO XREF^XBGXREFS ^XBKVAR
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
CHKDATA	; CHECK DATA IN SELECTED FIELD
EOJ	;
LIST	;
FIELD	;
EN(FILE,FIELD,XREF,UNIQUE)	; EXTERNAL ENTRY POINT TO ALLOW SPECIFID FILE/FIELD ; pass by value * will abort if values not passed *
START	;
FILE	;
CHKXREF	; SEE IF UNIQUE SPECIFIER HAS REGULAR XREF

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FILE+1
Function Call: WRITE	Prompt: " No data in file",*7 Line Location: FILE+10
Function Call: WRITE	Prompt: *7 Line Location: FIELD+9
Function Call: WRITE	Prompt: *7 Line Location: FIELD+10
Function Call: WRITE	Prompt: !,"All entries with data have xref." Line Location: LIST+3
Function Call: WRITE	Prompt: !,CTRD-CTRX," entr",$S(CTRD-CTRX=1:"y",1:"ies"),", ",$FN(CTRX/CTRD*100,"T",2)," percent of entries with data have no xref." Line Location: LIST+4
Function Call: WRITE	Prompt: !,"All ",$P(^DD(FILE,FIELD,0),U,1)," field values are unique." Line Location: LIST+7
Function Call: WRITE	Prompt: !,CTRU,$S(CTRU=1:" entry has a value that is ",1:" entries have values that are "),"not unique." Line Location: LIST+8
Function Call: WRITE	Prompt: !,"If you want to see duplicate values select global ^TMP(""XBCSPC"",",$J,"," Line Location: LIST+9
Function Call: WRITE	Prompt: ! Line Location: LIST+11
Function Call: WRITE	Prompt: !,"The ",FIELD," field does not have a REGULAR xref." Line Location: CHKXREF+6
Function Call: WRITE	Prompt: !,"Using the ",XREF," xref on the ",FIELD," field." Line Location: CHKXREF+7
Function Call: WRITE	Prompt: !,"Checking data. Please wait. " Line Location: CHKDATA+1
Routine Call	DIC Line Location: FILE+4 FIELD+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	LIST+7
^DIC - [#1]	FILE+9
^TMP("XBCSPC"	LIST+9!, CHKDATA+2!, CHKDATA+13, CHKDATA+14*, EOJ+2!

Name	Field # of Occurrence
^(	CHKDATA+13*

Name	Field # of Occurrence
CTRD	START+1~, LIST+1, LIST+4, CHKDATA+3, CHKDATA+9, EN+2~
CTRT	START+1~, LIST+1, CHKDATA+3, CHKDATA+5, EN+2~
CTRU	START+1~, LIST+7, LIST+8, LIST+9, CHKDATA+3, CHKDATA+13, EN+2~
CTRX	START+1~, LIST+3, LIST+4, CHKDATA+3, CHKDATA+10, EN+2~
DIC	FILE+3, FILE+5!, FIELD+2, FIELD+4!
DIC(0	FILE+3, FIELD+2
DIRUT	FIELD+12!, FIELD+14, EN+8!, EOJ+1!
ENTRY	START+1~, CHKDATA+4*, CHKDATA+6, CHKDATA+7, CHKDATA+10, EN+2~
EXTERNAL	FILE+2, FIELD+1, FIELD+13, FIELD+18, LIST+9, EN+2~, EN+3*
FGBL	START+1~, FILE+9*, CHKDATA+4, CHKDATA+6, CHKDATA+7, CHKDATA+10, EN+2~
FIELD	START+1~, FIELD+6*, FIELD+8, LIST+7, CHKXREF+3, CHKXREF+4, CHKXREF+6, CHKXREF+7, EN~, EN+4
FILE	START+1~, FILE+7*, FILE+9, FIELD+2, FIELD+8, LIST+7, CHKXREF+3, EN~, EN+4
I	CHKXREF+4*, CHKXREF+6, EN+8!, EOJ+1!
NODE	START+1~, FIELD+11*, CHKDATA+6, CHKDATA+7, EN+2~
PIECE	START+1~, FIELD+11*, CHKDATA+7, EN+2~
U	LIST+7
UNIQUE	START+1~, FIELD+13*, FIELD+15, LIST+2, LIST+6, CHKDATA+10, CHKDATA+11, EN~, EN+4
X	FILE+9, FILE+10, FIELD+8, FIELD+12!, CHKXREF+3, CHKXREF+5!, CHKDATA+7, CHKDATA+8, CHKDATA+10, CHKDATA+13 , CHKDATA+14, EN+8!, EOJ+1!
X(	CHKXREF+4
X("NODE"	FIELD+9, FIELD+10, FIELD+11
X("PIECE"	FIELD+11
XREF	START+1~, LIST+2, CHKXREF+1, CHKXREF+2, CHKXREF+4, CHKXREF+7, CHKDATA+10, EN~, EN+4, EN+6*
Y	START+3, FILE+2, FILE+6, FILE+7, FILE+11, FILE+12, FIELD+1, FIELD+5, FIELD+6, FIELD+18 , EN+8!, EOJ+1!