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

Package: Lab Service

Routine: LRRS


Information

LRRS ;SLC/DCM/BA/DALOI/FHS - INTERIM REPORT BY LOCATION (MANUAL QUEUE) ;2/19/91 11:39

Source Information

Source file <LRRS.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN
END
CUM ;ENTRY POINT FOR CUMULATIVE OPTION LRAC LOC-LOC
LOC
ASKPG
SELECT
AL ;
AL0
SELLOC
DIS ;
RANGE
RANGE2
QUE
DQ ;dequeued
SEL ;
RNG ;
LNAME
PAT
CUMSGLE ;ENTRY POINT FOR OPTION LRAC LOC
SINGLE ;from option LRRS BY LOC
SHOW ;Display possible choices of locations
WAIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"No Reports for [ ",$$DTF^LRAFUNC1(LRODT),"] ",!!
  • Line Location: LOC+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: !,"Enter 'A', 'R', 'S' or '^' to exit"
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !!?7,"NOTHING SELECTED ",!
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !,"No Reports for ",$$DTF^LRAFUNC1(LRODT),!
  • Line Location: AL+3
Function Call: READ
  • Formatting: !
  • Prompt: "Select Report Location: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AL0+0
Function Call: WRITE
  • Prompt: !,I,?4,LRLOCX(I)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?39," ",I,?44,LRLOCX(I)
  • Condition for execution: $D(LRLOCX(I))
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RANGE+0
Function Call: WRITE
  • Prompt: !,"Select STARTING PATIENT LOCATION: "
  • Line Location: RANGE+0
Function Call: WRITE
  • Prompt: !,"Enter the first patient location (abbreviation) that you want."
  • Line Location: RANGE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RANGE2+0
Function Call: WRITE
  • Prompt: !,"Select ENDING LOCATION: "
  • Line Location: RANGE2+0
Function Call: WRITE
  • Prompt: !,"Enter the last patient location (abbreviation) that you want."
  • Line Location: RANGE2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RNG+9
Function Call: WRITE
  • Prompt: !?10,"Select from: "
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: ?25,I,!
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+2
Function Call: READ
  • Formatting: !!?10
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: @IOF,!!?10,"Select from: "
  • Line Location: WAIT+1
Info |  Source |  Entry Points |  Interaction Calls