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 ; IHS/DIR/AAB - EDIT UNRELEASED LAB ORDERS FOR OE/RR 9/11/89 16:55 ; [ 07/22/2002 1:30 PM ]

Source Information

Source file <LROR6A.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LROR6  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," (I)MMEDIATE LAB COLLECT"
  • Line Location: TYPE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !!," (S)END patient to lab",!," (W)ARD/CLINIC collect & deliver",!," (L)AB blood team"
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !," (I)MMEDIATE LAB COLLECT"
  • Line Location: TYPE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TYPE+4
Function Call: WRITE
  • Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD COLLECT",!?6,"'L' for LAB BLOOD TEAM."
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: !?6,"'I' for Immediate Collect",!?6,"'^' to Exit."
  • Condition for execution: LRCTYPE["I"
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD/CLINIC COLLECT",!?6,"'L' for LAB BLOOD TEAM."
  • Line Location: TYPE+7
Function Call: WRITE
  • Prompt: !?6,"'I' for Immediate Collect",!?6,"'^' to Exit."
  • Condition for execution: LRCTYPE["I"
  • Line Location: TYPE+7
Function Call: WRITE
  • Prompt: !!,$C(7),"**"_$P(LRTSTNM,"^")_" cannot be ordered for ROUTINE LAB COLLECT or IMMEDIATE COLLECT.**"
  • Line Location: TYPE+9
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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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+9, 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+3, TYPE+5, URG+2
^XUTL("OR" EDITUR+16, RCOM+2, RCOM+4*, RCOM+5!

Label References

Name Line Occurrences
RCOM EDITUR+16, RCOM+3
SAMP EDITUR+14
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+7, TYPE+9
URG EDITUR+15

Naked Globals

Name Field # of Occurrence
^( EDITUR+16, 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+14!, 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+4, SAMP1, SAMP2+1, SPEC1
>> DTOUT SAMP1+1, SPEC1+2
>> DUOUT SAMP1+1, SPEC1+2
DUZ(2 TYPE+3, TYPE+5
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+22!
LRCS EDITUR+14!, EDITUR+22!
LRCS( SAMP+5*, SAMP2, SAMP2+2, SAMP2+3
LRCS(1 SAMP+3*, SAMP+4
LRCSN EDITUR+14!, EDITUR+22!, SAMP+1*, SAMP+5*, SAMP+6, SAMP1, SAMP1+1, SAMP2, SAMP2+2
LRCTYPE TYPE+5*, TYPE+7, TYPE+10!
LREK EDITUR+22!
>> LREND EDITUR+2*, EDITUR+3*, EDITUR+9*, EDITUR+15*, TYPE+4*, URG+3*
LRFLG EDITUR+16*, EDITUR+17, EDITUR+18!
LROCNT EDITUR+1*, EDITUR+16, EDITUR+17, EDITUR+22!, RCOM+2, RCOM+4, RCOM+5
LROOST EDITUR+1*, EDITUR+5, EDITUR+6, EDITUR+9, EDITUR+16, EDITUR+22!, RCOM+2, RCOM+4, RCOM+5
>> LRORD EDITUR+1*
LROSAMP EDITUR+1*, EDITUR+22!, SAMP+4, SAMP1, SAMP1+1, SAMP2+1
LROSPEC EDITUR+1*, EDITUR+22!, SPEC1, SPEC1+2
LROST EDITUR+2*, EDITUR+6*, EDITUR+9*, EDITUR+22!, RCOM+4
LROURG EDITUR+1*, EDITUR+15, EDITUR+22!, URG+2
LROUTINE EDITUR+22!
LROXZ EDITUR+1*, EDITUR+3, EDITUR+6, EDITUR+10, EDITUR+11, EDITUR+16, EDITUR+22!, TYPE+4, RCOM+2, RCOM+4
, RCOM+5
LRPRAM EDITUR+22!
LRPREV EDITUR+5*, EDITUR+6!, EDITUR+9!
LRSAMP EDITUR+2*, EDITUR+16, EDITUR+22!, 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+16, EDITUR+22!, SPEC+1*, SPEC1*, SPEC1+2*, SPEC1+3*, RCOM+2, RCOM+4, RCOM+5
LRSX EDITUR+17*, EDITUR+22!, RCOM+5*
LRTST EDITUR+1*, EDITUR+2, EDITUR+22!, TYPE+9, URG+1, SAMP+1, SAMP+2, SAMP+3, SAMP+5
LRTSTNM EDITUR+2*, EDITUR+22!, TYPE+9
LRUNQ EDITUR+14!, SAMP+1*, SAMP+4
LRURG EDITUR+2*, EDITUR+15*, EDITUR+22!, URG+4*
LRZX EDITUR+22!
LRZX(1 EDITUR+3*, EDITUR+6*, EDITUR+8, EDITUR+9, EDITUR+10, EDITUR+11*, EDITUR+13, TYPE+8*, TYPE+9, URG+3
, SAMP+2, RCOM+4
N1 EDITUR+14!, SAMP+1*, SAMP+3, SAMP+4, SAMP+5
>> ORPK EDITUR+1
TEXT RCOM+2*, RCOM+3!
U EDITUR+2, TYPE+3, TYPE+5
>> X EDITUR+1*, TYPE+4*, TYPE+7, TYPE+8, 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