Routine: DGRPD

Call Graph Total: 20

Package	Total	Call Graph
Registration	11	$$FORIEN^DGADDUTL $$CVEDT^DGCV DOM^DGMTR DIS^DGMTU (CS,INP)^DGPMV10 ($$OKLINE,CATDIS,EC,HDR)^DGRPD1 (A,AL)^DGRPU $$PCTEAM^DGSDUTL $$BADADR^DGUTL3 ($$INACTIVE,$$PTR2TEXT)^DGUTL4 (DEM,IN5,KVA)^VADPT
VA Fileman	5	(,$$FIND1)^DIC $$EXTERNAL^DILFD GETS^DIQ ^DIR ^DIWP
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR $$NS^XUAF4
Scheduling	1	$$SDAPI^SDAMA301

Package	Total	Caller Graph
Registration	8	DG PATIENT INQUIRY DG10 DGCOL DGOERR PATIENT INQUIRY DGPREP2 DGREG DGSWITCH VAFCEHLM
Barcode Medication Administration	1	PSBOPI
IHS Changes To ADT	1	ADGPM1
Order Entry Results Reporting	1	ORCXPND1

Package

Total

Caller Graph

Registration

DG PATIENT INQUIRY DG10 DGCOL DGOERR PATIENT INQUIRY DGPREP2 DGREG DGSWITCH VAFCEHLM

Barcode Medication Administration

PSBOPI

IHS Changes To ADT

ADGPM1

Order Entry Results Reporting

ORCXPND1

Entry Points

External References

Name	Field # of Occurrence
$$FORIEN^DGADDUTL	EN+11
$$CVEDT^DGCV	EN+45
DOM^DGMTR	EN+68
DIS^DGMTU	EN+70
CS^DGPMV10	INP+2
INP^DGPMV10	INP
$$OKLINE^DGRPD1	EN+43, EN+50, EN+55, EN+67, EN+77, EN+78, SA, FA, RMK, RMK+8
CATDIS^DGRPD1	EN+54
EC^DGRPD1	RMK+8
HDR^DGRPD1	EN+6
A^DGRPU	EN+7
AL^DGRPU	CA+8
$$PCTEAM^DGSDUTL	EN+60
$$BADADR^DGUTL3	EN+18
$$INACTIVE^DGUTL4	EN+29, EN+36
$$PTR2TEXT^DGUTL4	EN+30, EN+37
^DIC	SEL
$$FIND1^DIC	EN+3
$$EXTERNAL^DILFD	EN+18, EN+20
GETS^DIQ	CA+9, RMK+1
^DIR	SEL
^DIWP	EN+31, EN+38
$$SDAPI^SDAMA301	FA+4
DEM^VADPT	EN+6
IN5^VADPT	EN+71
KVA^VADPT	Q
$$FMTE^XLFDT	EN+46, EN+59, CA+20, SAA+4, FA+17
$$REPEAT^XLFSTR	EN+57, EN+62
$$NS^XUAF4	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL+0
Function Call: WRITE	Prompt: ?1,"Address: ",$S($D(DGA(1)):DGA(1),1:"NONE ON FILE"),?40,"Temporary: ",$S($D(DGA(2)):DGA(2),1:"NO TEMPORARY ADDRESS") Line Location: EN+8
Function Call: WRITE	Prompt: DGA(I) Line Location: EN+9
Function Call: WRITE	Prompt: !?2,"County: ",DGCC Line Location: EN+11
Function Call: WRITE	Prompt: !?2,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU) Line Location: EN+15
Function Call: WRITE	Prompt: !?4,"Cell: ",$S($P(DGRP(.13),U,4)]"":$P(DGRP(.13),U,4),1:DGRPU) Line Location: EN+16
Function Call: WRITE	Prompt: !?2,"E-mail: ",$S($P(DGRP(.13),U,3)]"":$P(DGRP(.13),U,3),1:DGRPU) Line Location: EN+17
Function Call: WRITE	Prompt: !,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$$BADADR^DGUTL3(+DFN)) Line Location: EN+18
Function Call: WRITE	Prompt: !!?4,"POS: ",$S($D(^DIC(21,+$P(DGRP(.32),"^",3),0)):$P(^(0),"^",1),1:DGRPU),?42,"Claim #: ",$S($P(DGRP(.31),"^",3)]"":$P(DGRP(.31),"^",3),1:"UNSPECIFIED") Line Location: EN+22
Function Call: WRITE	Prompt: !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46,"Sex: ",$S($P(VADM(5),"^",2)]"":$P(VADM(5),"^",2),1:"UNSPECIFIED") Line Location: EN+23
Function Call: WRITE	Prompt: ! Line Location: EN+24
Function Call: WRITE	Prompt: !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0)) Line Location: EN+42
Function Call: WRITE	Prompt: !!,?2,"Combat Vet Status: "_$S($P(DGCV,U,3)=1:"ELIGIBLE",$P(DGCV,U,3)="":"NOT ELIGIBLE",1:"EXPIRED") Line Location: EN+46
Function Call: WRITE	Prompt: ?45,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ") Line Location: EN+46
Function Call: WRITE	Prompt: !,"Primary Eligibility: ",$S($D(^DIC(8,+X1,0)):$P(^(0),"^",1)_" ("_$S(X="V":"VERIFIED",X="P":"PENDING VERIFICATION",X="R":"PENDING REVERIFICATION",1:"NOT VERIFIED")_")",1:DGRPU) Line Location: EN+48
Function Call: WRITE	Prompt: !,"Other Eligibilities: " Line Location: EN+49
Function Call: WRITE	Prompt: !?21 Condition for execution: $X+$L(X)>79 Line Location: EN+49
Function Call: WRITE	Prompt: X Line Location: EN+49
Function Call: WRITE	Prompt: !?6,"Unemployable: ",$S($P(DGRP(.3),U,5)="Y":"YES",1:"NO") Line Location: EN+52
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: EN+57
Function Call: WRITE	Prompt: !,"[PRE-REGISTER DATE:] "_$S(DGPDT]"":$$FMTE^XLFDT(DGPDT,"1D"),1:"NONE ON FILE") Line Location: EN+59
Function Call: WRITE	Prompt: !,"[PRIMARY CARE TEAM:] "_$P(DGPTM,U,2) Line Location: EN+61
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: EN+62
Function Call: WRITE	Prompt: ! Line Location: EN+74
Function Call: WRITE	Prompt: !!?1,"Confidential Address: ",?44,"Confidential Address Categories:" Line Location: CA+1
Function Call: WRITE	Prompt: DGA(I) Line Location: CA+19
Function Call: WRITE	Prompt: !!?14,"Scheduled Admit" Line Location: SAA+1
Function Call: WRITE	Prompt: " on "_$$FMTE^XLFDT(L,"5DZ") Line Location: SAA+4
Function Call: WRITE	Prompt: !!,"Currently enrolled in " Condition for execution: SDCT=1 Line Location: CL+0
Function Call: WRITE	Prompt: !?22 Condition for execution: $X>50 Line Location: CL+0
Function Call: WRITE	Prompt: $S($D(^SC(+^(0),0)):$P(^(0),"^",1)_", ",1:"") Line Location: CL+0
Function Call: WRITE	Prompt: !!,"Future Appointments: " Line Location: FA+4
Function Call: WRITE	Prompt: "Appointment Database is Unavailable" Line Location: FA+8
Function Call: WRITE	Prompt: "NONE" Line Location: FA+9
Function Call: WRITE	Prompt: ?22,"Date",?33,"Time",?39,"Clinic",!?22 Line Location: FA+11
Function Call: WRITE	Prompt: "=" Line Location: FA+11
Function Call: WRITE	Prompt: !,"See Scheduling options for additional appointments." Line Location: FA+21
Function Call: WRITE	Prompt: !!,"Remarks: ",$P(^DPT(DFN,0),"^",10) Line Location: RMK+0
Function Call: WRITE	Prompt: !! Line Location: RMK+2
Function Call: WRITE	Prompt: "Date of Death Information" Line Location: RMK+3
Function Call: WRITE	Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E")) Line Location: RMK+4
Function Call: WRITE	Prompt: !,?5,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E")) Line Location: RMK+5
Function Call: WRITE	Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E")) Line Location: RMK+6
Function Call: WRITE	Prompt: !,?5,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),! Line Location: RMK+7
Routine Call	DIC Line Location: EN+3
Routine Call	DIC Line Location: SEL
Routine Call	DIR Line Location: SEL

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, EXTERNAL^DILFD, GETS^DIQ
^DIC(4 - [#4]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+12
^DG(43 - [#43]	EN+6
^DGS(41.1 - [#41.1]	SA
^DGS(41.41 - [#41.41]	EN+58
^DIC(13 - [#13]	EN+23
^DIC(21 - [#21]	EN+22
^DIC(42 - [#42]	SAA+2
^DIC(45.7 - [#45.7]	SAA+3
^DIC(5 - [#5]	EN+10
^DIC(8 - [#8]	EN+48, EN+49
^DPT - [#2]	EN+2, EN+6, EN+20, EN+27, EN+28, EN+30, EN+34, EN+35, EN+37, CL , FA+13, RMK
^DPT("AEL"	EN+49
^SC - [#44]	CL
^TMP($J	FA+8, FA+9, FA+14, FA+15, FA+19, FA+21, RMK+9!, COV
^UTILITY($J	EN+26!, EN+32, EN+33!, EN+39, EN+40!

Name	Line Occurrences
CA	EN+19
CL	SA
COV	FA+16
EN	SEL, OREN
FA	CL
INP	EN+77
Q	SEL, EN+43, EN+50, EN+55, EN+67
RMK	FA, FA+8, FA+9, FA+13
SA	EN+78
SAA	SA
SEL	SEL

Name	Field # of Occurrence
^(	EN+6, CL, FA+13
^(0	EN+6, EN+10, EN+22, EN+23, EN+48, EN+49, SAA+2, SAA+3, CL

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	Q!
ADM	RMK+9!
C	FA+13, FA+15, RMK+9!
COV	FA+19, RMK+9!, COV, COV+1
CT	FA+4, RMK+9!, COV+1
D0	Q!
D1	Q!
DFN	SEL!, EN+2, EN+6, EN+18, EN+20, EN+27, EN+28, EN+30, EN+34, EN+35 , EN+37, EN+45, EN+49, EN+58, EN+60, EN+70, CA+9, SA, CL, FA+3 , FA+9, FA+13, FA+14, FA+15, FA+19, FA+21, RMK, RMK+1, RMK+4, RMK+5 , RMK+6, RMK+7, COV, OREN
DGA	Q!, CA+2~
DGA(	EN+9, CA+15, CA+17, CA+19
DGA(1	EN+8
DGA(2	EN+8
DGA1	EN+7, Q!, CA+7
DGA2	EN+7, Q!, CA+7, CA+13, CA+15, CA+17, CA+18
DGABBRV	EN+6*, EN+22, EN+23, EN+24, Q!
DGAD	EN+7, Q!, CA+7
DGAPPT	FA+17~*, FA+18
DGARRAY	CA+2~, FA+2~, FA+4, RMK+9!
DGARRAY(	CA+14, CA+15, CA+16
DGARRAY("FLDS"	FA+3*
DGARRAY("SORT"	FA+3*
DGARRAY(1	FA+3*
DGARRAY(4	FA+3*
DGCABEG	CA+2~, CA+3*, CA+4, CA+20
DGCAEND	CA+2~, CA+3*, CA+4, CA+20
DGCAST	CA+11~, CA+16*, CA+17
DGCC	EN+10*, EN+11, Q!
DGCMOR	EN+2, EN+4, Q!
DGCNTRY	EN+11~*
DGCV	EN+45~*, EN+46
DGD	RMK+9!
DGD1	RMK+9!
DGDOM	EN+66~, EN+69, Q!
DGDOM1	EN+66~
DGEMER	EN+20~*, EN+21
DGERROR	CA+2~
DGFORGN	EN+11~*, EN+13
DGHOW	EN+6!
DGIEN	CA+11~, CA+12, CA+14, CA+15, CA+16
DGLOCATN	EN+3*, EN+4, Q!
DGMPI	EN+2*, EN+3, EN+4, Q!
DGPDT	EN+56~, EN+58*, EN+59
DGPMDCD	INP+2!
DGPMIFN	INP+2!
DGPMT	INP+1*, INP+2!
DGPMVI	INP+2!
>> DGPRFLG	EN+55
DGPTM	EN+56~, EN+60*, EN+61
DGRP	Q!
DGRP(	EN+6*, EN+7, EN+10, EN+11, EN+12, EN+14, EN+15, EN+16, EN+17, EN+22 , EN+48, EN+52, CA+3
DGRP(0	EN+23
DGRPOUT	SEL!, EN+6!, EN+78, SA, RMK
DGRPU	EN+6*, EN+10, EN+12, EN+14, EN+15, EN+16, EN+17, EN+22, EN+23, EN+48 , Q!
DGS	Q!
DGSKIP	EN+13~*, EN+14
DGST	EN+10*, Q!
>> DGSWITCH	INP+2
>> DGTMPAD	EN+7*, EN+12, EN+14
DGTMPADW	EN+14!
DGXFR0	Q!
DIC	SEL*, Q!
DIC(0	SEL*
DIR	Q!
DIR(0	SEL*
DIROUT	Q!
DIRUT	Q!
DIS	RMK+9!
DIWF	EN+25~, EN+31, EN+38
DIWL	EN+25~, EN+31, EN+38
DIWR	EN+25~, EN+31, EN+38
DT	EN+7, CA+4, SA, FA+3, FA+9, FA+13
DTIME	OREN
DTOUT	SEL, Q!
DUOUT	SEL, Q!
ETHNIC	EN+25~, EN+39*
ETHNIC(	EN+42
ETHNIC(1	EN+39*, EN+41
FA	FA+13*, FA+14, FA+15, FA+17, FA+19, FA+21, RMK+9!, COV
I	EN+6, EN+9, EN+49, Q!, CA+19, SA, CL, FA+11*, RMK+9!
I1	EN+9, Q!, CA+19
L	Q!, SA, SAA+4, FA+13, RMK+9!
LDM	Q!
NOW	RMK+9!
>> ORVP	OREN
>> PDTHINFO(2	RMK+4, RMK+5, RMK+6, RMK+7
POP	Q!
PTR	EN+25~, EN+27, EN+28, EN+30, EN+34, EN+35, EN+37
RACE	EN+25~, EN+32*
RACE(	EN+42
RACE(1	EN+32*, EN+41
SDCNT	FA+2~, FA+4*, RMK+9!
SDCT	Q!, CL*
SSN	RMK+9!
STAT	FA+14~*, FA+15, COV+1
TRN	RMK+9!
U	EN+3, EN+10, EN+12, EN+14, EN+15, EN+16, EN+17, EN+46, EN+52, EN+61 , CA+3, SAA+2, SAA+3, FA+14, FA+15, FA+19, COV
VA	Q!
>> VADM(5	EN+23
VAERR	EN+66~
VAHOW	EN+66~
VAINDT	EN+66~
VAIP	EN+66~
VAIP("D"	INP*
VAIP("L"	EN+76*
VAL	EN+25~, EN+28, EN+29, EN+30, EN+31, EN+35, EN+36, EN+37, EN+38
VAROOT	EN+66~, RMK+10!
X	EN+12, EN+14, EN+25~, EN+31, EN+38, EN+42, EN+48, EN+49, Q!, SA* , SAA+2, SAA+3, OREN*
X1	EN+48*, EN+49, Q!
>> XQORQUIT	OREN*
Y	SEL~, EN+12*, Q!

Customize PDF page

Package: Registration

Routine: DGRPD

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OREN
EN	;call to display patient inquiry - input DFN	ICR #2041 Status: Active Usage: Controlled Subscription ICR #6752 Status: Withdrawn Usage: Controlled Subscription ICR #10037 Status: Active Usage: Supported
CL
CA	;Confidential Address
COV
INP
Q
FA
RMK
SA
SEL
SAA	;Scheduled Admit Data