Routine: ADGPI

Information

ADGPI ; IHS/ADC/PDW/ENM - PATIENT INQUIRY ; [ 09/17/2002 4:19 PM ]

Source Information

Source file <ADGPI.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	^DIC Y^DIQ EN^DIQ1 ^DIR
IHS Changes To ADT	2	$$HRCN^ADGF (FA,INP)^ADGRPD
Patient Care Component	1	^APCHS5
Registration	1	KVA^VADPT
Surgery	1	$$LASTDS^SRZPEP

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Changes To ADT	3	ADGDSA ADGDSEP BDGDSA
Registration	1	DG IHS PATIENT INQUIRY

Name	Comments	DBIA/ICR reference
ST()	; -- state
DOB()	; -- date of birth
DM	; -- demographic data
DSLS()	; -- day surgery length of stay
SVI	; -- scheduled admit
SVD	; -- scheduled day surgery
SP	; -- select patient
SV	; -- scheduled visit
DSRL()	; -- day surgery release date/time
ELIG()	; -- eligibility status
DSDT()	; -- day surgery date/time
FA	; -- scheduled future appointments
EN	;EP; entry point - input DFN
PG	; -- page
IN	; -- insurance (from health summary)
CS	; -- current status
PCP()	; -- primary care provider
DSSV()	; -- day surgery treating specialty
DSPR()	; -- day surgery provider
DS	; -- last day surgery
SVQ	; -- scheduled quarters

Name	Field # of Occurrence
$$HRCN^ADGF	DM+5
FA^ADGRPD	FA+3
INP^ADGRPD	CS+2
^APCHS5	IN+4
^DIC	SP+2
Y^DIQ	ELIG+2
EN^DIQ1	DSLS+3
^DIR	PG+1
$$LASTDS^SRZPEP	DS+1
KVA^VADPT	EN+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?13,"*Confidential Patient Data Covered by Privacy Act*" Line Location: DM+4
Function Call: WRITE	Prompt: !!,$P(DGDPTN0,U),?32,"HRCN: ",$$HRCN^ADGF,?54,"DOB: ",$$DOB Line Location: DM+5
Function Call: WRITE	Prompt: !,$P(DGDPTN11,U),?31,"PHONE: ",$P(DGDPTN13,U),?53,"PROV: ",$$PCP Line Location: DM+6
Function Call: WRITE	Prompt: !,$P(DGDPTN11,U,4)," ",$$ST," ",$P(DGDPTN11,U,6) Line Location: DM+7
Function Call: WRITE	Prompt: ?32,"ELIG: ",$$ELIG,?54,"SSN: ",$P(DGDPTN0,U,9) Line Location: DM+8
Function Call: WRITE	Prompt: !!,"DAY SURGERY date: ",$$DSDT Line Location: DS+7
Function Call: WRITE	Prompt: ?38,"CANCELLED" Line Location: DS+9
Function Call: WRITE	Prompt: ?38,"NO-SHOW" Line Location: DS+10
Function Call: WRITE	Prompt: !?9,"Service: ",$$DSSV,?38,"Provider: ",$$DSPR Line Location: DS+11
Function Call: WRITE	Prompt: !!?10,"Scheduled Admit for ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Line Location: SVI+2
Function Call: WRITE	Prompt: !!?10,"Scheduled for Quarters on " Line Location: SVQ+1
Function Call: WRITE	Prompt: $E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Line Location: SVQ+2
Function Call: WRITE	Prompt: ?50,"Provider: " Line Location: SVQ+3
Function Call: WRITE	Prompt: $E($P($G(^DIC(45.7,+X,0)),U,3),1,20) Condition for execution: X Line Location: SVQ+3
Function Call: WRITE	Prompt: !!?10,"Scheduled for Day Surgery on " Line Location: SVD+1
Function Call: WRITE	Prompt: $E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Line Location: SVD+2
Function Call: WRITE	Prompt: !! Line Location: IN+4
Routine Call	DIC Line Location: SP+2
Routine Call	DIR Line Location: PG+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DS+1
^ADGAUTH - [#9009013.1]	SV+1, SV+2, SV+3
^ADGDS - [#9009012]	DS+3, DS+4, DS+5, DS+6
^AUPNPAT - [#9000001]	DM+3, PCP+1, PCP+2
^DD("DD"	DOB+1, DSDT+1, DSRL+1
^DD(9000001	ELIG+1, PCP+1
^DIC(16 - [#16]	PCP+2
^DIC(42 - [#42]	SVI+3
^DIC(45.7 - [#45.7]	SVI+4, SVQ+3, SVD+3, DSSV+1
^DIC(5 - [#5]	ST+1
^DPT - [#2]	DM+2
^UTILITY("DIQ1"	DSLS+2!, DSLS+4, DSLS+5!
^VA(200 - [#200]	DSPR+1, PCP+1

Name	Line Occurrences
$$DOB	DM+5
$$DSDT	DS+7
$$DSLS	DS+8
$$DSPR	DS+11
$$DSRL	DS+8
$$DSSV	DS+11
$$ELIG	DM+8
$$PCP	DM+6
$$ST	DM+7
@(	SV+5
CS	EN+1
DM	EN+1
DS	EN+1
EN	SP+2
FA	EN+1
IN	EN+1
PG	EN+1
SP	SP+2
SV	EN+1

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGPI

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

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	Field # of Occurrence
>> APCHSBRK	IN+2*
>> APCHSCKP	IN+2*
>> APCHSCVD	IN+3*
>> APCHSNPG	IN+2*
>> APCHSPAT	IN+2*
C	ELIG+1~*
DA	DSLS+3*, DSLS+5!
DA(	DSLS+2*
DFN	SP+1~, SP+2*, EN+1, DM+2, DM+3, DS+3, DS+4, DS+5, DS+6, SV+1 , SV+2, SV+3, IN+2, DSLS+3, PCP+1, PCP+2
>> DGCK	DS+1*, DS+2
DGDPTN0	DM+1~, DM+2*, DM+5, DM+8, DOB+1
DGDPTN11	DM+1~, DM+2*, DM+6, DM+7, ST+1
DGDPTN13	DM+1~, DM+2*, DM+6
DGDSN0	DS+3~, DS+6*, DSDT+1, DSSV+1, DSPR+1
DGDSN2	DS+3~, DS+6*, DS+8, DS+9, DS+10, DSRL+1
DGPATN0	DM+1~, DM+3*
DGPATN11	DM+1~, DM+3*, ELIG+1
DGSVN0	SV+1~, SV+3*, SV+4, SV+5, SVI+1, SVI+3, SVI+4, SVQ+1, SVQ+2, SVD+1 , SVD+3
DIC	SP+1~, SP+2!, DSLS+3, DSLS+5!
DIC(0	SP+1*
DIR	PG+1!
DIR(0	PG+1*
DR	DSLS+3*, DSLS+5!
DR(	DSLS+2*
>> DS	DS+6*, DSLS+1, DSLS+2, DSLS+4
U	DM+5, DM+6, DM+7, DM+8, DS+9, DS+10, SV+4, SV+5, SVI+3, SVI+4 , SVQ+2, SVQ+3, SVD+3, DOB+1, ELIG+1, ST+1, DSSV+1, DSPR+1, PCP+1, PCP+2
X	SP+1~, DS+1, DS+3~, DS+4, DS+5, DS+6, SV+1~, SV+2, SV+3, SVI+1~* , SVI+2, SVI+3, SVI+4, SVQ+1~, SVQ+2, SVQ+3, SVD+1~, SVD+2, SVD+3, PG+1~! , DSLS+1, DSLS+4*
Y	SP+1~, SP+2, DS+3~, DS+4, DS+5, SV+1~, PG+1~, DOB+1~, ELIG+1~, ELIG+2 , DSDT+1~, DSRL+1~*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed