Routine: SCRPW81

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ENDR^%ZISS ^%ZTLOAD ($$FMADD,$$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT
VA Fileman	3	NOW^%DTC $$GET1^DIQ ^DIR
Registration	2	$$LST^DGMTU PID^VADPT6
MailMan	1	^XMD
Scheduling	1	$$MTI^SCDXUTL0

Entry Points

Name	Comments	DBIA/ICR reference
GETDT(SDBEG,SDEND)	; Get beginning and ending date for search ; Output SDBEG Beginning for date range ; SDEND End of date range ; result 1 - If function successful ; 0 - If function NOT successful (User quit)
EN	; Main entry point for report
RUN	; Run report
HDR	; Report Header
FTR	; Report Footer
CHKMT	; Clean out all except those meeting the MT=U conditions
BLD(SDBEG,SDEND)	; Build list of patient OE's for date range ; Input SDBEG ; SDEND
SRTNAME	; Sort remaining encounters by patient name and OE date
EXIT
FTR1	;
PRINT	; Print Report
MAIL	; send message with report statistics
PASTYR(SDBEG,SDEND)	; Set dates for previous fiscal year
CURYR(SDBEG,SDEND)	; Set dates for current fiscal year

External References

Name	Field # of Occurrence
NOW^%DTC	PASTYR+3, CURYR+3
^%ZIS	EN+28
HOME^%ZIS	EN+33
^%ZISC	EN+35
ENDR^%ZISS	EN+21
^%ZTLOAD	EN+33
$$LST^DGMTU	CHKMT+16
$$GET1^DIQ	BLD+17, CHKMT+11, CHKMT+12, SRTNAME+5, PRINT+25, PRINT+26
^DIR	EN+6, GETDT+15, GETDT+22
$$MTI^SCDXUTL0	CHKMT+13
PID^VADPT6	PRINT+16, PRINT+20
$$FMADD^XLFDT	PASTYR+8, PASTYR+9, BLD+6, BLD+7
$$FMTE^XLFDT	EN+17, MAIL+3, PRINT+22, HDR+10, HDR+13
$$HDIFF^XLFDT	MAIL+7
$$HTE^XLFDT	MAIL+5, MAIL+6
$$NOW^XLFDT	CURYR+8, HDR+13
^XMD	MAIL+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Date Range: "_$$FMTE^XLFDT(SDBEG)_" to "_$$FMTE^XLFDT(SDEND) Line Location: EN+17
Function Call: WRITE	Prompt: !,"A 132-Column printer is required for this report." Line Location: EN+23
Function Call: WRITE	Prompt: !,"This report will NOT print correctly to the screen!" Line Location: EN+24
Function Call: WRITE	Prompt: !!?3,"You have selected to specify your own date range. Please note that by" Line Location: GETDT+8
Function Call: WRITE	Prompt: !?3,"doing so you may not generate an accurate picture of the AMB CARE" Line Location: GETDT+9
Function Call: WRITE	Prompt: !?3,"closeouts where the means test indicator equals 'U'.",! Line Location: GETDT+10
Function Call: WRITE	Prompt: !,$E(SDNAME,1,30) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?($L(SDNAME)+1),"(",VA("BID"),")" Line Location: PRINT+17
Function Call: WRITE	Prompt: !,$E(SDNAME,1,30) Line Location: PRINT+19
Function Call: WRITE	Prompt: ?($L(SDNAME)+1),"(",VA("BID"),")" Line Location: PRINT+21
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT(SDOEDT,"D"),$S(SDOEX>0:" *",1:" ") Line Location: PRINT+22
Function Call: WRITE	Prompt: ?56,$P($G(^TMP("SCDX ASORT",$J,SDNAME,SDOEDT)),U,4) Line Location: PRINT+23
Function Call: WRITE	Prompt: ?68,$E($$GET1^DIQ(40.8,$P(SDNODE,U,11),.01),1,30) Line Location: PRINT+25
Function Call: WRITE	Prompt: ?100,$E($$GET1^DIQ(44,$P(SDNODE,U,4),.01),1,30) Line Location: PRINT+26
Function Call: WRITE	Prompt: ! Line Location: PRINT+28
Function Call: WRITE	Prompt: !?TAB,PRNTLN Line Location: HDR+9
Function Call: WRITE	Prompt: !!?TAB,PRNTLN Line Location: HDR+12
Function Call: WRITE	Prompt: !?TAB,PRNTLN Line Location: HDR+15
Function Call: WRITE	Prompt: !?TAB,PRNTLN Line Location: HDR+18
Function Call: WRITE	Prompt: !!?35,"Outpatient",?52,"",?68,"Medical Ctr" Line Location: HDR+20
Function Call: WRITE	Prompt: !,"PATIENT NAME",?35,"Encounter Date",?52,"MT Indicator",?68,"Division",?100,"Clinic" Line Location: HDR+21
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+23
Function Call: WRITE	Prompt: ! Line Location: FTR+3
Function Call: WRITE	Prompt: ?5,"* - Transmitted Outpatient Encounter" Line Location: FTR+4
Function Call: WRITE	Prompt: !?5,"* - Transmitted Outpatient Encounter" Line Location: FTR1+1
Routine Call	%ZIS Line Location: EN+33
Routine Call	DIR Line Location: EN+6 GETDT+15 GETDT+22
Routine Call	%ZIS Line Location: EN+28

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^SCE - [#409.68]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	CHKMT+5
^SCE - [#409.68]	BLD+13, PRINT+24
^SCE("B"	BLD+10, BLD+12
^SD(409.73 - [#409.73]	BLD+18
^TMP("SCDX ASORT"	RUN+2!, RUN+9!, SRTNAME+11*, PRINT+7, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+23
^TMP("SCDX MTU"	RUN+2!, RUN+9!, BLD+9, BLD+20, BLD+21, BLD+22, CHKMT+4, CHKMT+6!, CHKMT+8, CHKMT+9 , CHKMT+15!, CHKMT+17!, CHKMT+18, CHKMT+19, SRTNAME+4, SRTNAME+7, SRTNAME+9, SRTNAME+10, SRTNAME+11, SRTNAME+12 , SRTNAME+13*, MAIL+5, MAIL+6, MAIL+7, MAIL+9, MAIL+10, MAIL+11

Label References

Name	Line Occurrences
BLD	RUN+4
CHKMT	RUN+5
CURYR	EN+13
EXIT	EN+28
FTR	HDR+3
FTR1	PRINT+29
GETDT	EN+15
HDR	PRINT+5, PRINT+27
MAIL	RUN+7
PASTYR	EN+11
PRINT	RUN+8
RUN	EN+34
SRTNAME	RUN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	PASTYR+1~, CURYR+1~
%I(1	PASTYR+4, CURYR+4
%I(3	PASTYR+4, CURYR+4
%ZIS	EN+27~, EN+28*
CNT	BLD+4~
CURMN	PASTYR+1~, PASTYR+4, PASTYR+5, CURYR+1~, CURYR+4, CURYR+5
CURYR	PASTYR+1~, PASTYR+4, PASTYR+6, PASTYR+7, CURYR+1~, CURYR+4, CURYR+6, CURYR+7
DFN	CHKMT+1~, CHKMT+3, CHKMT+4, CHKMT+5, CHKMT+6, CHKMT+8, CHKMT+9, CHKMT+13, CHKMT+15, CHKMT+16 , CHKMT+17, CHKMT+18, SRTNAME+1~, SRTNAME+3, SRTNAME+4, SRTNAME+5, SRTNAME+9, SRTNAME+10, SRTNAME+11, PRINT+2~ , PRINT+12*
DIR	EN+1~, EN+6!, GETDT+6~
DIR("?"	EN+5, GETDT+14
DIR("A"	EN+3, GETDT+13, GETDT+21*
DIR("B"	EN+4*
DIR(0	EN+3, GETDT+12, GETDT+20*
DIRUT	EN+1~, EN+7, GETDT+6~, GETDT+16, GETDT+23
DUZ	MAIL+15
IO	RUN+1
IO("Q"	EN+29, EN+33!
IOF	HDR+4
IOM	HDR+8, HDR+11, HDR+14, HDR+17, HDR+23
IORVOFF	EN+19~, EN+25
IORVON	EN+19~, EN+22
IOSL	PRINT+27, FTR+3
LINE	HDR+1~, HDR+23*
MSG	MAIL+1~
MSG(1	MAIL+3*
MSG(2	MAIL+4*
MSG(3	MAIL+5*
MSG(4	MAIL+6*
MSG(5	MAIL+7*
MSG(6	MAIL+8*
MSG(7	MAIL+9*
MSG(8	MAIL+10*
MSG(9	MAIL+11*
NODE	BLD+4~, BLD+13*, BLD+14, BLD+15, BLD+16, BLD+19, BLD+20
PAGE	PRINT+2~, PRINT+4, HDR+3, HDR+4, HDR+5, HDR+16
POP	EN+27~, EN+28
PRNTL4	PRINT+2~, PRINT+9, PRINT+15
PRNTLN	HDR+1~, HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15 , HDR+16, HDR+17, HDR+18
PRVYR	PASTYR+1~, PASTYR+7*, PASTYR+8, PASTYR+9
RSLT	EN+1~, EN+8*, EN+10, EN+12
SDAT	CHKMT+1~, CHKMT+12*, CHKMT+13
SDBEG	EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+9, CURYR~ , CURYR+7, GETDT~, GETDT+17, GETDT+18, BLD~, BLD+6, MAIL+3, HDR+10
SDEC	CHKMT+1~, CHKMT+11*, CHKMT+13
SDEND	EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+8, CURYR~ , CURYR+8, GETDT~, GETDT+24, GETDT+25, BLD~, BLD+7, MAIL+3, HDR+10
SDFLAG	PRINT+2~, PRINT+9, PRINT+18, PRINT+27*
SDLOC	BLD+4~, BLD+16*, BLD+17
SDMAX	BLD+4~, BLD+7*, BLD+10
SDMT	CHKMT+1~
SDMTI	CHKMT+1~, CHKMT+13*, CHKMT+14, CHKMT+18
SDMTT	CHKMT+1~, CHKMT+16*, CHKMT+19!
SDN	CHKMT+1~, CHKMT+7*
SDNAME	SRTNAME+1~, SRTNAME+5, SRTNAME+6, SRTNAME+11, PRINT+2~, PRINT+6, PRINT+7*, PRINT+8, PRINT+11, PRINT+12 , PRINT+13, PRINT+14, PRINT+17, PRINT+19, PRINT+21, PRINT+23
SDNODE	PRINT+2~, PRINT+24*, PRINT+25, PRINT+26
SDO	CHKMT+1~, CHKMT+7*
SDOEDT	CHKMT+1~, CHKMT+9, CHKMT+10, CHKMT+13, CHKMT+16, SRTNAME+1~, SRTNAME+10, SRTNAME+11, PRINT+2~, PRINT+10* , PRINT+11*, PRINT+12, PRINT+13, PRINT+14, PRINT+22, PRINT+23
SDOEI	BLD+4~, BLD+11, BLD+12, BLD+13, BLD+18, BLD+20, CHKMT+1~, CHKMT+7, CHKMT+8, CHKMT+9 , CHKMT+11, CHKMT+12, CHKMT+13, CHKMT+18, SRTNAME+1~, SRTNAME+8, SRTNAME+9, SRTNAME+10, SRTNAME+11, PRINT+2~ , PRINT+14*, PRINT+24
SDOEX	BLD+4~, BLD+18, BLD+20, PRINT+2~, PRINT+13, PRINT+22
SDR	CHKMT+1~, CHKMT+7*
SDX	BLD+4~, BLD+6, BLD+10, BLD+12, FTR+1~, FTR+3*
SDXNODE	PRINT+2~
SPACE	HDR+1~
TAB	HDR+1~, HDR+8, HDR+9, HDR+11, HDR+12, HDR+14, HDR+15, HDR+17, HDR+18
U	BLD+14, BLD+15, BLD+16, BLD+19, BLD+20, CHKMT+9, CHKMT+16, CHKMT+18, SRTNAME+10, SRTNAME+11 , PRINT+12, PRINT+13, PRINT+14, PRINT+23, PRINT+25, PRINT+26
VA	PRINT+2~
VA("BID"	PRINT+17, PRINT+21
X	EN+1~, EN+19~, EN+20*
XMDUZ	MAIL+1~, MAIL+16*
XMSUB	MAIL+1~, MAIL+13*
XMTEXT	MAIL+1~, MAIL+14*
XMY	MAIL+1~
XMY(	MAIL+15*
Y	EN+1~, EN+8, EN+19~, GETDT+6~, GETDT+18, GETDT+25
ZTDESC	EN+27~, EN+32*
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	EN+27~, EN+31*
ZTSAVE	EN+27~
ZTSAVE("DUZ"	EN+30*
ZTSAVE("SDBEG"	EN+30*
ZTSAVE("SDEND"	EN+30*

Customize PDF page

Package: Scheduling

Routine: SCRPW81

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: