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

Package: Lab Service

Routine: LRORD


Information

LRORD ;VA/DALOI/CJS - LAZY ACCESSION LOGGING ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <LRORD.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 11 ^LRORD1  Q15^LRORD2  GS^LRORD3  SMID^LRORDB  ^LRORDGUI  ^LRORDIM  ^LRORDK  NEXTCOL^LROW5  
^LRPARAM  DATE^LRWU  DT^LRX  
VA Fileman 4 ^%DTC  (,$$FIND1)^DIC  YN^DICN  ^DIR  
Automated Lab Instruments 2 $$BAR^LA7SBCR  SITE^LA7SBCR2  
Kernel 2 HOME^%ZIS  $$VERSION^XPDUTL  
IHS Changes To Lab 1 ENTRYAUD^BLRUTIL  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Lab Service 11 LRBLPLOGIN  LRCE  LRFASTS  LRLEDI  LRMICROLOGIN  LROW IMMED COLLECT  LROW ROUTINE  LROW SEND PAT  
LROW WARD COL  LROW WARD/CLINIC COL  LRQUICK  
Mental Health Social Services 1 AMHVRL2  

Entry Points

Name Comments DBIA/ICR reference
G5 ; EP
EN ;; EP
IMMCOL ;EP - IMMEDIATE LAB COLLECTION
G1 ; EP
GET ; EP
QUIZ ; EP
G0 ; EP
EN01 ;EP - LAB COLLECT ORDER ENTRY
EN03 ; EP - WARD COLLECT ORDER ENTRY
EN02 ; EP SEND PATIENT ORDER ENTRY
EN1 ;;EP - from LROR4
SENDPAT ; EP - S %=2 W !,"Do you want copies of the orders" D YN^DICN Q:%=-1 S:%=1 LRSLIP="" I %=0 D QUIZ G SENDPAT
L5 ; EP
KILL ; EP
LEDI ; EP - Laboratory Electronic Data Exchange
WARDCOL ; EP
START(RESULT,BPCPARAM)
ORDER ; EP

External References

Name Field # of Occurrence
^%DTC L5+3
HOME^%ZIS KILL+1
ENTRYAUD^BLRUTIL LRORD+7, EN+1, EN1+1, L5+1, G0+1, GET+1, GET+14, G5+1, EN01+1, ORDER+1
, SENDPAT+1, IMMCOL+1, WARDCOL+1, WARDCOL+5, WARDCOL+8, LEDI+1, LEDI+25, QUIZ+1, START+1, START+19
^DIC L5+9, GET+3
$$FIND1^DIC LEDI+11
YN^DICN EN+12, ORDER+2, SENDPAT+2, WARDCOL+3
^DIR %+5
$$BAR^LA7SBCR LEDI+8
SITE^LA7SBCR2 LEDI+12
^LRORD1 G5+4
Q15^LRORD2 GET+2
GS^LRORD3 GET+10
SMID^LRORDB LEDI+19
^LRORDGUI START+18
^LRORDIM EN1+13
^LRORDK KILL+1, LEDI+6, LEDI+9, LEDI+15, LEDI+20, LEDI+24
NEXTCOL^LROW5 EN1+10
^LRPARAM EN1+2, LEDI+5
DATE^LRWU L5+3
DT^LRX EN1+4
$$VERSION^XPDUTL START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")," ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),!," Are you sure you want to continue"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"OK, try later."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: $C(7),!,"ROLLOVER ",$S($P(^LAB(69.9,1,"RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: " ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: " Are you sure you want to continue"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"OK, try later."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!," Ordering for ROUTINE LAB COLLECT ONLY",$C(7),!
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !!," Ordering for SEND PATIENT ONLY",$C(7),!
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !!,"Ordering for WARD COLLECT & DELIVER ONLY",$C(7),!
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,"Can't order more than 12 months ahead!!"
  • Line Location: L5+3
Function Call: WRITE
  • Prompt: !!?7,$C(7),"Please enter a date, ie. 4/1/90",!!
  • Line Location: L5+4
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot order in the Past.",!
  • Line Location: L5+5
Function Call: WRITE
  • Prompt: !,"Select one or more tests from which you will be generating your entries."
  • Line Location: G1+1
Function Call: READ
  • Timeout: DTIME
  • Variable: %
  • Line Location: KILL+4
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: KILL+4
Function Call: WRITE
  • Prompt: !,"Do you want copies of the orders"
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: !,"Do you want copies of the orders"
  • Line Location: SENDPAT+0
Function Call: WRITE
  • Prompt: !,"Do you want copies of the orders"
  • Line Location: SENDPAT+2
Function Call: WRITE
  • Prompt: !!?5," This option is not available at the time ",!!,$C(7)
  • Line Location: IMMCOL+2
Function Call: WRITE
  • Prompt: !,"Do you want copies of the orders"
  • Line Location: WARDCOL+3
Function Call: WRITE
  • Prompt: !!,$C(7),"ERROR -- ",$P(LRRSITE("ERROR"),"^",2),!
  • Line Location: LEDI+14
Function Call: WRITE
  • Prompt: !,"The order copy is automatically sent to the CLOSEST PRINTER,"
  • Line Location: QUIZ+2
Function Call: WRITE
  • Prompt: !,"if a closest printer is defined for the device you are using."
  • Line Location: QUIZ+3
Function Call: WRITE
  • Prompt: !,"Otherwise, you will be prompted with ORDER COPY DEVICE.",!
  • Line Location: QUIZ+4
Routine Call
  • %ZIS
  • Line Location:
    • KILL+1
Routine Call
  • DIC
  • Line Location:
    • LEDI+11
Routine Call
  • DIC
  • Line Location:
    • L5+9
    • GET+3
Routine Call
  • DIR
  • Line Location:
    • %+5

Used in RPC

RPC Name Call Tags
BPC ORDER LABS START

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.6 - [#62.6] Classic Fileman Calls
^LAB(64.061 - [#64.061] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.05 - [#62.05] START+10, START+11
^LAB(62.2 - [#62.2] G0+2
^LAB(62.6 - [#62.6] G0+2, G0+3, G0+5, G0+6
^LAB(69.9 - [#69.9] EN+5, EN+9, EN1+6, ORDER+3, IMMCOL+2
^LRO(69 - [#69] G5+3*
^TMP("LRSTIK" EN1+3!, G0+7*, G0+9*, G0+11*, GET+5*, GET+7*, GET+9*, GET+10, GET+13*
^XUSEC("LRLAB" START+9

Label References

Name Line Occurrences
% EN1+9
G0 L5+6
G1 L5+9
G5 G0+16, GET+3
GET GET+12, GET+15
KILL EN1+9, EN1+10, EN1+13, L5+3, L5+9, G5+2
L5 L5+3, L5+4, L5+5
LRORD EN+5, ORDER+5, SENDPAT+5, IMMCOL+5, WARDCOL+7, LEDI+24
ORDER ORDER+2
QUIZ ORDER+2, SENDPAT+2, WARDCOL+3
SENDPAT SENDPAT+2
WARDCOL WARDCOL+3

Naked Globals

Name Field # of Occurrence
^("RO" EN+5
^(0 G5+3*
^(3 ORDER+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+5, EN+12*, EN1+9, %+1!, %+6*, ORDER+2*, SENDPAT+2*, WARDCOL+2*, WARDCOL+3
>> %DT L5+2*
>> %DT("A" L5+2*
>> BLRGUI EN+5, EN+6, START+6*
>> BLROPT LRORD+9*, LRORD+11*, ORDER+4*, SENDPAT+4*, IMMCOL+4*, WARDCOL+6*
>> BLROPT(0 LRORD+9*, LRORD+11*, ORDER+4*, SENDPAT+4*, IMMCOL+4*, WARDCOL+6*
>> BLRPRAC START+15*
>> BPCACC START+17*
>> BPCCOM START+13*
>> BPCODT START+12*
>> BPCOORDS START+14*
BPCPARAM START~, START+7, START+8, START+9, START+10, START+12, START+13, START+14, START+15, START+16
>> BPCTL START+8*
>> BPCURG START+10*, START+11*
CONTROL LEDI+7~
DEF %~, %+4
>> DFN START+7*
DIC EN1+3!, L5+7*, L5+9!
DIC("S" L5+8*, GET+3!
DIC(0 L5+7*
DIR %+1!
DIR("A" %+3*
DIR("B" %+4*
DIR(0 %+2*
DT EN1+6, L5+3, L5+5, G5+4
>> DTOUT L5+9
>> DUOUT L5+9
DUZ START+9
DUZ(2 IMMCOL+2
>> I G0+4*, G0+5*, G0+6, G0+7, G0+9, G0+11
LA7 LEDI+7~
LA7SCFG LEDI+7~
LA7X LEDI+7~
LA7Y LEDI+7~
LR64 LEDI+7~
LR696 LEDI+7~
>> LRAD G5+4*
>> LRADDTST EN1+5
>> LRCDT EN1+13
LRCOM EN1+3!
>> LRECT EN1+6*, EN1+7*, EN1+9*
>> LREND EN1+10*, LEDI+6, LEDI+19, LEDI+20
>> LRFIRST EN1+6*, EN1+7*
>> LRFLOG L5+6, L5+9*, G0+2*, G0+3, START+16*
>> LRFLOG(0 G0+3*, G0+7, G0+9, G0+11
>> LRLABKY L5+8
LRLABLIO LEDI+7~
>> LRLLOC EN1+10*
>> LRLWC EN1+10*, EN1+11*, EN1+12*
>> LRLWCURG ORDER+3*
LRNATURE EN1+3!
LRODT EN1+6*, L5+3*, L5+4, L5+5, G5+3, IMMCOL+5!, LEDI+23!
>> LRORDR EN1+4*, EN1+9, EN1+10, EN1+11, EN1+12, EN1+13, L5+2, ORDER+3*, SENDPAT+3*, IMMCOL+3*
, WARDCOL+4*, LEDI+23*, START+9*
>> LRORDRR EN1+7, LEDI+23*
>> LRORDTIM EN1+4*, L5+3*
>> LROUTINE EN1+6*
>> LRREFBAR LEDI+8*, LEDI+9, LEDI+12
LRRSITE LEDI+7~, LEDI+12
LRRSITE("ERROR" LEDI+13, LEDI+14
LRRSITE("SMID" LEDI+18, LEDI+19
LRRSTAT LEDI+7~, LEDI+10*
LRRSTAT(0 LEDI+11*
LRSAME EN1+3!
>> LRSAMP GET+11, GET+12, GET+13
LRSD LEDI+7~
>> LRSLIP ORDER+2*, SENDPAT+2*, WARDCOL+3*
>> LRSPEC GET+11, GET+12, GET+13
LRTCOM EN1+3!
LRTSN LEDI+7~
>> LRTSTS GET+10*
LRURG EN1+3!, G5+4*
>> LRWP G0+4*, G0+6*, G0+7, G0+9, G0+11, G1+1*, GET+4*, GET+5, GET+7, GET+9
, GET+10, GET+11*, GET+13, G5+2, G5+4
>> LRWPD G5+4*
>> LRY GET+4*, GET+5, GET+9
MSG %~, %+3
RESULT START~
RESULT(1 EN+6*, START+3*, START+9*, START+10*
RESULT(2 EN+6*, START+4*, START+9*, START+10*
U LRORD+9, LRORD+11, EN+9, EN1+6*, G0+2, GET+5, GET+13, G5+3, ORDER+3, ORDER+4
, SENDPAT+4, IMMCOL+2, IMMCOL+4, WARDCOL+6
X L5+3, %+1!, %+6
>> X1 L5+3*
>> X2 L5+3*
>> XQY0 LRORD+9, LRORD+11, ORDER+4, SENDPAT+4, IMMCOL+4, WARDCOL+6
>> XWBWRAP LRORD+10*
Y L5+3, L5+6*, L5+9, G0+5, G0+6, GET+3, GET+4, %+1!
Y(0 G0+6*, G0+7, G0+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All