Routine: ECXUTL2

Package	Total	Call Graph
DSS Extracts	5	$$PRVCLASS^ECXUTL $$INP^ECXUTL2 $$PAT^ECXUTL3 $$INOUTP^ECXUTL4 ($$CVEDT,$$TYPE)^ECXUTL5
VA FileMan	5	NOW^%DTC FIELD^DID ($$GET1,GETS)^DIQ EN^DIQ1 ^DIR
Registration	3	($$FINDCUR,$$FINDPRI,$$GET,$$PRIORITY,$$STATUS)^DGENA ($$CATEGORY,$$ENRSBGRP)^DGENA4 IN5^VADPT
Kernel	2	MES^XPDUTL $$NPI^XUSNPI
Enrollment Application System	1	$$UESTAT^EASUER
Scheduling	1	($$OUTPTAP,$$OUTPTPR,$$OUTPTTM)^SDUTL3

Package	Total	Caller Graph
DSS Extracts	36	ECXADM ECXBCM ECXDENT ECXEC ECXECMDI ECXLABN ECXLABR ECXLBB ECXLBB1 ECXMOV ECXMTL ECXNURS ECXNUT ECXOBSUR ECXOPRX ECXPAI ECXPIVD ECXPIVDN ECXPRO ECXQSR ECXQSR1 ECXRAD ECXSCX ECXSCX2 ECXSCXN ECXSETUP ECXSURG ECXSURG1 ECXTRT ECXTRT2 ECXUD ECXUEC ECXUPRO1 ECXUSUR1 ECXUTL2 ECXUTLA

Entry Points

Name	Comments	DBIA/ICR reference
ECXDEF(ECXHEAD,ECXPACK,ECXGRP,ECXFILE,ECXRTN,ECXPIECE,ECXVER)	;variables specific to extract from file #727.1 ; input ; ECXHEAD = extract header code ; all other formal list parameters passed by reference ; output ; ECXPACK = type field (#7) ; ECXGRP = group field (#9) ; ECXFILE = file number field (#1) ; ECXRTN = routine field (#4) ; ECXPIECE= running piece field (#11) ; ECXVER = dss version
PATDEM(DFN,DT1,PAR,FLG)	; determine patient information ; DFN = ; DT = ; PAR = ; FLG =
KPATDEM	;
ENROLLM(DFN,RNDT)	;determines enrollment status, category, priority
PRIMARY(ECXDFN,ECXDATE,ECXPREFX)	;determine patient's pc team and pc provider ; input ; ECXDFN = file #2 ien (required) ; ECXDATE = date of interest (required) ; ECXPREFX = prefix for provider data (optional) ; defaults to "2" if not specified otherwise ; output ; ECXPRIME = pc team ien^prefix_pc provider ien^pc provider person
INP(ECXDFN,ECXDATE)	; check for inpatient status ; input ; ECXDFN = file #2 ien (required) ; ECXDATE = date of interest (required) ; output ; ECXINP = patient status^movment # (file #405 ien) ; current treat. spec. (file #42.4 ien)^admission date/time^ ; current ward (file #42 ien)^discharge date/time^ ; ward provider^attending phys.^ward (file #44 ien);facility ; (file #40.8 ien);dss dept^dom^primary ward phys person class ; ^attending phys person class^ward at discharge^ASIH other facility at date/time? ; ^primary provider taxonomy ; where patient status = I for inpatient ; = O for outpatient
VISN19(ECXDFN,ECXPAYOR,ECXSAI)	;visn 19 sharing agreement data ; input ECXDFN = patient file ien ; output ECXPAYOR, ECXSAI (passed by reference)
GETASIH()	;170 Section added to determine start and end of ASIH other facility movement

Name	Field # of Occurrence
NOW^%DTC	ENROLLM+29
$$FINDCUR^DGENA	ENROLLM+28
$$FINDPRI^DGENA	ENROLLM+31
$$GET^DGENA	ENROLLM+32
$$PRIORITY^DGENA	ENROLLM+23
$$STATUS^DGENA	ENROLLM+23
$$CATEGORY^DGENA4	ENROLLM+24, ENROLLM+35
$$ENRSBGRP^DGENA4	ENROLLM+24, ENROLLM+36
FIELD^DID	INP+17
$$GET1^DIQ	VISN19+17
GETS^DIQ	VISN19+5, VISN19+13
EN^DIQ1	ECXDEF+27
^DIR	ECXDEF+24, ECXDEF+38
$$UESTAT^EASUER	ENROLLM+17
$$PRVCLASS^ECXUTL	PRIMARY+16, PRIMARY+24, INP+39, INP+40
$$INP^ECXUTL2	PATDEM+40
$$PAT^ECXUTL3	PATDEM+8
$$INOUTP^ECXUTL4	INP+29
$$CVEDT^ECXUTL5	ENROLLM+21
$$TYPE^ECXUTL5	ENROLLM+19
$$OUTPTAP^SDUTL3	PRIMARY+23
$$OUTPTPR^SDUTL3	PRIMARY+15
$$OUTPTTM^SDUTL3	PRIMARY+13
IN5^VADPT	INP+22
MES^XPDUTL	ECXDEF+15, ECXDEF+16, ECXDEF+17, ECXDEF+18, ECXDEF+19, ECXDEF+20, ECXDEF+21, ECXDEF+31, ECXDEF+32, ECXDEF+33 , ECXDEF+34, ECXDEF+35
$$NPI^XUSNPI	PRIMARY+17, PRIMARY+25

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ECXDEF+23
Function Call: WRITE	Prompt: ! Line Location: ECXDEF+24
Function Call: WRITE	Prompt: ! Line Location: ECXDEF+37
Function Call: WRITE	Prompt: ! Line Location: ECXDEF+38
Function Call: WRITE	Prompt: !,$G(CNT)+1 Line Location: VISN19+10
Function Call: WRITE	Prompt: !,"The value of ECXPAYOR is: ",ECXPAYOR Line Location: VISN19+11
Routine Call	DIR Line Location: ECXDEF+24 ECXDEF+38

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ
^DIC(36 - [#36]	GET1^DIQ
^DGPM - [#405]	FIELD^DID
^ECX(727.1 - [#727.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PRIMARY+22
^DGPM - [#405]	GETASIH+8, GETASIH+16
^DGPM("APCA"	GETASIH+6, GETASIH+7, GETASIH+14, GETASIH+15
^DIC(42 - [#42]	INP+33, INP+34
^DIC(45.7 - [#45.7]	INP+27
^ECX(727.1 - [#727.1]	ECXDEF+13
^ECX(727.4 - [#727.4]	INP+35
^ECX(727.831 - [#727.831]	INP+44

Name	Line Occurrences
$$ENROLLM	PATDEM+45
$$GETASIH	INP+26
$$PRIMARY	PATDEM+36
KPATDEM	PATDEM+6
VISN19	PATDEM+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALIAS	VISN19+3~, VISN19+8*, VISN19+9
ASIHED	GETASIH+1~, GETASIH+13, GETASIH+18, GETASIH+19*, GETASIH+20
ASIHINFO	INP+15~, INP+26*, INP+30, INP+36
ASIHSD	GETASIH+1~, GETASIH+5, GETASIH+10, GETASIH+20
CAT	ENROLLM+12~, ENROLLM+24*, ENROLLM+26, ENROLLM+40
CLCADM	GETASIH+1~, GETASIH+3*, GETASIH+6, GETASIH+7, GETASIH+14, GETASIH+15
>> CNT	VISN19+10
DA	ECXDEF+11~, ECXDEF+26, VISN19+3~, VISN19+16, VISN19+17, GETASIH+7, GETASIH+8, GETASIH+10, GETASIH+15, GETASIH+16 , GETASIH+18, GETASIH+19
DATE	GETASIH+1~, GETASIH+5, GETASIH+6, GETASIH+7, GETASIH+12, GETASIH+14, GETASIH+15
DFN	PATDEM~, PATDEM+8, PATDEM+34, PATDEM+36, PATDEM+40, PATDEM+45, ENROLLM~, ENROLLM+14, ENROLLM+17, ENROLLM+19 , ENROLLM+21, ENROLLM+23, ENROLLM+24, ENROLLM+28, ENROLLM+35, ENROLLM+36, INP+14~, INP+20*, GETASIH+6, GETASIH+7 , GETASIH+14, GETASIH+15
DIC	ECXDEF+11~, ECXDEF+26*, VISN19+3~
DIQ	ECXDEF+11~, ECXDEF+26*, VISN19+3~
DIR	ECXDEF+24!, ECXDEF+38!
DIR(0	ECXDEF+24, ECXDEF+38
DONE	GETASIH+1~, GETASIH+6, GETASIH+9, GETASIH+14, GETASIH+18, GETASIH+19*
DR	ECXDEF+11~, ECXDEF+26*, VISN19+3~
DSSDEPT	INP+14~, INP+21, INP+35, INP+36
DT	ENROLLM+21
DT1	PATDEM~, PATDEM+7, PATDEM+40
DT2	PATDEM+5~, PATDEM+7*, PATDEM+8, PATDEM+36
ECA	INP+14~, INP+20, INP+29, INP+45
ECADM	INP+14~, INP+21, INP+30, INP+39, INP+40, INP+45
ECAO	KPATDEM+1!
ECASNPI	PATDEM+38, KPATDEM+1!, PRIMARY+26, PRIMARY+29
ECASPR	PATDEM+37, KPATDEM+1!, PRIMARY+10~, PRIMARY+21, PRIMARY+23, PRIMARY+24, PRIMARY+25, PRIMARY+27, PRIMARY+29
ECCLAS	PATDEM+36, KPATDEM+1!, PRIMARY+10~, PRIMARY+16, PRIMARY+29
ECCLAS2	PATDEM+37, KPATDEM+1!, PRIMARY+10~, PRIMARY+24, PRIMARY+29
>> ECD	ENROLLM+21
ECDC	INP+14~, INP+21, INP+36, INP+45
>> ECED	GETASIH+19
ECENV	KPATDEM+1!
>> ECHEAD	ECXDEF+18, ECXDEF+32
ECMN	INP+14~, INP+21, INP+23, INP+24, INP+26*, INP+45, GETASIH+5
ECPRIME	PRIMARY+10~
ECPTNPI	PATDEM+37, KPATDEM+1!, PRIMARY+18, PRIMARY+29
ECPTPR	PATDEM+36, KPATDEM+1!, PRIMARY+10~, PRIMARY+15, PRIMARY+16, PRIMARY+17, PRIMARY+19*, PRIMARY+29
ECPTTM	PATDEM+36, KPATDEM+1!, PRIMARY+10~, PRIMARY+13, PRIMARY+29
ECRE	KPATDEM+2!
ECSC	PATDEM+20*, KPATDEM+2!
ECTS	INP+14~, INP+21, INP+27, INP+29, INP+44, INP+45
ECWARD	INP+14~, INP+21, INP+31, INP+32, INP+33, INP+34, INP+35, INP+45
ECXA	PATDEM+40*, KPATDEM+2!
ECXADMDT	PATDEM+41*, KPATDEM+1!
>> ECXAOL	PATDEM+28*
ECXARR	ECXDEF+11~
ECXARR(	ECXDEF+28, ECXDEF+30, ECXDEF+40, ECXDEF+41, ECXDEF+42, ECXDEF+43
ECXARY	VISN19+3~
ECXARY(	VISN19+7, VISN19+8, VISN19+15, VISN19+16, VISN19+18
ECXASIH	PATDEM+44, INP+15~, INP+21, INP+25*, INP+26, INP+30, INP+36, INP+45
ECXAST	PATDEM+26*, KPATDEM+2!
ECXATP	INP+15~, INP+21, INP+38, INP+40, INP+42*, INP+45
ECXATPPC	INP+16~, INP+21, INP+40, INP+45
>> ECXAUDIT	ECXDEF+30
ECXCAT	KPATDEM+2!, ENROLLM+13, ENROLLM+26, ENROLLM+35, ENROLLM+40
>> ECXCLST	PATDEM+30*
>> ECXCNTRY	PATDEM+18*
ECXCNTY	PATDEM+17*, KPATDEM+2!
ECXDA	VISN19+3~, VISN19+15*, VISN19+16, VISN19+18
ECXDATE	ENROLLM+21, PRIMARY~, PRIMARY+13, PRIMARY+15, PRIMARY+16, PRIMARY+17, PRIMARY+23, PRIMARY+24, PRIMARY+25, INP~ , INP+22
ECXDD	INP+15~, INP+18!
ECXDD("SPECIFIER"	INP+18
ECXDFN	PRIMARY~, PRIMARY+13, PRIMARY+15, PRIMARY+23, INP~, INP+20, VISN19~, VISN19+5, VISN19+13
ECXDOB	PATDEM+12*, KPATDEM+2!
ECXDOM	PATDEM+41, KPATDEM+3!, INP+15~, INP+44, INP+45
>> ECXDWARD	PATDEM+43, INP+21, INP+43*, INP+45
ECXELIG	PATDEM+21*, KPATDEM+3!
>> ECXEMP	PATDEM+24*
ECXENRL	PATDEM+22*, KPATDEM+2!
>> ECXERI	PATDEM+23*
ECXERR	VISN19+3~, VISN19+6, VISN19+14, VISN19+18
ECXEST	PATDEM+27*, KPATDEM+2!
>> ECXETH	PATDEM+15*
>> ECXEUSTA	ENROLLM+13*
ECXFILE	ECXDEF~, ECXDEF+12, ECXDEF+41
ECXGRP	ECXDEF~, ECXDEF+12, ECXDEF+40
ECXHEAD	ECXDEF~, ECXDEF+13
ECXIEN	ECXDEF+11~, ECXDEF+12, ECXDEF+13, ECXDEF+14, ECXDEF+26, ECXDEF+28, ECXDEF+30, ECXDEF+40, ECXDEF+41, ECXDEF+42 , ECXDEF+43
ECXINP	PATDEM+40, PATDEM+41, PATDEM+42, PATDEM+43, PATDEM+44, KPATDEM+3!, INP+14~, INP+45, INP+46
>> ECXMAR	PATDEM+14*
ECXMEAN	PATDEM+21*, KPATDEM+3!
ECXMN	PATDEM+40*, KPATDEM+3!
ECXMPI	PATDEM+9*, KPATDEM+3!
ECXMST	PATDEM+28*, KPATDEM+3!
ECXNM	KPATDEM+3!
>> ECXOEF	PATDEM+29*
>> ECXOEFDT	PATDEM+29*
ECXPACK	ECXDEF~, ECXDEF+12, ECXDEF+28
ECXPAYOR	PATDEM+34, KPATDEM+4!, VISN19~, VISN19+4, VISN19+7, VISN19+9*, VISN19+11, VISN19+13
ECXPHI	PATDEM+28*, KPATDEM+3!
ECXPIECE	ECXDEF~, ECXDEF+12, ECXDEF+43
ECXPLOC	PATDEM+27*, KPATDEM+3!
ECXPNM	PATDEM+12*, KPATDEM+4!
ECXPOS	PATDEM+20*, KPATDEM+4!
ECXPREFX	PRIMARY~, PRIMARY+11*, PRIMARY+19, PRIMARY+27
>> ECXPRIME	PRIMARY+29*, PRIMARY+30
ECXPRIOR	KPATDEM+4!, ENROLLM+13, ENROLLM+26, ENROLLM+34, ENROLLM+40
ECXPRO	INP+14~
ECXPROF	INP+15~, INP+18*, INP+42
ECXPST	PATDEM+27*, KPATDEM+4!
>> ECXPTYPE	ENROLLM+19*
ECXPWP	INP+15~, INP+21, INP+37, INP+39, INP+42*, INP+45
ECXPWPPC	INP+15~, INP+21, INP+39, INP+45
ECXRACE	PATDEM+13*, KPATDEM+4!
>> ECXRC1	PATDEM+15*
ECXREL	PATDEM+13*, KPATDEM+4!
ECXRST	PATDEM+26*, KPATDEM+4!
ECXRTN	ECXDEF~, ECXDEF+12, ECXDEF+42
ECXSAI	PATDEM+34, KPATDEM+4!, VISN19~, VISN19+4, VISN19+18*
ECXSBGRP	KPATDEM+6!, ENROLLM+13, ENROLLM+26, ENROLLM+36, ENROLLM+37, ENROLLM+40*
ECXSEX	PATDEM+13*, KPATDEM+5!
>> ECXSIGI	PATDEM+10*
ECXSSN	PATDEM+12*, KPATDEM+5!
ECXSTAT	KPATDEM+5!, ENROLLM+13, ENROLLM+26, ENROLLM+34, ENROLLM+35, ENROLLM+40
ECXSTATE	PATDEM+17*, KPATDEM+5!
ECXSVC	PATDEM+20*, KPATDEM+5!
ECXSVCI	PATDEM+31*, KPATDEM+6!
ECXSVCL	PATDEM+32*, KPATDEM+6!
ECXTS	PATDEM+41*, KPATDEM+5!
>> ECXUESTA	ENROLLM+17*
ECXUSRTN	PRIMARY+17~, PRIMARY+18, PRIMARY+25~, PRIMARY+26
ECXVER	ECXDEF~, ECXDEF+12, ECXDEF+45
>> ECXVET	PATDEM+21*
ECXVIET	PATDEM+26*, KPATDEM+5!
ECXWW	INP+15~, INP+21, INP+36, INP+45
ECXZIP	PATDEM+17*, KPATDEM+5!
ENR	ENROLLM+12~, ENROLLM+32*
ENR("EFFDATE"	ENROLLM+33
ENR("STATUS"	ENROLLM+33, ENROLLM+34
ENRIEN	ENROLLM+12~, ENROLLM+28, ENROLLM+31, ENROLLM+32
FAC	INP+15~, INP+21, INP+34, INP+36
FL	ENROLLM+12~, ENROLLM+30, ENROLLM+31, ENROLLM+34, ENROLLM+38
FLG	PATDEM~, PATDEM+7*, PATDEM+35, PATDEM+39, PATDEM+45
INSUR	VISN19+3~, VISN19+17*
IOST	ECXDEF+22, ECXDEF+36
JJ	ECXDEF+23, ECXDEF+37, VISN19+3~, VISN19+7, VISN19+8, VISN19+15
MVMTDT	GETASIH+1~, GETASIH+2*, GETASIH+5, GETASIH+12
OK	PATDEM+5~
PAR	PATDEM~, PATDEM+7*, PATDEM+8, PATDEM+11, PATDEM+16, PATDEM+19, PATDEM+24, PATDEM+25, PATDEM+33
PAT	PATDEM+5~, PATDEM+8
PAT("AO STAT"	, PATDEM+26
PAT("AOL"	PATDEM+28
PAT("CL STAT"	, PATDEM+30
PAT("COMBSVCI"	PATDEM+31
PAT("COMBSVCL"	PATDEM+32
PAT("COUNTRY"	PATDEM+18
PAT("COUNTY"	PATDEM+17
PAT("DOB"	PATDEM+12
PAT("EC STAT"	, PATDEM+27
PAT("ECXOEF"	PATDEM+29
PAT("ECXOEFDT"	PATDEM+29
PAT("ELIG"	PATDEM+21
PAT("EMPLOY"	PATDEM+24
PAT("ENROLL L	OC" , PATDEM+22
PAT("ERI"	PATDEM+23
PAT("ETHNIC"	PATDEM+15
PAT("IR STAT"	, PATDEM+26
PAT("MARITAL"	PATDEM+14
PAT("MEANS"	PATDEM+21
PAT("MPI"	PATDEM+9
PAT("MST STAT	" , PATDEM+28
PAT("NAME"	PATDEM+12
PAT("PHI"	PATDEM+28
PAT("POS"	PATDEM+20
PAT("POW LOC"	, PATDEM+27
PAT("POW STAT	" , PATDEM+27
PAT("RACE"	PATDEM+13
PAT("RACE1"	PATDEM+15
PAT("RELIGION"	PATDEM+13
PAT("SC STAT"	, PATDEM+20
PAT("SC%"	PATDEM+20
PAT("SEX"	PATDEM+13
PAT("SIGI"	PATDEM+10
PAT("SSN"	PATDEM+12
PAT("STATE"	PATDEM+17
PAT("VET"	PATDEM+21
PAT("VIETNAM"	PATDEM+26
PAT("ZIP"	PATDEM+17
PRIOR	ENROLLM+12~, ENROLLM+23*, ENROLLM+26, ENROLLM+34, ENROLLM+40
REC	GETASIH+1~, GETASIH+8, GETASIH+9, GETASIH+10, GETASIH+16, GETASIH+17, GETASIH+18, GETASIH+19
RNDT	ENROLLM~, ENROLLM+29, ENROLLM+30, ENROLLM+33
SBGRP	ENROLLM+12~, ENROLLM+24*, ENROLLM+26, ENROLLM+37, ENROLLM+40
>> SS	ECXDEF+23, ECXDEF+37
STAT	ENROLLM+12~, ENROLLM+23*, ENROLLM+24, ENROLLM+26, ENROLLM+40
U	PATDEM+36, PATDEM+37, PATDEM+38, PATDEM+40, PATDEM+41, PATDEM+42, PATDEM+43, PATDEM+44, PRIMARY+18, PRIMARY+26 , PRIMARY+29, INP+26, INP+27, INP+30, INP+33, INP+34, INP+35, INP+36, INP+44, INP+45 , GETASIH+9, GETASIH+10, GETASIH+17, GETASIH+18, GETASIH+19
VA	KPATDEM+5!
VAERR	KPATDEM+5!
VAIP	INP+15~
VAIP("D"	INP+22*
VAIP(1	INP+23
VAIP(13	INP+30, GETASIH+3
VAIP(17	INP+36, INP+43
VAIP(18	INP+38
VAIP(3	GETASIH+2
VAIP(4	INP+25
VAIP(5	INP+31
VAIP(7	INP+37
VAIP(8	INP+27
WRD	PATDEM+42, INP+15~, INP+21, INP+33*, INP+36
X	PATDEM+5~, PATDEM+36, PATDEM+37, PATDEM+38, PATDEM+45, ENROLLM+12~, ENROLLM+29, PRIMARY+22*
X1	ENROLLM+12~
X2	ENROLLM+12~
X3	ENROLLM+12~, ENROLLM+21*

Customize PDF page

Package: DSS Extracts

Routine: ECXUTL2

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 36

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: