Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRTOCOST

Package: Lab Service

Routine: LRTOCOST


Information

LRTOCOST ;KC/RENO/DALISC/FHS ORDERING STATISTICS/COST REPORT ; 12/3/1997

Source Information

Source file <LRTOCOST.m>

Entry Points

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

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+7
Function Call: WRITE
  • Prompt: !!,LRNAME
  • Line Location: DETAIL+9
Function Call: WRITE
  • Prompt: !?10,$QS(LRGLB,8)_" $ "_@LRGLB
  • Line Location: DETAIL+10
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
Info |  Source |  Entry Points |  Interaction Calls