Routine: ORCSEND1

Information

ORCSEND1 ;SLC/MKB - Release cont ;Aug 31, 2020@16:02:49

Name	Comments	DBIA/ICR reference
PKGSTUFF(PKG)	; Package code
LR	; Spawn child orders if continuous schedule
LR1
SCHEDULE(IFN,PKG,ORY,STRT)	; Returns list of start time(s) from schedule
GETORDER(IFN)	; Set ORX(Inst,Ptr)=Value
PTR(X)	; Returns ptr of prompt X in Order Dialog file
PS	; spawn child orders if multiple doses
PSJ	; (Inpt only)
PSS	;
PS1
PS2	; ck if parent is unsigned or edit
DOSES(IFN)	; count number of doses in order
FRSTDOSE()	; Return instance of first dose
SIG	; Build text of instructions
STRT	; Build ORSTRT(inst)=date.time array of start times by dose
STOP(I,ORST)	; calculate STOP DATE; similar to PSJHL9; p*507
STPADM(SCH,AT,STP)	; calculate STOP DATE based on admin schedule; similar to PSJHL9; p*507
CNJCHK(I)	;Check for A conjuction; p*507
DUR(I)	; Accumulate duration in ORD("Xt") for offsetting next THEN dose
VBEC	; Spawn VBECS children