Routine: SDAMODO2

Package	Total	Call Graph
Scheduling	2	REPORT^SDAMODO3 (GETDX,GETPRV)^SDOE
DRG Grouper	1	($$ICDDX,$$SYS)^ICDEX
Registration	1	PID^VADPT6

Package	Total	Caller Graph
Scheduling	1	SDAMODO

Name	Comments	DBIA/ICR reference
START	;
EXIT	;
BLD(SDPRX,SORT1,SORT2)	;
BLDTMP	;
PRSUB(PRX)	;
PTSUB(PDFN)	;
PDATA(DFN)	;
OKDIV(OEDIV)
OKDIVQ
CHECK(SRT,SDOE0,OEN)	;
CHECKQ
PRV(OEN)	; -- is there at least one provider from selected list
DX(OEN)	; -- is there at least one dx from selected list
PRV1(OEN)	; -- get list of providers for encounter
DX1(OEN)	; -- get list of dxs for encounter

Name	Field # of Occurrence
$$ICDDX^ICDEX	DX1+8
$$SYS^ICDEX	DX1+8
REPORT^SDAMODO3	START+20
GETDX^SDOE	DX+3, DX1+3
GETPRV^SDOE	PRV+3, PRV1+3
PID^VADPT6	PDATA+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PTSUB+1
^SC - [#44]	START+14
^SCE - [#409.68]	START+6
^SCE("B"	START+3, START+4
^TMP("SDRPT"	START+2!, BLD+5, BLDTMP+2, BLDTMP+5, BLDTMP+8*
^VA(200 - [#200]	PRSUB+2, PRV1+8

Name	Line Occurrences
$$CHECK	START+10, START+11
$$DX	CHECK+4
$$DX1	START+17
$$OKDIV	START+9
$$PDATA	BLDTMP+2
$$PRSUB	BLD+3, BLD+4, BLD+10
$$PRV	CHECK+3
$$PRV1	START+16
$$PTSUB	BLD+3, BLD+4
BLD	START+19
BLDTMP	BLD+7, BLD+10, BLD+13
CHECKQ	CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+1!
>> CLINIC	CHECK+6
>> CLINIC(	CHECK+6
DFN	EXIT+1!, PDATA~
DOE	START+2!, EXIT+1!
DXCDE	EXIT+1!, BLD+6, BLD+12, BLD+13, BLDTMP+2, BLDTMP+7
DXD	EXIT+1!, DX+1~, DX+6*, DX+7
>> I	BLD+5*, BLDTMP+2, BLDTMP+5, BLDTMP+8
IO	START+1
OEDIV	EXIT+1!, OKDIV~, OKDIV+3
OEN	EXIT+1!, CHECK~, CHECK+3, CHECK+4, PRV~, PRV+3, DX~, DX+3, PRV1~, PRV1+3 , DX1~, DX1+3
P1	EXIT+1!
>> PATN	CHECK+5
>> PATN(	CHECK+5
PD	EXIT+1!, PRV+1~, PRV+6*, PRV+7
PDFN	PTSUB~, PTSUB+1
>> PDIAG	DX+7, DX1+7
>> PDIAG(	DX+7, DX1+7
PIFN	PRV1+1~, PRV1+6*, PRV1+7, PRV1+8
PROV	PRV1+1~
>> PROVDR	PRV+7, PRV1+7
>> PROVDR(	PRV+7, PRV1+7
PRV	BLD+1~, BLD+6, BLD+9, BLDTMP+2, BLDTMP+4
PRX	PRSUB~, PRSUB+2, PRV1+1~, PRV1+2, PRV1+8, PRV1+9, PRV1+10*, PRV1+11
QFLAG	PRV1+1~, PRV1+2, PRV1+5, PRV1+9, DX1+1~, DX1+2, DX1+5, DX1+10
SD	EXIT+1!, PRV+1~, DX+1~, PRV1+1~, DX1+1~
>> SDBEG	START+3, DX1+8
>> SDEND	START+3
SDICD9	DX1+1~, DX1+8*, DX1+9
SDOE	START+2!, START+4*, START+6, START+10, START+11, START+16, START+17, EXIT+1!
SDOE0	START+5!, START+6*, START+7, START+8, START+9, START+10, START+11, START+12, START+13, START+14 , START+15, START+16, START+17, START+18, EXIT+1!, CHECK~, CHECK+5, CHECK+6, CHECK+7
SDPRX	START+5!, START+19, EXIT+1!, BLD~
SDPRX("CL NAM	E" , START+14*, BLD+3, BLD+4, BLDTMP+2
SDPRX("DFN"	START+12*, BLD+3, BLD+4, BLDTMP+2
SDPRX("DIV NA	ME" , START+15*, BLD+5, BLDTMP+2, BLDTMP+5, BLDTMP+8
SDPRX("DX"	START+17*, BLD+3, BLD+4, BLD+6, BLD+12, BLDTMP+6, BLDTMP+7, BLDTMP+8
SDPRX("OED"	START+13*, BLD+5, BLDTMP+2, BLDTMP+5, BLDTMP+8
SDPRX("PRV"	START+16*, BLD+3, BLD+4, BLD+6, BLD+9, BLD+10, BLDTMP+3, BLDTMP+4, BLDTMP+5
SDPRX("SCODE"	START+18*, BLD+3, BLD+4, BLDTMP+2
SDT	START+2!, START+3*, START+4, EXIT+1!
SDVPOV	DX+1~, DX+4, DX+5, DX+6, DX1+1~, DX1+4, DX1+5, DX1+6
SDVPOVS	DX+1~, DX1+1~
SDVPOVS(	DX+5, DX+6, DX1+5, DX1+6
SDVPRV	PRV+1~, PRV+4, PRV+5, PRV+6, PRV1+1~, PRV1+4, PRV1+5, PRV1+6
SDVPRVS	PRV+1~, PRV1+1~
SDVPRVS(	PRV+5, PRV+6, PRV1+5, PRV1+6
SORT1	START+10, START+19, BLD~, BLD+3, BLD+8, BLD+11, BLDTMP+6
SORT2	START+11, START+19, BLD~, BLD+4
SRT	EXIT+1!, CHECK~, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7
>> STOPC	CHECK+7
>> STOPC(	CHECK+7
SUB1	BLD+1~, BLD+3, BLD+5, BLD+10, BLD+13*, BLDTMP+2, BLDTMP+5, BLDTMP+8
SUB2	BLD+1~, BLD+4*, BLD+5, BLDTMP+2, BLDTMP+5, BLDTMP+8
U	START+7, START+8, START+9, START+12, START+13, START+14, START+15, START+16, START+17, START+18 , BLD+3, BLD+4, BLD+6, BLD+9, BLD+10, BLD+12, BLDTMP+3, BLDTMP+4, BLDTMP+5, BLDTMP+6 , BLDTMP+7, BLDTMP+8, PRSUB+2, PTSUB+1, CHECK+5, CHECK+6, CHECK+7, DX1+9
VA	EXIT+1!
VA("PID"	PDATA+2
VAERR	EXIT+1!
VAR1	EXIT+1!
>> VAUTD	OKDIV+3
>> VAUTD(	OKDIV+3
X1	BLDTMP+1~, BLDTMP+3, BLDTMP+4, BLDTMP+5, BLDTMP+6, BLDTMP+7, BLDTMP+8
XDN	EXIT+1!, DX1+1~, DX1+2, DX1+9, DX1+10, DX1+11*, DX1+12
XDX	EXIT+1!, DX1+1~
XPR	EXIT+1!, PRSUB+1, PRSUB+2, PRSUB+3
XPT	EXIT+1!, PTSUB+1*, PTSUB+2
XPX	EXIT+1!
XX	BLD+9, BLD+10, BLD+12, PRV1+1~, DX1+1~, DX1+2, DX1+6, DX1+7, DX1+8
Y	BLD+1~, BLD+2, OKDIV+1~, OKDIV+2, OKDIV+3, OKDIVQ, CHECK+1~, CHECK+2, CHECK+3, CHECK+4 , CHECK+5, CHECK+6, CHECK+7, CHECKQ, PRV+1~, PRV+2, PRV+5, PRV+7, PRV+8, DX+1~ , DX+2, DX+5, DX+7, DX+8, PRV1+1~, PRV1+2, DX1+1~
ZTDESC	EXIT+1!
ZTQUEUED	EXIT+1!
ZTRTN	EXIT+1!
ZTSAVE	EXIT+1!
ZTSK	EXIT+1!

Customize PDF page

Package: Scheduling

Routine: SDAMODO2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: