Routine: LRTOCOST

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
Lab Service	1	^LRWU3

Package	Total	Caller Graph
Lab Service	1	LR ORDERED TESTS BY PHY

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	EXIT
$$FIND1^DIC	DETAIL+17
$$GET1^DIQ	DETAIL+18
^DIR	HDR, READ+1
^LRWU3	EN+2
$$FMTE^XLFDT	EN+2, EN+4, EN+5, PRT+1, DETAIL+19
$$NOW^XLFDT	PRT+1
$$CJ^XLFSTR	EN+1, HDR+3, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9, HDR+11
EN^XUTMDEVQ	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,$$CJ^XLFSTR("* DATE RANGE SELECTION *",80),! Line Location: EN+1
Function Call: WRITE	Prompt: !!?10,"<Optional Screen> Press return to select all Divisions",! Line Location: DIV+3
Function Call: WRITE	Prompt: ! Line Location: REF+2
Function Call: WRITE	Prompt: !!?10,"<Optional Screen> Press return to select all Referral Sites",! Line Location: SORTBY+3
Function Call: WRITE	Prompt: !!?10,"<Optional Screen> Press return to select all Providers",! Line Location: SORTBY+8
Function Call: WRITE	Prompt: !!?10,"<Optional Screen> Press return to select all Locations ",! Line Location: SORTBY+13
Function Call: WRITE	Prompt: !!?5,"You can search for locations using a Free Text screen" Line Location: SORTBY+16
Function Call: WRITE	Prompt: !?8,"Your entry must match exactly the stored location" Line Location: SORTBY+17
Function Call: WRITE	Prompt: !!?10,"<Optional Screen> Press return to select all Locations ",! Line Location: SORTBY+19
Function Call: WRITE	Prompt: !!?10,"<Optional Screen> Press return to select all Tests",! Line Location: TEST+3
Function Call: WRITE	Prompt: !! Line Location: DET+1
Function Call: WRITE	Prompt: !,"FACILITY TOTALS by : "_$S($G(LRSORT):"Location ",1:"Provider") Line Location: RTOT+0
Function Call: WRITE	Prompt: !?10,$S($G(LRREF):" Referral Patients ",1:"All Patients "),! Line Location: RTOT+1
Function Call: WRITE	Prompt: !!?28," *TESTS* QUANTITY "_$S(LRPRICE=1:" COST",1:"PRICE")_" TOTAL COST " Line Location: RTOT+2
Function Call: WRITE	Prompt: !?45,"--------",?69,"----------",!?43,$J(LRFTOT,10),?69,$J(LRFCTOT,10,2) Line Location: RTOT+5
Function Call: WRITE	Prompt: !!?28,"*URGENCY*" Line Location: RTOT+6
Function Call: WRITE	Prompt: !,$J(LRPURG,41),": ",$J(^TMP("LR",$J,4,LRPURG),10) Line Location: RTOT+7
Function Call: WRITE	Prompt: !?7,"No Detailed data to report",!! Line Location: DETAIL+2
Function Call: WRITE	Prompt: !!?10,"*** "_LRLOCN_" ***" Line Location: DETAIL+14
Function Call: WRITE	Prompt: !!,LRNAME Line Location: DETAIL+21
Function Call: WRITE	Prompt: !?10,$QS(LRGLB,8)_" $ "_@LRGLB Line Location: DETAIL+22
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: EXIT+0
Function Call: WRITE	Prompt: LRLINE,!,$$CJ^XLFSTR("<> Detailed Patient Listing <>",80) Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(LRDIVP,80) Line Location: HDR+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Referral Patients Only Report",80) Line Location: HDR+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("For tests ordered during the date range ",80) Line Location: HDR+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(LRPBDAY_" to "_LRPEDAY,80) Line Location: HDR+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Dollar Amounts computed using "_$S(LRPRICE=1:"COST",1:"PRICE "),80) Line Location: HDR+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" SELECTED TESTS ONLY ",80) Line Location: HDR+11
Function Call: WRITE	Prompt: ! Line Location: HDR+12
Function Call: WRITE	Prompt: $P($G(^LAB(60,I,0)),U)_" / " Line Location: HDR+12
Function Call: WRITE	Prompt: ! Condition for execution: $X+30>80 Line Location: HDR+12
Function Call: WRITE	Prompt: !,"Date printed: ",LRPNOW,?(60-$L(LRPAGE)),"Page: ",LRPAGE,!,LRLINE,! Line Location: HDR+13
Function Call: WRITE	Prompt: " (",LRPHY,")" Condition for execution: LRPHY Line Location: PHYS+0
Function Call: WRITE	Prompt: !?28," *TESTS* QUANTITY "_$S(LRPRICE=1:" COST",1:" PRICE")_" TOTAL COST " Line Location: PTST+1
Function Call: WRITE	Prompt: !?45,"--------",?69,"----------",!?43,$J(LRPTOT,10),?67,"$",$J(LRPCTOT,10,2) Line Location: PTST+4
Function Call: WRITE	Prompt: !,$J(LRPTST,41),": " Line Location: PTST1+1
Function Call: WRITE	Prompt: $J(LRTCT,10),?55,$J(LRCOST,10,2),?67,"$",$J(LRTCT*LRCOST,10,2) Line Location: PTST1+1
Function Call: WRITE	Prompt: !!?28,"*URGENCY*" Line Location: PURG+0
Function Call: WRITE	Prompt: !,$J(LRPURG,41),": ",$J(^TMP("LR",$J,2,LRPPHY,LRPHY,LRPURG),10) Line Location: PURG+2
Function Call: WRITE	Prompt: !,$J(LRPTST,41),": " Line Location: RTOT1+1
Function Call: WRITE	Prompt: $J(LRTCT,10),?55,$J(LRCOST,10,2),?67,"$",$J(LRTCT*LRCOST,10,2) Line Location: RTOT1+1
Routine Call	DIC Line Location: DETAIL+17
Routine Call	DIR Line Location: HDR READ+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	FIND1^DIC
9000001.41	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	SET+16
^LAB(60 - [#60]	SET+3, SET+10, HDR+12
^LAB(62.05 - [#62.05]	SET+13
^LAM - [#64]	SET+5, SET+6, SET+8, SET+9
^LR - [#63]	LOOP+4
^LRO(69 - [#69]	START+4, LOOP, LOOP+1, LOOP+3, LOOP1+2
^TMP("LR"	START+2!, START+3, PPHY, RTOT+3, RTOT+7, DETAIL+2, EXIT+1!, SET+11, SET+12, SET+13 , SET+24*, PTST+2, PTST1+1, PURG+1, PURG+2, RTOT1+1
^VA(200 - [#200]	SET+2

Label References

Name	Line Occurrences
EXIT	EN+2, DIV+1, REF+1, SORT, SORTBY+1, SORTBY+6, SORTBY+11, PRICE+1, TEST+1, DET , QUE+2, PRT+1, RTOT, RTOT+4, RTOT+6
HDR	PRT+1, RTOT, RTOT+3, RTOT+6, RTOT+7, DETAIL+2, DETAIL+4, DETAIL+13, PHYS, PTST , PTST+2, PTST1, PURG, PURG+2, RTOT1
LOOP	START+4
LOOP1	LOOP+7, LOOP+8
PHYS	PPHY
PTST	PPHY
PTST1	PTST+2
PURG	PPHY
READ	DIV+4, REF+1, SORT, SORTBY+4, SORTBY+9, SORTBY+14, SORTBY+20, PRICE, TEST+4, DET
RTOT1	RTOT+3
SET	LOOP1+2
SORTBY	REF+2

Naked Globals

Name	Field # of Occurrence
^(	LOOP
^(0	LOOP, LOOP+4, SET+2, SET+3, SET+5, SET+6, SET+8, SET+9
^(1	LOOP+1
^(64	SET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	DIV+1!, REF!, SORT!, SORTBY!, SORTBY+5!, SORTBY+10!, PRICE!, TEST!, TEST+5!, QUE! , EXIT+2!
DIR("A"	DIV+2, REF+1, SORT, SORTBY+2, SORTBY+7, SORTBY+12, SORTBY+18, PRICE, TEST+2, DET
DIR(0	DIV+2, REF+1, SORT, SORTBY+2, SORTBY+7, SORTBY+12, SORTBY+18, PRICE, TEST+2, DET , HDR*
DIRUT	REF+1, SORT, PRICE+1, DET, EXIT+2!, HDR
DT	EN+2, START+3
DTOUT	EXIT+2!, HDR, READ+1
DUOUT	EXIT+2!, HDR, READ+1
DUZ(2	DETAIL+18
HRCN	DETAIL+18*, DETAIL+19, EXIT+8!
I	QUE!, PRT, DETAIL+2, EXIT+2!, HDR+12*
IOF	EN+1, START+1, EXIT, HDR+1
IOSL	RTOT+3, RTOT+6, RTOT+7, DETAIL+13, PHYS, PTST, PTST+2, PTST1, PURG, PURG+2 , RTOT1
IOST	START+1, EXIT, HDR
LR0	EXIT+2!, LOOP1+2*
LRBDAY	EXIT+2!
LRCDIV	DIV+1!, PRT, EXIT+2!, LOOP+2
LRCDIV(	DIV+4*, PRT, LOOP+2
LRCDT	EXIT+2!, LOOP+1*, LOOP+2, SET+24
LRCOST	EXIT+2!, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+24 , PTST1+1, PTST1+2, RTOT1+1, RTOT1+2
LRDET	DET+1*, DETAIL, EXIT+2!, SET+14
LRDFN	EXIT+2!, LOOP+4*, LOOP+5, SET+16
LRDIV	EXIT+2!, LOOP+1*, LOOP+2
LRDIVP	PRT*, EXIT+3!, HDR+5
LRDPF	EXIT+3!, LOOP+4*, LOOP+5, LOOP+6, SET+16
LREDAY	EXIT+2!
LREDT	EN+2, EN+3, EN+4, START+2, EXIT+4!
LREND	EN, EN+2, DIV+1, DIV+4, REF+1, SORT, SORTBY+1, SORTBY+4, SORTBY+6, SORTBY+9 , SORTBY+11, SORTBY+14, SORTBY+20, PRICE+1, TEST+1, TEST+4, DET, PRT+1, PPHY, RTOT , RTOT+3, RTOT+4, RTOT+6, RTOT+7, DETAIL+4, DETAIL+11, DETAIL+13, EXIT+4!, HDR, PHYS , PTST, PTST+2, PTST+3, PTST1, PURG, PURG+2, RTOT1, READ+1*
LRFCTOT	RTOT, RTOT+5, EXIT+4!, RTOT1+2
LRFTOT	RTOT, RTOT+5, EXIT+3!, RTOT1+2
LRGLB	EN!, DETAIL+3, DETAIL+11, DETAIL+14, DETAIL+17, DETAIL+19, DETAIL+22, EXIT+4!, HDR+3, HDR+4
LRII	EXIT+4!, LOOP1+2*
LRLINE	PRT+1*, EXIT+4!, HDR+3, HDR+4, HDR+13
LRLLOC	REF!, SORTBY*, EXIT+4!, LOOP1+1
LRLLOC(	SORTBY+4, SORTBY+14, SORTBY+20*, LOOP1+1
LRLOC	DETAIL+1, DETAIL+14, EXIT+4!
LRLOCN	DETAIL+14*, EXIT+4!
LRNAME	DETAIL+19*, DETAIL+21, EXIT+4!
LRNLT	EXIT+5!, SET+3*, SET+5, SET+6, SET+8, SET+9
LRNODE	EXIT+5!, LOOP*, LOOP+4, LOOP+7, LOOP+8
LRODT	START+2, START+4, EXIT+5!, LOOP, LOOP+1, LOOP+3, LOOP1+2
LRPAGE	PRT+1, EXIT+5!, HDR, HDR+1, HDR+2, HDR+13
LRPBDAY	EN+4*, EXIT+5!, HDR+8
LRPCTOT	EXIT+5!, PHYS, PTST+4, PTST1+2
LRPEDAY	EN+5*, EXIT+5!, HDR+8
LRPHY	PPHY, EXIT+5!, LOOP+7, LOOP+8*, LOOP1, LOOP1+1, SET+1, SET+2, SET+12, SET+13 , PHYS, PTST+2, PTST1+1, PURG+1, PURG+2
LRPNM	DETAIL+3, DETAIL+21, EXIT+5!
LRPNOW	PRT+1*, EXIT+3!, HDR+13
LRPPHY	PPHY, EXIT+3!, SET+1, SET+2*, SET+12, SET+13, SET+24, PHYS, PTST+2, PTST1+1 , PURG+1, PURG+2
LRPRAC	REF!, SORTBY*, EXIT+6!, LOOP1
LRPRAC(	SORTBY+9*, LOOP1
LRPRICE	PRICE+2*, RTOT+2, EXIT+6!, SET+5, SET+6, SET+8, SET+9, HDR+9, PTST+1
LRPTOT	EXIT+6!, PHYS, PTST+4, PTST1+2
LRPTST	RTOT+3, EXIT+6!, SET+3, SET+11, SET+12, SET+24, PTST+1, PTST+2, PTST1+1, RTOT1+1
LRPURG	RTOT+6, RTOT+7, EXIT+6!, SET+13, PURG+1, PURG+2
LRREF	REF+2*, SORTBY+1, SORTBY+6, SORTBY+11, RTOT+1, EXIT+6!, LOOP+6, HDR+6
LRSDT	EN+3*, EN+5, START+4, EXIT+6!
LRSITE	REF!, EXIT+6!
LRSN	EXIT+6!, LOOP*, LOOP+1, LOOP+3, LOOP1+2
LRSORT	REF+2, SORT+1, SORTBY+1, SORTBY+6, SORTBY+11, SORTBY+15, RTOT, EXIT+6!, LOOP+7, LOOP+8 , LOOP1, LOOP1+1, SET+1, SET+2, PHYS
LRSPC	EXIT+7!, LOOP+3*, SET+5, SET+6
LRT	TEST!*, EXIT+7!, SET, HDR+10
LRT(	TEST+4*, SET, HDR+12
LRTCT	EXIT+7!, PTST1+1, PTST1+2, RTOT1+1, RTOT1+2
LRTST	EXIT+3!, LOOP1+2*, SET, SET+3, SET+10
LRURG	EXIT+7!, LOOP1+2*, SET+13
PNM	EXIT+7!, SET+18*, SET+24
POP	EXIT+7!
PTIEN	DETAIL+17*, DETAIL+18, EXIT+8!
SSN	EXIT+7!, SET+18, SET+22, SET+24
U	SORTBY+4, SORTBY+14, START+3, PRT, LOOP+1, LOOP+4, LOOP+7, LOOP+8, LOOP1+2, SET+2 , SET+3, SET+5, SET+6, SET+8, SET+9, SET+10, SET+13, SET+18, HDR+12
X	EXIT+7!, SET+16*, SET+17, SET+18
Y	DIV+4, REF+2, SORT+1, SORTBY+4, SORTBY+9, SORTBY+14, SORTBY+20, PRICE+2, TEST+4, DET+1 , EXIT+7!
Y(0	SORTBY+14
>> ZTQUEUED	START
>> ZTREQ	START*
ZTSAVE	QUE!, QUE+2, EXIT+7!
ZTSAVE("LR*"	QUE+1*

Customize PDF page

Package: Lab Service

Routine: LRTOCOST

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

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: