Routine: ORCDLR

Information

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

Source file <ORCDLR.m>

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

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

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