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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRORD1

Package: Lab Service

Routine: LRORD1


Information

LRORD1 ;DALOI/CJS/JAH - LAZY ACCESSION LOGGING ;8/10/04

Source Information

Source file <LRORD1.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 16 BALROR^LRBEBA3  $$CHKINP^LRBEBA4  ^LRDPA  LRWU4^LRFASTS  (BLRRL,TIME)^LROE  (GCOM,MORE,URG)^LRORD2  ^LRORD2A  GSNO^LRORD3  
EN^LRORDB  (,EN2,Q20)^LRORDD  ^LRORDST  ORDER^LROS  ORDER^LROW2  ENSTIK^LROW3  (COLTY,LOC)^LRWU  PRAC^LRWU1  
VA Fileman 3 NOW^%DTC  ^DIC  YN^DICN  
IHS Changes To Lab 1 ASKATORD^BLRAAORU  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRORD  LRORDD  

Entry Points

Name Comments DBIA/ICR reference
URGG ; W !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
BAR
MICRO ; EP
MAX ; CHECK FOR MAXIUM ORDER FREQUENCY
DROP
LRM
Q14 ; D:$P(LRPARAM,U,17) ^LRORDD D ^LRORD2A D ENSTIK^LROW3 G LRM:'$D(%)&($D(LROT)'=11),DROP:$O(LROT(-1))="",LRM:'$D(%),DROP:%[U K DIC G DROP:'$D(LROT)!(%["N")
; ----- BEGIN IHS/OIT/MKK - LR*5.2*1030
PRAC ;from LRFAST
Q14A ; EP
Q11 ; EP
Q13
Q12 ; EP
LEDI ; EP
L2 ; EP
Q13A
Q20A ;from LRORD2
LRFIRST ; EP

External References

Name Field # of Occurrence
NOW^%DTC Q14+23
ASKATORD^BLRAAORU Q14+27
^DIC PRAC+5
YN^DICN MICRO+2
BALROR^LRBEBA3 Q14+11
$$CHKINP^LRBEBA4 Q14+10
^LRDPA L2+5
LRWU4^LRFASTS Q14+29
BLRRL^LROE Q14+32
TIME^LROE Q14+20
GCOM^LRORD2 MICRO+8
MORE^LRORD2 LRM
URG^LRORD2 URGG+2
^LRORD2A Q14A+7
GSNO^LRORD3 MICRO+5
EN^LRORDB LEDI+4
^LRORDD Q14A+6
EN2^LRORDD MAX+1
Q20^LRORDD Q13A+7
^LRORDST Q14+25
ORDER^LROS MAX+3
ORDER^LROW2 Q11+8
ENSTIK^LROW3 Q14+3
COLTY^LRWU L2+7
LOC^LRWU Q12+1
PRAC^LRWU1 Q11+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !,"Choose one (or more, separated by commas) ('*' AFTER NUMBER TO CHANGE URGENCY) "
  • Line Location: LRFIRST+2
Function Call: WRITE
  • Prompt: !,X,?4,$P(^TMP("LRSTIK",$J,X),U,2)
  • Line Location: LRFIRST+6
Function Call: WRITE
  • Prompt: ?39," ",X,?44,$P(^TMP("LRSTIK",$J,X),U,2)
  • Line Location: LRFIRST+8
Function Call: READ
  • Prompt: "TEST number(s): "
  • Timeout: DTIME
  • Variable: LRSX
  • Line Location: LEDI+7
Function Call: WRITE
  • Prompt: !,"Something was mistyped, try again."
  • Line Location: Q13A+0
Function Call: WRITE
  • Prompt: !!,"LAB Order number: ",LRORD,!!
  • Line Location: Q14+14
Function Call: READ
  • Timeout: DTIME
  • Variable: %
  • Line Location: Q14+37
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: Q14+37
Function Call: WRITE
  • Prompt: $C(7),!!,"You have a duplicate: "
  • Line Location: MAX+3
Function Call: WRITE
  • Prompt: " for ",$P(^LAB(60,LRTSTS,0),U)
  • Line Location: MAX+3
Function Call: WRITE
  • Prompt: !,"You already have that test, do you really want another? N//"
  • Line Location: MAX+4
Function Call: WRITE
  • Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
  • Line Location: URGG+0
Function Call: WRITE
  • Prompt: !!,"ORDER CANCELED",$C(7),!!
  • Line Location: DROP+0
Function Call: WRITE
  • Prompt: !,"Is there one sample for this patient's order"
  • Line Location: MICRO+1
Function Call: WRITE
  • Prompt: !,"The collection sample and site/specimen will be used for all tests ordered",!,"at this time for this patient."
  • Line Location: MICRO+4
Function Call: WRITE
  • Prompt: !,"Incompletely defined."
  • Line Location: MICRO+6
Function Call: WRITE
  • Prompt: !,"PRACTITIONER: ",X,$S($L(X):"//",1:"")
  • Line Location: PRAC+2
Routine Call
  • DIC
  • Line Location:
    • PRAC+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRSITE - [#9009029] Q14+32
^LAB(60 - [#60] MAX+1, MAX+2, MAX+3
^LR - [#63] L2+8
^LRO(69 - [#69] Q11+4, Q11+5
^TMP("LRSTIK" LRFIRST+5, LRFIRST+6, LRFIRST+7, LRFIRST+8, LEDI+13, Q13A+5, URGG+1
^VA(200 - [#200] PRAC+1

Label References

Name Line Occurrences
% BAR, %, MAX+4
BAR LEDI+3, LEDI+8
DROP L2+7, Q12+1, Q11+1, Q14+4, Q14+6, Q14+10, Q14+15
L2 Q11+9, Q14+35, DROP
LRFIRST L2+4, Q11+7, LEDI+7
LRM Q14+4
MICRO Q11+9, MICRO+4, MICRO+6
Q13 LRFIRST+1, Q13A
Q13A LEDI+5
Q14 BAR
Q14A Q14+2

Naked Globals

Name Field # of Occurrence
^( Q11+5
^(0 L2+8, Q11+4, Q11+5, MAX+2
^(1 Q11+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BAR, Q14+4, Q14+6, Q14+23, %*, Q14A+2, Q14A+4~, Q14A+5*, MAX+1, MICRO+2*
, MICRO+3, MICRO+4
%ORIGQ14 Q14A+1~, Q14A+2*, Q14A+5
>> BLRGUI Q14+32, URGG+1
>> DA Q11+3*, Q11+4*, Q11+5
DFN L2+5!, L2+8*
DIC L2+5!, Q11+6!, Q14+5!, PRAC+5!
DIC("B" PRAC+1, PRAC+4
DIC(0 L2+5*
DTIME LEDI+7, %, PRAC+3
>> DTOUT L2+5, Q11+9, Q14+12, MICRO+5
DUOUT L2+5, Q11+9!, Q14+12, MICRO+3*, MICRO+5
DUZ(2 Q14+32
>> I Q11+5*, LRFIRST+3*, LRFIRST+5, LRFIRST+7, LEDI+9*, LEDI+10
>> I7 MAX+2*, MAX+3, MAX+4
>> I9 MAX+2*
>> K BAR*
LR696IEN L2+3!
>> LRADDTST L2+5, L2+6, Q11+7*
LRBEQT L2+2~
LRBETS L2+2~
LRBETYP L2+2~
LRBEVT L2+2~
LRBEX L2+2~
LRBEY L2+2~, Q14+10*, Q14+12
LRBEZ L2+2~
LRCCOM L2+3!
>> LRCDT Q14+15, Q14+17*, Q14+19*, Q14+21, Q14+22, Q14+23*, Q14+24
>> LRCS( MAX+1
>> LRCSN MAX+1
>> LRDFN L2+5, L2+8, Q11+4, Q14+10
LRDMAX Q11+2!
>> LRDPF L2+8*, Q14+10
LRDTST Q11+2!
>> LRECOM MICRO+8*
>> LRECT Q14+15, Q14+23
>> LREDO Q13*, LEDI+9, LEDI+11*, LEDI+13*, Q13A
>> LREND L2+1, L2+7*, Q12+1, Q11+1
>> LRFASTS Q14+29
>> LRFIRST LRFIRST+1, LEDI+6*, LEDI+7*
>> LRFLOG Q11+9
LRGCOM L2+3!
>> LRIDT Q14+24*
>> LRK Q13A+2*
>> LRKIK Q14+35
LRKIL L2+3!
>> LRLABKY L2+5
>> LRM BAR*
LRNATURE L2+3!
>> LRNT Q14+23*
>> LRODT Q11+4, Q11+5, Q14+10
>> LROR L2+4, Q14+25, DROP
>> LRORD Q11+7*, Q14+11, Q14+14, Q14+27
>> LRORDR L2+7
>> LRORDRR Q11+9, Q14+16
>> LRORDTIM Q14+18*, Q14+19, Q14+22*
LROT L2+3!, Q14+4, Q14+6
LROT( Q14+4
LROT(0 LEDI+3
>> LRPARAM L2+5, Q14A+6
>> LRRSITE("SMID" LEDI+3, LEDI+4
>> LRRSTAT LEDI+3
LRSAME L2+3!, MICRO+7*
>> LRSAMP Q13A+6*, MAX+2, MICRO+6, MICRO+7
>> LRSD("CDT" Q14+16, Q14+17, Q14+18
>> LRSD("RUID" LEDI+3, LEDI+4
>> LRSN MAX+3*
>> LRSPEC Q13A+6*, MAX+1, MAX+2, MICRO+6, MICRO+7
>> LRSS Q14+10
>> LRSSX LEDI+10*, LEDI+11, LEDI+12*, LEDI+13, Q13A+2*, Q13A+4*, Q13A+5, URGG+1
>> LRST Q13A+4*
>> LRSX LRFIRST+1*, LEDI+7*, LEDI+8, LEDI+9, LEDI+10, Q13A+2
LRTMAX Q11+2!
>> LRTSTS Q13A+6*, MAX+1, MAX+2, MAX+3*
>> LRWP L2+4, LRFIRST+1, LEDI+5
>> LRWPC L2+4*, BAR
>> LRWPD LRFIRST+3, LRFIRST+7
>> LRZT MAX+3*
>> PNM L2+5*
>> S Q11+4*, Q11+5
T Q11+2!
T( Q11+5*, MAX+2, MAX+3
TT Q11+2!
TT( Q11+5*, MAX+1
U L2+5, L2+8, Q11+4, Q11+9, LRFIRST+6, LRFIRST+8, Q13A+6, Q14+4, Q14+22, Q14+32
, Q14A+6, MAX+2, MAX+3, URGG+1, MICRO+7, PRAC+1
X Q11+5*, LRFIRST+4~, LRFIRST+5*, LRFIRST+6, LRFIRST+7*, LRFIRST+8, Q13A+3~, Q13A+5*, Q13A+6, PRAC+1*
, PRAC+2, PRAC+3*, PRAC+4
>> Y PRAC+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All