Routine: ORCDPS3

Information

ORCDPS3 ;SLC/MKB - Pharmacy dialog utilities ;Jan 11, 2022@09:03:58

Source file <ORCDPS3.m>

Name	Comments	DBIA/ICR reference
START	; -- Start Date entry action
ADMIN	; -- Return default admin time for order in ORSD ; Called from EXDOSE^ORCDPS2
FIRST(DFN,WARD,OI,DATA,ORDER,ADMIN)
NUMCHAR(STRING,SUB)	;
NOW	; -- First dose now?
DEFSTRT	; -- Returns default start date/time in Y ; Expects PROMPT,INST,ORDIALOG,ORSD to be defined
FMDUR(X)
CONV	;;unit;unit;factor
ASKTITR()	; Returns 1 or 0, if Titration prompt should be asked
ASKDUR()
ADQ	;
CKDUR(X)	; -- Returns validated form of duration X, or null if invalid
DUR	; -- Process duration [from P-S Action]
TEST(START,DURTN)
SC	; -- Dialog validation, to ask SC questions ; Expects ORIFN, ORDA, and ORDER
PRI	; Validate Priority for Outpatient orders
IND	;returns indications for use
XHELP	; -- list indications for use if defined
DFIND	; -- Get default indication for use
INDIT	;
PARKCK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!," >> First Dose NOW is in addition to those already entered. <<" Line Location: NOW+20
Function Call: WRITE	Prompt: !," >> Please adjust the duration of the first one, if necessary. <<" Line Location: NOW+21
Function Call: WRITE	Prompt: $C(7),!,ORDIALOG(PROMPT,"?"),! Line Location: DUR+2
Function Call: WRITE	Prompt: !,Y Line Location: TEST+4
Function Call: WRITE	Prompt: !!,"Is "_$$ORDITEM^ORCACT(ORDER)_" for treatment related to:" Line Location: SC+15
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: XHELP+3
Function Call: WRITE	Prompt: !,?5,I_" "_$P(ORDIALOG(PROMPT,"LIST",I),U) Line Location: XHELP+5
Function Call: WRITE	Prompt: !,"PARK is disabled at the site, PARK is not a choice." Line Location: PARKCK+5

FileNo	Call Tags
^OR(100 - [#100]	Classic Fileman Calls