Routine: ECXUD

Package	Total	Call Graph
DSS Extracts	10	$$GETDIV^ECXDEPT ^ECXKILL QUE^ECXTAUTO ^ECXTRAC SENDMSG^ECXUD1 ($$ECXDATE,$$ECXTIME,$$PATCAT,$$PRVCLASS)^ECXUTL ($$ENROLLM,$$INP,$$PRIMARY,ECXDEF)^ECXUTL2 $$PAT^ECXUTL3 ($$CNHSTAT,$$ENCNUM,$$HNCI,$$OBSPAT,$$SHAD)^ECXUTL4 ($$DOUDO,$$PHAAPI,NPRF)^ECXUTL5
Kernel	4	$$S^%ZTLOAD ($$DT,$$FMADD,$$FMTE)^XLFDT ($$LJ,$$RJ)^XLFSTR $$NPI^XUSNPI
VA FileMan	3	IX1^DIK $$GET1^DIQ EN^DIQ1
National Drug File	1	$$DSS^PSNAPIS
Registration	1	$$TSDATA^DGACT

Package	Total	Caller Graph
DSS Extracts	1	ECXUD

Name	Comments	DBIA/ICR reference
BEG	;entry point from option
START	;start package specific extract
STUFF	;get data
PAT(ECXDFN,ECXDATE,ECXERR)	;get demographics from patient file
FILE	;file record
NEW()	;149 Function added to determine if script had pharmacist involvement
CLEAN(START,END)	;149 Section added to delete old log entries
SETUP	;Set required input for ECXTRAC
QUE	; entry point for the background requeuing handled by ECXTAUTO
SETTMP(STR)	;181 - Set global TMP for Mail Message

Name	Field # of Occurrence
$$S^%ZTLOAD	FILE+72
$$TSDATA^DGACT	FILE+34
IX1^DIK	FILE+71
$$GET1^DIQ	STUFF+21, STUFF+22, STUFF+23, NEW+4, NEW+6
EN^DIQ1	SETTMP+7, SETTMP+16, SETTMP+17
$$GETDIV^ECXDEPT	STUFF+24, STUFF+45
^ECXKILL	BEG+3, QUE+1
QUE^ECXTAUTO	QUE+1
^ECXTRAC	BEG+3
SENDMSG^ECXUD1	START+11
$$ECXDATE^ECXUTL	STUFF+25, FILE+45
$$ECXTIME^ECXUTL	FILE+46
$$PATCAT^ECXUTL	PAT+48
$$PRVCLASS^ECXUTL	STUFF+57
$$ENROLLM^ECXUTL2	PAT+18, PAT+42
$$INP^ECXUTL2	PAT+61
$$PRIMARY^ECXUTL2	PAT+65
ECXDEF^ECXUTL2	SETUP+2
$$PAT^ECXUTL3	PAT+21
$$CNHSTAT^ECXUTL4	PAT+40
$$ENCNUM^ECXUTL4	STUFF+64
$$HNCI^ECXUTL4	PAT+44
$$OBSPAT^ECXUTL4	STUFF+47
$$SHAD^ECXUTL4	PAT+46
$$DOUDO^ECXUTL5	STUFF+52
$$PHAAPI^ECXUTL5	STUFF+29
NPRF^ECXUTL5	STUFF+60
$$DSS^PSNAPIS	STUFF+40
$$DT^XLFDT	CLEAN+3
$$FMADD^XLFDT	START+12, CLEAN+3
$$FMTE^XLFDT	STUFF+49
$$LJ^XLFSTR	SETTMP+8, SETTMP+18
$$RJ^XLFSTR	STUFF+36, STUFF+41
$$NPI^XUSNPI	STUFF+14

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: 5 Line Location: BEG+1
Function Call: WRITE	Prompt: !,"There are no unit dose orders to extract",!! Line Location: BEG+1

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls, GET1^DIQ
55.06	GET1^DIQ
55.09	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	STUFF+40
^DG(40.8 - [#40.8]	STUFF+23
^DIC(42 - [#42]	STUFF+17, STUFF+19
^ECX(	FILE+38, FILE+67, FILE+68, FILE+69*
^ECX(728 - [#728]	START+3, STUFF+23
^ECX(728.904 - [#728.904]	BEG+1, START+7, START+8, START+9*
^PS(55 - [#55]	NEW+3
^TMP($J	START+10!, START+11, PAT+4, PAT+5, PAT+15, PAT+20, PAT+56, PAT+57, PAT+58, SETTMP+4 , SETTMP+5, SETTMP+6, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+13, SETTMP+14, SETTMP+15, SETTMP+18, SETTMP+19 , SETTMP+20*
^XTMP("ECXSCRIPT"	NEW+8, NEW+9, CLEAN+2!, CLEAN+3

Name	Line Occurrences
$$NEW	STUFF+62
CLEAN	START+12
FILE	STUFF+66
PAT	STUFF+10
SETTMP	STUFF+54
SETUP	BEG+2, QUE+1
STUFF	START+9

Name	Field # of Occurrence
^(1	START+9*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	NEW+1~, NEW+4*, NEW+5, NEW+6
ALIEN	NEW+1~, NEW+3*
CLIN	SETTMP+1~, SETTMP+3, SETTMP+4, SETTMP+7, SETTMP+8, SETTMP+10, SETTMP+12, SETTMP+13, SETTMP+16, SETTMP+18 , SETTMP+20
DA	FILE+37~, FILE+71!, SETTMP+1~, SETTMP+7, SETTMP+16, SETTMP+17
>> DATA	START+9*, STUFF+7, STUFF+13, STUFF+16, STUFF+18, STUFF+25, STUFF+26, STUFF+27, STUFF+49, STUFF+57 , STUFF+64
DATE	CLEAN+1~, CLEAN+2*
DIC	SETTMP+1~, SETTMP+7, SETTMP+16, SETTMP+17*
DIK	FILE+37~, FILE+71*!
DIQ	SETTMP+1~, SETTMP+7, SETTMP+16, SETTMP+17*
DIQ(0	SETTMP+17*
DONE	NEW+1~, NEW+2, NEW+3, NEW+5
DR	SETTMP+1~, SETTMP+7, SETTMP+16, SETTMP+17*
>> EC23	START+9, FILE+42
>> EC7	FILE+38*, FILE+42, FILE+67, FILE+68, FILE+69, FILE+71
>> ECASNPI	PAT+67, FILE+39, FILE+58
>> ECASPR	PAT+67, FILE+39, FILE+53
>> ECCAT	STUFF+30*, FILE+43
>> ECCLAS	PAT+66, FILE+39, FILE+53
>> ECCLAS2	PAT+67, FILE+39, FILE+53
>> ECD	START+7*, START+8, STUFF+10, STUFF+14, NEW+5
ECDRG	STUFF+1~, STUFF+7*, STUFF+29
>> ECED	START+6*, START+7
>> ECFILE	BEG+2, FILE+38, FILE+67, FILE+68, FILE+69, FILE+71, SETUP+2
>> ECGRP	SETUP+2
>> ECHEAD	STUFF+64, SETUP+1*, SETUP+2
>> ECINV	STUFF+30, STUFF+32, STUFF+34*, FILE+44
>> ECNDC	STUFF+35, STUFF+36, STUFF+37, FILE+44
>> ECNFC	STUFF+36, STUFF+40, STUFF+41*, FILE+44
>> ECNODE	START+3
>> ECODE	FILE+42, FILE+43, FILE+44, FILE+45, FILE+46*, FILE+67
>> ECODE1	FILE+47, FILE+48, FILE+49, FILE+50, FILE+51, FILE+52, FILE+53*, FILE+67
>> ECODE2	FILE+54, FILE+55, FILE+56, FILE+57, FILE+58, FILE+59, FILE+60, FILE+61, FILE+62, FILE+63 , FILE+68
>> ECODE3	FILE+64*, FILE+68
>> ECODE4	FILE+65*, FILE+69
>> ECODE5	FILE+65, FILE+66, FILE+69
>> ECPACK	SETUP+2
>> ECPIECE	START+3, SETUP+2
ECPROIEN	STUFF+1~, STUFF+13*, STUFF+14
>> ECPTNPI	PAT+66, FILE+39, FILE+58
>> ECPTPR	PAT+66, FILE+39, FILE+52
>> ECPTTM	PAT+66, FILE+39, FILE+52
>> ECRN	FILE+70*
>> ECRTN	SETUP+2
>> ECSD	START+4, START+12
>> ECSD1	START+7
>> ECVER	SETUP+2
>> ECXA	STUFF+47, STUFF+50, STUFF+64, STUFF+65, PAT+61, FILE+42
>> ECXADM	STUFF+17, STUFF+64, PAT+62*, FILE+45, FILE+46
>> ECXAOL	PAT+11, PAT+29, PAT+57, FILE+51
ECXASIH	STUFF+2~, STUFF+65, PAT+62*
>> ECXAST	PAT+10, PAT+29, PAT+56, FILE+50
>> ECXBCDD	STUFF+58*, FILE+55
>> ECXBCDG	STUFF+58*, FILE+55
>> ECXBCIF	STUFF+58*, FILE+55
>> ECXBCUA	STUFF+58*, FILE+55
>> ECXCAT	PAT+2, PAT+12, PAT+57, FILE+52
ECXCERN	STUFF+3~, STUFF+5*, FILE+65
ECXCLIN	STUFF+2~, STUFF+21*, STUFF+22
ECXCLST	STUFF+1~, STUFF+6, PAT+16, PAT+32*, PAT+58, FILE+61
>> ECXCNHU	PAT+12, PAT+40, PAT+57, FILE+51
>> ECXCNTRY	PAT+15, PAT+26, PAT+58, FILE+59
>> ECXCNTY	PAT+8, PAT+25, PAT+56, FILE+49
>> ECXCOST	STUFF+27*, FILE+43
>> ECXCVE	FILE+56
>> ECXCVEDT	FILE+56
>> ECXCVENC	FILE+56
ECXDATA	FILE+33~, FILE+34*
ECXDATA(7	FILE+35
ECXDATE	PAT~, PAT+21, PAT+61, PAT+65
ECXDEA	STUFF+2~, STUFF+30*, FILE+64
ECXDFN	STUFF+7*, STUFF+10, STUFF+21, STUFF+52, PAT~, PAT+4, PAT+5, PAT+15, PAT+18, PAT+20 , PAT+21, PAT+40, PAT+42, PAT+44, PAT+46, PAT+48, PAT+56, PAT+57, PAT+58, PAT+61 , PAT+65, FILE+42, NEW+3, NEW+8, NEW+9
ECXDIC	SETTMP+1~
ECXDIC(44	SETTMP+8, SETTMP+18
ECXDICA	SETTMP+1~
ECXDICA(	SETTMP+18
>> ECXDIV	STUFF+19, STUFF+22, STUFF+23*, STUFF+24, STUFF+45, FILE+42
>> ECXDOB	PAT+6, PAT+24, PAT+56, FILE+48
>> ECXDOM	PAT+62*, FILE+47
>> ECXDSSD	STUFF+44*, FILE+47
ECXDUNIT	STUFF+4~, STUFF+39*, FILE+66
ECXECL	STUFF+1~, STUFF+6*, FILE+61
>> ECXELIG	PAT+7, PAT+24, PAT+56, FILE+48
>> ECXENC	STUFF+64*, STUFF+66, FILE+47
>> ECXENRL	PAT+12, PAT+31, PAT+57, FILE+51
>> ECXERI	PAT+15, PAT+53, PAT+58, FILE+57
ECXERR	STUFF+10, STUFF+11, PAT~, PAT+22
ECXESC	STUFF+1~, STUFF+6*, FILE+61
>> ECXEST	PAT+15, PAT+54, PAT+58, FILE+57
>> ECXETH	PAT+14, PAT+50, PAT+57, FILE+39*, FILE+54
>> ECXHNCI	PAT+13, PAT+44, PAT+57, FILE+54
ECXINVSC	SETTMP+1~, SETTMP+15*, SETTMP+18, SETTMP+19
>> ECXJ	START+8*, START+9, NEW+8, NEW+9
ECXLDT	START+1~, START+3*, START+4
>> ECXLOGIC	STUFF+31, STUFF+33, FILE+39, FILE+40, FILE+41, FILE+52, FILE+55, FILE+56, FILE+57, FILE+58 , FILE+59, FILE+60, FILE+61, FILE+62, FILE+63, FILE+64, FILE+65, FILE+66, FILE+68
>> ECXMN	PAT+61*, FILE+44
>> ECXMPI	PAT+6, PAT+23, PAT+56, FILE+41*, FILE+47
>> ECXMST	PAT+11, PAT+30, PAT+57, FILE+51
>> ECXMTST	PAT+14, PAT+31, PAT+57, FILE+40*, FILE+48
ECXNEW	STUFF+1~, STUFF+62*, FILE+62
ECXNMPI	STUFF+3~, STUFF+5, PAT+6, PAT+23*, FILE+65
ECXNOSC	SETTMP+1~, SETTMP+6*, SETTMP+8, SETTMP+9
>> ECXNPRFI	FILE+56
>> ECXOBS	STUFF+47*, STUFF+64, FILE+47
>> ECXOEF	PAT+2, PAT+15, PAT+37*, PAT+58, FILE+58
>> ECXOEFDT	PAT+2, PAT+15, PAT+38*, PAT+58, FILE+58
>> ECXOPPC	STUFF+57*, FILE+55
>> ECXORDDT	STUFF+49*, FILE+54
>> ECXORDST	STUFF+50, STUFF+52, STUFF+53, STUFF+54, STUFF+55*, FILE+54
ECXPAT	PAT+21!, PAT+22!
ECXPAT("AO ST	AT" , PAT+29
ECXPAT("AOL"	PAT+29
ECXPAT("CL ST	AT" , PAT+32
ECXPAT("COMBSVCI"	PAT+33
ECXPAT("COMBSVCL"	PAT+34
ECXPAT("COUNTRY"	PAT+26
ECXPAT("COUNTY"	PAT+25
ECXPAT("DOB"	PAT+24
ECXPAT("EC ST	AT" , PAT+54
ECXPAT("ECXOEF"	PAT+37
ECXPAT("ECXOEFDT"	PAT+38
ECXPAT("ELIG"	PAT+24
ECXPAT("ENROL	L LOC" , PAT+31
ECXPAT("ERI"	PAT+53
ECXPAT("ETHNIC"	PAT+50
ECXPAT("IR ST	AT" , PAT+28
ECXPAT("MEANS"	PAT+31
ECXPAT("MPI"	PAT+23
ECXPAT("MST S	TAT" , PAT+30
ECXPAT("NAME"	PAT+23
ECXPAT("PHI"	PAT+30
ECXPAT("POS"	PAT+27
ECXPAT("POW L	OC" , PAT+28
ECXPAT("POW S	TAT" , PAT+27
ECXPAT("RACE1"	PAT+51
ECXPAT("SEX"	PAT+24
ECXPAT("SIGI"	PAT+35
ECXPAT("SSN"	PAT+23
ECXPAT("STATE"	PAT+25
ECXPAT("VET"	PAT+26
ECXPAT("ZIP"	PAT+26
>> ECXPATCAT	PAT+16, PAT+48, PAT+58, FILE+60
>> ECXPDIV	STUFF+45*, FILE+48
ECXPHA	STUFF+1~, STUFF+29*, STUFF+30, STUFF+35, STUFF+38, STUFF+39
>> ECXPHI	PAT+11, PAT+30, PAT+57, FILE+51
>> ECXPLOC	PAT+10, PAT+28, PAT+56, FILE+50
>> ECXPNM	PAT+5, PAT+23, PAT+56, FILE+42
>> ECXPOS	PAT+9, PAT+27, PAT+56, FILE+49
ECXPPDU	STUFF+4~, STUFF+39*, FILE+66
>> ECXPRIOR	PAT+2, PAT+13, PAT+57, FILE+52, FILE+56
>> ECXPRNPI	STUFF+14, STUFF+15, FILE+58
>> ECXPRO	STUFF+13*, STUFF+57, FILE+43
>> ECXPST	PAT+9, PAT+27, PAT+56, FILE+50
>> ECXPTYPE	FILE+56
>> ECXQTY	STUFF+27*, FILE+43
>> ECXRC1	PAT+14, PAT+51, PAT+57, FILE+39*, FILE+54
>> ECXRST	PAT+10, PAT+28, PAT+56, FILE+50
>> ECXSBGRP	PAT+2*, FILE+56
>> ECXSEX	PAT+7, PAT+24, PAT+56, FILE+48
>> ECXSHADI	PAT+16, PAT+46, PAT+58, FILE+52
ECXSIGI	STUFF+3~, STUFF+5, PAT+17, PAT+35*, PAT+58, FILE+65
>> ECXSSN	STUFF+64, PAT+5, PAT+23, PAT+56, FILE+42
ECXSTANO	STUFF+2~, STUFF+24*, FILE+63
>> ECXSTAT	PAT+2, PAT+13, PAT+57, FILE+52
>> ECXSTATE	PAT+8, PAT+25, PAT+56, FILE+49
>> ECXSVCI	PAT+33*, PAT+58, FILE+62
>> ECXSVCL	PAT+34*, PAT+58, FILE+62
>> ECXTS	STUFF+47, STUFF+64, PAT+62, FILE+34, FILE+35, FILE+44
ECXUDDT	STUFF+1~, STUFF+25*, FILE+43
ECXUDTM	STUFF+1~, STUFF+26*, FILE+44
>> ECXUESTA	FILE+56
>> ECXVET	PAT+9, PAT+26, PAT+56, FILE+49
>> ECXW	STUFF+17*, STUFF+19, STUFF+20, FILE+43
>> ECXYM	STUFF+25, STUFF+40, FILE+45
>> ECXZIP	PAT+8, PAT+26, PAT+56, FILE+49
END	CLEAN~, CLEAN+2
IENS	NEW+1~, NEW+3*, NEW+4, NEW+6
OK	STUFF+1~, PAT+20, PAT+21*, PAT+22
ON	STUFF+1~, STUFF+18, STUFF+21, STUFF+52, NEW+3, NEW+8, NEW+9, CLEAN+1~, CLEAN+2
P1	STUFF+1~, STUFF+38*, STUFF+40, STUFF+41
P3	STUFF+1~, STUFF+38*, STUFF+40, STUFF+41
PAT	CLEAN+1~, CLEAN+2*
PSTAT	STUFF+1~
PT	STUFF+1~, PAT+5*, PAT+6, PAT+7, PAT+8, PAT+9, PAT+10, PAT+11, PAT+12, PAT+13 , PAT+14
>> PT1	PAT+15*, PAT+16, PAT+17
>> QFLG	START+5, START+7, START+8, FILE+72
RERUN	START+1~, START+2, START+4, START+12
SCODE	SETTMP+1~, SETTMP+12*, SETTMP+17, SETTMP+18
SCRIPT	NEW+1~, NEW+2, NEW+8, NEW+10
START	CLEAN~, CLEAN+2
STR	SETTMP~, SETTMP+2, SETTMP+3, SETTMP+11, SETTMP+12
U	START+3, START+9, STUFF+7, STUFF+13, STUFF+15, STUFF+16, STUFF+17, STUFF+18, STUFF+19, STUFF+23 , STUFF+25, STUFF+26, STUFF+27, STUFF+30, STUFF+35, STUFF+38, STUFF+39, STUFF+49, STUFF+53, STUFF+57 , STUFF+64, PAT+5, PAT+6, PAT+7, PAT+8, PAT+9, PAT+10, PAT+11, PAT+12, PAT+13 , PAT+14, PAT+15, PAT+16, PAT+17, PAT+56, PAT+57, PAT+58, PAT+61, PAT+62, PAT+66 , PAT+67, FILE+42, FILE+43, 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+56, FILE+57, FILE+58, FILE+59, FILE+60 , FILE+61, FILE+62, FILE+63, FILE+64, FILE+65, FILE+66, SETTMP+2, SETTMP+3, SETTMP+11, SETTMP+12
VDATE	NEW+1~, NEW+2, NEW+6, NEW+7, NEW+8, NEW+9
W	STUFF+1~, STUFF+16*, STUFF+17, STUFF+19
X	BEG+1!, STUFF+1~, STUFF+38, PAT+61, PAT+62, PAT+65, PAT+66, PAT+67
>> ZTQUEUED	FILE+72

Customize PDF page

Package: DSS Extracts

Routine: ECXUD

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: