Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call