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	Caller Graph
Registration	15	DG CONSISTENCY PATIENT DG10 DG53205P DGENUPL2 DGPZ07C DGREG DGRPC3 DGRPCF DGRPCF1 DGRPCP DGRPCR DGRPCS DGRPCU DGRPP DGRPTI

Entry Points

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

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Naked Globals

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: