Routine: ECXQSR

Package	Total	Call Graph
DSS Extracts	11	$$GETDIV^ECXDEPT ^ECXKILL FILE^ECXQSR1 VISIT^ECXSCX1 QUE^ECXTAUTO ^ECXTRAC ($$ECXDATE,$$ECXTIME,$$PATCAT,$$PRVCLASS)^ECXUTL ($$ENROLLM,$$PATDEM,ECXDEF)^ECXUTL2 ($$CPT,$$PAT)^ECXUTL3 ($$CNHSTAT,$$ENCNUM,$$HNCI,$$OBSPAT,$$SHAD,$$TSMAP)^ECXUTL4 NPRF^ECXUTL5
VA FileMan	3	$$FIND1^DIC FILE^DID $$GET1^DIQ
Kernel	2	$$RJ^XLFSTR $$NPI^XUSNPI
DRG Grouper	1	$$CODEC^ICDEX
Quasar	1	$$CONVERT1^ACKQUTL4

Package	Total	Caller Graph
DSS Extracts	1	ECXQSR

Name	Comments	DBIA/ICR reference
BEG	;entry point from option
START	;entry point from tasked job
QINST	;Get installed information for QUASAR
UPDATE	;create record for each unique CPT code for clinic visit
SETUP	;Set required input for ECXTRAC
QUE	;Entry point for the background requeuing handled by ECXTAUTO.

Name	Field # of Occurrence
$$CONVERT1^ACKQUTL4	UPDATE+67, UPDATE+68, UPDATE+69, UPDATE+70, UPDATE+71, UPDATE+72, UPDATE+81
$$FIND1^DIC	QINST+5, QINST+7
FILE^DID	QINST+3
$$GET1^DIQ	QINST+8, UPDATE+37, UPDATE+41
$$GETDIV^ECXDEPT	UPDATE+20, UPDATE+26
^ECXKILL	BEG+5, QUE+1
FILE^ECXQSR1	UPDATE+160
VISIT^ECXSCX1	UPDATE+132
QUE^ECXTAUTO	QUE+1
^ECXTRAC	BEG+5
$$ECXDATE^ECXUTL	UPDATE+6
$$ECXTIME^ECXUTL	UPDATE+7
$$PATCAT^ECXUTL	UPDATE+141
$$PRVCLASS^ECXUTL	UPDATE+102, UPDATE+103, UPDATE+104, UPDATE+105, UPDATE+106, UPDATE+107, UPDATE+155
$$ENROLLM^ECXUTL2	UPDATE+143
$$PATDEM^ECXUTL2	UPDATE+9
ECXDEF^ECXUTL2	SETUP+2
$$CPT^ECXUTL3	UPDATE+55, UPDATE+82, UPDATE+153, UPDATE+159
$$PAT^ECXUTL3	UPDATE+10
$$CNHSTAT^ECXUTL4	UPDATE+128
$$ENCNUM^ECXUTL4	UPDATE+148
$$HNCI^ECXUTL4	UPDATE+137
$$OBSPAT^ECXUTL4	UPDATE+126
$$SHAD^ECXUTL4	UPDATE+139
$$TSMAP^ECXUTL4	UPDATE+44
NPRF^ECXUTL5	UPDATE+145
$$CODEC^ICDEX	UPDATE+92
$$RJ^XLFSTR	UPDATE+36, UPDATE+37, UPDATE+39, UPDATE+40, UPDATE+41
$$NPI^XUSNPI	UPDATE+110, UPDATE+112, UPDATE+114, UPDATE+116, UPDATE+118, UPDATE+120, UPDATE+156

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must be using the Quality Audiology & Speech Pathology",!,"Audit & Review (QUASAR) software to run this extract.",!! Line Location: BEG+1
Function Call: WRITE	Prompt: !,"Linkage has not been established between QUASAR and the DSS UNIT file (#724).",!! Line Location: BEG+2
Function Call: WRITE	Prompt: !,"There is no data in the A&SP CLINIC VISIT file (#509850.6).",!! Line Location: BEG+3
Routine Call	DIC Line Location: QINST+5 QINST+7

FileNo	Call Tags
^ACK(509850.6 - [#509850.6]	FILE^DID
^ECX(728.44 - [#728.44]	GET1^DIQ
^ECX(728.441 - [#728.441]	GET1^DIQ
^DIC(9.4 - [#9.4]	FIND1^DIC
9.49	FIND1^DIC, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ACK(509850.4 - [#509850.4]	UPDATE+55
^ACK(509850.6 - [#509850.6]	BEG+3, START+5, START+7, UPDATE+4, UPDATE+5, UPDATE+19, UPDATE+45, UPDATE+54, UPDATE+55, UPDATE+59 , UPDATE+60, UPDATE+61, UPDATE+65, UPDATE+66, UPDATE+73, UPDATE+74, UPDATE+77, UPDATE+83, UPDATE+84, UPDATE+90 , UPDATE+91, UPDATE+97, UPDATE+130
^ACK(509850.8 - [#509850.8]	BEG+1, BEG+2, START+4
^DGPM - [#405]	UPDATE+23, UPDATE+24
^DIC(40.7 - [#40.7]	UPDATE+35, UPDATE+39, UPDATE+40
^DIC(42 - [#42]	UPDATE+25
^EC(725 - [#725]	UPDATE+78
^ECD - [#724]	UPDATE+30
^ICD9 - [#80]	UPDATE+59, UPDATE+61
^SC - [#44]	UPDATE+34

Name	Line Occurrences
QINST	START+3
SETUP	BEG+4, QUE+1
UPDATE	START+7

Name	Field # of Occurrence
^(0	UPDATE+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	QINST+1~
ARR("VERSION"	QINST+4
ARY	UPDATE+1~, UPDATE+64~
ARY(	UPDATE+86, UPDATE+87*, UPDATE+153
>> CNT	UPDATE+92*
CPT	UPDATE+1~, UPDATE+64~, UPDATE+74, UPDATE+77, UPDATE+79, UPDATE+80, UPDATE+152*, UPDATE+153, UPDATE+154, UPDATE+159 , UPDATE+161!
DA	UPDATE+122~
DI	UPDATE+122~
DIA	UPDATE+64~, UPDATE+91*, UPDATE+92
DIC	UPDATE+122~
DIK	UPDATE+122~
DIQ	UPDATE+122~
DR	UPDATE+122~
>> EC2NODE	UPDATE+5*, UPDATE+19, UPDATE+53
>> ECAC	UPDATE+31*, UPDATE+33, UPDATE+34, UPDATE+37
>> ECCS	UPDATE+30*
>> ECD	START+2, START+5, START+6, START+7, UPDATE+9, UPDATE+102, UPDATE+103, UPDATE+104, UPDATE+105, UPDATE+106 , UPDATE+107, UPDATE+110, UPDATE+112, UPDATE+114, UPDATE+116, UPDATE+118, UPDATE+120, UPDATE+155, UPDATE+156
>> ECDA	START+5, START+7, UPDATE+4, UPDATE+5, UPDATE+19, UPDATE+45, UPDATE+54, UPDATE+55, UPDATE+59, UPDATE+60 , UPDATE+61, UPDATE+65, UPDATE+66, UPDATE+73, UPDATE+74, UPDATE+77, UPDATE+83, UPDATE+84, UPDATE+90, UPDATE+91 , UPDATE+97, UPDATE+130
>> ECDAY	UPDATE+6*
>> ECDIA	UPDATE+50, UPDATE+59
>> ECDSS	UPDATE+42, UPDATE+44, UPDATE+126
ECDSSE	UPDATE+1~, UPDATE+147*, UPDATE+148
>> ECDSSU	UPDATE+30*, UPDATE+39, UPDATE+40, UPDATE+41
>> ECDT	UPDATE+6*, UPDATE+7, UPDATE+10, UPDATE+148
>> ECDU	UPDATE+28*, UPDATE+29, UPDATE+30
>> ECED	START+2*, START+5
>> ECFILE	BEG+4, SETUP+2
>> ECGRP	SETUP+2
>> ECHEAD	UPDATE+148, SETUP+1*, SETUP+2
>> ECHL	UPDATE+19, UPDATE+34, UPDATE+35
>> ECHL2	UPDATE+34*, UPDATE+35
>> ECHL2S	UPDATE+31, UPDATE+35, UPDATE+36, UPDATE+40, UPDATE+42, UPDATE+147
>> ECHLS	UPDATE+31, UPDATE+35, UPDATE+36, UPDATE+39, UPDATE+42, UPDATE+147
>> ECIEN	UPDATE+59, UPDATE+60, UPDATE+61, UPDATE+90*, UPDATE+91
>> ECL	START+4*
>> ECLINK	START+4*, UPDATE+28
>> ECM	UPDATE+30*
>> ECO	UPDATE+30*
ECP	UPDATE+64~, UPDATE+74, UPDATE+77, UPDATE+78, UPDATE+89, UPDATE+159
>> ECPACK	SETUP+2
>> ECPIECE	SETUP+2
ECPN	UPDATE+53, UPDATE+54, UPDATE+55, UPDATE+64~, UPDATE+73*, UPDATE+74, UPDATE+83, UPDATE+84
>> ECPR1NPI	UPDATE+109, UPDATE+156, UPDATE+157*
>> ECPR2NPI	UPDATE+109, UPDATE+110, UPDATE+111*
>> ECPR3NPI	UPDATE+109, UPDATE+112, UPDATE+113*
>> ECPR4NPI	UPDATE+109, UPDATE+114, UPDATE+115*
>> ECPR5NPI	UPDATE+109, UPDATE+116, UPDATE+117*
>> ECPR6NPI	UPDATE+109, UPDATE+118, UPDATE+119*
>> ECPR7NPI	UPDATE+109, UPDATE+120, UPDATE+121*
>> ECRTN	SETUP+2
>> ECSD1	START+2
>> ECSTOP	UPDATE+19*, UPDATE+21, UPDATE+28
>> ECTIME	UPDATE+7*
ECTP	UPDATE+1~, UPDATE+64~, UPDATE+74*, UPDATE+76, UPDATE+77, UPDATE+80
ECUPCE	UPDATE+1~, UPDATE+30*, UPDATE+32, UPDATE+38
ECV	UPDATE+1~, UPDATE+74, UPDATE+88, UPDATE+89, UPDATE+153, UPDATE+159
>> ECVER	SETUP+2
ECX4CHAR	UPDATE+2~, UPDATE+37, UPDATE+41
>> ECXA	UPDATE+23, UPDATE+32, UPDATE+38, UPDATE+126, UPDATE+148, UPDATE+150*
>> ECXADMDT	UPDATE+148
>> ECXAO	UPDATE+130, UPDATE+133
ECXASIH	UPDATE+3~, UPDATE+150
>> ECXCEDT	UPDATE+99*
ECXCLST	UPDATE+2~, UPDATE+11, UPDATE+17
>> ECXCNH	UPDATE+128*
>> ECXCPT	UPDATE+55, UPDATE+56, UPDATE+57, UPDATE+58, UPDATE+74, UPDATE+75, UPDATE+82, UPDATE+86, UPDATE+87, UPDATE+89 , UPDATE+101, UPDATE+153*
>> ECXCSDT	UPDATE+99*
>> ECXCTYP	UPDATE+99*
>> ECXDFN	UPDATE+8*, UPDATE+9, UPDATE+10, UPDATE+128, UPDATE+132, UPDATE+137, UPDATE+139, UPDATE+141, UPDATE+143
>> ECXDIV	UPDATE+19*, UPDATE+20
>> ECXDSSD	UPDATE+30*
>> ECXECE	UPDATE+130, UPDATE+133
ECXECL	UPDATE+2~, UPDATE+130, UPDATE+135
>> ECXENC	UPDATE+148*, UPDATE+149
ECXERR	UPDATE+12*, UPDATE+132!
ECXESC	UPDATE+2~, UPDATE+130, UPDATE+135
>> ECXHNC	UPDATE+130, UPDATE+134
>> ECXHNCI	UPDATE+137*
ECXICD101	UPDATE+2~
ECXICD102	UPDATE+2~
ECXICD103	UPDATE+2~
ECXICD104	UPDATE+2~
ECXICD10P	UPDATE+2~, UPDATE+50, UPDATE+93, UPDATE+95*
>> ECXIR	UPDATE+130, UPDATE+134
>> ECXLOGIC	UPDATE+43
>> ECXMIL	UPDATE+130, UPDATE+134
>> ECXMN	UPDATE+23, UPDATE+24
>> ECXMOD	UPDATE+82, UPDATE+85, UPDATE+86, UPDATE+87
ECXNPRFI	START+1~
>> ECXOBS	UPDATE+126*, UPDATE+148
>> ECXODIV	UPDATE+99*
>> ECXOEF	UPDATE+14*
>> ECXOEFDT	UPDATE+15*
ECXPAT	UPDATE+10, UPDATE+12!
ECXPAT("CL ST	AT" , UPDATE+17
ECXPAT("ECXOEF"	UPDATE+14
ECXPAT("ECXOEFDT"	UPDATE+15
ECXPAT("VIETNAM"	UPDATE+16
>> ECXPATCAT	UPDATE+141*
>> ECXPDIV	UPDATE+20*, UPDATE+22
>> ECXPPC	UPDATE+50*
>> ECXPPC1	UPDATE+101, UPDATE+155
>> ECXPPC2	UPDATE+101, UPDATE+102
>> ECXPPC3	UPDATE+101, UPDATE+103
>> ECXPPC4	UPDATE+101, UPDATE+104
>> ECXPPC5	UPDATE+101, UPDATE+105
>> ECXPPC6	UPDATE+101, UPDATE+106
>> ECXPPC7	UPDATE+101, UPDATE+107
>> ECXPRV1	UPDATE+50, UPDATE+53, UPDATE+57, UPDATE+79, UPDATE+80, UPDATE+81, UPDATE+89, UPDATE+154, UPDATE+155, UPDATE+156 , UPDATE+158*
>> ECXPRV2	UPDATE+50, UPDATE+53, UPDATE+65, UPDATE+67, UPDATE+102, UPDATE+110
>> ECXPRV3	UPDATE+50, UPDATE+53, UPDATE+65, UPDATE+68, UPDATE+103, UPDATE+112
>> ECXPRV4	UPDATE+50, UPDATE+65, UPDATE+69*, UPDATE+104, UPDATE+114
>> ECXPRV5	UPDATE+50, UPDATE+65, UPDATE+70*, UPDATE+105, UPDATE+116
>> ECXPRV6	UPDATE+50, UPDATE+66, UPDATE+71*, UPDATE+106, UPDATE+118
>> ECXPRV7	UPDATE+50, UPDATE+66, UPDATE+72*, UPDATE+107, UPDATE+120
ECXQDT	START+1~, START+6, QINST+2, QINST+8
>> ECXQV	START+2, START+6, QINST+4*, QINST+7, UPDATE+52, UPDATE+63
>> ECXSHAD	UPDATE+130, UPDATE+133
>> ECXSHADI	UPDATE+139*
>> ECXSSN	UPDATE+148
ECXSTANO	UPDATE+3~, UPDATE+22, UPDATE+26
ECXTEMPD	UPDATE+3~, UPDATE+25*, UPDATE+26
ECXTEMPW	UPDATE+3~, UPDATE+24*, UPDATE+25
>> ECXTS	UPDATE+44, UPDATE+126, UPDATE+148
>> ECXVISIT	UPDATE+130*, UPDATE+131, UPDATE+132
>> ECXVIST	UPDATE+132
>> ECXVIST("AO"	UPDATE+133
>> ECXVIST("ENCCL"	UPDATE+135
>> ECXVIST("ENCSC"	UPDATE+135
>> ECXVIST("HNC"	UPDATE+134
>> ECXVIST("IR"	UPDATE+134
>> ECXVIST("MST"	UPDATE+134
>> ECXVIST("PGE"	UPDATE+133
>> ECXVIST("SHAD"	UPDATE+133
ECXVNS	UPDATE+2~, UPDATE+16*
>> ECXYM	UPDATE+6
ECZNODE	UPDATE+1~, UPDATE+5*, UPDATE+6, UPDATE+8, UPDATE+31
ERR	START+1~, START+3, QINST+4, QINST+5, QINST+7*
FILEN	UPDATE+122~
I	UPDATE+48, UPDATE+49, UPDATE+60, UPDATE+61, UPDATE+64~, UPDATE+86, UPDATE+87, UPDATE+94, UPDATE+95, UPDATE+96
IENS	QINST+1~, QINST+6, QINST+7, QINST+8
II	UPDATE+122~, UPDATE+123*
INTIEN	QINST+1~, QINST+7*, QINST+8
J	UPDATE+64~, UPDATE+96*
LOC	UPDATE+1~, UPDATE+97, UPDATE+161!
LOC(	UPDATE+57, UPDATE+58, UPDATE+89*, UPDATE+152, UPDATE+153, UPDATE+154, UPDATE+159
MOD	UPDATE+1~, UPDATE+64~, UPDATE+82, UPDATE+83, UPDATE+84
MOD1	UPDATE+64~, UPDATE+84*, UPDATE+85
>> OK	UPDATE+10*, UPDATE+12
P	UPDATE+64~, UPDATE+91*, UPDATE+92
>> QFLG	START+2*, START+5, START+7
QVIEN	QINST+1~, QINST+5*, QINST+6, QINST+8
STR	UPDATE+1~, UPDATE+64~
STR(	UPDATE+92*
STR("P"	UPDATE+93, UPDATE+94
STR("S"	UPDATE+95, UPDATE+96
U	UPDATE+6, UPDATE+8, UPDATE+19, UPDATE+24, UPDATE+25, UPDATE+28, UPDATE+30, UPDATE+31, UPDATE+34, UPDATE+35 , UPDATE+39, UPDATE+40, UPDATE+41, UPDATE+53, UPDATE+55, UPDATE+57, UPDATE+58, UPDATE+59, UPDATE+61, UPDATE+74 , UPDATE+77, UPDATE+78, UPDATE+79, UPDATE+80, UPDATE+89, UPDATE+91, UPDATE+111, UPDATE+113, UPDATE+115, UPDATE+117 , UPDATE+119, UPDATE+121, UPDATE+130, UPDATE+153, UPDATE+154, UPDATE+157, UPDATE+159
VOL	UPDATE+1~, UPDATE+64~, UPDATE+79, UPDATE+80, UPDATE+88
XVAR	UPDATE+122~, UPDATE+123*, UPDATE+124
XX	UPDATE+1~, UPDATE+55*

Customize PDF page

Package: DSS Extracts

Routine: ECXQSR

Information

Source Information

Call Graph

Call Graph Total: 18

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: