Routine: ECXADM

Package	Total	Call Graph
DSS Extracts	13	$$GETDIV^ECXDEPT ^ECXKILL VISIT^ECXSCX1 QUE^ECXTAUTO ^ECXTLOCL ^ECXTRAC ($$ECXDATE,$$ECXTIME,$$PATCAT)^ECXUTL ($$EDIS,BLDXREF)^ECXUTL1 ($$ENROLLM,$$INP,$$PRIMARY,ECXDEF)^ECXUTL2 ($$ELIG,$$PAT)^ECXUTL3 ($$ENCNUM,$$HNCI,$$OBSPAT,$$SHAD)^ECXUTL4 ($$CVEDT,$$TYPE,NPRF)^ECXUTL5 ($$ISASIH,$$NEEDADR)^ECXUTL6
VA FileMan	2	IX1^DIK $$GET1^DIQ
DRG Grouper	1	$$CODEC^ICDEX
Integrated Billing	1	$$INSUR^IBBAPI
Kernel	1	$$NPI^XUSNPI
Registration	1	$$TSDATA^DGACT

Package	Total	Caller Graph
DSS Extracts	1	ECXADM

Name	Comments	DBIA/ICR reference
BEG	;entry point from option
START	; start package specific extract
GET	;gather extract data
PAT(ECXDFN,ECXDATE,ECXERR)	;get patient demographic data
PTF	; get admitting DRG, diagnosis, source of admission from PTF
FILE	;file the extract record
SETUP	;Set required input for ECXTRAC.
LOCAL	; to extract nightly for local use not to be transmitted to TSI ; should be queued with a 1D frequency
QUE	; entry point for the background requeuing handled by ECXTAUTO

Name	Field # of Occurrence
$$TSDATA^DGACT	FILE+36
IX1^DIK	FILE+73
$$GET1^DIQ	PTF+8, PTF+10
$$GETDIV^ECXDEPT	GET+11
^ECXKILL	BEG+2, LOCAL+2, QUE+1
VISIT^ECXSCX1	GET+20
QUE^ECXTAUTO	QUE+1
^ECXTLOCL	LOCAL+2
^ECXTRAC	BEG+2
$$ECXDATE^ECXUTL	GET+32
$$ECXTIME^ECXUTL	GET+31
$$PATCAT^ECXUTL	PAT+51
$$EDIS^ECXUTL1	GET+53
BLDXREF^ECXUTL1	START+2
$$ENROLLM^ECXUTL2	GET+9
$$INP^ECXUTL2	GET+26
$$PRIMARY^ECXUTL2	PAT+57
ECXDEF^ECXUTL2	SETUP+2
$$ELIG^ECXUTL3	GET+15
$$PAT^ECXUTL3	PAT+4
$$ENCNUM^ECXUTL4	GET+55
$$HNCI^ECXUTL4	PAT+47
$$OBSPAT^ECXUTL4	GET+48
$$SHAD^ECXUTL4	PAT+49
$$CVEDT^ECXUTL5	PAT+61
$$TYPE^ECXUTL5	GET+51
NPRF^ECXUTL5	PAT+63
$$ISASIH^ECXUTL6	START+13
$$NEEDADR^ECXUTL6	START+14
$$INSUR^IBBAPI	PAT+32
$$CODEC^ICDEX	PTF+6
$$NPI^XUSNPI	GET+40, GET+43

FileNo	Call Tags
^DIC(45.1 - [#45.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	START+7, START+8, START+13, START+15
^DGPM("ATT1"	START+5, START+6
^DGPM("ATT2"	START+11, START+12
^DGPT - [#45]	GET+16, PTF+3, PTF+4, PTF+5, PTF+7
^DIC(42 - [#42]	GET+10
^DIC(45.1 - [#45.1]	PTF+7
^DIC(8 - [#8]	GET+14
^ECX(	FILE+40, FILE+70, FILE+71
^TMP($J	START+1!, START+16!

Name	Line Occurrences
FILE	GET+57
GET	START+8, START+15
PAT	GET+7
PTF	GET+16
SETUP	BEG+1, LOCAL+2, QUE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	GET+1~, GET+26*, GET+27, GET+28, GET+33, GET+36, GET+37, GET+38
DA	FILE+39~, FILE+73*!
DIK	FILE+39~, FILE+73*!
EC	START+8, START+15, GET+10, GET+14, GET+16, GET+18, PTF+2~, PTF+3*, PTF+4, PTF+5
EC1	PTF+2~, PTF+4*, PTF+6
>> EC23	FILE+44
>> EC7	FILE+40*, FILE+44, FILE+70, FILE+71, FILE+73
>> ECASNPI	PAT+59, FILE+41, FILE+60
>> ECASPR	PAT+59, FILE+41, FILE+53
>> ECATTNPI	GET+42*, FILE+60
>> ECCLAS	PAT+58, FILE+41, FILE+52
>> ECCLAS2	PAT+59, FILE+41, FILE+53
>> ECD	START+4, START+5, START+6, START+10, START+11, START+12, GET+7, GET+26, GET+40, GET+43 , GET+53, PAT+61
>> ECDA	START+5, START+6, START+7, START+8, START+11, START+12, START+13, START+14, START+15, GET+30 , FILE+49
>> ECDIA	GET+16*, FILE+49
>> ECDRG	GET+16, PTF+5, FILE+49
>> ECED	START+2, START+4*, START+5, START+11
>> ECFILE	BEG+1, FILE+40, FILE+70, FILE+71, FILE+73, SETUP+2
>> ECGRP	SETUP+2
>> ECHEAD	GET+55, SETUP+1*, SETUP+2
>> ECODE	FILE+44, FILE+45, FILE+46, FILE+47, FILE+48, FILE+49, FILE+50*, FILE+70
>> ECODE1	FILE+51, FILE+52, FILE+53, FILE+54, FILE+55, FILE+56, FILE+57, FILE+58, FILE+59*, FILE+70
>> ECODE2	FILE+60, FILE+61, FILE+63, FILE+64, FILE+65, FILE+66, FILE+67, FILE+68, FILE+70
>> ECODE3	FILE+69*, FILE+71
>> ECODE4	FILE+69*, FILE+71
>> ECPACK	SETUP+2
>> ECPIECE	SETUP+2
>> ECPTF	GET+16*, PTF+3, PTF+4, PTF+5, PTF+7
>> ECPTNPI	PAT+58, FILE+41, FILE+60
>> ECPTPR	PAT+58, FILE+41, FILE+50
>> ECPTTM	PAT+58, FILE+41, FILE+45
>> ECPWNPI	GET+45*, FILE+60
>> ECRN	FILE+72*
>> ECRTN	SETUP+2
>> ECSD	START+2
>> ECSD1	START+4, START+10
>> ECTM	GET+31*, FILE+50
>> ECVER	SETUP+2
ECX	PTF+2~, PTF+7*, PTF+8, PTF+10
>> ECXA	GET+27, GET+48, GET+55, GET+56, FILE+44
>> ECXADMDT	GET+28*, GET+55
>> ECXADMS	GET+16, PTF+8, FILE+64
>> ECXAO	GET+18, GET+21, FILE+59
>> ECXAOL	PAT+44*, FILE+54
ECXAOT	GET+1~, GET+16, PTF+10, FILE+61
ECXASIH	GET+4~, GET+38*, GET+56
>> ECXAST	PAT+23*, FILE+47
>> ECXATNPI	GET+36*
>> ECXATT	GET+36*, GET+40, FILE+49
ECXATTPC	GET+1~, GET+37*, FILE+58
>> ECXCAT	FILE+53
ECXCERN	GET+5~, FILE+69
ECXCLST	GET+2~, PAT+34*, FILE+66
>> ECXCNTRY	PAT+28*, FILE+61
>> ECXCNTY	PAT+26*, FILE+46
>> ECXCVE	FILE+57
>> ECXCVEDT	FILE+57
>> ECXCVENC	FILE+57
>> ECXDATA	FILE+36*
>> ECXDATA(7	FILE+37
ECXDATE	GET+28, GET+31, GET+32, PAT~, PAT+3*, PAT+4, PAT+32, PAT+57, FILE+44
ECXDFN	START+8, START+15, GET+7, GET+9, GET+20, GET+26, GET+51, GET+53, PAT~, PAT+4 , PAT+32, PAT+47, PAT+49, PAT+51, PAT+57, PAT+61, FILE+44
>> ECXDOB	PAT+10*, FILE+45
>> ECXDOM	GET+37*, FILE+53
>> ECXDSSD	GET+35*, FILE+51
>> ECXECE	GET+18, GET+23, FILE+59
ECXECL	GET+2~, GET+18, GET+24, FILE+66
ECXEDIS	GET+1~, GET+53*, FILE+65
>> ECXELIG	PAT+11*, FILE+47
>> ECXEMP	PAT+18*, FILE+46
>> ECXENC	GET+55*, GET+57, FILE+54
>> ECXENRL	PAT+29*, FILE+52
>> ECXERI	PAT+65*, FILE+59
ECXERR	GET+7, GET+8, GET+20!, PAT~, PAT+5
ECXESC	GET+2~, GET+18, GET+24, FILE+66
ECXEST	GET+1~, PAT+33*, FILE+58
>> ECXETH	PAT+53, FILE+41, FILE+55
>> ECXFAC	GET+10, GET+11, GET+35, FILE+44
>> ECXHI	PAT+32*, FILE+46
>> ECXHNC	GET+18, GET+22, FILE+59
>> ECXHNCI	PAT+47*, FILE+55
ECXICD10P	GET+1~, GET+16, PTF+6, FILE+65
>> ECXIR	GET+18, GET+21, FILE+59
>> ECXLOGIC	PAT+17, PAT+63, PTF+5, FILE+41, FILE+42, FILE+43, FILE+52, FILE+54, FILE+57, FILE+58 , FILE+59, FILE+60, FILE+61, FILE+63, FILE+64, FILE+65, FILE+66, FILE+67, FILE+68, FILE+69
>> ECXMAR	PAT+19*, FILE+48
>> ECXMIL	GET+18, GET+22, FILE+59
>> ECXMN	GET+27*, GET+30
>> ECXMNS	PAT+15, FILE+42, FILE+48
>> ECXMPI	PAT+8, FILE+43, FILE+51
>> ECXMST	PAT+24*, FILE+52
ECXNMPI	GET+5~, FILE+43*, FILE+69
ECXNPRFI	GET+1~, PAT+63*, FILE+57
>> ECXOBS	GET+48*, GET+55, FILE+54
>> ECXOEF	PAT+40*, FILE+60
>> ECXOEFDT	PAT+41*, FILE+60
ECXPAT	PAT+2!, PAT+4, PAT+5!
ECXPAT("AO ST	AT" , PAT+23
ECXPAT("AOL"	PAT+44
ECXPAT("CL ST	AT" , PAT+34
ECXPAT("COMBSVCI"	PAT+35
ECXPAT("COMBSVCL"	PAT+36
ECXPAT("COUNTRY"	PAT+28
ECXPAT("COUNTY"	PAT+26
ECXPAT("DOB"	PAT+10
ECXPAT("EC ST	AT" , PAT+33
ECXPAT("ECXOEF"	PAT+40
ECXPAT("ECXOEFDT"	PAT+41
ECXPAT("ELIG"	PAT+11
ECXPAT("EMPLOY"	PAT+18
ECXPAT("ENROL	L LOC" , PAT+29
ECXPAT("ERI"	PAT+65
ECXPAT("ETHNIC"	PAT+53
ECXPAT("IR ST	AT" , PAT+22
ECXPAT("MARITAL"	PAT+19
ECXPAT("MEANS"	PAT+15
ECXPAT("MPI"	PAT+8
ECXPAT("MST S	TAT" , PAT+24
ECXPAT("NAME"	PAT+7
ECXPAT("PHI"	PAT+31
ECXPAT("POS"	PAT+14
ECXPAT("POW L	OC" , PAT+21
ECXPAT("POW S	TAT" , PAT+20
ECXPAT("RACE"	PAT+16
ECXPAT("RACE1"	PAT+54
ECXPAT("RELIGION"	PAT+17
ECXPAT("SC%"	PAT+30
ECXPAT("SEX"	PAT+9
ECXPAT("SIGI"	PAT+37
ECXPAT("SSN"	PAT+6
ECXPAT("STATE"	PAT+25
ECXPAT("VET"	PAT+12
ECXPAT("VIETNAM"	PAT+13
ECXPAT("ZIP"	PAT+27
>> ECXPATCAT	PAT+51*, FILE+63
>> ECXPDIV	GET+11*, GET+12, FILE+55
>> ECXPHI	PAT+31*, FILE+54
>> ECXPLOC	PAT+21*, FILE+55
>> ECXPNM	PAT+7*, FILE+44
>> ECXPOS	PAT+14*, FILE+48
>> ECXPRIOR	FILE+52, FILE+57
>> ECXPRNPI	GET+36*
>> ECXPRV	GET+36*, GET+43, FILE+50
ECXPRVPC	GET+1~, GET+37*, FILE+58
>> ECXPST	PAT+20*, FILE+47
>> ECXPTYPE	GET+51*, FILE+57
>> ECXRACE	PAT+16, FILE+41, FILE+50
>> ECXRC1	PAT+54, FILE+41, FILE+56
>> ECXRELG	PAT+17*, FILE+45
>> ECXRST	PAT+22*, FILE+47
>> ECXSADM	GET+16, PTF+7, FILE+55
>> ECXSBGRP	FILE+57
>> ECXSEX	PAT+9*, FILE+45
>> ECXSHAD	GET+18, GET+23, FILE+54
>> ECXSHADI	PAT+49*, FILE+52
ECXSIG	GET+5~
>> ECXSIGI	PAT+37*, FILE+69
>> ECXSPC	GET+27, GET+48, GET+55, FILE+36, FILE+37, FILE+49
>> ECXSSN	GET+55, PAT+6*, FILE+44
ECXSTANO	GET+3~, GET+12*, FILE+68
>> ECXSTAT	FILE+54
>> ECXSTATE	PAT+25*, FILE+46
>> ECXSVC	GET+15, PAT+30*
>> ECXSVCI	PAT+35*, FILE+67
>> ECXSVCL	PAT+36*, FILE+67
>> ECXUESTA	FILE+57
ECXUSRTN	GET+39~, GET+40, GET+41, GET+42, GET+43, GET+44, GET+45
>> ECXVET	PAT+12*, FILE+47
>> ECXVISIT	GET+18*, GET+19, GET+20
>> ECXVIST	GET+20
>> ECXVIST("AO"	GET+21
>> ECXVIST("ENCCL"	GET+24
>> ECXVIST("ENCSC"	GET+24
>> ECXVIST("HNC"	GET+22
>> ECXVIST("IR"	GET+21
>> ECXVIST("MST"	GET+22
>> ECXVIST("PGE"	GET+23
>> ECXVIST("SHAD"	GET+23
>> ECXVNS	PAT+13*, FILE+47
>> ECXWRD	GET+35*, FILE+49
>> ECXYM	GET+32
>> ECXZIP	PAT+27*, FILE+46
>> ELGA	GET+14, GET+15, FILE+51
OK	PAT+1~, PAT+4*, PAT+5
>> QFLG	START+3*
U	START+8, START+15, GET+10, GET+14, GET+16, GET+18, GET+27, GET+28, GET+33, GET+36 , GET+37, GET+38, GET+42, GET+45, PAT+58, PAT+59, PTF+4, PTF+5, PTF+7, FILE+44 , FILE+45, FILE+46, FILE+47, FILE+48, FILE+49, FILE+50, FILE+51, FILE+52, FILE+53, FILE+54 , FILE+55, FILE+57, FILE+58, FILE+59, FILE+60, FILE+61, FILE+63, FILE+64, FILE+65, FILE+66 , FILE+67, FILE+68, FILE+69
W	GET+1~, GET+33*, GET+35
X	GET+1~, PAT+1~, PAT+57*, PAT+58, PAT+59

Customize PDF page

Package: DSS Extracts

Routine: ECXADM

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: