Routine: DIVR

Information

DIVR ;OIFO/GFT - VERIFY FIELD DIFLD, DATA DICTIONARY A ; Aug 09, 2022@08:21

Source file <DIVR.m>

Name	Comments	DBIA/ICR reference
BEGIN
TYPE
OUTT
UNIQ
E
XEC
DANGL
Q
QX
R
DOTYPE
P
S
D
N	;
K	;
F
X
DA
0	;
L
IX
V
INDEX	;Check new indexes
IER	;Print info about invalid indexes. (Modeled after DA subroutine above)
IER1	;If top level, write record info and message
LF	;Issue a line feed or EOP read CALLED FROM DIV
HDR	;Print header
EN(A,DIFLD,DQI)	;Main Entry Point for VEN version

Name	Line Occurrences
Function Call: WRITE	Prompt: "--FIELD #",DIFLD," ",$$LABEL^DIALOGZ(A,DIFLD),"-- (",W,")" Line Location: TYPE+1
Function Call: WRITE	Prompt: $C(7)_"(CANNOT CHECK" Line Location: UNIQ+2
Function Call: WRITE	Prompt: "(CHECKING" Line Location: UNIQ+3
Function Call: WRITE	Prompt: " CROSS-REFERENCE)" Line Location: UNIQ+4
Function Call: WRITE	Prompt: ! Line Location: Q+7
Function Call: WRITE	Prompt: DA,?10,$S($D(^(DA,0)):$E($P(^(0),U),1,30),1:DA),?40,$E(M,1,IOM-40) Line Location: DA+2
Function Call: WRITE	Prompt: DA(X),?10,$S($G(^(DA(X),0))]"":$P(^(0),U),1:"*NO ZERO NODE*") Line Location: DA+4
Function Call: WRITE	Prompt: DA,?10,$S($D(^(DA,0)):$P(^(0),U),1:DA) Line Location: IER1+2
Function Call: WRITE	Prompt: ?40,DIVTXT(DIVI) Line Location: IER1+5
Function Call: WRITE	Prompt: DA(X),?10,$P(^(DA(X),0),U) Line Location: IER1+10
Function Call: WRITE	Prompt: ! Line Location: LF+1
Function Call: WRITE	Prompt: ! Line Location: LF+5
Function Call: WRITE	Prompt: @IOF Line Location: LF+9
Function Call: WRITE	Prompt: "VERIFY FIELDS REPORT" Line Location: HDR+3
Function Call: WRITE	Prompt: !,DIVFIL_$J("",DIVTAB)_DIVDAT_DIVPG Line Location: HDR+6
Function Call: WRITE	Prompt: !,DIVFIL,!,$J("",IOM-1-$L(DIVDAT)-$L(DIVPG))_DIVDAT_DIVPG Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J("",IOM-1)," ","-"),! Line Location: HDR+8