Routine: DGRPD

Information

DGRPD ;ALB/MRL/MLR/JAN/LBD/EG/BRM/JRC/BAJ-PATIENT INQUIRY (NEW) ; 05/03/06

Call Graph

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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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!

Label References

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

Naked Globals

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: