Routine: VSITKIL

Information

VSITKIL ;ISL/ARS,JVS - NON INTERACTIVE CHECK DEPENDENT ENTRY COUNT ;8/15/97

Source file <VSITKIL.m>

Package	Total	Call Graph
PCE Patient Care Encounter	1	$$DEC^VSITKIL
VA Fileman	1	(,IX)^DIK

Package	Total	Caller Graph
PCE Patient Care Encounter	5	PXAPIDEL PXCEVFI2 PXICLN9B PXUTLSTP VSITKIL

Name	Comments	DBIA/ICR reference
DEC(VISIT,VISUAL)	;Test looking through DD to find fields pointing to the visit entries. ; VISIT=Visit ien to looked up and counted ; VISUAL= Set to 1 if you want and interactive display of what is found
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 the visit IEN and if there is not any entries ; pointing to the entry it is deleted. (not logically but totally)
KILL(VSITKDFN)	; ENTER THE VSIT YOU WANT CHECKED SET VSITKDFN=IEN ; VSITKDFN = Vsit Ien REQUIRED	ICR #1909 Status: Active Usage: Controlled Subscription
XIT	;exit
COMP	;COMPARE DEC WITH WHAT UTILITY SAYS
QUE	;CHECK OUT CROSS REFERENCE
REF	;Look for all of the regular cross references and other
REG	;Look for regular cross references

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"COUNT= " Line Location: DEC+16
Function Call: WRITE	Prompt: !!,"BAD COUNTS "_CNT Line Location: COMP+15

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	KILL+7, KILL+9, KILL+10, KILL+12, KILL+14, KILL+15, KILL+25, KILL+27, COMP+7, COMP+8
^DD(	REG+3, REG+4, REG+5, QUE+5
^DD(9000010	DEC+10, DEC+12

Name	Field # of Occurrence
BECKY	DEC+6~, QUE+13*
CNT	COMP+4~, COMP+6, COMP+13, COMP+15
COUNT	DEC+6~, DEC+17, QUE+2, QUE+13
DA	KILL+16, KILL+19!, KILL+22, KILL+24!
DEC	COMP+4~, COMP+8*, COMP+10, COMP+11, COMP+12
DEC1	COMP+4~, COMP+9, COMP+10, COMP+11, COMP+12, COMP+14
DIK	KILL+3~, KILL+17, KILL+19!, KILL+21, KILL+24!
DR	KILL+19!
FIELD	DEC+6~, DEC+11, DEC+12, DEC+13, REF+3, REG+3, REG+4, REG+5, REG+6, REG+7 , QUE+2
FILE	DEC+6~, DEC+9, DEC+10, DEC+12, DEC+13, REF+2, REF+3, REG+3, REG+4, REG+5 , REG+6, REG+7, QUE+2, QUE+3*, QUE+4
GET	DEC+6~, REG+5, REG+6, QUE+4, QUE+5
KYRON	COMP+4~, COMP+7*, COMP+8, COMP+9, COMP+12, COMP+14
PIECE	DEC+6~, QUE+7*, QUE+8, QUE+9
PX	DEC+6~, QUE+11*, QUE+12, QUE+13
REF	DEC+6~, QUE+5*, QUE+6, QUE+7
SNDPIECE	DEC+6~, QUE+8*, QUE+11, QUE+13
STOP	DEC+6~, REG+2, REG+6, QUE+2, QUE+4, QUE+10*
SUB	DEC+6~, REG+4, REG+5, REG+6, QUE+4
VAUGHN	DEC+6~, QUE+9*, QUE+10
VDD	DEC+7~, REF+5!
VDD(	DEC+13*, REF+2, REF+3
VDDN	DEC+7~, DEC+15!
VDDN(	REG+3, REG+7
VDDR	DEC+7~, DEC+15!
VDDR(	REG+6*, QUE+3, QUE+4
VISIT	DEC~, QUE+13
VISUAL	DEC~, DEC+16, QUE+13
VSITKDEC	KILL+3~, KILL+10*, KILL+12
VSITKDFN	KILL~, KILL+6, KILL+7, KILL+9, KILL+10, KILL+11, KILL+12, KILL+14, KILL+15, KILL+16 , KILL+22, KILL+25, KILL+26!, KILL+27
VSITKND	KILL+3~, KILL+4, KILL+11, KILL+12, KILL+14, KILL+20, XIT+1