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

Package: Order Entry Results Reporting

Routine: ORCDLR


Information

ORCDLR ;SLC/MKB-Utility functions for LR dialogs ;11/22/06

Source Information

Source file <ORCDLR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Order Entry Results Reporting 5 ($$MORE,$$VAL,LIST)^ORCD  P^ORCDLGH  ($$IMMCOLL,$$LABCOLL)^ORCDLR1  ($$VALUE,AM,NEXT)^ORCSAVE2  SCHEDULE^ORCSEND1  
VA FileMan 3 ^%DT  $$GET1^DIQ  ^DIR  
Lab Service 1 (SCOM,TEST)^LR7OR3  
Pharmacy Data Management 1 (AP,ZERO)^PSS51P1  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Order Entry Results Reporting 1 ORCDLR1  

Entry Points

Name Comments DBIA/ICR reference
TEST ; -- Setup ORTEST() array of ordering parameters
CKTYP ; -- ck type of test [Exit Action]
WAIT ; -- Wait for user
SHOWMAX ; -- Setup max days allowed for cont orders
CKMAX(X) ; -- Ck duration X against max allowed
CKQ
SAMPLE() ; -- Get default sample from Test for INST
SAMPQ
ENSAMP ; -- Get list of samples to pick from
ASKSAMP() ; -- Ask for Collection Sample?
SECTION() ; -- Returns Lab section of Orderable Item
SHOWCOMM(SAMP) ; -- Show comments for sample
SPECIMEN() ; -- Get default specimen from Sample for INST
SPECHELP ; -- Xecutable help for Specimen prompt
URGENCY ; -- Get list of urgencies to pick from
ASKURG() ; -- Ask urgency prompt?
REQDCOMM() ; -- Process required comments
RQ
XHELP(PTR) ; -- Xecutable help
CHANGED(FLD) ; -- Kill dependent values when FLD changes
LB(ORDER) ; -- Returns 1 or 0, if "LB #" is already in text
DATE(X) ; Free text input to FM time
XSCH ; -- xecutable help for schedule prompt
MULT(ORIFN,CTYPE,CDATE) ;check multiple orders from VALID^ORCDLR1

External References

Name Field # of Occurrence
^%DT DATE+2, MULT+6
$$GET1^DIQ ENSAMP+3
^DIR ASKSAMP+9
SCOM^LR7OR3 SHOWCOMM+2
TEST^LR7OR3 TEST+3
$$MORE^ORCD SPECHELP+5
$$VAL^ORCD SPECIMEN+2, REQDCOMM+3
LIST^ORCD ASKSAMP+10, XHELP+1
P^ORCDLGH SPECHELP+1, XHELP+2
$$IMMCOLL^ORCDLR1 MULT+10
$$LABCOLL^ORCDLR1 MULT+9
$$VALUE^ORCSAVE2 MULT+2, MULT+4
AM^ORCSAVE2 MULT+5
NEXT^ORCSAVE2 MULT+5
SCHEDULE^ORCSEND1 MULT+7
AP^PSS51P1 XSCH+3
ZERO^PSS51P1 SHOWMAX+2
$$GET^XPAR ASKURG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !,ORTEST(WRD,I,0)
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: $C(7),!,"This test may not be ordered anymore. Please select another test."
  • Line Location: CKTYP+3
Function Call: WRITE
  • Prompt: !,"Press <return> to continue ..."
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !!,"Maximum number of days for continuous orders is "_ORSMAX_"; enter a duration",!,"as either a number of days (3) or Xnumber of times (X3).",!
  • Line Location: SHOWMAX+10
Function Call: WRITE
  • Prompt: !!,"Lab will collect "_$P(SAMP0,U)_" "_$P(SAMP0,U,3)_".",!
  • Line Location: ASKSAMP+4
Function Call: WRITE
  • Prompt: !,ORCOMM(I,0)
  • Line Location: SHOWCOMM+3
Function Call: WRITE
  • Prompt: !,"Choose from: "
  • Line Location: SPECHELP+2
Function Call: WRITE
  • Prompt: !," "_$P($G(^LAB(61,I,0)),U)
  • Line Location: SPECHELP+6
Function Call: WRITE
  • Prompt: !!,"Choose from:"
  • Line Location: XSCH+4
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: XSCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: XSCH+11
Routine Call
  • DIR
  • Line Location:
    • ASKSAMP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] REQDCOMM+4, REQDCOMM+5, REQDCOMM+6
^LAB(61 - [#61] SPECHELP+1, SPECHELP+4, SPECHELP+6
^LAB(62 - [#62] ASKSAMP+2, SPECIMEN+2
^LAB(62.05 - [#62.05] URGENCY+5
^LAB(62.07 - [#62.07] REQDCOMM+7, REQDCOMM+8
^OR(100 - [#100] LB+2
^ORD(100.98 - [#100.98] TEST+7
^ORD(101.41 - [#101.41] SECTION+2, CHANGED+4
^ORD(101.43 - [#101.43] TEST+3, TEST+6, CKTYP+2, SECTION+3
^TMP("ORWORD" REQDCOMM+1, REQDCOMM+12*
^TMP($J SHOWMAX+1!, SHOWMAX+3, SHOWMAX+5, SHOWMAX+11!, XSCH+2!, XSCH+5, XSCH+7, XSCH+12!

Label References

Name Line Occurrences
$$CKMAX SHOWMAX+9
$$SECTION ENSAMP+6
CKQ CKMAX+2, CKMAX+3, CKMAX+4, CKMAX+5
SAMPQ SAMPLE+2, SAMPLE+3
WAIT CKTYP+3

Naked Globals

Name Field # of Occurrence
^( SPECHELP+4, REQDCOMM+8, LB+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~, MULT+1~, MULT+6*
CDATE MULT~, MULT+4*, MULT+5, MULT+6
CNT ENSAMP+1~*, ENSAMP+4*, ENSAMP+6, SPECHELP+3~*, SPECHELP+5*, REQDCOMM+2~, REQDCOMM+9*, REQDCOMM+10*, REQDCOMM+11*, REQDCOMM+12
XSCH+1~, XSCH+4*, XSCH+9*
CTYPE MULT~, MULT+2*, MULT+3, MULT+9
DA REQDCOMM+2~, REQDCOMM+4*, REQDCOMM+5
DEFSAMP ASKSAMP+1~, ASKSAMP+2*, ASKSAMP+3, ASKSAMP+5, ASKSAMP+6
DG TEST+1~, TEST+6*, TEST+7*
DIR ASKSAMP+1~
DIR("A" ASKSAMP+8*
DIR("B" ASKSAMP+8*
DIR(0 ASKSAMP+8*
DONE SPECHELP+3~*, SPECHELP+5*, XSCH+1~, XSCH+5, XSCH+7, XSCH+10*
DT REQDCOMM+12
DTIME WAIT+1, XSCH+10
>> DTOUT ASKSAMP+9
>> DUOUT ASKSAMP+9
>> FIRST SHOWMAX+9, ASKSAMP+6, ASKURG+2
FLD CHANGED~, CHANGED+3
I TEST+1~, TEST+5*, ENSAMP+1~*, ENSAMP+2*, SHOWCOMM+1~, SHOWCOMM+3*, SPECHELP+3~, SPECHELP+4*, SPECHELP+6, URGENCY+1~
URGENCY+4*, URGENCY+5, REQDCOMM+2~, REQDCOMM+9*, REQDCOMM+10*, LB+1~*, LB+2*
IFN XSCH+1~, XSCH+5*, XSCH+7*
>> INST TEST+2, CKTYP+1, SHOWMAX+3, SHOWMAX+9, ASKSAMP+2, REQDCOMM+1, REQDCOMM+12
IOSL SPECHELP+5, XSCH+9
J URGENCY+1~, URGENCY+4*, URGENCY+6*, URGENCY+7
KID MULT+1~, MULT+8*, MULT+9, MULT+10
LRCCOM REQDCOMM+2~, REQDCOMM+11
>> LRFSAMP SAMPLE+1
>> LRFSPEC SPECIMEN+1
LRSAMP REQDCOMM+2~, REQDCOMM+3*, REQDCOMM+4
LRSPEC REQDCOMM+2~, REQDCOMM+3*
LRTCOM REQDCOMM+2~
LRTCOM( REQDCOMM+10
LRTEST REQDCOMM+2~
LRTEST(1 REQDCOMM+4*, REQDCOMM+5, REQDCOMM+6, REQDCOMM+10
LRTSTN REQDCOMM+2~, REQDCOMM+4*
NAME CHANGED+1~, CHANGED+4*
OI TEST+1~, TEST+2*, TEST+3, TEST+6
OK SHOWMAX+5~, SHOWMAX+9*, MULT+1~, MULT+8*, MULT+9*, MULT+10*, MULT+11
ORCOLLCT SAMPLE+2, ASKSAMP+4, URGENCY+5, CHANGED+1!
ORCOMM SHOWCOMM+1~, SHOWCOMM+2
ORCOMM( SHOWCOMM+3
ORDER LB~, LB+2
>> ORDG TEST+7*
ORDIALOG( TEST+2, CKTYP+1, SHOWMAX+3!, SHOWMAX+9!, ENSAMP+1, ENSAMP+4*, ENSAMP+5*, ENSAMP+6*, ASKSAMP+2, ASKSAMP+7
, SECTION+3, URGENCY+1, URGENCY+2*, URGENCY+3*, URGENCY+6*, URGENCY+7*, ASKURG+3, REQDCOMM+12*, XHELP+1, CHANGED+4!
OREVENT MULT+1~
>> ORI CHANGED+4
ORIFN MULT~, MULT+2, MULT+4, MULT+7
>> ORL ASKURG+2
>> ORMAX SHOWMAX+8
>> ORQUIT CKTYP+3*, ASKSAMP+9*
>> ORSCH SHOWMAX+2, SHOWMAX+3, SHOWMAX+5
>> ORSMAX SHOWMAX+5*, SHOWMAX+8*, SHOWMAX+10, CKMAX+2, CKMAX+5
>> ORSTMS SHOWMAX+5*, SHOWMAX+8*, CKMAX+4, CKMAX+5
ORSTRT MULT+1~, MULT+7
ORSTRT( MULT+8
>> ORTEST TEST+3*, SHOWCOMM+1, SHOWCOMM+2, REQDCOMM+4
>> ORTEST( TEST+4, TEST+5
>> ORTEST("CollSamp" SAMPQENSAMP+2
>> ORTEST("Defau lt CollSamp" , SAMPLE+4, lt Urgency" , URGENCY+2, ASKURG+1
>> ORTEST("Lab C ollSamp" , SAMPLE+2, ASKSAMP+4
>> ORTEST("Uniqu e CollSamp" , SAMPLE+3, ASKSAMP+5
>> ORTEST("Urgencies" URGENCY+3, URGENCY+4, URGENCY+5
>> ORTYPE SHOWMAX+8, SHOWMAX+9, ASKSAMP+3, REQDCOMM+7
P CHANGED+1~, CHANGED+4*
>> PROMPT TEST+2, CKTYP+1, SHOWMAX+3, SHOWMAX+9, ENSAMP+1, ENSAMP+4, ENSAMP+5, ENSAMP+6, ASKSAMP+2, ASKSAMP+7
URGENCY+1, URGENCY+2, URGENCY+3, URGENCY+6, URGENCY+7, ASKURG+3, REQDCOMM+1, REQDCOMM+12
PROMPTS CHANGED+1~, CHANGED+2*, CHANGED+3*, CHANGED+4
PTR SECTION+1~, SECTION+2*, SECTION+3, XHELP~, XHELP+1, CHANGED+1~, CHANGED+4*
REQDCOMM REQDCOMM+2~, REQDCOMM+5*, REQDCOMM+6*, REQDCOMM+7, REQDCOMM+8, REQDCOMM+9!, REQDCOMM+12
REQDCOMM( REQDCOMM+10*, REQDCOMM+11*
REQDCOMM(0 REQDCOMM+12*
SAMP SHOWCOMM~, SHOWCOMM+1, SHOWCOMM+2
SAMP0 ASKSAMP+1~, ASKSAMP+2*, ASKSAMP+4, ASKSAMP+8
SP SPECHELP+3~*, SPECHELP+4*
TST TEST+1~, TEST+3*
U TEST+3, TEST+6, CKTYP+2, SHOWMAX+3, ENSAMP+3, ENSAMP+5, ASKSAMP+4, ASKSAMP+8, SECTION+3, SPECIMEN+2
SPECHELP+6, URGENCY+5, URGENCY+6, REQDCOMM+5, REQDCOMM+6, REQDCOMM+7, REQDCOMM+12, XHELP+1, CHANGED+4
WRD TEST+1~, TEST+4*, TEST+5
X CKTYP+1~*, CKTYP+2, WAIT+1~*, CKMAX~, CKMAX+2, CKMAX+3, CKMAX+4, CKMAX+5, SAMPLE+1~, SAMPLE+2*
, SAMPLE+3*, SAMPLE+4*, SAMPQENSAMP+1~, ENSAMP+2*, ENSAMP+3, ENSAMP+5, ASKSAMP+1~, SECTION+1~, SECTION+3*
, SECTION+4, SPECIMEN+1~, SPECIMEN+2*, URGENCY+1~, URGENCY+5*, URGENCY+6, XHELP+1, DATE~, XSCH+1~, XSCH+5*
XSCH+7, XSCH+9, MULT+1~, MULT+6*
Y CKTYP+1~, CKTYP+2*, CKTYP+3, SHOWMAX+5~, SHOWMAX+9*, CKMAX+1~*, CKMAX+2*, CKMAX+3*, CKMAX+4*, CKMAX+5*
, CKMAX+6*, CKQ, SAMPLE+1~, SAMPQ*, SAMPQ+1, ENSAMP+1~, ENSAMP+3*, ENSAMP+4, ASKSAMP+1~, ASKSAMP+10
, ASKSAMP+11, SPECIMEN+1~*, SPECIMEN+2*, SPECIMEN+3, LB+1~*, LB+2*, LB+3, DATE+1~, DATE+3, MULT+1~
, MULT+6, MULT+7
Z XSCH+1~, XSCH+10*
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