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

Package: Lab Service

Routine: LRORD


Information

LRORD ;DALOI/CJS - LAZY ACCESSION LOGGING ;05/29/12 10:25

Source Information

Source file <LRORD.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Lab Service 10 ^LRORD1  Q15^LRORD2  GS^LRORD3  SMID^LRORDB  ^LRORDIM  ^LRORDK  NEXTCOL^LROW5  (,EN)^LRPARAM  
DATE^LRWU  DT^LRX  
Automated Lab Instruments 3 $$BAR^LA7SBCR  SITE^LA7SBCR2  INTERDIV^LA7SMA  
VA FileMan 3 ^%DTC  (,$$FIND1)^DIC  YN^DICN  
Kernel 2 HOME^%ZIS  $$KSP^XUPARAM  

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

Package Total Caller Graph
Lab Service 10 LRBLPLOGIN  LRCE  LRFASTS  LRLEDI  LRMICROLOGIN  LROW IMMED COLLECT  LROW ROUTINE  LROW SEND PAT  
LROW WARD COL  LRQUICK  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ;;
EN1 ;;from LROR4
L5
G0
G1
GET
G5
KILL
EN01 ;LAB COLLECT ORDER ENTRY
ORDER
EN02 ;SEND PATIENT ORDER ENTRY
SENDPAT
IMMCOL ;IMMEDIATE LAB COLLECTION
EN03 ;WARD COLLECT ORDER ENTRY
WARDCOL ;
LEDI ; Laboratory Electronic Data Exchange
; This entry point is used to select patients from ^LRT(67, file
; Routine LRDPAREF controls patient selection, patients must already
; exist in ^DPT in order to be selected.
QUIZ

External References

Name Field # of Occurrence
^%DTC L5+1
HOME^%ZIS KILL
^DIC L5+7, GET+1
$$FIND1^DIC LEDI+10
YN^DICN EN+2, ORDER, SENDPAT, WARDCOL+2
$$BAR^LA7SBCR LEDI+7
SITE^LA7SBCR2 LEDI+11
INTERDIV^LA7SMA LEDI+17
^LRORD1 G5+2
Q15^LRORD2 GET
GS^LRORD3 GET+8
SMID^LRORDB LEDI+21
^LRORDIM EN1+11
^LRORDK KILL, LEDI+5, LEDI+8, LEDI+14, LEDI+17, LEDI+22, LEDI+26
NEXTCOL^LROW5 EN1+8
^LRPARAM LEDI+4
EN^LRPARAM EN1+1
DATE^LRWU L5+1
DT^LRX EN1+3
$$KSP^XUPARAM LEDI+17

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

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.2 - [#62.2] G0
^LAB(62.6 - [#62.6] G0, G0+1, G0+3, G0+4
^LAB(69.9 - [#69.9] EN+1, EN1+5, ORDER+1, IMMCOL+1
^LRO(69 - [#69] G5+1*
^TMP("LRSTIK" EN1+2!, G0+5*, G0+7*, G0+9*, GET+3*, GET+5*, GET+7*, GET+8, GET+11*

Label References

Name Line Occurrences
% EN1+7, %
G0 L5+4
G1 L5+7
G5 G0+11, GET+1
GET GET+10, GET+12
KILL EN1+7, EN1+8, EN1+11, L5+1, L5+7, G5
L5 L5+1, L5+2, L5+3
LRORD EN+2, ORDER+1, SENDPAT+1, IMMCOL+2, WARDCOL+3, LEDI+26
ORDER ORDER
QUIZ ORDER, SENDPAT, WARDCOL+2
SENDPAT SENDPAT
WARDCOL WARDCOL+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+2*, EN1+7, %*, ORDER*, SENDPAT*, WARDCOL+1*, WARDCOL+2
>> %DT L5*
>> %DT("A" L5*
CONTROL LEDI+6~
DIC EN1+2!, L5+5*, L5+7!
DIC("S" L5+6*, GET+1!
DIC(0 L5+5*
DT EN1+5, L5+1, L5+3, G5+2
DTIME %
>> DTOUT L5+7
>> DUOUT L5+7
DUZ(2 IMMCOL+1, LEDI+17
>> I G0+2*, G0+3*, G0+4, G0+5, G0+7, G0+9
LA7 LEDI+6~
LA7SCFG LEDI+6~
LA7X LEDI+6~
LA7Y LEDI+6~
LR64 LEDI+6~
LR696 LEDI+6~
>> LRAD G5+2*
>> LRADDTST EN1+4
>> LRCDT EN1+11
LRCOM EN1+2!
>> LRECT EN1+5*, EN1+6*, EN1+7*
>> LREND EN1+8*, LEDI+5, LEDI+21, LEDI+22
>> LRFIRST EN1+5*, EN1+6*, G0+10*
>> LRFLOG L5+4, L5+7*, G0*, G0+1
>> LRFLOG(0 G0+1*, G0+5, G0+7, G0+9
>> LRLABKY L5+6
LRLABLIO LEDI+6~
>> LRLLOC EN1+8*
>> LRLWC EN1+8*, EN1+9*, EN1+10*
>> LRLWCURG ORDER+1*
LRNATURE EN1+2!
LRODT EN1+5*, L5+1*, L5+2, L5+3, G5+1, IMMCOL+2!, LEDI+25!
>> LRORDR EN1+3*, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, L5, ORDER+1*, SENDPAT+1*, IMMCOL+2*
, WARDCOL+3*, LEDI+25*
>> LRORDRR EN1+6, LEDI+25*
>> LRORDTIM EN1+3*, L5+1*
>> LROUTINE EN1+5*
>> LRREFBAR LEDI+7*, LEDI+8, LEDI+11
LRRSITE LEDI+6~, LEDI+11, LEDI+17
LRRSITE("ERROR" LEDI+12, LEDI+13
LRRSITE("HSITE" LEDI+17
LRRSITE("RPSITE" LEDI+17
LRRSITE("SMID" LEDI+20, LEDI+21
LRRSTAT LEDI+6~, LEDI+9*
LRRSTAT(0 LEDI+10*
LRSAME EN1+2!
>> LRSAMP GET+9, GET+10, GET+11
LRSD LEDI+6~
>> LRSLIP ORDER*, SENDPAT*, WARDCOL+2*
>> LRSPEC GET+9, GET+10, GET+11
LRTCOM EN1+2!
LRTSN LEDI+6~
>> LRTSTS GET+8*
LRURG EN1+2!, G5+2*
>> LRWP G0+2*, G0+4*, G0+5, G0+7, G0+9, G0+10, G1*, GET+2*, GET+3, GET+5
, GET+7, GET+8, GET+9*, GET+11, G5, G5+2
>> LRWPD G5+2*
>> LRY GET+2*, GET+3, GET+7
U EN+1, EN1+5*, G0, GET+3, GET+11, G5+1, ORDER+1, IMMCOL+1
>> X L5+1
>> X1 L5+1*
>> X2 L5+1*
>> Y L5+1, L5+4*, L5+7, G0+3, G0+4, GET+1, GET+2
>> Y(0 G0+4*, G0+5, G0+9
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