Routine: DGRP1

Package	Total	Call Graph
Registration	4	$$FORIEN^DGADDUTL ^DGRPP (A,H)^DGRPU (WW,WW1)^DGRPV
VA Fileman	2	$$EXTERNAL^DILFD GETS^DIQ
Integrated Billing	1	$$INSUR^IBBAPI
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	2	DGDEP DGRP

Entry Points

Name	Comments	DBIA/ICR reference
GETSTAT(SSNV)	;get SSN VERIFIED STATUS DG5.3688 BAJ 11/22/2005
GETNCAL	;Get name component values
EN	;
COUNTY(DGRP)	;retrieve and print County info if a US address
SSNREAS(DGREAS)	;get Pseuso SSN Reason - DG5.3653, ERC
A2

External References

Name	Field # of Occurrence
$$FORIEN^DGADDUTL	COUNTY+5, COUNTY+13
^DGRPP	EN+50
A^DGRPU	EN+20
H^DGRPU	EN+1
WW^DGRPV	EN+2, EN+6, EN+20, EN+21, EN+22, A2+19
WW1^DGRPV	EN+6, EN+8, EN+9, EN+14, EN+22, EN+24, A2+17, A2+18
$$EXTERNAL^DILFD	EN+31
GETS^DIQ	GETNCAL+4
$$INSUR^IBBAPI	EN+46
$$FMTE^XLFDT	EN+38, EN+40, EN+42, EN+44, EN+48

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: " Name: " Line Location: EN+6
Function Call: WRITE	Prompt: "SS: " Line Location: EN+8
Function Call: WRITE	Prompt: SSNV Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: EN+9
Function Call: WRITE	Prompt: "DOB: ",Y Line Location: EN+9
Function Call: WRITE	Prompt: "PSSN Reason: " Line Location: EN+14
Function Call: WRITE	Prompt: DGREAS Line Location: EN+18
Function Call: WRITE	Prompt: " Remarks: ",$S($P(DGRPX,"^",10)]"":$E($P(DGRPX,"^",10),1,65),1:"NO REMARKS ENTERED FOR THIS PATIENT") Line Location: EN+20
Function Call: WRITE	Prompt: " Permanent Address: " Line Location: EN+21
Function Call: WRITE	Prompt: " Temporary Address: " Line Location: EN+22
Function Call: WRITE	Prompt: !?9 Line Location: EN+23
Function Call: WRITE	Prompt: $S($D(DGA(2)):DGA(2),1:"NO TEMPORARY ADDRESS") Line Location: EN+24
Function Call: WRITE	Prompt: DGA(I) Line Location: EN+26
Function Call: WRITE	Prompt: !?3,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU),?42,"From/To: ",X Line Location: EN+30
Function Call: WRITE	Prompt: !?1,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16)) Line Location: EN+31
Function Call: WRITE	Prompt: ! Line Location: EN+35
Function Call: WRITE	Prompt: !," [INSURANCE:] ",$P(DGDATA("IBBAPI","INSUR",DGI,1),U,2) Line Location: EN+47
Function Call: WRITE	Prompt: " EFFECTIVE DATE: ",$$FMTE^XLFDT(DGDATA("IBBAPI","INSUR",DGI,10),"5D")," EXPIRATION DATE: ",$$FMTE^XLFDT(DGDATA("IBBAPI","INSUR",DGI,11),"5D") Line Location: EN+48
Function Call: WRITE	Prompt: ?43,"Sex: " Line Location: A2+17
Function Call: WRITE	Prompt: ?56,"MBI: " Line Location: A2+18
Function Call: WRITE	Prompt: ?37 Line Location: A2+19
Function Call: WRITE	Prompt: " Alias: " Line Location: A2+19
Function Call: WRITE	Prompt: ?47,$G(DGALIAS(DGI-1)) Line Location: A2+20
Function Call: WRITE	Prompt: !?3,PLINE Line Location: COUNTY+8
Function Call: WRITE	Prompt: ?43,PLINE Line Location: COUNTY+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	EXTERNAL^DILFD
^VA(20 - [#20]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+9, EN+29
^DIA(2	EN+37, EN+39, EN+41, EN+43
^DIC(5 - [#5]	COUNTY+6, COUNTY+14
^DPT - [#2]	EN+1, GETNCAL+3, A2, A2+4, A2+18, GETSTAT+2

Label References

Name	Line Occurrences
A2	A2+4
COUNTY	EN+27
GETNCAL	EN+19
GETSTAT	EN+5
SSNREAS	EN+16

Naked Globals

Name	Field # of Occurrence
^(	EN+1
^(0	COUNTY+6, COUNTY+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNODE	COUNTY+1~, COUNTY+11*, COUNTY+14
CNTRY	COUNTY+1~
>> DFN	EN+1, EN+37, EN+39, EN+41, EN+43, EN+46, GETNCAL+3, A2, A2+4, A2+18 , GETSTAT+2
DGA	GETNCAL+1~, GETNCAL+6, A2, A2+1, A2+4
DGA(	EN+26
DGA(1	EN+24
DGA(2	EN+24
>> DGA1	EN+20*
>> DGA2	EN+20*
>> DGAD	EN+20*
DGALIAS	GETNCAL+1~
DGALIAS(	GETNCAL+6, A2+2, A2+3, A2+5, A2+9, A2+10, A2+11, A2+20
DGCC	COUNTY+1~, COUNTY+3, COUNTY+6, COUNTY+7, COUNTY+9, COUNTY+14, COUNTY+15
DGCOMP	GETNCAL+1~, GETNCAL+3*, GETNCAL+4, A2+15
DGCOMP(20	A2+15
>> DGDATA	EN+46
>> DGDATA("IBBAPI"	EN+46, EN+47, EN+48
DGI	EN+46, EN+47, EN+48, GETNCAL+1~, GETNCAL+6, A2+1, A2+2, A2+3, A2+5, A2+9 , A2+10, A2+11, A2+14*, A2+15, A2+17, A2+18, A2+19, A2+20
DGNC	GETNCAL+1~, GETNCAL+2*, A2+15
>> DGPRFLG	EN+34
DGREAS	EN+16~, EN+17, EN+18, SSNREAS~, SSNREAS+1, SSNREAS+2, SSNREAS+3
DGRP	EN+27, COUNTY~
DGRP(	EN+1*, EN+2, EN+20, EN+28, EN+29, EN+30, EN+31, COUNTY+5, COUNTY+6, COUNTY+13 , COUNTY+14
DGRP("SSN"	SSNREAS+1
DGRP(0	EN+6, EN+8, EN+9, EN+11, EN+15, EN+20, A2+17
>> DGRPCM	EN+2*
>> DGRPS	EN+1*
>> DGRPU	EN+28, EN+29, EN+30, A2+17, A2+18, COUNTY+6, COUNTY+14
DGRPW	EN+1, EN+22, GETNCAL+1~, A2+17, A2+18, A2+19*
>> DGRPX	EN+20*
DGSPACE	EN+12~, EN+13*, EN+14
DGX	GETNCAL+1~, A2+4, A2+5, A2+6, A2+7*, A2+10
ES1	EN+36~, EN+43*, EN+44
FILE	COUNTY+1~
FNODE	COUNTY+1~, COUNTY+3, COUNTY+5, COUNTY+6, COUNTY+11, COUNTY+13
FPCE	COUNTY+1~, COUNTY+3, COUNTY+5, COUNTY+11, COUNTY+13
I	EN+1, EN+26, EN+36~, EN+37, EN+39, EN+41, EN+43
>> I1	EN+26*
IEN	COUNTY+1~, COUNTY+5, COUNTY+13
MIS1	EN+36~, EN+37*, EN+38
PLINE	COUNTY+1~, COUNTY+7, COUNTY+8, COUNTY+15, COUNTY+16
SA1	EN+36~, EN+39*, EN+40
SSNV	EN+5~, EN+8, GETSTAT~, GETSTAT+3*
T	GETSTAT+1~, GETSTAT+2*, GETSTAT+3
TP1	EN+36~, EN+41*, EN+42
U	EN+11, EN+15, EN+28, EN+29, EN+30, EN+31, EN+37, EN+39, EN+41, EN+43 , EN+47, A2+5, A2+15, A2+18, SSNREAS+1, COUNTY+5, COUNTY+6, COUNTY+13, COUNTY+14
X	EN+8, EN+29, EN+30, EN+36~, EN+37, A2+17, A2+18*
X1	EN+36~, EN+39*
X2	EN+36~, EN+41*
X3	EN+36~, EN+43*
>> Y	EN+9, EN+13, EN+29
>> Z	EN+2, EN+6, EN+8, EN+9, EN+20, EN+21, EN+22, EN+24, A2+17, A2+18 , A2+19*
>> Z1	EN+6, EN+8, EN+9, EN+14, EN+21, EN+24, A2+17, A2+18

Customize PDF page

Package: Registration

Routine: DGRP1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: