Routine: APCDFDEC

Information

APCDFDEC ; IHS/CMI/LAB - FIX DEPENDENT ENTRY COUNT ;

Source file <APCDFDEC.m>

Package	Total	Call Graph
IHS Patient	1	DEL^AUPNVSIT
VA Fileman	1	IX^DIK

Name	Comments	DBIA/ICR reference
GETHILO	; Get the HI and LO DFN's
CALDEC	;
PROCESS	;
DOC	; This routine checks the dependent entry count of the VISIT file for ; accuracy. If it is not correct it is replaced with a correct count ; The count is determined by scanning each of the VISIT related ; files for entries that point to that VISIT. A count is incremented ; each time a "hit" is made. ; The user can enter a LO and HIGH DFN or hit return to default to ; first and last.
TOTALS	;
XIT
CALDEC2	;
PROC2	;

Name	Field # of Occurrence
DEL^AUPNVSIT	PROC2+5
IX^DIK	PROC2+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ENTER A ""^"" TO HALT" Line Location: APCDFDEC+3
Function Call: READ	Timeout: @X="^" Variable: @X G Line Location: GETHILO+1
Function Call: WRITE	Prompt: !,"Enter the ",X," DFN, must be a number greater than 0." Line Location: GETHILO+1
Function Call: WRITE	Prompt: !,"<PLEASE WAIT>" Line Location: PROCESS+1
Function Call: WRITE	Prompt: !,APCDDFN," OLD Dependent Entry Count=",APCDCDEC," NEW Dependent Entry Count=",APCDNDEC," " Line Location: PROC2+3
Function Call: WRITE	Prompt: "RE-XREF"," ",APCDDFN Line Location: PROC2+4
Function Call: WRITE	Prompt: !,"DELETED: ",APCDDFN Line Location: PROC2+5
Function Call: WRITE	Prompt: !!,"Total Visits Checked: ",APCDVT Line Location: TOTALS+1
Function Call: WRITE	Prompt: !,"Total Number Dependent Entry Counts Changed: ",APCDNC Line Location: TOTALS+2

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	PROCESS+2, PROC2+1, PROC2+2, PROC2+3*, PROC2+4, PROC2+5
^DIC - [#1]	CALDEC+2, CALDEC2+1

Name	Field # of Occurrence
^(0	PROC2+4*

Name	Field # of Occurrence
APCDCDEC	PROCESS+1, PROC2+2, PROC2+3, XIT!
APCDDFN	PROCESS+1, PROCESS+2, PROC2+1, PROC2+2, PROC2+3, PROC2+4, PROC2+5, XIT!
APCDEDFN	CALDEC2+2*, XIT!
APCDEL	CALDEC2+2*, XIT!
APCDERR	XIT!
APCDFILE	XIT!
>> APCDFL	CALDEC+2*
>> APCDL	PROCESS+2*
APCDNC	PROCESS+1, PROC2+3, TOTALS+2, XIT!
APCDNDEC	PROCESS+1, PROC2+3, PROC2+4, PROC2+5, CALDEC+1, CALDEC2+2*, XIT!
APCDVCNT	PROCESS+1, PROCESS+2, XIT!
APCDVDG	CALDEC2+1*, XIT!
APCDVFLE	CALDEC+2*, CALDEC2+1, XIT!
APCDVIGR	CALDEC2+1*, CALDEC2+2, XIT!
APCDVL	XIT!
APCDVT	PROCESS+1, PROCESS+2, TOTALS+1, XIT!
AUPNVSIT	PROC2+5*!
DA	PROC2+4*!
DIK	PROC2+4*!
DR	PROC2+4!
HIGH	PROCESS+2, XIT!
LOW	PROCESS+1*, XIT!
U	APCDFDEC+2*, PROC2+1, PROC2+2, PROC2+3, PROC2+4, PROC2+5
>> X	APCDFDEC+3, GETHILO+1, GETHILO+2
X1	APCDFDEC+3, GETHILO+1, GETHILO+2, XIT!