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 Total: 4

Package Total Call Graph
Lab Service 2 IO^LRWU  (DD,PT,STAMP)^LRX  
VA Fileman 2 ^%DT  ^DIC  

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
LALL
BEGIN
END
LEND
PRNT
SOME
FNDLOC ;return a location from ^LRO(69,LRODT,1,"AC",LRLLOC,LRSN), from LRNODRQW, LRPHEXPT, LRPHITEM
GO ; S:$D(ZTQUEUED) ZTREQ="@" U IO S LRDC=0 W @IOF,!,"List of Patients with Lab Orders",?40,"Order Date: "_$$FMTE^XLFDT(LRODT,""),!
; W ?2,"Date/Time Printed: "_$$FMTE^XLFDT($$NOW^XLFDT,""),!
; ----- BEGIN IHS/OIT/MKK - LR*5.2*1030 - Putting back IHS mods
ORD
LOOP

External References

Name Field # of Occurrence
^%DT BEGIN
^DIC LOOP+4, LALL
IO^LRWU BEGIN
DD^LRX GO+3
PT^LRX PRNT+1
STAMP^LRX GO+4

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: @IOF,!,"LIST OF PATIENTS WITH LAB ORDERS ON",!
  • Line Location: GO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GO+4
Function Call: WRITE
  • Prompt: !!,"REPORT EMPTY."
  • Line Location: GO+8
Function Call: WRITE
  • Prompt: !,"Report Completed",!
  • Line Location: GO+9
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: !!,PNM,?30,HRCN,?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+3
Function Call: WRITE
  • Prompt: !,"TESTS: "
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: ?9,$P(^LAB(60,+X,0),U,1)
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: ?30," Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^")
  • Condition for execution: $P(X,"^",11)
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: !,$S($D(DIC("A")):DIC("A"),1:"Select PATIENT LOCATION: ")
  • Line Location: LOOP+0
Function Call: READ
  • Prompt: "ALL// "
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Press ""^"" to quit "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: SOME+2
Function Call: WRITE
  • Prompt: !,?5,%,?9,Y
  • Line Location: SOME+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Press ""^"" to quit "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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+4
^LR - [#63] PRNT+1
^LRO(69 - [#69] GO+6, ORD, PRNT, PRNT+3, PRNT+4, LOOP+3, LOOP+6, LOOP+7, SOME, SOME+1
, SOME+2, LALL+1
^SC("C" LALL+2
^VA(200 - [#200] PRNT+4

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+6, GO+7
PRNT ORD

Naked Globals

Name Field # of Occurrence
^( PRNT+3, PRNT+4
^(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!
HRCN END+1!, PRNT+3
>> I GO+6*, PRNT+4*
IO GO+4
IOF GO+4
LRDC END!, GO+4*, GO+8, PRNT*
>> LRDDT GO+3*
LRDFN END!, PRNT*, PRNT+1
LRDPF END!, PRNT+1*
LRIO END!
LRIOZERO END!
LRLLOC BEGIN, END!, GO+6*, GO+7, ORD, PRNT+3, LOOP*, LOOP+1*, LOOP+3*, LOOP+6*
, LOOP+7, SOME, SOME+1*, SOME+2, SOME+5*, LEND*
LRLWC END!, PRNT*, PRNT+3
LRODT BEGIN*, END!, GO+3, GO+6, ORD, PRNT, PRNT+3, PRNT+4, LOOP+3, LOOP+6
, LOOP+7, SOME, SOME+1, SOME+2, LALL+1
LRPGM END!
LRSN END!, ORD*, PRNT, PRNT+3, PRNT+4
LRTIME END!
PNM END!, PRNT+3
SSN END!
U BEGIN*, PRNT, PRNT+1, PRNT+4, LOOP+6
X PRNT+4*, 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, GO+3*, LOOP+3!, LOOP+6!, SOME*, SOME+1!, SOME+2*, SOME+5!, LALL+1*, LALL+2
, LEND!
Y(0 LOOP+6
Z END!
>> ZTQUEUED GO+4
>> ZTREQ GO+4*
>> 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