Routine: ADGRPD

Package	Total	Call Graph
Registration	3	CHECK^DGPMV A^DGRPU (DEM,KVA)^VADPT
VA Fileman	2	^DIC ^DIR
IHS Changes To ADT	1	(CS,IN5)^ADGPMV10
Kernel	1	^%ZIS

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGPI

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	HDR
CS^ADGPMV10	INP+7
IN5^ADGPMV10	INP+3
CHECK^DGPMV	EN+1
A^DGRPU	EN+3
^DIC	SEL
^DIR	EN+15
DEM^VADPT	EN+2
KVA^VADPT	Q

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "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+4
Function Call: WRITE	Prompt: DGA(I) Line Location: EN+5
Function Call: WRITE	Prompt: !?1,"County: ",DGCC Line Location: EN+6
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:"") Line Location: EN+9
Function Call: WRITE	Prompt: !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46,"Sex: ",$P(VADM(5),"^",2) Line Location: EN+10
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+11
Function Call: WRITE	Prompt: !,"Other Eligibilities: " Line Location: EN+12
Function Call: WRITE	Prompt: !?21 Condition for execution: $X+$L(X)>79 Line Location: EN+12
Function Call: WRITE	Prompt: X Line Location: EN+12
Function Call: WRITE	Prompt: ! Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: @IOF,!,$P(VADM(1),"^",1),?40,$P(VADM(2),"^",2),?65,$P(VADM(3),"^",2) Line Location: HDR+1
Function Call: WRITE	Prompt: !,X,! Line Location: HDR+1
Function Call: WRITE	Prompt: !?18,"Scheduled Admit" Line Location: SA+0
Function Call: WRITE	Prompt: $S($D(^DIC(42,+$P(X,"^",8),0)):" on ward "_$P(^(0),"^",1),$D(^DIC(45.7,+$P(X,"^",9),0)):" for treating specialty "_$P(^(0),"^",1),1:"")," on ",$E(L,4,5),"/",$E(L,6,7),"/",$E(L,2,3) Line Location: SAA+0
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+1
Function Call: WRITE	Prompt: "NONE" Line Location: FA+1
Function Call: WRITE	Prompt: ?22,"Date",?32,"Time",?39,"Clinic",!?22 Line Location: FA+2
Function Call: WRITE	Prompt: "=" Line Location: FA+2
Function Call: WRITE	Prompt: !?22,$E(FA,4,5),"/",$E(FA,6,7),"/",$E(FA,2,3),$J(+$E(FA_"00",9,10)_":"_$E(FA_"0000",11,12),6),?39,$P($S($D(^SC(C,0)):^(0),1:""),"^")," ",COV Line Location: FA+3
Function Call: WRITE	Prompt: !,"See Scheduling options for additional appointments." Line Location: FA+4
Routine Call	DIC Line Location: SEL
Routine Call	DIR Line Location: EN+15
Routine Call	%ZIS Line Location: HDR

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+7
^DG(43 - [#43]	EN+2
^DGS(41.1 - [#41.1]	SA
^DIC(13 - [#13]	EN+10
^DIC(21 - [#21]	EN+9
^DIC(42 - [#42]	SAA
^DIC(45.7 - [#45.7]	SAA
^DIC(5 - [#5]	EN+6
^DIC(8 - [#8]	EN+11, EN+12
^DPT - [#2]	EN+2, CL, FA+1, FA+3, FA+4, RMK+1
^DPT("AEL"	EN+12
^SC - [#44]	CL, FA+3
^UTILITY("VAIP"	INP+4!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	Q!
ADM	RMK+2!
C	FA+3*, RMK+2!
COV	FA+3, RMK+2!, COV*
CT	FA+1, FA+3, RMK+2!, COV
D0	Q!
D1	Q!
DFN	SEL!, EN+2, EN+12, SA, CL, FA+1, FA+3, FA+4, RMK+1, OREN
DGA	Q!
DGA(	EN+5
DGA(1	EN+4
DGA(2	EN+4
DGA1	EN+3*, Q!
DGA2	EN+3*, Q!
DGABBRV	EN+2*, EN+9, EN+10, EN+14, EN+15, Q!
DGAD	EN+3*, Q!
DGCC	EN+6*, Q!
DGD	RMK+2!
DGD1	RMK+2!
DGHOW	EN+2!
DGMTLL	Q!
DGPMDCD	INP+7!
DGPMIFN	INP+7!
DGPMT	INP+4*, INP+7!
DGPMVI	INP+7!
DGRP	Q!
DGRP(	EN+2*, EN+3, EN+6, EN+7, EN+8, EN+9, EN+11
DGRP(0	EN+10
DGRPOUT	SEL!, EN+2!, EN+15*
DGRPU	EN+2*, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, Q!
DGS	Q!
DGST	EN+6*, Q!
>> DGSWITCH	INP+7
DGTMPAD	EN+3*, EN+7, EN+8!
DGXFR0	Q!
DIC	SEL*, Q!
DIC(0	SEL*
DIR	EN+15!
DIR(0	EN+15*
DIS	RMK+2!
DT	EN+3, SA, FA+1, FA+3
DTIME	OREN
FA	FA+3*, FA+4, RMK+2!
I	EN+2, EN+5, EN+12, EN+14, Q!, SA, CL, FA+2*, RMK+2!
I1	EN+5*, Q!
IOF	HDR, HDR+1
IOP	HDR*!
>> L	SA, SAA, FA+3, COV
LDM	Q!
NOW	RMK+2!
>> ORVP	OREN
POP	Q!
SDCT	Q!, CL*
SSN	RMK+2!
TRN	RMK+2!
U	EN+6, EN+7, EN+8, EN+9
VA	Q!
>> VADM(1	HDR+1
>> VADM(2	HDR+1
>> VADM(3	HDR+1
>> VADM(5	EN+10
>> VAHOW	INP+3*
>> VAIP("D"	INP+3*
>> VAIP("L"	EN+16*
X	EN+7, EN+8, EN+11, EN+12, Q!, HDR+1, SA, SAA, OREN
X1	EN+11*, EN+12, Q!
>> XQORQUIT	OREN*
Y	SEL, EN+7*, EN+15, Q!

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGRPD

Information

Source Information

Call Graph

Call Graph Total: 7

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

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OREN
EN	;call to display patient inquiry - input DFN
HDR
CL
SAA
COV
INP	;EP; called by ^ADGPI, ^ADGPM1 ;IHS added
Q
FA	;EP; called by ^ADGPI; IHS added
RMK	;W !!,"Remarks: ",$P(^DPT(DFN,0),"^",10) ;IHS
SA
SEL

Name	Line Occurrences
CL	SA
COV	FA+3
EN	SEL, OREN
FA	CL
HDR	EN+2, EN+15
INP	EN+16
Q	SEL, EN+15
RMK	FA+1, FA+3
SA	EN+16
SAA	SA
SEL	SEL

Name	Field # of Occurrence
^(	EN+2, CL, FA+3
^(0	EN+2, EN+6, EN+9, EN+10, EN+11, EN+12, SAA, CL, FA+3, RMK+1