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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LROR6A

Package: Lab Service

Routine: LROR6A


Information

LROR6A ;SLC/DCM - EDIT UNRELEASED LAB ORDERS FOR OE/RR ;9/11/89 16:55 ;

Source Information

Source file <LROR6A.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 5 SET^LROR6B  ^LRORDIM  INIT^LRXO00  RCOM^LRXO2  EN^LRXO5  
VA FileMan 2 (,IX)^DIC  YN^DICN  
Order Entry Results Reporting 1 RETURN^ORX  

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

Package Total Caller Graph
Lab Service 1 LROR6  

Entry Points

Name Comments DBIA/ICR reference
EDITUR ;FROM LROR6
TYPE
URG ;Edit Urgency
SAMP ;Edit Collection sample and specimen
SAMP1
SAMP2
SPEC ;
SPEC1
RCOM ;Edit comment

External References

Name Field # of Occurrence
^DIC URG+3, SAMP1+1, SPEC1+1
IX^DIC SAMP1, SPEC1
YN^DICN RCOM+3
SET^LROR6B EDITUR+16
^LRORDIM EDITUR+6
INIT^LRXO00 EDITUR+4
RCOM^LRXO2 EDITUR+15, RCOM+5
EN^LRXO5 EDITUR+8
RETURN^ORX EDITUR+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," (S)END patient to lab",!," (W)ARD collect & deliver",!," (L)AB blood team"
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: !," (I)MMEDIATE LAB COLLECT"
  • Line Location: TYPE+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD COLLECT",!?6,"'L' for LAB BLOOD TEAM."
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !?6,"'I' for Immediate Collect",!?6,"'^' to Exit."
  • Condition for execution: LRCTYPE["I"
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !!,$C(7),"**"_$P(LRTSTNM,"^")_" cannot be ordered for ROUTINE LAB COLLECT or IMMEDIATE COLLECT.**"
  • Line Location: TYPE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: URG+3
Function Call: WRITE
  • Prompt: !,"Lab will collect ",$P(^LAB(62,LRSAMP,0),"^")," ",$P(^(0),"^",3)
  • Line Location: SAMP+2
Function Call: WRITE
  • Prompt: !,"The Sample Is "_X_" "_$P(^(0),"^",3)
  • Line Location: SAMP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SAMP1+0
Function Call: WRITE
  • Prompt: !,"COLLECTION SAMPLE:"
  • Line Location: SAMP2+0
Function Call: WRITE
  • Prompt: !,I," ",$P(^LAB(62,LRCS(I),0),"^")," ",$P(^(0),"^",3)
  • Line Location: SAMP2+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SAMP2+1
Function Call: WRITE
  • Prompt: $C(7),!,"Type number 1-",LRCSN,!
  • Line Location: SAMP2+2
Function Call: WRITE
  • Prompt: " "_$P(^LAB(62,LRSAMP,0),"^")_$P(^(0),"^",3)
  • Line Location: SAMP2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SPEC1+0
Function Call: WRITE
  • Prompt: !!,"This is the existing comment "
  • Line Location: RCOM+1
Function Call: WRITE
  • Prompt: TEXT,!
  • Line Location: RCOM+2
Function Call: WRITE
  • Prompt: !,"Do you want to change the comment for this order? "
  • Line Location: RCOM+3
Routine Call
  • DIC
  • Line Location:
    • URG+3
    • SAMP1+1
    • SPEC1+1
Routine Call
  • DIC
  • Line Location:
    • SAMP1
    • SPEC1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] Classic Fileman Calls
^LAB(62 - [#62] Classic Fileman Calls
^LAB(62.05 - [#62.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EDITUR+5
^LAB(60 - [#60] EDITUR+2, TYPE+5, URG+1, SAMP+1, SAMP+2, SAMP+3, SAMP+5
^LAB(61 - [#61] SPEC1
^LAB(62 - [#62] SAMP+2, SAMP+4, SAMP1, SAMP2, SAMP2+1, SAMP2+3, SPEC+1
^LAB(69.9 - [#69.9] TYPE, TYPE+2, URG+2
^XUTL("OR" EDITUR+14, RCOM+2, RCOM+4*, RCOM+5!

Label References

Name Line Occurrences
RCOM EDITUR+14, RCOM+3
SAMP EDITUR+12
SAMP1 SAMP1, SAMP1+1
SAMP2 SAMP+6, SAMP2+1, SAMP2+2
SPEC SAMP+2, SAMP+4, SAMP1, SAMP1+2, SAMP2+1, SAMP2+3
SPEC1 SPEC1, SPEC1+2
TYPE EDITUR+3, TYPE+3, TYPE+5
URG EDITUR+13

Naked Globals

Name Field # of Occurrence
^( EDITUR+14, SAMP+5, RCOM+2
^(0 URG+1, SAMP+2, SAMP+4, SAMP2, SAMP2+3, SPEC+1
^(3 SAMP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RCOM+3*, RCOM+4
>> D SAMP1*, SPEC1*
DIC EDITUR+12!, URG+2*, URG+4!, SAMP1*, SAMP1+1!, SPEC1*, SPEC1+2!
DIC("A" URG+2*
DIC("B" URG+2*
DIC("S" URG+3*
DIC(0 URG+2*, SAMP1*, SPEC1*
>> DIROUT SAMP1+1*, SPEC1+2*
DTIME TYPE+1, SAMP1, SAMP2+1, SPEC1
>> DTOUT SAMP1+1, SPEC1+2
>> DUOUT SAMP1+1, SPEC1+2
DUZ(2 TYPE, TYPE+2
H URG+1*, URG+3, URG+4!
H(0 URG+1*
>> I SAMP2*, RCOM+2*
>> J SAMP+1*, SAMP+5*
>> LRASK EDITUR+2*
LRCDT EDITUR+6!
LRCNT EDITUR+18!
LRCS EDITUR+12!, EDITUR+18!
LRCS( SAMP+5*, SAMP2, SAMP2+2, SAMP2+3
LRCS(1 SAMP+3*, SAMP+4
LRCSN EDITUR+12!, EDITUR+18!, SAMP+1*, SAMP+5*, SAMP+6, SAMP1, SAMP1+1, SAMP2, SAMP2+2
LRCTYPE TYPE+2*, TYPE+3, TYPE+6!
LREK EDITUR+18!
>> LREND EDITUR+2*, EDITUR+3*, EDITUR+8*, EDITUR+13*, TYPE+1*, URG+3*
LRFLG EDITUR+14*, EDITUR+15, EDITUR+16!
LROCNT EDITUR+1*, EDITUR+14, EDITUR+15, EDITUR+18!, RCOM+2, RCOM+4, RCOM+5
LROOST EDITUR+1*, EDITUR+5, EDITUR+6, EDITUR+8, EDITUR+14, EDITUR+18!, RCOM+2, RCOM+4, RCOM+5
>> LRORD EDITUR+1*
LROSAMP EDITUR+1*, EDITUR+18!, SAMP+4, SAMP1, SAMP1+1, SAMP2+1
LROSPEC EDITUR+1*, EDITUR+18!, SPEC1, SPEC1+2
LROST EDITUR+2*, EDITUR+6*, EDITUR+8*, EDITUR+18!, RCOM+4
LROURG EDITUR+1*, EDITUR+13, EDITUR+18!, URG+2
LROUTINE EDITUR+18!
LROXZ EDITUR+1*, EDITUR+3, EDITUR+6, EDITUR+9, EDITUR+10, EDITUR+14, EDITUR+18!, TYPE+1, RCOM+2, RCOM+4
, RCOM+5
LRPRAM EDITUR+18!
LRPREV EDITUR+5*, EDITUR+6!, EDITUR+8!
LRSAMP EDITUR+2*, EDITUR+14, EDITUR+18!, SAMP+2*, SAMP+4*, SAMP1*, SAMP1+1*, SAMP1+2*, SAMP2+1*, SAMP2+3*
, SPEC+1, RCOM+2, RCOM+4, RCOM+5
LRSPEC EDITUR+2*, EDITUR+14, EDITUR+18!, SPEC+1*, SPEC1*, SPEC1+2*, SPEC1+3*, RCOM+2, RCOM+4, RCOM+5
LRSX EDITUR+15*, EDITUR+18!, RCOM+5*
LRTST EDITUR+1*, EDITUR+2, EDITUR+18!, TYPE+5, URG+1, SAMP+1, SAMP+2, SAMP+3, SAMP+5
LRTSTNM EDITUR+2*, EDITUR+18!, TYPE+5
LRUNQ EDITUR+12!, SAMP+1*, SAMP+4
LRURG EDITUR+2*, EDITUR+13*, EDITUR+18!, URG+4*
LRZX EDITUR+18!
LRZX(1 EDITUR+3*, EDITUR+6*, EDITUR+7, EDITUR+8, EDITUR+9, EDITUR+10*, EDITUR+11, TYPE+4*, TYPE+5, URG+3
, SAMP+2, RCOM+4
N1 EDITUR+12!, SAMP+1*, SAMP+3, SAMP+4, SAMP+5
>> ORPK EDITUR+1
TEXT RCOM+2*, RCOM+3!
U EDITUR+2, TYPE, TYPE+2
>> X EDITUR+1*, TYPE+1*, TYPE+3, TYPE+4, URG+4*, SAMP+4*, SAMP1*, SAMP1+1, SAMP2+1*, SAMP2+2
, SAMP2+3, SPEC1*, SPEC1+2
>> Y EDITUR+5*, URG+3, URG+4, SAMP1+1, SAMP1+2, SPEC1+2, SPEC1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All