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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRDRAW

Package: Lab Service

Routine: LRDRAW


Information

LRDRAW ;DALOI/CJS/RLM-WARD COLLECTION SUMMARY ;8/11/97

Source Information

Source file <LRDRAW.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 2 IO^LRWU  PT^LRX  
VA FileMan 2 ^%DT  ^DIC  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Lab Service 5 LRDRAW  LRNDLST  LRNODRAW  LRPHEXPT  LRPHITEM  

Entry Points

Name Comments DBIA/ICR reference
BEGIN
END
GO
ORD
PRNT
FNDLOC ;return a location from ^LRO(69,LRODT,1,"AC",LRLLOC,LRSN), from LRNODRQW, LRPHEXPT, LRPHITEM
LOOP
SOME
LALL
LEND

External References

Name Field # of Occurrence
^%DT BEGIN
^DIC LOOP+4, LALL
IO^LRWU BEGIN
PT^LRX PRNT+1
$$FMTE^XLFDT GO, GO+1
$$NOW^XLFDT GO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of Patients with Lab Orders",?40,"Order Date: "_$$FMTE^XLFDT(LRODT,""),!
  • Line Location: GO+0
Function Call: WRITE
  • Prompt: ?2,"Date/Time Printed: "_$$FMTE^XLFDT($$NOW^XLFDT,""),!
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !!,"REPORT EMPTY."
  • Line Location: GO+4
Function Call: WRITE
  • Prompt: !,"Report Completed",!
  • Line Location: GO+5
Function Call: WRITE
  • Prompt: !!,PNM,?30,SSN,?50,"ORDER NUMBER: ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):+^(.1),1:"?"),!,"LOCATION: ",LRLLOC,?50,$S(LRLWC="SP":"SEND PATIENT",LRLWC="WC":"WARD COLLECT",LRLWC="LC":"LAB COLLECT",1:"")
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: !,"TESTS: "
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: ?9,$P(^LAB(60,+X,0),U,1)
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: ?30," Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^")
  • Condition for execution: $P(X,"^",11)
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: !,$S($D(DIC("A")):DIC("A"),1:"Select PATIENT LOCATION: ")
  • Line Location: LOOP+0
Function Call: READ
  • Prompt: "ALL// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: " Enter 2 - 30 alpha-numeric name"
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,"["_LRLLOC_"] is not a valid entry",$C(7),!
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: $E(Y,$L(LRLLOC)+1,$L(Y))
  • Line Location: SOME+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press ""^"" to quit "
  • Variable: X
  • Timeout: DTIME
  • Line Location: SOME+2
Function Call: WRITE
  • Prompt: !,?5,%,?9,Y
  • Line Location: SOME+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SOME+3
Function Call: WRITE
  • Prompt: " ??",$C(7),!
  • Line Location: SOME+4
Function Call: WRITE
  • Prompt: !,"YOU MAY ALSO CHOOSE FROM:"
  • Line Location: LALL+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press ""^"" to quit "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LALL+2
Function Call: WRITE
  • Prompt: !,?3,Y
  • Line Location: LALL+2
Routine Call
  • DIC
  • Line Location:
    • LOOP+4
    • LALL

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] PRNT+3
^LR - [#63] PRNT+1
^LRO(69 - [#69] GO+2, ORD, PRNT, PRNT+2, PRNT+3, LOOP+3, LOOP+6, LOOP+7, SOME, SOME+1
, SOME+2, LALL+1
^SC("C" LALL+2
^VA(200 - [#200] PRNT+3

Label References

Name Line Occurrences
FNDLOC BEGIN
LALL LOOP+1, SOME, SOME+3
LEND LOOP+1
LOOP LOOP+2, LOOP+5, LOOP+7, SOME+3, SOME+4, LALL+3
ORD GO+2, GO+3
PRNT ORD

Naked Globals

Name Field # of Occurrence
^( PRNT+2, PRNT+3
^(0 PRNT, PRNT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOOP+3!, LOOP+6!, SOME+1*!, SOME+2!*, SOME+3*, SOME+4, SOME+5!, LALL+1*, LALL+2, LEND!
%( SOME+2*, SOME+5
>> %DT BEGIN*
%ZIS BEGIN*, END!
>> DFN PRNT+1*
DIC END!, LOOP+4*!, LALL*!
DIC("A" LOOP
DIC("S" LOOP+4*, LALL*
DIC(0 LOOP+4*, LALL*
DTIME LOOP+1, SOME+2, SOME+3, LALL+2
DTOUT LOOP+5!
DUOUT LOOP+5!
>> I GO+2*, PRNT+3*
IO GO
IOF GO
LRDC END!, GO*, GO+4, PRNT*
LRDFN END!, PRNT*, PRNT+1
LRDPF END!, PRNT+1*
LRIO END!
LRIOZERO END!
LRLLOC BEGIN, END!, GO+2*, GO+3, ORD, PRNT+2, LOOP*, LOOP+1*, LOOP+3*, LOOP+6*
, LOOP+7, SOME, SOME+1*, SOME+2, SOME+5*, LEND*
LRLWC END!, PRNT*, PRNT+2
LRODT BEGIN*, END!, GO, GO+2, ORD, PRNT, PRNT+2, PRNT+3, LOOP+3, LOOP+6
, LOOP+7, SOME, SOME+1, SOME+2, LALL+1
LRPGM END!
LRSN END!, ORD*, PRNT, PRNT+2, PRNT+3
LRTIME END!
PNM END!, PRNT+2
SSN END!, PRNT+2
U BEGIN*, PRNT, PRNT+1, PRNT+3, LOOP+6
X PRNT+3*, LOOP+1*, LOOP+2, LOOP+3!, LOOP+6!, SOME, SOME+1!, SOME+2*, SOME+3*, SOME+4
, SOME+5!, LALL*, LALL+2*, LEND!
Y BEGIN, LOOP+3!, LOOP+6!, SOME*, SOME+1!, SOME+2*, SOME+5!, LALL+1*, LALL+2, LEND!
Y(0 LOOP+6
Z END!
>> ZTQUEUED GO
>> ZTREQ GO*
>> ZTRTN BEGIN*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All