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
Print Page as PDF
Routine: ORCDLR1

Package: Order Entry Results Reporting

Routine: ORCDLR1


Information

ORCDLR1 ;SLC/MKB,JFR - Utility fcns for LR dialogs cont ;8/29/02 14:45

Source Information

Source file <ORCDLR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Entry Action for LR OTHER LAB TESTS order dialog
EX ; -- Exit Action for order dialog
GETIMES ; -- Set list of routine collections into ORTIME($H)=FMtime
DEFTIME() ; -- Returns default collection time
IMMDEF() ; -- Returns immediate collect default
COLLTIME ; -- Get list of common collection times
CTMQ
NEXTCOLL(START) ; -- Returns the next day that routine lab collects are done
TIME(X) ; -- Returns 00:00AM from 0000 FileMan time
LISTCOLL ; -- Lists the routine collection times for ??-help
IMMTIMES ; -- Show the valid date/times for immediate collect
CKDATE(X) ; -- Valid coll time for SP or WC?
IMMCOLL(X) ; -- Valid immediate collection date/time?
LABCOLL(ORXTIM) ; -- Valid lab collection date/time?
; Returns valid flag of 1 or 0^message
LC1 ; -- check date
LABSAMP() ; -- Lab Collect sample?
COLLTYPE() ; -- Returns default collection type
CTQ
CKTYPE ; -- Valid type for time, sample?
HELPTYPE ; -- Xecutable help for Coll Type
VALID(ORDER) ;check collection time on release
MULT ; -- ck child orders

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No routine lab collection times defined."
  • Line Location: LISTCOLL+1
Function Call: WRITE
  • Prompt: !,"Routine collection times are "_X_"."
  • Line Location: LISTCOLL+4
Function Call: WRITE
  • Prompt: !,"You may also enter AM for the morning collection, or NEXT for the next",!,"routine collection time."
  • Line Location: LISTCOLL+5
Function Call: WRITE
  • Prompt: !,ORIMTIME(I)
  • Line Location: IMMTIMES+2
Function Call: WRITE
  • Prompt: $C(7),!,"There are no lab collection times defined!"
  • Line Location: CKTYPE+1
Function Call: WRITE
  • Prompt: $C(7),!,"There are no immediate collection times defined!"
  • Line Location: CKTYPE+2
Function Call: WRITE
  • Prompt: $C(7),!,"There is no lab collection sample defined for this test!",!
  • Line Location: CKTYPE+3
Function Call: WRITE
  • Prompt: !!,"SEND TO LAB - Means the patient is ambulatory and will be sent to the",!,"Laboratory draw room to have blood drawn."
  • Line Location: HELPTYPE+1
Function Call: WRITE
  • Prompt: !,"WARD COLLECT - Means that either the physician or a nurse will be collecting",!,"the sample on the ward."
  • Line Location: HELPTYPE+2
Function Call: WRITE
  • Prompt: !,"LAB BLOOD TEAM - Means the phlebotomist from Lab will draw the blood on the",!,"ward. This method is limited to laboratory defined collection times."
  • Line Location: HELPTYPE+3
Function Call: WRITE
  • Prompt: !,"IMMEDIATE COLLECT BY BLOOD TEAM - Means the phlebotomist from Lab is on",!,"call to draw blood on the ward. This method is available during times",!,"defined by Laboratory."
  • Condition for execution: $$ON^LR7OV4(ORDIV)
  • Line Location: HELPTYPE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HELPTYPE+4
Function Call: WRITE
  • Prompt: !!,$C(7),$P(OK,U,2)
  • Line Location: VALID+9
Function Call: WRITE
  • Prompt: !,$G(ORTXT(1))
  • Line Location: VALID+10
Function Call: WRITE
  • Prompt: !,"must be edited before signing/release."
  • Line Location: VALID+11
Function Call: WRITE
  • Prompt: !!,$P(CHGD,U,2)
  • Line Location: MULT+2
Info |  Source |  Entry Points |  Interaction Calls