Routine: DGRPTI

Package	Total	Call Graph
Registration	15	HINQ^DG10 CKUPLOAD^DGENUPL3 $$LYR^DGMTSCU1 GETREL^DGMTU11 ALL^DGMTU21 (BEGINREG,EN1010T,ENDREG)^DGREG ^DGRPC (ADD,EDIT)^DGRPEIS NEW^DGRPEIS1 SPOUSE^DGRPEIS2 EDITPH1^DGRPLE BLD^DGRPTL (ENDEV,QUE)^DGRPTP ($$ELGCHK,SETPAR)^DGRPTU (FULL,PAUSE)^VALM1
VA Fileman	2	^DIE ^DIR
Integrated Billing	1	(PREG,REG)^IBCNBME
Kernel	1	ENDR^%ZISS

Package	Total	Caller Graph
Registration	1	DGRPT

Entry Points

Name	Comments	DBIA/ICR reference
PATQ
PAT(DFN,DGNEWPF,DGRPTOUT)	;Edit patient data for 10-10T ; Input -- DFN Patient IEN ; DGNEWPF New patient added flag ; Output -- DGRPTOUT Quit flag
ASKREG()	;Ask if user would like to register patient ; Input -- None ; Output -- 1=Yes and 0=No
EN	;Entry point for DGRPT INTERVIEW protocol ; Input -- DFN Patient IEN ; Output -- VALMBCK R =Refresh screen
ASKPRT()	;Ask if user would like to print the 10-10T ; Input -- None ; Output -- 1=Yes and 0=No
INCQ
SPOUSE(DFN,DGREL,DGRPTOUT)	;Edit spouse data for 10-10T ; Input -- DFN Patient IEN ; DGREL Active dependent array ; Output -- DGRPTOUT Quit flag
INS(DFN,DGRPTOUT)	;Edit insurance data for 10-10T ; Input -- DFN Patient IEN ; Output -- DGRPTOUT Quit flag
INT(DFN,DGNEWPF,DGRPTOUT)	;Interview for 10-10T registration ; Input -- DFN Patient IEN ; DGNEWPF New patient added flag ; 1 =New patient added ; Null=Existing patient ; Output -- DGRPTOUT Quit flag ; 0 =No ; -1 =User entered up-arrow ; -2 =Timeout ; -3 =Unable to lock record
CONCK(DFN,DGRPTOUT)	;Consistency check ; Input -- DFN Patient IEN ; Output -- DGRPTOUT Quit flag
ID(DFN,DGRPTOUT)	;Edit patient name, dob and ssn ; Input -- DFN Patient IEN ; Output -- DGRPTOUT Quit flag
INTQ
MARQ
HINQ(DFN,DGRPTOUT)	;HINQ inquiry ; Input -- DFN Patient IEN ; Output -- DGRPTOUT Quit flag
INC(DFN,DGRPTOUT)	;Edit income data for 10-10T ; Input -- DFN Patient IEN ; Output -- DGRPTOUT Quit flag
MAR(DFN,DGRPTOUT)	;Edit marital information for 10-10T ; Input -- DFN Patient IEN ; Output -- DGRPTOUT Quit flag
ASKEXT(DGRPTOUT)	;Ask if user would like to exit interview ; Input -- DGRPTOUT Quit flag ; Output -- 1=Yes and 0=No ; DGRPTOUT Quit flag re-set

External References

Name	Field # of Occurrence
ENDR^%ZISS	PAT+5, MAR+14, SPOUSE+5, INC+7, INS+4, HINQ+4, CONCK+4
HINQ^DG10	HINQ+8
CKUPLOAD^DGENUPL3	INT+21, INT+28, INT+35, INT+42
$$LYR^DGMTSCU1	MAR+5
GETREL^DGMTU11	MAR+12
ALL^DGMTU21	INC+5
BEGINREG^DGREG	INT+12
EN1010T^DGREG	INT+62
ENDREG^DGREG	INTQ
^DGRPC	CONCK+8
ADD^DGRPEIS	SPOUSE+9
EDIT^DGRPEIS	SPOUSE+12
NEW^DGRPEIS1	MAR+8
SPOUSE^DGRPEIS2	MAR+18
EDITPH1^DGRPLE	PAT+20
BLD^DGRPTL	EN+7
ENDEV^DGRPTP	INT+69
QUE^DGRPTP	INT+67
$$ELGCHK^DGRPTU	PAT+9
SETPAR^DGRPTU	INT+18
^DIE	PAT+12, ID+6, INC+13
^DIR	ASKREG+9, ASKEXT+11, ASKPRT+6
PREG^IBCNBME	INS+9
REG^IBCNBME	INS+10
FULL^VALM1	EN+5
PAUSE^VALM1	EN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,">>> Patient cannot be registered while there is still an open disposition." Line Location: INT+58
Function Call: WRITE	Prompt: !,"---",IOINHI,"Patient: Eligibility, Demographic",IOINORM,"---" Line Location: PAT+6
Function Call: WRITE	Prompt: !,IOINHI," Emergency Contact and Military Service",IOINORM Line Location: PAT+7
Function Call: WRITE	Prompt: !,"Another user is editing, try later ..." Line Location: PAT+17
Function Call: WRITE	Prompt: !,"Another user is editing, try later ..." Line Location: ID+9
Function Call: WRITE	Prompt: !!,"---",IOINHI,"Marital",IOINORM,"---" Line Location: MAR+15
Function Call: WRITE	Prompt: !!,"---",IOINHI,"Spouse",IOINORM,"---" Line Location: SPOUSE+6
Function Call: WRITE	Prompt: !!,"---",IOINHI,"Income",IOINORM,"---" Line Location: INC+8
Function Call: WRITE	Prompt: !,"Another user is editing, try later..." Line Location: INC+16
Function Call: WRITE	Prompt: !!,"---",IOINHI,"Insurance",IOINORM,"---" Line Location: INS+5
Function Call: WRITE	Prompt: !!,"---",IOINHI,"HINQ Inquiry",IOINORM,"---" Line Location: HINQ+5
Function Call: WRITE	Prompt: !!,"---",IOINHI,"Consistency Checker",IOINORM,"---" Line Location: CONCK+5
Function Call: WRITE	Prompt: ! Line Location: ASKREG+9
Function Call: WRITE	Prompt: ! Line Location: ASKEXT+11
Function Call: WRITE	Prompt: ! Line Location: ASKPRT+6
Routine Call	DIE Line Location: PAT+12 ID+6 INC+13
Routine Call	DIR Line Location: ASKREG+9 ASKEXT+11 ASKPRT+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.21 - [#408.21]	INC+12, INC+13
^DPT - [#2]	PAT+11, PAT+12, ID+5, ID+6
^DPT("ADA"	INT+57

Label References

Name	Line Occurrences
$$ASKEXT	INT+19, INT+25, INT+32, INT+39, INT+46, INT+50, INT+54, MAR+20
$$ASKPRT	INT+65
$$ASKREG	INT+61
CONCK	INT+53
HINQ	INT+49
ID	PAT+9
INC	INT+38
INCQ	INC+5
INS	INT+45
INT	EN+6
INTQ	INT+19, INT+25, INT+32, INT+39, INT+46, INT+50, INT+54, INT+57
MAR	INT+31
MARQ	MAR+12, MAR+20
PAT	INT+24
PATQ	PAT+9
SPOUSE	MAR+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PAT+4~, PAT+10, PAT+11, PAT+12, ID+3~, ID+4, ID+5, ID+6, INC+3~, INC+11* , INC+12, INC+13
DFN	EN+6, INT~, INT+12, INT+21, INT+24, INT+28, INT+31, INT+35, INT+38, INT+42 , INT+45, INT+49, INT+53, INT+57, INT+62, INT+67, INT+69, INTQ, PAT~, PAT+9 , PAT+10, ID~, ID+4, MAR~, MAR+12, MAR+23, SPOUSE~, SPOUSE+9, INC~, INC+5 , INS~, INS+9, INS+10, HINQ~, CONCK~
DG1010TF	INT+10~, INT+15*, INT+62
DGASKDEV	INT+10~, INT+18, INT+62
DGCD	CONCK+3~
DGCHK	CONCK+3~
DGDAY	CONCK+3~
DGDEP	MAR+3~, INC+3~
DGDIV	INT+10~, INT+18, INT+62
DGEDCN	CONCK+3~, CONCK+8*
DGER	CONCK+3~
DGERR	MAR+3~
DGFIN	PAT+15, PAT+19!, ID+7, ID+11!, INC+14, INC+18!
DGFL	MAR+3~, MAR+9, SPOUSE+4~, SPOUSE+13, INC+3~
DGINC	INC+3~
DGINC("V"	INC+5, INC+11
DGINI	MAR+3~
DGIO	INT+10~, INT+18, INT+62, INT+67
DGIO(10	INT+66
DGIPI	SPOUSE+4~
DGIRI	MAR+3~
DGISDT	MAR+3~, MAR+5*, MAR+12
DGLST	CONCK+3~
DGNCK	CONCK+3~
DGNEWPF	INT~, INT+24, INT+62, PAT~, PAT+9
DGPHMULT	PAT+20, PAT+21!
>> DGPRFLG	INS+9
DGPRI	MAR+3~, SPOUSE+4~
DGREL	MAR+3~, MAR+23, SPOUSE~
DGREL("S"	SPOUSE+7, SPOUSE+12
DGREL("V"	MAR+12
DGRPCOLD	CONCK+3~
DGRPTOUT	EN+3~, EN+6, INT~, INT+15, INT+18, INT+19, INT+24, INT+25, INT+31, INT+32 , INT+38, INT+39, INT+45, INT+46, INT+49, INT+50, INT+53, INT+54, PAT~, PAT+9 , PAT+15, PAT+18, ID~, ID+7, ID+10, MAR~, MAR+9, MAR+19, MAR+20, MAR+23 , SPOUSE~, SPOUSE+13, INC~, INC+14, INC+17, INS~, INS+12, HINQ~, HINQ+9, CONCK~ , CONCK+9, ASKEXT~, ASKEXT+6, ASKEXT+13
DGSC	CONCK+3~
DGSPFL	MAR+3~, MAR+23
DGTYPE	CONCK+3~
DGVT	CONCK+3~
DIE	PAT+4~, PAT+10, ID+3~, ID+4, INC+3~, INC+11*
DIR	ASKREG+3~, ASKEXT+4~, ASKPRT+3~
DIR("A"	ASKREG+4, ASKREG+5, ASKREG+6, ASKREG+7, ASKEXT+9, ASKPRT+4
DIR("B"	ASKREG+8, ASKEXT+10, ASKPRT+5*
DIR(0	ASKREG+8, ASKEXT+10, ASKPRT+5*
DR	PAT+4~, PAT+10, ID+3~, ID+4, INC+3~, INC+11*
DT	MAR+5, INC+5
DTOUT	PAT+4~, PAT+15, ID+3~, ID+7, MAR+3~, MAR+19, INC+3~, INC+14, INS+3~, INS+12 , HINQ+3~, HINQ+9, CONCK+9, ASKREG+3~, ASKEXT+4~, ASKEXT+12, ASKPRT+3~
DUOUT	INS+3~, INS+12, ASKREG+3~, ASKEXT+4~, ASKEXT+12, ASKPRT+3~
IBCOV	INS+3~
IOINHI	PAT+4~, PAT+6, PAT+7, MAR+3~, MAR+15, SPOUSE+4~, SPOUSE+6, INC+3~, INC+8, INS+3~ , INS+5, HINQ+3~, HINQ+5, CONCK+3~, CONCK+5
IOINORM	PAT+4~, PAT+6, PAT+7, MAR+3~, MAR+15, SPOUSE+4~, SPOUSE+6, INC+3~, INC+8, INS+3~ , INS+5, HINQ+3~, HINQ+5, CONCK+3~, CONCK+5
VA	CONCK+3~
>> VALMBCK	EN+4, EN+7
X	PAT+4~, PAT+5, MAR+3~, MAR+14, SPOUSE+4~, SPOUSE+5, INC+3~, INC+7, INS+3~, INS+4* , HINQ+3~, HINQ+4, CONCK+3~, CONCK+4
Y	ASKREG+3~, ASKREG+10, ASKEXT+4~, ASKEXT+7, ASKEXT+12, ASKEXT+13, ASKEXT+14, ASKPRT+3~, ASKPRT+7

Customize PDF page

Package: Registration

Routine: DGRPTI

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: