Routine: ORWDPS1

Information

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

Package	Total	Call Graph
Pharmacy Data Management	7	(SCHED,ZERO)^PSS51P1 EN^PSSDIN START^PSSJORDF ($$OIDEA,$$OIDETOX)^PSSOPKI DOSE^PSSOPKI1 DOSE^PSSORUTL ($$IVDEA,$$MAXDS,EN1,MAXDS)^PSSUTIL1
Kernel	2	$$UP^XLFSTR ($$DETOX,$$SDEA)^XUSER
Order Entry Results Reporting	2	($$DEFDLG,$$NMSP,GETDLG,GETORDER)^ORCD $$WARDIEN^ORWDPS32
Inpatient Medications	1	ENRFA^PSJORUTL
Outpatient Pharmacy	1	DSUP^PSOSIGDS
Toolkit	1	$$GET^XPAR
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 24

Package	Total	Caller Graph
Order Entry Results Reporting	24	ORALWORD ORAREN ORCACT01 ORCMEDT8 ORCSAVE ORWDPS1 CHK94 ORWDPS1 DFLTSPLY ORWDPS1 DOSEALT ORWDPS1 DOWSCH ORWDPS1 FAILDEA ORWDPS1 FORMALT ORWDPS1 GETPRIEN ORWDPS1 GETPRIOR ORWDPS1 HASOIPI ORWDPS1 HASROUTE ORWDPS1 IVDEA ORWDPS1 LOCPICK ORWDPS1 MAXDS ORWDPS1 ODSLCT ORWDPS1 QOMEDALT ORWDPS1 SCHALL ORWDXM3 ORWDXR ORWORR

Entry Points

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

External References

Name	Field # of Occurrence
$$GET1^DIQ	QOMEDALT+3
$$DEFDLG^ORCD	QOCHECK+7
$$NMSP^ORCD	QOCHECK+2
GETDLG^ORCD	QOCHECK+8
GETORDER^ORCD	QOCHECK+8
$$WARDIEN^ORWDPS32	DOWSCH+2, SCHALL+2
ENRFA^PSJORUTL	DOSEALT+2
DSUP^PSOSIGDS	DEFSPLY+3, DFLTSPLY+12
SCHED^PSS51P1	DOWSCH+3, SCHALL+3
ZERO^PSS51P1	DOWSCH+9
EN^PSSDIN	PKI+9
START^PSSJORDF	PKI+6
$$OIDEA^PSSOPKI	FAILDEA+9
$$OIDETOX^PSSOPKI	FAILDEA+5, FDEA1+7
DOSE^PSSOPKI1	PKI+7, PKI+8
DOSE^PSSORUTL	PKI+7
$$IVDEA^PSSUTIL1	FDEA1+11
$$MAXDS^PSSUTIL1	MAXDS+13
EN1^PSSUTIL1	FORMALT+3
MAXDS^PSSUTIL1	MAXDS+5
$$UP^XLFSTR	FAILDEA+12, FDEA1+14
$$GET^XPAR	PRIOR+6, GETPRIOR+3, GETPRIEN+2, DEFPICK+8, DISPMSG+1, LOCPICK+2
$$DETOX^XUSER	FAILDEA+6, FDEA1+8
$$SDEA^XUSER	FAILDEA+11, FDEA1+13

Used in RPC

RPC Name	Call Tags
ORWDPS1 ODSLCT	ODSLCT
ORWDPS1 SCHALL	SCHALL
ORWDPS1 CHK94	CHK94
ORWDPS1 DFLTSPLY	DFLTSPLY
ORWDPS1 FORMALT	FORMALT
ORWDPS1 DOSEALT	DOSEALT
ORWDPS1 FAILDEA	FAILDEA
ORWDPS1 LOCPICK	LOCPICK
ORWDPS1 HASOIPI	HASOIPI
ORWDPS1 HASROUTE	HASROUTE
ORWDPS1 IVDEA	FDEA1
ORWDPS1 DOWSCH	DOWSCH
ORWDPS1 QOMEDALT	QOMEDALT
ORWDPS1 GETPRIOR	GETPRIOR
ORWDPS1 GETPRIEN	GETPRIEN
ORWDPS1 MAXDS	MAXDS

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FAILDEA+8, FDEA1+10
^ORD(100.98 - [#100.98]	QOCHECK+4
^ORD(101.41 - [#101.41]	DEFPICK+2, DEFPICK+3, QOMEDALT+2, QOMEDALT+4, QOMEDALT+5, QOMEDALT+6, CHK94+2, HASOIPI+3, HASOIPI+4, HASOIPI+7 , HASOIPI+8, HASROUTE+3, HASROUTE+5, HASROUTE+6, QOCHECK+2, QOCHECK+3
^ORD(101.42 - [#101.42]	PRIOR+3, PRIOR+5, PRIOR+6, PRIOR+7, PRIOR+9, PRIOR+10, GETPRIOR+2, GETPRIOR+3, GETPRIOR+4, GETPRIEN+1 , GETPRIEN+2
^ORD(101.43 - [#101.43]	PKI+5, DFLTSPLY+6, FORMALT+2, FORMALT+6, FORMALT+7, DOSEALT+4, DOSEALT+5, QOMEDALT+7, FAILDEA+2, FDEA1+4 , MAXDS+11
^PSX(550 - [#550]	DEFPICK+14
^TMP("ORECALL"	DEFPICK+4
^TMP("PSJINS"	PKI+2!, PKI+15!
^TMP("PSJMR"	PKI+2!, PKI+15!
^TMP("PSJNOUN"	PKI+2!, PKI+15!
^TMP("PSJSCH"	PKI+2!, PKI+15!
^TMP("PSSDIN"	PKI+2!, PKI+15!
^TMP($J	DOWSCH+8!, DOWSCH+10, DOWSCH+11!

Label References

Name	Line Occurrences
$$DEFPICK	ODSLCT+14
$$DISPMSG	ODSLCT+5
FORMALT	QOCHECK+12
PRIOR	ODSLCT+3
XPICK	DEFPICK+9, DEFPICK+10, DEFPICK+11, DEFPICK+12, DEFPICK+13

Naked Globals

Name	Field # of Occurrence
^(1	DEFPICK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	QOMEDALT+1~
ARY	QOCHECK+1~, QOCHECK+12
CNT	DOWSCH+1~, DOWSCH+5, DOWSCH+6, DOWSCH+14, SCHALL+1~, SCHALL+5, SCHALL+6
CUROI	DOSEALT~, DOSEALT+5
DDRUG	DOSEALT~, DOSEALT+2
DEAFLG	FAILDEA+1~, FAILDEA+9, FAILDEA+10, FAILDEA+11, FAILDEA+12, FDEA1+3~, FDEA1+11, FDEA1+12, FDEA1+13, FDEA1+14
>> DETFLAG	FAILDEA+5, FAILDEA+7, FAILDEA+8, FDEA1+7, FDEA1+9, FDEA1+10
DETFLG	FAILDEA+1~, FDEA1+3~
DETPRO	FAILDEA+1~, FAILDEA+6, FAILDEA+7, FAILDEA+8, FDEA1+3~, FDEA1+8, FDEA1+9, FDEA1+10
DFN	ODSLCT~, DEFSPLY~, DEFSPLY+2, DOWSCH~, SCHALL~
DG	QOCHECK+1~, QOCHECK+3*
DIEN	QOCHECK~, QOCHECK+2, QOCHECK+3, QOCHECK+4, QOCHECK+7, QOCHECK+8
DLG	DEFPICK+1~, DEFPICK+2*, DEFPICK+4
DRG	DFLTSPLY~, DFLTSPLY+4
>> EDITONLY	DEFPICK+5*
FAIL	FAILDEA~, FAILDEA+2, FAILDEA+7, FAILDEA+8, FAILDEA+10, FAILDEA+11, FAILDEA+12, FAILDEA+13, FDEA1~, FDEA1+4 , FDEA1+9, FDEA1+10, FDEA1+12, FDEA1+13, FDEA1+14, FDEA1+15
FORMIEN	QOCHECK+1~
FREQ	DOWSCH+1~, DOWSCH+10*, DOWSCH+12, DOWSCH+13
I	DFLTSPLY+2~, DFLTSPLY+9, DFLTSPLY+10, DFLTSPLY+11, FORMALT+1~, FORMALT+4, FORMALT+7, DOSEALT+1~, DOSEALT+3, DOSEALT+4
IDIEN	QOMEDALT+1~, QOMEDALT+5*, QOMEDALT+6
ILST	ODSLCT+2~, ODSLCT+3, ODSLCT+4, ODSLCT+5, ODSLCT+11, ODSLCT+12, ODSLCT+13, ODSLCT+14, PKI+1~, PKI+3* , PRIOR+9, PRIOR+10, DOWSCH+1~, DOWSCH+4, DOWSCH+14, SCHALL+1~, SCHALL+4, SCHALL+6, DOSEALT+1~, DOSEALT+5
LOC	ODSLCT~, ODSLCT+14, DEFPICK~, DEFPICK+8, LOCPICK~, LOCPICK+2
LOCIEN	DOWSCH~, DOWSCH+2, SCHALL~, SCHALL+2
LST	ODSLCT~, DOWSCH~, SCHALL~, DOSEALT~
LST(	ODSLCT+3, ODSLCT+4, ODSLCT+5, ODSLCT+11, ODSLCT+12, ODSLCT+13, ODSLCT+14, PRIOR+9, PRIOR+10, DOWSCH+14 , SCHALL+6, DOSEALT+5
NAME	QOCHECK+1~, QOCHECK+4*, QOCHECK+5
>> NODE	DOWSCH+6*, DOWSCH+7, DOWSCH+9, DOWSCH+10
ODIEN	QOMEDALT~, QOMEDALT+2, QOMEDALT+5, QOMEDALT+6
OI	PKI~, PKI+5, DFLTSPLY~, DFLTSPLY+5, DFLTSPLY+6, FORMALT+6, FORMALT+7, DOSEALT+1~, DOSEALT+4, DOSEALT+5 , FAILDEA~, FAILDEA+2, FDEA1~, FDEA1+4, QOCHECK+1~, QOCHECK+10*, QOCHECK+11
OIIEN	QOCHECK+1~, QOCHECK+11*, QOCHECK+12, QOCHECK+13
OITYPE	FDEA1~, FDEA1+11
OIX	HASOIPI+1~, HASOIPI+6, HASOIPI+8, HASOIPI+9
ORARRAY	DOWSCH+1~, DOWSCH+3, SCHALL+1~, SCHALL+3, MAXDS+6~, MAXDS+13
ORARRAY(	DOWSCH+5, DOWSCH+6, DOWSCH+14, SCHALL+5, SCHALL+6
ORARRAY("DRUG"	MAXDS+8*
ORARRAY("OI"	MAXDS+9*
ORARRAY("PSOI"	MAXDS+12*
ORDERID	QOMEDALT+1~, QOMEDALT+4*, QOMEDALT+5
ORDIALOG	QOCHECK+1~, QOCHECK+7*, QOCHECK+8, QOCHECK+9
ORDIALOG(	QOCHECK+11
ORDIALOG("B"	QOCHECK+10
ORDIEN	MAXDS~, MAXDS+9, MAXDS+10, MAXDS+11
ORDOSE	PKI+1~, PKI+7, PKI+8
ORDOSE("DEA"	PKI+11
ORDRIEN	MAXDS~, MAXDS+7, MAXDS+8
ORIEN	FORMALT~, FORMALT+2*, FORMALT+3
ORIEN(	FORMALT+5
ORLST	FORMALT~
ORLST(	FORMALT+7*
ORNP	FAILDEA~, FAILDEA+6, FAILDEA+11, FDEA1~, FDEA1+8, FDEA1+13
ORPKG	QOCHECK+1~, QOCHECK+2*
ORPRA	PRIOR+5, PRIOR+6, PRIOR+7, GETPRIOR+1~, GETPRIOR+2, GETPRIOR+3, GETPRIOR+4, GETPRIEN~, GETPRIEN+1, GETPRIEN+2 , GETPRIEN+3
ORPSOI	MAXDS+11~*, MAXDS+12
ORVP	PKI~, PKI+7, PKI+8
ORWDOSES	PKI+1~
ORWLST	DOSEALT+1~, DOSEALT+2
ORWLST(	DOSEALT+3, DOSEALT+4
ORWPSOI	PKI+1~, PKI+4, PKI+5, PKI+6, PKI+7, PKI+8, PKI+9
ORWX	DEFSPLY+1~, DEFSPLY+3, DFLTSPLY+2~, DFLTSPLY+12
ORWX("DAYS SU	PPLY" , DEFSPLY+4, DFLTSPLY+13
ORWX("DOSE OR	DERED" , DFLTSPLY+10*
ORWX("DRUG"	DFLTSPLY+4*
ORWX("OI"	DFLTSPLY+8*
ORWX("PATIENT"	DEFSPLY+2, DFLTSPLY+3
ORWX("SCHEDULE"	DFLTSPLY+11*
ORX	PRIOR+1~, PRIOR+7, PRIOR+8, GETPRIOR~, GETPRIOR+4, GETPRIOR+5
ORY	PKI~, PKI+10, PKI+14, QOMEDALT~, QOMEDALT+2, QOMEDALT+7, QOCHECK~, QOCHECK+13, MAXDS~, MAXDS+4 , MAXDS+13*
PAT	DFLTSPLY~, DFLTSPLY+3
PIIEN	HASOIPI+1~, HASOIPI+4*, HASOIPI+5, HASOIPI+9
PKG	QOMEDALT+1~, QOMEDALT+2*, QOMEDALT+3
PKIACTIV	PKI~, PKI+13
PRMT	DEFPICK+1~, DEFPICK+3*, DEFPICK+4
PSID	FORMALT+1~, FORMALT+4, FORMALT+5, FORMALT+6
PSOI	DFLTSPLY+2~, DFLTSPLY+7, DFLTSPLY+8, FAILDEA+1~, FAILDEA+4, FAILDEA+5, FAILDEA+9, FDEA1+3~, FDEA1+6*, FDEA1+7 , FDEA1+11
PSTYPE	ODSLCT~, ODSLCT+10, PKI~, PKI+6, PKI+7, PKI+8, PRIOR+2, FORMALT~, FORMALT+3, DOSEALT~ , DOSEALT+2, QOMEDALT+1~, QOMEDALT+3*, FAILDEA~, FAILDEA+5, FAILDEA+9
QOID	HASOIPI~, HASOIPI+3, HASOIPI+7, HASOIPI+8, HASROUTE~, HASROUTE+5, HASROUTE+6
ROUTID	HASROUTE+1~, HASROUTE+2, HASROUTE+3, HASROUTE+4, HASROUTE+6
RT	FAILDEA+1~, FAILDEA+11, FAILDEA+12, FAILDEA+13, FDEA1+3~, FDEA1+13, FDEA1+14, FDEA1+15
SCH	DFLTSPLY~, DFLTSPLY+11
TKPG	FDEA1+3~
TPKG	DFLTSPLY+2~, DFLTSPLY+6, DFLTSPLY+7, FAILDEA+1~, FAILDEA+2, FAILDEA+3, FAILDEA+4, FDEA1+4*, FDEA1+5, FDEA1+6
TYPE	QOCHECK+1~, QOCHECK+5*, QOCHECK+6, QOCHECK+12
U	PKI+5, PRIOR+7, PRIOR+9, PRIOR+10, GETPRIOR+4, DFLTSPLY+6, DFLTSPLY+9, DFLTSPLY+10, DFLTSPLY+11, DOWSCH+7 , DOWSCH+9, DOWSCH+10, DOWSCH+14, SCHALL+6, FORMALT+2, FORMALT+7, DOSEALT+4, DOSEALT+5, QOMEDALT+2, QOMEDALT+7 , FAILDEA+2, FDEA1+4, QOCHECK+2, QOCHECK+3, QOCHECK+4, QOCHECK+10, MAXDS+11
UPD	DFLTSPLY~, DFLTSPLY+9, DFLTSPLY+10
VAL	DFLTSPLY~, DFLTSPLY+13, CHK94~, CHK94+1, CHK94+2*
VALUE	QOMEDALT+1~, QOMEDALT+6*, QOMEDALT+7
WIEN	DOWSCH+1~, DOWSCH+2, DOWSCH+3, SCHALL+1~, SCHALL+2, SCHALL+3
X	PKI+1~, PKI+11, PKI+13, PKI+14, PRIOR+1~, PRIOR+3, PRIOR+4, PRIOR+8, PRIOR+9, DEFPICK+1~ , DEFPICK+2, DEFPICK+4, DEFPICK+5, DEFPICK+8, DEFPICK+9, DEFPICK+10, DEFPICK+11, DEFPICK+12, DEFPICK+13, DEFPICK+14 , XPICK
X1	PKI+1~, PKI+11*
X2	PKI+1~, PKI+11*, PKI+12, PKI+13
XREF	PRIOR+1~, PRIOR+2*, PRIOR+3, PRIOR+4, PRIOR+8, PRIOR+9
Y	FAILDEA+8, FDEA1+10, LOCPICK~, LOCPICK+1, LOCPICK+2, LOCPICK+3, LOCPICK+4, LOCPICK+5, LOCPICK+6, LOCPICK+7* , HASOIPI~, HASOIPI+2, HASOIPI+9, HASROUTE~, HASROUTE+2, HASROUTE+6

Marked Items

Name	Field # of Occurrence
$T(DOSE^PSSOPKI1	PKI+7, PKI+8
$T(MAXDS^PSSUTIL1	MAXDS+5

Customize PDF page

Package: Order Entry Results Reporting