Routine: ORWDPS1

Information

ORWDPS1 ;SLC/KCM,JLI,TC - Pharmacy Calls for Windows Dialog ;Apr 05, 2018@07:01

Source file <ORWDPS1.m>

Name	Comments	DBIA/ICR reference
ODSLCT(LST,PSTYPE,DFN,LOC)	; return default lists for dialog ; PSTYPE: pharmacy type (U=unit dose, F=IV fluids, O=outpatient)
PKI(ORY,OI,PSTYPE,ORVP,PKIACTIV)	; return DEA Schedule for drug
PRIOR	; from DLGSLCT, get list of allowed priorities
GETPRIOR(ORX)	; from RPC ORWDPS1 GETPRIOR gets sites alterative to "ASAP" if present
GETPRIEN(ORPRA)	; from RPC ORWDPS1 GETPRIEN gets sites alterative to "ASAP" IEN if present
DEFPICK(LOC)
XPICK
DEFSPLY(DFN)
DFLTSPLY(VAL,UPD,SCH,PAT,DRG,OI)
DISPMSG()
DOWSCH(LST,DFN,LOCIEN)
SCHALL(LST,DFN,LOCIEN)
FORMALT(ORLST,ORIEN,PSTYPE)	; return a list of formulary alternatives
DOSEALT(LST,DDRUG,CUROI,PSTYPE)	; return a list of formulary alternatives for dose
QOMEDALT(ORY,ODIEN)	;
FAILDEA(FAIL,OI,ORNP,PSTYPE)
FDEA1(FAIL,OI,OITYPE,ORNP)	; only be called for an outpaitent and IV dialog
CHK94(VAL)
LOCPICK(Y,LOC)	; return default Location level routing
HASOIPI(Y,QOID)	; Check if QO put orderable item's PI into Sig
HASROUTE(Y,QOID)	;Check if QO has a ROUTE defined
QOCHECK(ORY,DIEN)	;
MAXDS(ORY,ORDIEN,ORDRIEN)	; ; ORDIEN IS orderable item ien 101.43 ; ORDRIEN IS the drug ien ; RETURN IS THE MAX DAYS SUPPLY FOR THE ORDERABLE ITEM

FileNo	Call Tags
^DIC(9.4 - [#9.4]	GET1^DIQ