Routine: ECXUTL3

Package	Total	Call Graph
DSS Extracts	3	$$ECXDOB^ECXUTL OEFDATA^ECXUTL4 $$SSN^ECXUTL5
Registration	3	$$GETSTAT^DGMSTAPI ($$PTR2CODE,$$PTR2TEXT)^DGUTL4 (ADD,DEM,ELIG,OPD,SVC)^VADPT
VA FileMan	3	^DIC $$GET1^DIQ EN^DIQ1
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
Master Patient Index VistA	1	$$GETICN^MPIF001
Scheduling	1	($$OUTPTPR,$$OUTPTTM,OUTPTPR,OUTPTTM)^SDUTL3

Package	Total	Caller Graph
DSS Extracts	39	ECXADM ECXALAR ECXAPHA2 ECXAPHP2 ECXBCM ECXDENT ECXEC ECXLABN ECXLABO ECXLABR ECXLBB ECXLBB1 ECXMOV ECXMTL ECXNURS ECXNUT ECXOPRX ECXPAI ECXPHAI ECXPIVD ECXPIVDN ECXPRO ECXPRO1 ECXQSR ECXRAD ECXSCX1 ECXSCX2 ECXSCXN ECXSURG ECXUD ECXUPRO1 ECXUSUR1 ECXUTL2 ^ECX(727.811 ^ECX(727.814 ^ECX(727.815 ^ECX(727.816 ^ECX(727.825 ^ECX(727.826

Entry Points

Name	Comments	DBIA/ICR reference
OUTPTTM(ECXDFN,ECXDT)	;* Return PC Team from PCMM files or DPT ; Variables - ; ECXDFN - IEN from Patient file (Required) ; ECXDT - Relevant Date for Primary Care Team ; (Defaults to DT)
OUTPTPR(ECXDFN,ECXDT)	;* Return PC Provider from PCMM files or DPT ; Variables - ; ECXDFN - IEN from Patient file (Required) ; ECXDT - Relevant Date for Primary Care Provider ; (Defaults to DT)
PAT(ECXDFN,ECXDATE,ECXDATA,ECXPAT)	;Return basic patient data for extract ; Will not return data associated with test patients (SSN begin w 00000) ; Variables - ; Input ECXDFN - Patient internal entry number, DFN file#2; required ; ECXDATE- Date used to get specific data from GETSTAT^DGMSTAPI ; for MST. If no date, defaults to today's date, ; standard FM format, optional ; ECXDATA- Code indicating which data to return, optional. ; If code not specified then returns all. Codes are: ; 1 - DEM^VADPT (demographic data) ; 2 - ADD^VADPT (current address) ; 3 - ELIG^VADPT (eligibility & enrollment location) ; 4 - OPD^VADPT (other patient data) ; 5 - SVC^VADPT & GETSTAT^DGMSTAPI (service & MST inf) ; ECXPAT(- Passed by reference; required
ELIG(ECXELIG,ECXSVCP)	;Converts veteran eligibility code to NPCD code ; Variables - ; Input ECXELIG - Pointer to MAS ELIGIBILITY CODE file #8.1 ; ECXSVCP - Number value rep. service connected percentage.
ELGTXT	;Eligibility codes
CPT(ECXCPT,ECXMOD,ECXQUA)	;Returns a str with CPT code and modifier codes
CPT3Q6M(ECXCPT,ECXMOD,ECXQUA)	;
CPTOUT(ECXCPT)	;output transform for CPT code plus modifiers
CHECKRC(RACEIEN)	;144 API added to check RACE for non-stardard values that can be converted. If the value can be converted then it will be stored in RACE1 upon return

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	PAT+123
$$PTR2CODE^DGUTL4	PAT+61, PAT+62, PAT+64, PAT+65, CHECKRC+12
$$PTR2TEXT^DGUTL4	CHECKRC+2
^DIC	CHECKRC+11
$$GET1^DIQ	PAT+24, PAT+26, PAT+78, PAT+83, PAT+96, PAT+108, PAT+116
EN^DIQ1	PAT+56, PAT+72, PAT+75, PAT+91, PAT+93
$$ECXDOB^ECXUTL	PAT+53
OEFDATA^ECXUTL4	PAT+118
$$SSN^ECXUTL5	PAT+31
$$CPT^ICPTCOD	CPT+17, CPT3Q6M+22
$$MOD^ICPTMOD	CPT+20, CPT3Q6M+25
$$GETICN^MPIF001	PAT+44
$$OUTPTPR^SDUTL3	OUTPTPR+14, OUTPTPR+16
$$OUTPTTM^SDUTL3	OUTPTTM+14, OUTPTTM+16
OUTPTPR^SDUTL3	OUTPTPR+13, OUTPTPR+15
OUTPTTM^SDUTL3	OUTPTTM+13, OUTPTTM+15
ADD^VADPT	PAT+71
DEM^VADPT	PAT+50
ELIG^VADPT	PAT+82
OPD^VADPT	PAT+99
SVC^VADPT	PAT+103

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(22 - [#22]	GET1^DIQ
^HL(779.004 - [#779.004]	GET1^DIQ
^DIC(8 - [#8]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PAT+41, PAT+60, PAT+122
^DIC(21 - [#21]	PAT+84
^DPT - [#2]	OUTPTTM+18, OUTPTPR+18

Name	Line Occurrences
$$CHECKRC	PAT+68
$$ELIG	PAT+89

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COLMETH	PAT+21~, PAT+61, PAT+64
CPT	CPT+14~, CPT+17, CPT+18, CPT+21, CPT+22, CPT3Q6M+19~, CPT3Q6M+22, CPT3Q6M+23, CPT3Q6M+26, CPT3Q6M+27
CPTMOD	CPT+14~, CPT+22, CPT+23, CPT3Q6M+19~, CPT3Q6M+27, CPT3Q6M+28, CPTOUT+3~, CPTOUT+5, CPTOUT+10, CPTOUT+11
CPTX	CPTOUT+3~, CPTOUT+6*, CPTOUT+10
DA	PAT+22~, PAT+56, PAT+57, PAT+72, PAT+73, PAT+74, PAT+91, PAT+93*
DA(	PAT+74*, PAT+76
DFN	PAT+21~, PAT+26*, PAT+44, PAT+123
DIC	PAT+21~, PAT+56, PAT+72, PAT+74, PAT+91, PAT+93, CHECKRC+1~, CHECKRC+11
DIC(0	CHECKRC+11*
DIQ	PAT+21~, PAT+56, PAT+72, PAT+74, PAT+91, PAT+93*
DIQ(0	PAT+56, PAT+72, PAT+75, PAT+91, PAT+93*
DR	PAT+22~, PAT+56, PAT+57, PAT+72, PAT+73, PAT+74, PAT+91, PAT+92, PAT+93*, PAT+94
DR(	PAT+74*
DT	OUTPTTM+12, OUTPTPR+12
>> ECHEAD	PAT+29, PAT+30
>> ECPNM	PAT+30
ECXAR	PAT+21~, PAT+92!
ECXAR(	PAT+76
ECXAR(10	PAT+57
ECXAR(2	PAT+92
ECXAR(4	PAT+94
ECXAR(5	PAT+73
ECXBG	ELIG+8~, ELIG+14*, ELIG+16
ECXCOD	PAT+21~
ECXCOD(	PAT+38*
ECXCOD(1	PAT+49
ECXCOD(2	PAT+70
ECXCOD(3	PAT+81
ECXCOD(4	PAT+98
ECXCOD(5	PAT+102
ECXCPT	CPT~, CPT+17, CPT3Q6M~, CPT3Q6M+22, CPTOUT~, CPTOUT+4, CPTOUT+6
ECXDAT	PAT+21~, PAT+36, PAT+37, PAT+38, PAT+92, PAT+93, PAT+94, PAT+123, PAT+124
ECXDATA	PAT~, PAT+37, PAT+49, PAT+70, PAT+81, PAT+98, PAT+102
ECXDATE	PAT~, PAT+121*, PAT+123
ECXDFN	OUTPTTM~, OUTPTTM+10, OUTPTTM+14, OUTPTTM+16, OUTPTTM+18, OUTPTPR~, OUTPTPR+10, OUTPTPR+14, OUTPTPR+16, OUTPTPR+18 , PAT~, PAT+23, PAT+24, PAT+26, PAT+91, PAT+92, PAT+96, PAT+108
ECXDT	OUTPTTM~, OUTPTTM+12, OUTPTTM+14, OUTPTPR~, OUTPTPR+12, OUTPTPR+14
ECXELIG	ELIG~, ELIG+9, ELIG+12
ECXEN	ELIG+8~, ELIG+15*, ELIG+16
>> ECXLOGIC	PAT+107
ECXMOD	CPT~, CPT+15, CPT+19, CPT+20, CPT3Q6M~, CPT3Q6M+20, CPT3Q6M+24, CPT3Q6M+25
ECXNPCD	ELIG+8~, ELIG+17*, ELIG+18
ECXPAT	PAT~, PAT+26, PAT+29, PAT+31!, PAT+57, PAT+79, PAT+88, PAT+100, PAT+110, PAT+125!
ECXPAT(	PAT+36*
ECXPAT("AO ST	AT" , PAT+105*
ECXPAT("AOL"	PAT+114*
ECXPAT("CL ST	AT" , PAT+112*
ECXPAT("COMBSVCI"	PAT+115*
ECXPAT("COMBSVCL"	PAT+116*
ECXPAT("COUNTRY"	PAT+78*
ECXPAT("COUNTY"	PAT+76*
ECXPAT("DOB"	PAT+53*
ECXPAT("EC ST	AT" , PAT+108*
ECXPAT("ELIG"	PAT+89*
ECXPAT("EMPLOY"	PAT+100*
ECXPAT("ENROL	L LOC" , PAT+94*
ECXPAT("ERI"	PAT+96*
ECXPAT("ETHNIC"	PAT+59, PAT+62
ECXPAT("IR ST	AT" , PAT+106, PAT+107
ECXPAT("MARITAL"	PAT+52*
ECXPAT("MEANS"	PAT+88*
ECXPAT("MPI"	PAT+47*
ECXPAT("MST S	TAT" , PAT+124*
ECXPAT("NAME"	PAT+51*
ECXPAT("PHI"	PAT+111*
ECXPAT("POS"	PAT+84*
ECXPAT("POW L	OC" , PAT+110*
ECXPAT("POW S	TAT" , PAT+109*
ECXPAT("RACE"	PAT+57*
ECXPAT("RACE1"	PAT+59, PAT+66, PAT+67, PAT+68
ECXPAT("RELIGION"	PAT+54*
ECXPAT("SC ST	AT" , PAT+85*
ECXPAT("SC%"	PAT+86*, PAT+89
ECXPAT("SEX"	PAT+54*
ECXPAT("SIGI"	PAT+55*
ECXPAT("SSN"	PAT+52*
ECXPAT("STATE"	PAT+73*
ECXPAT("VET"	PAT+87*
ECXPAT("VIETNAM"	PAT+104*
ECXPAT("ZIP"	PAT+77*
ECXPR	OUTPTPR+11~, OUTPTPR+14, OUTPTPR+16, OUTPTPR+17, OUTPTPR+18*, OUTPTPR+19
ECXQUA	CPT~, CPT+15, CPT+16, CPT+18, CPT3Q6M~, CPT3Q6M+20, CPT3Q6M+21, CPT3Q6M+23
ECXSVCP	ELIG~, ELIG+16
ECXTM	OUTPTTM+11~, OUTPTTM+14, OUTPTTM+16, OUTPTTM+17, OUTPTTM+18*, OUTPTTM+19
FND	ELIG+8~
I	PAT+21~, PAT+36, PAT+37, ELIG+8~, ELIG+10, CPT+14~, CPT+19, CPT+20, CPT3Q6M+19~, CPT3Q6M+24* , CPT3Q6M+25
IEN	ELIG+8~, ELIG+11*, ELIG+12
J	CPTOUT+3~, CPTOUT+7*, CPTOUT+8
LEN	CPT3Q6M+19~, CPT3Q6M+21*
MELIG	PAT+22~, PAT+83*, PAT+89
MOD	CPT+14~, CPT+20, CPT+21, CPT3Q6M+19~, CPT3Q6M+25, CPT3Q6M+26, CPTOUT+3~, CPTOUT+7*, CPTOUT+8, CPTOUT+9
MODS	CPTOUT+3~, CPTOUT+6*, CPTOUT+7
MODX	CPTOUT+3~, CPTOUT+5, CPTOUT+8, CPTOUT+9*, CPTOUT+10
MPI	PAT+22~, PAT+44*, PAT+47
NAME	CHECKRC+1~, CHECKRC+2*, CHECKRC+4, CHECKRC+5, CHECKRC+6, CHECKRC+7, CHECKRC+8, CHECKRC+9, CHECKRC+10
NPCD	ELIG+8~, ELIG+10, ELIG+13, ELIG+16, ELIG+17
PELG	PAT+22~, PAT+83*
PTFVAL	CHECKRC+1~, CHECKRC+3, CHECKRC+12, CHECKRC+13
PTNAME	PAT+22~, PAT+24*, PAT+25
RACEIEN	CHECKRC~, CHECKRC+2
RCNUM	PAT+21~, PAT+63, PAT+64, PAT+65
RCVAL	PAT+21~, PAT+63, PAT+64, PAT+65, PAT+66, PAT+67
SCPER	ELIG+8~, ELIG+11*, ELIG+13, ELIG+14, ELIG+15
SSN	PAT+21~, PAT+26*, PAT+30, PAT+31
STR	PAT+21~, PAT+32, PAT+33, PAT+34*, PAT+36
TEXT	ELIG+8~, ELIG+10*, ELIG+11, ELIG+13, ELIG+16
U	OUTPTTM+18, PAT+52, PAT+53, PAT+54, PAT+55, PAT+77, PAT+78, PAT+83, PAT+84, PAT+86 , PAT+88, PAT+100, PAT+107, PAT+110, PAT+114, PAT+124, CPT+18, CPT+21, CPT3Q6M+23, CPT3Q6M+26
VADM	PAT+21~
VADM(1	PAT+51
VADM(10	PAT+52
VADM(11	PAT+61, PAT+62
VADM(12	PAT+64, PAT+65
VADM(14	PAT+55
VADM(2	PAT+52
VADM(3	PAT+53
VADM(5	PAT+54
VADM(8	PAT+56, PAT+68
VADM(9	PAT+54
VAEL	PAT+21~
VAEL(1	PAT+83
VAEL(2	PAT+84
VAEL(3	PAT+85, PAT+86
VAEL(4	PAT+87
VAEL(9	PAT+88
VAPA	PAT+21~
VAPA(11	PAT+77
VAPA(25	PAT+78
VAPA(5	PAT+72, PAT+74
VAPA(7	PAT+74
VAPD	PAT+21~
VAPD(7	PAT+100
VASV	PAT+21~
VASV(1	PAT+104
VASV(15	PAT+112
VASV(2	PAT+105, PAT+114
VASV(3	PAT+106, PAT+107
VASV(4	PAT+109, PAT+110
VASV(5	PAT+115, PAT+116
VASV(9	PAT+111
X	PAT+41, PAT+60, PAT+122, CHECKRC+1~, CHECKRC+4, CHECKRC+5, CHECKRC+6, CHECKRC+7, CHECKRC+8, CHECKRC+9* , CHECKRC+10*
Y	CHECKRC+1~, CHECKRC+12
ZIP	PAT+22~

Customize PDF page

Package: DSS Extracts

Routine: ECXUTL3

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 39

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(ELGTXT+I	ELIG+10
$T(OUTPTPR^SDUTL3	OUTPTPR+13, OUTPTPR+15
$T(OUTPTTM^SDUTL3	OUTPTTM+13, OUTPTTM+15