Routine: DGENPTA

Information

DGENPTA ;ALB/CJM,ERC,CKN,TDM,PWC - Patient API - Retrieve Data ; 2/3/11 6:40pm

Source Information

Source file <DGENPTA.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Registration	1	$$FIELD^DGENPTA1
VA Fileman	1	$$EXTERNAL^DILFD

Caller Graph

Caller Graph Total: 24

Package	Total	Caller Graph
Registration	23	DGEN DGENA2 DGENA3 DGENA6 DGENCD DGENCLN1 DGENELA1 DGENELA4 DGENL DGENLEH DGENPT DGENQRY DGENQRY1 DGENRPB2 DGENRPC2 DGENRPD2 DGENRPT2 DGENRPT4 DGENU DGENUPA1 DGENUPL DGENUPL4 VAFHLZEN
Income Verification Match	1	IVMPLOG

Entry Points

Name	Comments	DBIA/ICR reference
PREF(DFN,FACNAME)	;	ICR #2919 Status: Active Usage: Supported
CURINPAT(DFN)	; -- ; Description: This function will determine if the patient is a current inpatient.
DEATH(DFN)	;
OUTPAT(DFN,DGBEG,DGEND)	; -- ; Description: This function will determine if a patient has an outpatient encounter between a specified date range that has successfully been checked out.
LOOKUP(SSN,DOB,SEX,ERROR)	;
VALPAT(DFN)	; -- ; Description: This function returns a 1 if the patient DFN is valid, 0 if the patient DFN is not valid.
INPATQ
INPAT(DFN,DGBEG,DGEND)	; -- ; Description: This function will determine if a patient was an inpatient between a specified date range.
VET1(DFN)	;returns 1 if the patient is a veteran
OUTPATQ
GET(DFN,DGPAT)	;
RANGEQ
RANGE(DGBEG,DGEND)	; -- ; Description: This function returns a 1 if two dates are a valid date range, 0 if they are not valid.
ACTIVE(DFN,DGDT)	;
SSN(DFN)	;
EXT(SUB,VAL)	;
VET(DFN)	;returns 1 if the patient is an eligible veteran	ICR #5380 Status: Withdrawn Usage: Controlled Subscription
NAME(DFN)	;

External References

Name	Field # of Occurrence
$$FIELD^DGENPTA1	EXT+14
$$EXTERNAL^DILFD	EXT+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INPAT+25
^DGPM("APRD"	INPAT+22, INPAT+23
^DIC(4 - [#4]	PREF+13
^DPT - [#2]	VET+4, VET+6, VET+7, VET1+4, VET1+5, PREF+12, DEATH+9, GET+28, GET+35, GET+36 , GET+37, GET+38, GET+39, GET+40, GET+41, GET+42, GET+43, GET+44, GET+45, SSN+4 , NAME+4, VALPAT+14, CURINPAT+16, LOOKUP+19
^DPT("SSN"	LOOKUP+16, LOOKUP+18
^SCE - [#409.68]	OUTPAT+27
^SCE("ADFN"	OUTPAT+23, OUTPAT+25

Label References

Name	Line Occurrences
$$RANGE	INPAT+16, OUTPAT+17
$$VALPAT	CURINPAT+13, INPAT+16, OUTPAT+17
INPATQ	INPAT+16
OUTPATQ	OUTPAT+17
RANGEQ	RANGE+16, RANGE+22, RANGE+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DATE	DEATH+8~, DEATH+9, DEATH+10*, DEATH+11
DFN	VET~, VET+4, VET+6, VET+7, VET1~, VET1+4, VET1+5, ACTIVE~, PREF~, PREF+12 , DEATH~, DEATH+9, GET~, GET+25, GET+27, GET+28, GET+35, GET+36, GET+37, GET+38 , GET+39, GET+40, GET+41, GET+42, GET+43, GET+44, GET+45, SSN~, SSN+3, SSN+4 , NAME~, NAME+3, NAME+4, VALPAT~, VALPAT+14, CURINPAT~, CURINPAT+13, CURINPAT+16, INPAT~, INPAT+16 , INPAT+22, INPAT+23, OUTPAT~, OUTPAT+17, OUTPAT+23, OUTPAT+25, LOOKUP+13~, LOOKUP+16*, LOOKUP+17, LOOKUP+18 , LOOKUP+19, LOOKUP+23
DGBEG	INPAT~, INPAT+16, INPAT+19, OUTPAT~, OUTPAT+17, OUTPAT+20, RANGE~, RANGE+16, RANGE+19*, RANGE+22 , RANGE+25
DGCUR	CURINPAT+10~, CURINPAT+16, CURINPAT+18
DGDT	ACTIVE~
DGEDT	INPAT+12~, INPAT+19, INPAT+22, OUTPAT+13~, OUTPAT+20, OUTPAT+23
DGEND	INPAT~, INPAT+16, INPAT+19, OUTPAT~, OUTPAT+17, OUTPAT+20, RANGE~, RANGE+16, RANGE+19*, RANGE+22 , RANGE+25
DGINPAT	INPAT+12~, INPAT+13, INPAT+22, INPAT+23, INPAT+27, INPATQ
DGMOVE	INPAT+12~, INPAT+23*, INPAT+25
DGOE	OUTPAT+13~, OUTPAT+25*, OUTPAT+27
DGOK	RANGE+11~, RANGE+13, RANGE+27, RANGEQ
DGOUT	OUTPAT+13~, OUTPAT+14, OUTPAT+23, OUTPAT+25, OUTPAT+27, OUTPATQ
DGPAT	GET~, GET+26!*
DGPAT("AG/ALLY"	GET+44*
DGPAT("DEATH"	GET+35*
DGPAT("DFN"	GET+27*
DGPAT("DOB"	GET+31*
DGPAT("INELDATE"	GET+40*
DGPAT("INELDEC"	GET+42*
DGPAT("INELREA"	GET+41*
DGPAT("NAME"	GET+30*
DGPAT("PATYPE"	GET+36*
DGPAT("PFSRC"	GET+39*
DGPAT("PID"	GET+43*
DGPAT("PREFAC"	GET+38*
DGPAT("SEX"	GET+32*
DGPAT("SPININJ"	GET+45*
DGPAT("SSN"	GET+33*
DGPAT("VETERAN"	GET+37*
DGSDT	INPAT+12~, INPAT+19, INPAT+22, INPAT+23, OUTPAT+13~, OUTPAT+20, OUTPAT+23, OUTPAT+25
DGTRANS	INPAT+12~, INPAT+25*, INPAT+27
DGVALID	VALPAT+11~, VALPAT+14, VALPAT+16
DOB	LOOKUP~, LOOKUP+21, LOOKUP+22
DT	RANGE+25
ERROR	LOOKUP~, LOOKUP+15, LOOKUP+17, LOOKUP+18, LOOKUP+20, LOOKUP+21, LOOKUP+22
FAC	PREF+10~, PREF+11, PREF+12, PREF+13, PREF+14
FACNAME	PREF~, PREF+11, PREF+13
FLD	EXT+13~, EXT+14*, EXT+15, EXT+16
NODE	GET+24~, GET+28, GET+29, GET+30, GET+31, GET+32, GET+33, LOOKUP+13~, LOOKUP+19, LOOKUP+20 , LOOKUP+21, LOOKUP+22
SEX	LOOKUP~, LOOKUP+20
SSN	LOOKUP~, LOOKUP+15, LOOKUP+16, LOOKUP+18
SUB	EXT~, EXT+11, EXT+14
VAL	EXT~, EXT+11, EXT+16
VET	VET+3~, VET+5, VET+6, VET+7, VET+8, VET1+3~, VET1+5, VET1+6

Customize PDF page

Package: Registration

Routine: DGENPTA

Call Graph Total: 2

Caller Graph Total: 24