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: LRDRAW

Package: Lab Service

Routine: LRDRAW


Information

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

Source Information

Source file <LRDRAW.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls