Routine: DG10

Call Graph Total: 17

Package	Total	Call Graph
Registration	12	$$ADD^DGADDUTL EN^DGMTCOR EDT^DGMTCOU THRESH^DGMTCOU1 EN^DGMTR EN^DGMTSC ($$LST,$$MTS,EDT)^DGMTU ($$PRFQRY,DISPPRF)^DGPFAPI (EN1,NEW)^DGRP ^DGRPC EN^DGRPD LO^DGUTL
VA Fileman	3	^DIC YN^DICN ^DIR
Income Verification Match	1	REG^IVMCQ
Uncategorized	1	MPIQ^MPIFAPI

Package

Total

Call Graph

$$ADD^DGADDUTL EN^DGMTCOR EDT^DGMTCOU THRESH^DGMTCOU1 EN^DGMTR EN^DGMTSC ($$LST,$$MTS,EDT)^DGMTU ($$PRFQRY,DISPPRF)^DGPFAPI
(EN1,NEW)^DGRP ^DGRPC EN^DGRPD LO^DGUTL

VA Fileman

^DIC YN^DICN ^DIR

Income Verification Match

REG^IVMCQ

Uncategorized

MPIQ^MPIFAPI

Package	Total	Caller Graph
Registration	6	DG LOAD PATIENT DATA DGPREP1 DGREG DGRPTI DGRPTU VAFCMGA
Scheduling	1	SCENIA1

Package

Total

Caller Graph

Registration

DG LOAD PATIENT DATA DGPREP1 DGREG DGRPTI DGRPTU VAFCMGA

Scheduling

SCENIA1

Entry Points

Name	Comments	DBIA/ICR reference
A
CK
HINQ	;	ICR #2076 Status: Active Usage: Private
PAUSE	;
H
OKQ
A1		ICR #2943 Status: Withdrawn Usage: Private
START	;
WARNING	;
Q
QTCP
SKIP	;
OKTOCONT(Y)	;
MT(DFN)	; Check if user requires a means test. Ask user if they want to proceedif ; one is required
CP	;If not (autoexempt or MTested) & no CP test this year then
EMBOS	;W ! D EMBOS^DGQEMA G A

External References

Name	Field # of Occurrence
$$ADD^DGADDUTL	A1+4
EN^DGMTCOR	CP+5
EDT^DGMTCOU	CP+7
THRESH^DGMTCOU1	CP+7
EN^DGMTR	MT+4
EN^DGMTSC	MT+13
$$LST^DGMTU	MT+9
$$MTS^DGMTU	MT+5
EDT^DGMTU	MT+5
$$PRFQRY^DGPFAPI	A+15
DISPPRF^DGPFAPI	A+15
EN1^DGRP	A1
NEW^DGRP	A+1
^DGRPC	CK
EN^DGRPD	START+4, SKIP+1
LO^DGUTL	START+1
^DIC	A
YN^DICN	A1+2
^DIR	CK+2, PAUSE+2, OKTOCONT+15
REG^IVMCQ	START+6, SKIP+2
MPIQ^MPIFAPI	A+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+0
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NOT VERIFIED") Line Location: HINQ+7
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NOT VERIFIED") Line Location: HINQ+8
Function Call: WRITE	Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue without",!?5,"editing." Line Location: H+0
Function Call: WRITE	Prompt: !!,"A means test for this encounter date was not found and may be required!" Line Location: WARNING+3
Function Call: WRITE	Prompt: !,"Further investigation will be needed." Line Location: WARNING+4
Function Call: WRITE	Prompt: ! Line Location: WARNING+5
Function Call: WRITE	Prompt: !!,"Patient Requires a means Test" Line Location: OKTOCONT+3
Function Call: WRITE	Prompt: !,"Primary Means Test Required from '",Y,"'",! Line Location: OKTOCONT+5
Routine Call	DIC Line Location: A
Routine Call	DIR Line Location: CK+2 PAUSE+2 OKTOCONT+15

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	A+5, HINQ+1
^DD("DD"	HINQ+7, HINQ+8, OKTOCONT+4
^DG(43 - [#43]	HINQ+1, CP+3
^DGMT(408.31 - [#408.31]	MT+11
^DPT - [#2]	A+1, HINQ+6
^XUSEC("SCENI MEANS TEST EDIT"	OKTOCONT+7

Label References

Name	Line Occurrences
$$OKTOCONT	MT+12
@(	HINQ+9
A	SKIP+1, EMBOS+1
A1	START+2, SKIP+2, H+1
CK	A1
CP	A1, CK
EMBOS	A1
H	A1
HINQ	START+7, SKIP+2
MT	A1, CK
OKQ	OKTOCONT+7
PAUSE	A+1, WARNING+6, OKTOCONT+9
Q	START+2, A, A1, CK+1
QTCP	CP+3
SKIP	A+5
WARNING	MT+14

Name	Field # of Occurrence
^("VET"	A+1
^(0	HINQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A1, A1+2*
CARD	A!
>> DA	A, A+1, A1
DFN	START+6, A*, A+1, A+7, A+15, SKIP+2, HINQ+4, HINQ+6, A1, A1+4 , CK, MT~, MT+5, MT+9, CP+7
>> DFN1	CP+4
>> DGEDCN	CK*
DGELVER	SKIP+1*, Q!
>> DGER	CK+2
DGIB	CP+2~
DGIBDT	CP+2~, CP+4*, CP+7
>> DGMT0	MT+11*
>> DGMTACT	MT+13*
>> DGMTCOR	CP+6*, CP+7
>> DGMTDT	MT+11*, MT+12
DGMTI	MT+8~, MT+9, MT+10, MT+11, MT+13
>> DGMTROU	MT+13*
>> DGMTYPT	MT+13*
DGNEW	A*, A+1, A+12, A1+1, A1+3, Q!
DGNOCOPF	CP+6, CP+8!
DGNOIVMUPD	A+10~, A+11*
>> DGPLOC	START+2
>> DGPRFLG	START+2, A1, CK+1
DGREQF	MT+3~, MT+5
DGROUT	HINQ+2~, HINQ+3*, HINQ+9
DGRP	HINQ+5~
DGRP(	HINQ+6*, HINQ+7, HINQ+8
DGRPOUT	START+2, START+5, SKIP+1!
DGRPV	A1*, Q!
DGX	CP+2~
DIC	A!*, Q!
DIC("S"	A!
DIC(0	A*
DIE	A!
DIR	CK+2!, PAUSE+1~, OKTOCONT+2~
DIR("A"	CK+2, PAUSE+2, OKTOCONT+12*
DIR("B"	OKTOCONT+13*
DIR(0	CK+2, PAUSE+2, OKTOCONT+14*
DIRUT	CP+2~
DIV	MT+3~, CP+2~
DLAYGO	A*!
DT	MT+5, CP+4, CP+7
DTOUT	CP+2~
DUZ	OKTOCONT+7
MPIFRTN	A+6!, A+8!
>> SCINF("ENCOUNTER"	MT+9
>> SDIEMM	A1, CK+1, MT+2, MT+7, OKTOCONT+7
U	HINQ+1, MT+5, MT+10, CP+3
VET	A!, A+1*, Q!
X	A+5~, HINQ+1, HINQ+3, HINQ+5~, HINQ+6*, Q!, CP+2~
Y	A, A+1~, HINQ+1, HINQ+5~, HINQ+7, HINQ+8, HINQ+9!, Q!, OKTOCONT~, OKTOCONT+5 , OKTOCONT+10, OKQ
Z	Q!

Customize PDF page

Package: Registration

Routine: DG10

Information

Source Information