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

Package: Lab Service

Routine: LRWRKIN1


Information

LRWRKIN1 ;SLC/DCM/CJS-LRWRKINC, CONT ;2/22/87 11:39 AM

Source Information

Source file <LRWRKIN1.m>

Entry Points

Name Comments DBIA/ICR reference
LST1 ;from LRWRKINC
X ;from LRWRKINC
HED ; Print header
WAIT ;from LRWRKINC
LREND ;
CHKAA ; Check if user wants to use criteria from another chosen area.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E($S(LRSORTBY=1:$P(LRTSTN,"^",2),1:LRTSTN),1,20),?23,$E(LRU,1,9),?34,LRACC,?47," ",LRCOLL,?65,$E(LRLLOC,1,15)
  • Line Location: X+16
Function Call: WRITE
  • Prompt: ?LRCL,SSN
  • Line Location: X+17
Function Call: WRITE
  • Prompt: ?LRCL,$E(PNM,1,19)
  • Line Location: X+18
Function Call: WRITE
  • Prompt: ?LRCL,$S('LREXD&(IOM'<120):$E(LRST,1,15),1:$E(LRST,1,30))
  • Line Location: X+19
Function Call: WRITE
  • Prompt: ?82,SSN
  • Line Location: X+24
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<120
  • Line Location: X+25
Function Call: WRITE
  • Prompt: ?LRCL,LRMAN
  • Line Location: X+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: "INCOMPLETE STATUS REPORT *** NOT FOR WARD USE ***",?(IOM-16),LRDT
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,"Accession Area(s):",?(IOM-10),"Page: ",LRPAGE
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !,LRNAME(LRINDEX)
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !!,"Test",?23,"Urgency",?34,"Accession",?48,"Date/time",?65,"Location"
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: ?LRCL,"SSN"
  • Line Location: HED+10
Function Call: WRITE
  • Prompt: ?LRCL,"Patient"
  • Line Location: HED+11
Function Call: WRITE
  • Prompt: ?LRCL,"Status"
  • Line Location: HED+12
Function Call: WRITE
  • Prompt: !,?23,"UID",?48,"Sending Site",?65,"Sender's UID"
  • Line Location: HED+13
Function Call: WRITE
  • Prompt: ?82,"SSN"
  • Line Location: HED+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<120
  • Line Location: HED+15
Function Call: WRITE
  • Prompt: ?LRCL,"Shipping Manifest"
  • Line Location: HED+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HED+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LREND+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKAA+22
Info |  Source |  Entry Points |  Interaction Calls