Routine: DGRP1

Information

DGRP1 ;ALB/MRL,ERC,BAJ,PWC,JAM,JAM,ARF - DEMOGRAPHIC DATA ;19 Jul 2017 3:02 PM

Call Graph

Call Graph Total: 7

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DGDEP DGRP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ; JAM - Patch DG5.3941, Reformatting Registration screen 1. New field layout.
LANGUAGE	;Get language data ///
L1
GETNCAL	;Get name component values
A2
GETSTAT(SSNV)	;get SSN VERIFIED STATUS DG5.3688 BAJ 11/22/2005
SSNREAS(DGREAS)	;get Pseudo SSN Reason - DG5.3653, ERC

External References

Name	Field # of Occurrence
^DGRPP	L1+26
H^DGRPU	EN+4
WW^DGRPV	EN+5, EN+9, EN+11, EN+27, EN+29, L1, A2+21
WW1^DGRPV	EN+9, EN+11, EN+13, EN+14, EN+16, EN+22, A2+19, A2+20
$$EXTERNAL^DILFD	A2+27
GETS^DIQ	GETNCAL+4
$$INSUR^IBBAPI	L1+21
$$FMTE^XLFDT	L1+10, L1+12, L1+16, L1+17, L1+19, L1+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Name: " Line Location: EN+9
Function Call: WRITE	Prompt: ! Line Location: EN+13
Function Call: WRITE	Prompt: "DOB: ",Y Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: "SS: " Line Location: EN+16
Function Call: WRITE	Prompt: SSNV Line Location: EN+16
Function Call: WRITE	Prompt: "PSSN Reason: " Line Location: EN+22
Function Call: WRITE	Prompt: DGREAS Line Location: EN+25
Function Call: WRITE	Prompt: ! Line Location: EN+27
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+27
Function Call: WRITE	Prompt: ! Line Location: EN+29
Function Call: WRITE	Prompt: " Cell Phone: " Line Location: EN+29
Function Call: WRITE	Prompt: ?19,$P(DGRP(.13),U,4) Line Location: EN+32
Function Call: WRITE	Prompt: ?19,"UNANSWERED" Line Location: EN+33
Function Call: WRITE	Prompt: ?47,"Pager #: ",?56,$P(DGRP(.13),U,5) Line Location: EN+40
Function Call: WRITE	Prompt: ?56,$P(DGRP(.13),U,5) Line Location: EN+41
Function Call: WRITE	Prompt: ?56,"UNANSWERED" Line Location: EN+42
Function Call: WRITE	Prompt: !," Email Address: " Line Location: EN+45
Function Call: WRITE	Prompt: ?19,$P(DGRP(.13),U,3) Line Location: EN+46
Function Call: WRITE	Prompt: ?19,"UNANSWERED" Line Location: EN+47
Function Call: WRITE	Prompt: ! Line Location: L1+0
Function Call: WRITE	Prompt: " Pref Lang: ",$E($S(DGRP(2)="":"UNANSWERED",1:DGRP(2)),1,34)," Date/Time: ",$S(DGRP(1)="":"UNANSWERED",1:DGRP(1)) Line Location: L1+3
Function Call: WRITE	Prompt: ! Line Location: L1+7
Function Call: WRITE	Prompt: !," [MAILING ADDRESS LAST CHANGED:] "_$$FMTE^XLFDT(ADDRDTTM,"5D") Line Location: L1+16
Function Call: WRITE	Prompt: !," [INSURANCE:] ",$P(DGDATA("IBBAPI","INSUR",DGI,1),U,2) Line Location: L1+22
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: L1+23
Function Call: WRITE	Prompt: ! Line Location: L1+25
Function Call: WRITE	Prompt: ?37,"Birth Sex: " Line Location: A2+19
Function Call: WRITE	Prompt: ?56,"MBI: " Line Location: A2+20
Function Call: WRITE	Prompt: ?37 Line Location: A2+21
Function Call: WRITE	Prompt: " Alias: " Line Location: A2+21
Function Call: WRITE	Prompt: ?47,$G(DGALIAS(DGI-1)) Line Location: A2+22
Function Call: WRITE	Prompt: !?3,"Self-Identified Gender Identity: " Line Location: A2+25
Function Call: WRITE	Prompt: Z Line Location: A2+28

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+13, LANGUAGE+6
^DIA(2	L1+9, L1+11, L1+13, L1+18
^DPT - [#2]	EN+4, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5, L1+14, GETNCAL+3, A2, A2+4, A2+20, GETSTAT+2

Label References

Name	Line Occurrences
A2	A2+4
GETNCAL	EN+26
GETSTAT	EN+8
L1	LANGUAGE+3, LANGUAGE+4
SSNREAS	EN+23

Naked Globals

Name	Field # of Occurrence
^(	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDRDTTM	L1+8~, L1+14*, L1+16
>> DFN	EN+4, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5, L1+9, L1+11, L1+13, L1+14, L1+18, L1+21 , GETNCAL+3, A2, A2+4, A2+20, GETSTAT+2
DGA	GETNCAL+1~, GETNCAL+6, A2, A2+1, A2+4
DGALIAS	GETNCAL+1~
DGALIAS(	GETNCAL+6, A2+2, A2+3, A2+5, A2+9, A2+10, A2+11, A2+22
DGCOMP	GETNCAL+1~, GETNCAL+3*, GETNCAL+4, A2+16
DGCOMP(20	A2+16
>> DGDATA	L1+21
>> DGDATA("IBBAPI"	L1+21, L1+22, L1+23
DGI	L1+21, L1+22, L1+23, GETNCAL+1~, GETNCAL+6, A2+1, A2+2, A2+3, A2+5, A2+9 , A2+10, A2+11, A2+14*, A2+16, A2+19, A2+20, A2+21, A2+22
DGLANG0	LANGUAGE+1, LANGUAGE+5, LANGUAGE+8!
DGLANGDA	LANGUAGE+4*, LANGUAGE+5, LANGUAGE+8!
DGLANGDT	LANGUAGE+1, LANGUAGE+2, LANGUAGE+3, LANGUAGE+4, LANGUAGE+6*, LANGUAGE+7, LANGUAGE+8!
DGNC	GETNCAL+1~, GETNCAL+2*, A2+16
DGPRFLAN	LANGUAGE+1, LANGUAGE+5, LANGUAGE+7, LANGUAGE+8!
>> DGPRFLG	L1+6
DGREAS	EN+23~, EN+24, EN+25, SSNREAS~, SSNREAS+1, SSNREAS+2, SSNREAS+3
DGRP	EN+3~
DGRP(	EN+4*, EN+5, EN+11, EN+32, EN+33, EN+46, EN+47, A2+27
DGRP("SSN"	SSNREAS+1
DGRP(0	EN+9, EN+13, EN+16, EN+18, EN+27, A2+19
DGRP(1	LANGUAGE+1, LANGUAGE+7, L1+3
DGRP(2	LANGUAGE+1, LANGUAGE+4, LANGUAGE+7*, L1+3
>> DGRPCM	EN+5*
>> DGRPS	EN+4*
>> DGRPU	A2+19, A2+20, A2+27
DGRPW	EN+4, EN+11, EN+12, EN+29, L1, GETNCAL+1~, A2+19, A2+20, A2+21
>> DGRPX	EN+27*
DGSPACE	EN+19~, EN+20*, EN+22
DGX	GETNCAL+1~, A2+4, A2+5, A2+6, A2+7*, A2+10
ES1	L1+8~, L1+18*, L1+19
I	EN+4, L1+8~, L1+9, L1+11, L1+13, L1+18*
MIS1	L1+8~, L1+9*, L1+10
SA1	L1+8~, L1+11*, L1+12
SSNV	EN+8~, EN+16, GETSTAT~, GETSTAT+3*
T	GETSTAT+1~, GETSTAT+2*, GETSTAT+3
TP1	L1+8~, L1+13*, L1+17
U	EN+18, EN+32, EN+33, EN+46, EN+47, LANGUAGE+5, L1+9, L1+11, L1+13, L1+18 , L1+22, A2+5, A2+16, A2+20, SSNREAS+1
X	EN+16, L1+8~, L1+9, A2+19, A2+20, A2+27*
X1	L1+8~, L1+11*
X2	L1+8~, L1+13*
X3	L1+8~, L1+18*
>> Y	EN+13, LANGUAGE+5, LANGUAGE+6*
>> Z	EN+5, EN+9, EN+11, EN+13, EN+14, EN+16, EN+20, EN+21, EN+27, EN+29* , L1, A2+19, A2+20, A2+21, A2+27*
>> Z1	EN+9, EN+11, EN+13, EN+14, EN+16, EN+22, A2+19, A2+20

Customize PDF page

Package: Registration