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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Order Entry Results Reporting 6 XX^ORCACT4  ($$INPT,$$PTR,$$RECALL,$$VAL,LIST,SETLST1)^ORCD  ($$MULT,CHANGED)^ORCDLR  $$VALUE^ORCSAVE2  ($$DIV,$$LOC)^OREVNTX  TEXT^ORQ12  
Kernel 2 ($$DOW,$$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
Lab Service 1 ($$DEFTIME,$$ON,$$VALID,SHOW)^LR7OV4  
Toolkit 1 ($$GET,GETLST)^XPAR  
VA FileMan 1 ^%DT  

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

Package Total Caller Graph
Order Entry Results Reporting 10 ORCDLR  ORCDLR2  ORCDVBEC  ORCSAVE2  ORCSEND1  ORCSEND2  ORWDXM2  ORWDXM4  
^ORD(101.41  ITEMS  

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

External References

Name Field # of Occurrence
^%DT NEXTCOLL+5, CKDATE+4, IMMCOLL+2, LABCOLL+5
$$DEFTIME^LR7OV4 IMMDEF+1
$$ON^LR7OV4 GETIMES+11, HELPTYPE+4
$$VALID^LR7OV4 IMMCOLL+3
SHOW^LR7OV4 GETIMES+11, COLLTIME+1
XX^ORCACT4 VALID+14
$$INPT^ORCD COLLTYPE+6
$$PTR^ORCD GETIMES+3, GETIMES+12, CKTYPE+4
$$RECALL^ORCD DEFTIME+4, COLLTYPE+4
$$VAL^ORCD LABSAMP+1
LIST^ORCD DEFTIME+8
SETLST1^ORCD HELPTYPE+5
$$MULT^ORCDLR MULT+1
CHANGED^ORCDLR CKTYPE+4
$$VALUE^ORCSAVE2 VALID+3, VALID+4, VALID+15
$$DIV^OREVNTX GETIMES+6
$$LOC^OREVNTX GETIMES+6
TEXT^ORQ12 VALID+10
$$DOW^XLFDT NEXTCOLL+7, LC1+7
$$FMADD^XLFDT CKDATE+7, LC1+5
$$NOW^XLFDT CKDATE+6, LC1+2, LC1+5
$$UP^XLFSTR NEXTCOLL+7, CKDATE+1, LC1+7
$$GET^XPAR EN+2, NEXTCOLL+6, NEXTCOLL+8, NEXTCOLL+9, LC1+4, LC1+6, LC1+8, LC1+9, COLLTYPE+5
GETLST^XPAR GETIMES+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HOLIDAY - [#40.5] NEXTCOLL+9, LC1+9
^LAB(62 - [#62] LABSAMP+1
^OR(100 - [#100] VALID+5, VALID+13
^SC - [#44] GETIMES+5
^TMP("ORECALL" DEFTIME+3, COLLTYPE+3
^XTV(8989.51 - [#8989.51] LC1+4

Label References

Name Line Occurrences
$$CKDATE DEFTIME+5, VALID+7
$$IMMCOLL DEFTIME+5, VALID+7
$$IMMDEF DEFTIME+10
$$LABCOLL DEFTIME+5, VALID+7
$$NEXTCOLL COLLTIME+5, COLLTIME+12
$$TIME COLLTIME+7, COLLTIME+10, COLLTIME+13, COLLTIME+14, LISTCOLL+3
CTMQ COLLTIME+9
CTQ COLLTYPE+1, COLLTYPE+2, COLLTYPE+3
GETIMES EN+1, VALID+2
HELPTYPE CTQ+3
IMMTIMES DEFTIME+9
MULT VALID+6, VALID+8, VALID+15

Naked Globals

Name Field # of Occurrence
^(0 VALID+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT NEXTCOLL+1~, NEXTCOLL+4*, CKDATE+3~, CKDATE+4*, IMMCOLL+2~*, LABCOLL+2~, LABCOLL+5*
CHGD MULT+1~*, MULT+2
CNT GETIMES+1~, GETIMES+8*, GETIMES+9, COLLTIME+4~, COLLTIME+7*, COLLTIME+10*, COLLTIME+13*, COLLTIME+14*, CTMQ
COLLDT VALID+1~, VALID+3*, VALID+6, VALID+7, VALID+15, MULT+1
COLLTYPE VALID+1~, VALID+4*, VALID+7, MULT+1
D CKDATE+3~, CKDATE+5*, CKDATE+7
DAY COLLTIME+4~, COLLTIME+5*, COLLTIME+6, COLLTIME+7, COLLTIME+10, COLLTIME+12*, COLLTIME+13, COLLTIME+14
DOMAIN HELPTYPE+5~*
DONE CKTYPE+1!, CKTYPE+2!, CKTYPE+3!
DT CKDATE+5, CKDATE+7, LC1+1, LC1+3
DUZ(2 GETIMES+5
>> EDITONLY DEFTIME+1*, DEFTIME+6*, COLLTYPE+2*, COLLTYPE+4*, CTQ+3
>> FIRST CTQ+3
HOUR TIME+1~, TIME+2*, TIME+3*, TIME+4*, TIME+5
I GETIMES+1~, GETIMES+3*, GETIMES+4, GETIMES+8*, GETIMES+9*, GETIMES+10*, GETIMES+12*, COLLTIME+4~, COLLTIME+10*, COLLTIME+12*
COLLTIME+14*, LISTCOLL+2~*, LISTCOLL+3*, IMMTIMES+1~*, IMMTIMES+2*, LABCOLL+2~
>> LRFDATE DEFTIME+1
>> LRFZX COLLTYPE+2
MIN TIME+1~, TIME+2*, TIME+5
NEXT COLLTIME+4~, COLLTIME+5*, COLLTIME+6*, COLLTIME+7, COLLTIME+10, COLLTIME+11, COLLTIME+14
NOW COLLTIME+4~*, COLLTIME+5
OFFSET NEXTCOLL+1~, NEXTCOLL+2*, NEXTCOLL+3*, NEXTCOLL+4
OK VALID+1~, VALID+7*, VALID+8, VALID+9
ON GETIMES+1~, GETIMES+11*, GETIMES+12
ORACT VALID+1~, VALID+14*
ORCAT EX+1!
ORCOLLCT EX+1!, DEFTIME+2, DEFTIME+5, DEFTIME+8, DEFTIME+9, DEFTIME+10, COLLTIME+1, COLLTIME+2
ORD LABCOLL+2~, LABCOLL+7*, LC1+1, LC1+3, LC1+7, LC1+9
ORDAYS NEXTCOLL+1~, NEXTCOLL+3*
ORDER VALID~, VALID+3, VALID+4, VALID+10, VALID+13, VALID+15, MULT+1
>> ORDIALOG DEFTIME+3, COLLTYPE+3
>> ORDIALOG( GETIMES+3, GETIMES+4*, GETIMES+12*, DEFTIME+8, COLLTIME+2!, COLLTIME+3, COLLTIME+7*, COLLTIME+8*, COLLTIME+10*, COLLTIME+13*
COLLTIME+14*, CTMQ*, CKTYPE+4!, HELPTYPE+5
ORDIV EX+1!, GETIMES+5*, GETIMES+6*, GETIMES+7, GETIMES+11, IMMDEF+1, COLLTIME+1, IMMCOLL+3, LC1+4, HELPTYPE+4
, VALID+1~, VALID+12~
ORDY LABCOLL+2~, LC1+4*, LC1+5
>> ORESET CKTYPE+4
OREVENT GETIMES+6, CKDATE+6, LC1+2, LC1+3, VALID+1~, VALID+5*, VALID+6, VALID+8, VALID+15
>> ORIFN VALID+5
ORIMTIME EX+1!, GETIMES+11, COLLTIME+1, VALID+1~, VALID+12~
ORIMTIME( IMMTIMES+2
ORIMTIME(0 DEFTIME+9, CTQCKTYPE+2
>> ORL EN+2, EX+2*, GETIMES+5, GETIMES+6*, NEXTCOLL+6, LC1+4, LC1+6, COLLTYPE+5
ORMAX EN+1*, EN+2*, EX+1!
ORNP VALID+12~, VALID+13*
ORPTLK VALID+1~
ORSCH EX+1!
ORSMAX EX+1!
ORSTMS EX+1!
ORT LABCOLL+2~, LABCOLL+7*, LABCOLL+8*, LABCOLL+9, LC1+3
ORTEST EX+1!
ORTEST("Lab C ollSamp" , CTQCTQ+1, CKTYPE+3
ORTIME EX+1!, GETIMES+1!, GETIMES+7, GETIMES+9*, COLLTIME+9, VALID+1~, VALID+12~
ORTIME( GETIMES+8*, GETIMES+9, GETIMES+10, COLLTIME+5, COLLTIME+7, COLLTIME+10, COLLTIME+14, LISTCOLL+3
ORTIME("AM" GETIMES+9*, COLLTIME+13, LABCOLL+8
ORTIME("B" GETIMES+8*, LABCOLL+9, LC1+3
ORTIME("NEXT" GETIMES+10*
ORTIME(0 GETIMES+9, COLLTIME+3, COLLTIME+6, COLLTIME+11, COLLTIME+12, NEXTCOLL+1, LISTCOLL+1, LABCOLL+3, CTQ+1, CKTYPE+1
ORTXT VALID+1~, VALID+10!
ORTXT(1 VALID+10
>> ORTYPE CKDATE+6, LC1+3, LC1+8, LC1+9, COLLTYPE+1, COLLTYPE+6
ORXL EX+2!, GETIMES+6*
ORXTIM LABCOLL~, LABCOLL+4, LABCOLL+5*, LABCOLL+7, LC1+2, LC1+5
PARAM NEXTCOLL+1~, NEXTCOLL+7*, NEXTCOLL+8, LABCOLL+2~, LC1+7*, LC1+8
>> PROMPT DEFTIME+3, DEFTIME+4, DEFTIME+8, COLLTIME+2, COLLTIME+3, COLLTIME+7, COLLTIME+8, COLLTIME+10, COLLTIME+13, COLLTIME+14
CTMQ, COLLTYPE+3, COLLTYPE+4, HELPTYPE+5
START NEXTCOLL~, NEXTCOLL+2*, NEXTCOLL+4
U GETIMES+3, GETIMES+4, GETIMES+5, GETIMES+8, GETIMES+12, IMMDEF+2, LABSAMP+1, HELPTYPE+5, VALID+5, VALID+9
, VALID+13, MULT+2
VALIDT GETIMES+2, GETIMES+12, VALID+1~, VALID+2*, VALID+11!
X GETIMES+1~, GETIMES+3*, GETIMES+4*, GETIMES+8*, GETIMES+12*, IMMDEF+1~*, IMMDEF+2, COLLTIME+4~, COLLTIME+10*, COLLTIME+13*
COLLTIME+14*, NEXTCOLL+1~, NEXTCOLL+3, NEXTCOLL+4*, NEXTCOLL+5!, NEXTCOLL+8!, NEXTCOLL+9!, NEXTCOLL+10, TIME~, TIME+2
LISTCOLL+2~*, LISTCOLL+3*, LISTCOLL+4, CKDATE~, CKDATE+1*, CKDATE+2, CKDATE+4*, CKDATE+5, CKDATE+6, IMMCOLL~
, IMMCOLL+1, IMMCOLL+2*, IMMCOLL+3, LABCOLL+2~, LABCOLL+5*, LABSAMP+1~*
XM TIME+1~, TIME+2*, TIME+3*, TIME+5
Y DEFTIME+3~*, DEFTIME+4*, DEFTIME+5*, IMMDEF+1~, IMMDEF+2*, IMMDEF+3, NEXTCOLL+1~, NEXTCOLL+5, NEXTCOLL+7, NEXTCOLL+9
, NEXTCOLL+10*, NEXTCOLL+11, TIME+1~, TIME+5*, TIME+6, CKDATE+3~, CKDATE+4, IMMCOLL+2~, LABCOLL+2~, LABCOLL+5
, LABSAMP+1~*, LABSAMP+2, COLLTYPE+1~*, COLLTYPE+2*, COLLTYPE+4*, COLLTYPE+5*, COLLTYPE+6*, CTQ*, CTQ+1*, CTQ+4
CKTYPE+1, CKTYPE+2, CKTYPE+3, CKTYPE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All