Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRTOCOST

Package: Lab Service

Routine: LRTOCOST


Information

LRTOCOST ;KC/RENO/DALISC/FHS - ORDERING STATISTICS/COST REPORT ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRTOCOST.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
HDR
READ ;
DET
PTST1
DIV ;
REF
SET
PPHY
PTST
PRT
EXIT
SORT
EN
PHYS
PURG
START
RTOT1
LOOP1
PRICE
RTOT
DETAIL
QUE
SORTBY
TEST
LOOP

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All