Routine: DGRPC

Package	Total	Call Graph
Registration	6	$$FORIEN^DGADDUTL (GETMSE,MOVMSE)^DGMSEUTL FIND^DGRPC2 KVAR^DGRPCE H^DGUTL PRI^VADPT60
Scheduling	1	$$SDAPI^SDAMA301
VA Fileman	1	^DIC

Package

Total

Call Graph

Registration

$$FORIEN^DGADDUTL (GETMSE,MOVMSE)^DGMSEUTL FIND^DGRPC2 KVAR^DGRPCE H^DGUTL PRI^VADPT60

Scheduling

$$SDAPI^SDAMA301

VA Fileman

^DIC

Package	Total	Caller Graph
Registration	15	DG CONSISTENCY PATIENT DG10 DG53205P DGENUPL2 DGPZ07C DGREG DGRPC3 DGRPCF DGRPCF1 DGRPCP DGRPCR DGRPCS DGRPCU DGRPP DGRPTI

Package

Total

Caller Graph

Registration

DG CONSISTENCY PATIENT DG10 DG53205P DGENUPL2 DGPZ07C DGREG DGRPC3 DGRPCF
DGRPCF1 DGRPCP DGRPCR DGRPCS DGRPCU DGRPP DGRPTI

Entry Points

Name	Field # of Occurrence
$$FORIEN^DGADDUTL	8+2
GETMSE^DGMSEUTL	EN+5
MOVMSE^DGMSEUTL	EN+4
FIND^DGRPC2	7+1, 14+5, 15+1, 16+1, END+1
KVAR^DGRPCE	DGRPC+16, PAT+1
H^DGUTL	16
^DIC	PAT+1
$$SDAPI^SDAMA301	17+5
PRI^VADPT60	14+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking data for consistency..." Line Location: EN+0
Routine Call	DIC Line Location: PAT+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	EN+12
^DG(43 - [#43]	ON+1
^DGIN(38.5 - [#38.5]	EN+7
^DGIN(38.6 - [#38.6]	EN+10
^DIC(21 - [#21]	13
^DIC(8 - [#8]	EN+12
^DPT - [#2]	DGRPC+16, EN+2, EN+4, 2, 8, 14+3, 15
^HL(779.004 - [#779.004]	8+1
^TMP($J	17+9, 17+11, 17+13, 17+14, 17+16!

Label References

Name	Line Occurrences
@(	EN+13, 1, 1+3, 2+2, 7+1, 8, 8+1, 8+5, 9+1, 10+1 , 11+1, 12+1, 13+1, 14+5, 15+1, 16+1, END+1
COMB	1, 1+2, 2+1, 7, 8, 8+1, 8+4, 9, 10, 11 , 12, 13, 14, 15, 16, 17+17
DGRPC	PAT+1
NEXT	1, 1+3, 2+2, 7+1, 8, 8+1, 8+5, 9+1, 10+1, 11+1 , 12+1, 13+1, 14+5, 15+1, 16+1, END+1, NEXT+2
ON	DGRPC+16, PAT+1
PAT	PAT+1
START	EN+1
TIMEQ	TIME+4

Name	Field # of Occurrence
^(	EN+10, 2
^(0	EN+10, EN+12, ON+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANYMSE	DGRPC+14~
CONARR	DGRPC+14~
CONCHK	DGRPC+14~
CONERR	DGRPC+14~
CONSPEC	DGRPC+14~
>> DFN	DGRPC+16, EN+2, EN+4, EN+5, EN+7, 2, 8, 14+3, 15, 17+4 , 17+11, 17+13, 17+14, PAT+1*
>> DGCD	EN+12*, 14
>> DGCHK	EN+10*, EN+13, 7, 7+1, END+1, NEXT+1, NEXT+2
DGCON	TIME+4, TIME+5, TIMEQ!
>> DGCT	EN+12, COMB+1, TIME+4, TIME+5
>> DGD	1, 1+1, 8, 8+1, 8+2, 8+3, 17+2*
DGDATE	17!
>> DGEDCN	EN, EN+1, PAT+1, ON+2*
DGEND	TIME+1*, TIME+2, TIMEQ!
>> DGER	DGRPC+16, EN+12, COMB+1, PAT+1, ON+1*, ON+2
>> DGLST	EN+13, 1, 1+3, 2+2, 7+1, 8, 8+1, 8+5, 9+1, 10+1 , 11+1, 12+1, 13+1, 14+5, 15+1, 16+1, END+1, COMB+1, NEXT+1, NEXT+2 , NEXT+3*
>> DGNCK	EN+12, 9, 10, 13, 14*, END+1, NEXT+2
>> DGP(	EN+2*, EN+12, 10, 12, 13, 14+3, 15, 16, 17+5
>> DGP("TYPE"	EN+12
>> DGP("VET"	EN+12, 9
>> DGP(0	1, 7
DGPMSE	DGRPC+14~, EN+5
>> DGRPCOLD	EN+7*
>> DGSC	EN+12*, 11, 12
DGSTART	START+1*, TIME+1, TIME+2, TIMEQ!
DGTIME	16, 17!, TIME+2, TIME+3, TIME+5, TIMEQ!
>> DGVT	EN+12*, 11, 12
DIC	PAT+1*!
DIC("A"	PAT+1*
DIC(0	PAT+1*
DT	17+2
>> I	EN+2, EN+7, EN+10, 1+1, 2, 7, 8+3, NEXT+1
>> I1	1+1, 1+2, 2, 2+1, 8, 8+1, 8+3, 8+4, 17+2, 17+11 , 17+13, 17+15*, 17+17
I5	DGRPC+14~
I6	DGRPC+14~
>> J	1+1*
LOC	DGRPC+14~
MSDATERR	DGRPC+15~
MSECHK	DGRPC+15~
MSERR	DGRPC+15~
MSESET	DGRPC+15~
OVER99	DGRPC+15~, EN+11*
RANGE	DGRPC+15~
RANSET	DGRPC+15~
SDARRAY	17+1~, 17+5
SDARRAY("FLDS"	17+3*
SDARRAY(4	17+4*
SDCLIEN	17+1~, 17+10, 17+11, 17+13, 17+14
SDDATE	17+1~, 17+12, 17+13, 17+14
STR8	8+2~*, 8+3
>> T	8+3*
X	1, 1+2, 2+1, 7, 8, 8+1, 8+4, 9, 10, 11 , 12, 13, 14, 15, 16, 17+14, 17+15, 17+17, COMB+1, TIME+1 , TIME+2, TIME+3, TIMEQ!
X1	TIME+1*, TIME+2, TIME+3, TIMEQ!
>> Y	PAT+1

Customize PDF page

Package: Registration

Routine: DGRPC

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PAT	;check inconsistencies for a selected patient
NEXT	; find the next consistency check to check (goto end if can't process further)
1
3	;
2
5	;
4	;
7
6	;
9
8
EN
END	; end of routine...find next check to execute (or goto end)
ON	;check if checker is on
TIMEQ
START	;record start time for checker
COMB	;record inconsistency
11
10
13
12
15
14
17
16
TIME	;record end time for checker