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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLRORD1

Package: IHS Changes To Lab

Routine: BLRORD1


Information

BLRORD1 ;SLC/RWF/TPF - LAZY ACCESSION LOGGING ;8/11/97 [ 08/01/2002 8:20 AM ]

Source Information

Source file <BLRORD1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 4 (GCOM,URG)^LRORD2  GSNO^LRORD3  EN2^LRORDD  ORDER^LROS  
IHS Changes To Lab 3 (,Q20)^BLRORDD  ^BLRORDST  ORDER^BLROW2  
VA Fileman 3 NOW^%DTC  ^DIC  YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
BPC
URGG
MICRO
MAX ; CHECK FOR MAXIUM ORDER FREQUENCY
DROP
LRM ; MJL D MORE^LRORD2
Q14 ;FHL D:$P(LRPARAM,U,17) ^BLRORDD G LRM:'$D(%)&($D(LROT)'=11),DROP:$O(LROT(-1))="",LRM:'$D(%),DROP:%[U K DIC G DROP:'$D(LROT)!(%["N")
PRAC ;from LRFAST
Q11 ; MJL D PRAC^LRWU1 G DROP:LREND
Q13
Q12 ; MJL D LOC^LRWU G DROP:LREND
L2
Q13A ; MJL I LREDO W !,"Something was mistyped, try again." G Q13
LRFIRST
Q20A ;from LRORD2
E3
E2

External References

Name Field # of Occurrence
NOW^%DTC Q14+6
^BLRORDD Q14+1
Q20^BLRORDD Q13A+1
^BLRORDST Q14+8
ORDER^BLROW2 Q11+12
^DIC PRAC+2
YN^DICN MICRO
GCOM^LRORD2 MICRO+5
URG^LRORD2 URGG
GSNO^LRORD3 MICRO+2
EN2^LRORDD MAX+1
ORDER^LROS MAX+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !,"Choose one (or more, separated by commas) ('*' AFTER NUMBER TO CHANGE URGENCY) "
  • Line Location: LRFIRST+0
Function Call: WRITE
  • Prompt: !,I,?4,$P(LRSTIK(I),U,2)
  • Line Location: LRFIRST+1
Function Call: WRITE
  • Prompt: ?39," ",I+LRWPD,?44,$P(LRSTIK(I+LRWPD),U,2)
  • Condition for execution: $D(LRSTIK(I+LRWPD))
  • Line Location: LRFIRST+1
Function Call: READ
  • Prompt: "TEST number(s): "
  • Timeout: DTIME
  • Variable: LRSX
  • Line Location: Q13+1
Function Call: WRITE
  • Prompt: !,"Something was mistyped, try again."
  • Line Location: Q13A+0
Function Call: WRITE
  • Prompt: !!,"LAB Order number: ",LRORD,!!
  • Line Location: Q14+3
Function Call: READ
  • Timeout: DTIME
  • Variable: %
  • Line Location: Q14+13
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: Q14+13
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(LRSTIK(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+0
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+1
Function Call: WRITE
  • Prompt: !,"Incompletely defined."
  • Line Location: MICRO+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PRAC+1
Function Call: WRITE
  • Prompt: !,"PRACTITIONER: ",X,$S($L(X):"//",1:"")
  • Line Location: PRAC+1
Routine Call
  • DIC
  • Line Location:
    • PRAC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] L2+6
^DPT - [#2] L2+5
^LAB(60 - [#60] MAX+1, MAX+2, MAX+3
^LR - [#63] E2, E2+1*, E3, BPC+1, Q11+1*
^LR("B" E2+1*
^LR(0 L2+8, E2+1
^LRO(69 - [#69] Q11+4, Q11+5, Q11+6, Q11+7, Q11+8
^SC("C" Q12+1
^VA(200 - [#200] PRAC+1

Label References

Name Line Occurrences
% %, MAX+4
E2 E2
E3 L2+7
L2 Q11+12, Q14+12, DROP
LRFIRST L2+1, Q11+11
MICRO Q11+12, MICRO+1, MICRO+3
Q13 LRFIRST
Q13A Q13

Naked Globals

Name Field # of Occurrence
^(0 E2+1*, E3, MAX+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q14+6, %*, MAX+1, MICRO*, MICRO+1
>> BPCACC Q14+9
>> BPCPARAM Q12+1
>> BPCTL Q13+2
>> DA Q11+4*, Q11+5, Q11+6, Q11+7, Q11+8
>> DFN L2+5, L2+6, L2+7, E2+1, E3
DIC Q11+11!, PRAC+2!
DIC("B" PRAC+1
DTIME %, PRAC+1
>> DTOUT Q11+12, MICRO+2
DUOUT Q11+12!, MICRO*, MICRO+2
DUZ Q11+1
DUZ(2 L2+6
>> HRCN L2+6*
>> I Q11+7*, Q11+8, Q13+3*
>> I7 MAX+2*, MAX+3, MAX+4
>> I9 MAX+2*
>> K Q13A+2*
>> LRADDTST Q11+11*
LRCCOM L2!
>> LRCDT Q14+6*, Q14+7
>> LRCS( MAX+1
>> LRCSN MAX+1
>> LRDFN L2+7*, L2+8*, E2*, E2+1, E3, BPC, BPC+1, Q11+1, Q11+4
LRDMAX Q11+2!
>> LRDPF L2+5*, L2+7, E2+1, E3, BPC+1*
LRDTST Q11+2!
>> LRECOM MICRO+5*
>> LRECT Q14+5, Q14+6
>> LREDO Q13*, Q13+3*
>> LRFIRST LRFIRST
>> LRFLOG Q11+12
LRGCOM L2!
>> LRIDT Q14+7*
>> LRK Q13A+1*
>> LRKIK Q14+12
LRKIL L2!
>> LRLLOC Q12+1*
>> LRM Q13A+2*
LRNATURE L2!
>> LRNT Q14+6*
>> LRODT Q11+4, Q11+5, Q11+6, Q11+7, Q11+8
>> LROLLOC Q12+1*
>> LROR L2+1, Q14+8
>> LRORD Q11+11*, Q14+9
>> LRORDTIM Q14+5*
LROT L2!
>> LRPARAM Q14+1
>> LRPRAC Q11+1*
LRSAME L2!, MICRO+4*
>> LRSAMP Q13A+1*, MAX+2, MICRO+3, MICRO+4
>> LRSN MAX+3*
>> LRSPEC Q13A+1*, MAX+1, MAX+2, MICRO+3, MICRO+4
>> LRSSX Q13+3*, Q13A+1*, URGG
>> LRST Q13A+1*
>> LRSTIK( Q13A+1, URGG
>> LRSX LRFIRST*, Q13+2*, Q13+3, Q13A+1
LRTMAX Q11+2!
>> LRTSTS Q13A+1*, MAX+1, MAX+2, MAX+3*
>> LRWP L2+1, LRFIRST, Q13, Q13+3
>> LRWPC L2+1*, Q13A+2
>> LRZT MAX+3*
>> PNM L2+5*, E3
>> RESULT(1 E3*, BPC*, Q14+9*
>> RESULT(2 E3*, BPC*, Q14+9*
>> S Q11+6*, Q11+8, Q11+9
>> SSN L2+5*
T Q11+2!
T( Q11+8*, MAX+2, MAX+3
TT Q11+2!
TT( Q11+9*, MAX+1
U L2+5, L2+6, BPC+1, Q11+5, Q11+12, Q13A+1, Q14+1, MAX+2, MAX+3, URGG
, MICRO+4, PRAC+1
>> X L2+7*, E2+1, Q11+8*, Q11+9, PRAC+1*
>> Y PRAC+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All