Routine: DGQEUT1

Information

DGQEUT1 ;ALB/RPM - VIC REPLACEMENT UTILITIES #1 ; 10/03/05

Source file <DGQEUT1.m>

Package	Total	Call Graph
Registration	5	$$CVEDT^DGCV $$STATUS^DGENA $$GETSTAT^DGMSTAPI ($$GETADDR,$$GETICN,$$GETIDS,$$GETNAMC,GETSITE)^DGQEDEMO (ELIG,SVC)^VADPT
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	4	DGQEBGR DGQEHLNT DGQERPC DGQEUT2

Name	Comments	DBIA/ICR reference
ISENRPND(DGST)	;is veteran's enrollment status pending?
GETPAT(DGDFN,DGPAT)	;build Patient object ; This function retrieves patient demographic data needed to produce ; a Veteran ID Card and returns the data in an array format.
GETPH(DGDFN)	;get purple heart indicator
GETPOW(DGDFN)	;get POW indicator
INITARR(DGVIC)	;Procedure used to initialize VIC data array nodes.
FNDPOW(DGEL)	;find POW eligibility code
GETELIG(DGDFN,DGELG)	;build Patient Eligibility object ; This function retrieves patient data needed to determine the ; patient's VIC eligibility and returns the data in an array format.

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETPAT+41, GETELIG+31, GETPH+25

Name	Field # of Occurrence
DFN	GETELIG+24~, GETELIG+34, GETPH+16~, GETPH+28, GETPOW+13~, GETPOW+17*
DGDFN	GETPAT~, GETPAT+41, GETPAT+44, GETPAT+50, GETPAT+53, GETPAT+56, GETELIG~, GETELIG+31, GETELIG+34, GETELIG+40 , GETELIG+43, GETELIG+46, GETELIG+49, GETPH~, GETPH+25, GETPH+28, GETPOW~, GETPOW+17
DGEC	FNDPOW+11~, FNDPOW+19, FNDPOW+20, FNDPOW+21
DGEL	FNDPOW~
DGEL(1	FNDPOW+17, FNDPOW+20, FNDPOW+21
DGELG	GETELIG~
DGELG("COMBVET"	GETELIG+46*
DGELG("ELIGSTAT"	GETELIG+36*
DGELG("ENRSTAT"	GETELIG+40*, GETELIG+52
DGELG("MST"	GETELIG+43*
DGELG("PH"	GETELIG+49*
DGELG("POW"	GETELIG+52*
DGELG("SC"	GETELIG+37*
DGPAT	GETPAT~, GETPAT+44, GETPAT+50, GETPAT+53, GETPAT+59
DGPAT("DOB"	GETPAT+47*
DGPAT("ICN"	GETPAT+56*
DGPHIND	GETPH+17~, GETPH+30*, GETPH+34, GETPH+35
DGPHSTAT	GETPH+18~, GETPH+31*, GETPH+34
DGRSLT	GETPAT+37~, GETPAT+39, GETPAT+62, GETPAT+64, GETELIG+25~, GETELIG+29, GETELIG+55, GETELIG+57, GETPH+19~, GETPH+23* , GETPH+34, GETPH+35, GETPH+37, FNDPOW+12~, FNDPOW+14, FNDPOW+20, FNDPOW+21, FNDPOW+23
DGST	ISENRPND~, ISENRPND+9*, ISENRPND+10
DGSUB	INITARR+8~, INITARR+12, INITARR+13, INITARR+16, INITARR+17, INITARR+20, INITARR+21, INITARR+24, INITARR+25
DGVIC	INITARR~
DGVIC(	INITARR+13, INITARR+17, INITARR+21, INITARR+25
DGVIC("DFN"	INITARR+11*
DGVIC("DOCTYPE"	INITARR+31*
DGVIC("STAT"	INITARR+28*
U	GETELIG+36, GETELIG+43, GETPH+31, FNDPOW+17, FNDPOW+21
VAEL	GETELIG+26~, GETELIG+52, GETPOW+14~, GETPOW+20
VAEL(3	GETELIG+37
VAEL(8	GETELIG+36
VAERR	GETELIG+27~, GETPH+20~, GETPOW+15~
VASV	GETPH+21~
VASV(9	GETPH+30, GETPH+31