Routine: ORWDPS32

Package	Total	Call Graph
Pharmacy Data Management	3	(AP,SCHED)^PSS51P1 ALL^PSS51P2 START^PSSJORDF
Inpatient Medications	1	ENDD^PSJORUTL
Order Entry Results Reporting	1	GETQLST^ORWDXQ
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORWDPS1 ORWDPS3 ORWDPS33 ORWDXA ORWDXM2
IHS Changes To Pharmacy	1	APSPESG

Entry Points

Name	Comments	DBIA/ICR reference
SHORT	; from DLGSLCT, get short list of med quick orders ; !!! change this so that it uses the ORWDXQ call!!!
SCLIST	; from DLGSLCT, get options for service connected
ROUTE	; from OISLCT^ORWDPS32, get list of routes for the drug form ; ** NEED BOTH ABBREVIATION & NAME IN LIST BOX
AUTH(VAL,PRV)	; For inpatient meds, check restrictions
XPICK
SCHED(LOCIEN)	;
DLGSLCT(LST,PSTYPE,DFN,LOCIEN)	; return def lists for dialog ; PSTYPE: pharmacy type (U=unit dose, F=IV fluids, O=outpt)
DEFPICK()
TRIM(X)	; trim leading and trailing spaces
WARDIEN(LOCIEN)	;
AUTHNVA(VAL,PRV)	; For outside meds, check restrictions
INSTRCT	; from OISLCT, get list of potential instructs (based on drug form)
DISPDRUG(LST,OI)	; list dispense drugs for an OI
OISLCT(LST,OI,PSTYPE,ORVP)	; rtn for defaults for pharm OI
MIXED(X)
ALLROUTE(LST)	; returns a list of all available med routes
PRIOR	; from DLGSLCT, get list of allowed priorities
UPPER(X)
DISPDRG	; from OISLCT, get disp drugs for this pharm OI
SCHEDA	; (similar to SCHED, but also rtns admin times)
NXT()	; -- ret next available index in data array
VALROUTE(REC,X)
PICKUP	; from DLGSLCT, get prescription routing
IVROUTE	;
ALLIVRTE(LST)	;
MESSAGE	; message

External References

Name	Field # of Occurrence
GETQLST^ORWDXQ	SHORT+6
ENDD^PSJORUTL	DISPDRG+2, DISPDRG+3, DISPDRG+4
AP^PSS51P1	SCHEDA+3
SCHED^PSS51P1	SCHED+4
ALL^PSS51P2	IVROUTE+3, ALLIVRTE+4, ALLROUTE+4, VALROUTE+4
START^PSSJORDF	INSTRCT+2
$$GET^XPAR	DEFPICK+7, AUTH+6, AUTHNVA+2, AUTHNVA+3

Used in RPC

RPC Name	Call Tags
ORWDPS32 DLGSLCT	DLGSLCT
ORWDPS32 OISLCT	OISLCT
ORWDPS32 ALLROUTE	ALLROUTE
ORWDPS32 AUTH	AUTH
ORWDPS32 VALROUTE	VALROUTE
ORWDPS32 AUTHNVA	AUTHNVA
ORWDPS32 ALLIVRTE	ALLIVRTE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.41 - [#101.41]	DEFPICK+2, DEFPICK+3
^ORD(101.42 - [#101.42]	PRIOR+3, PRIOR+4, PRIOR+5
^ORD(101.43 - [#101.43]	DISPDRG+3, DISPDRG+4, INSTRCT+2, MESSAGE+1
^PSX(550 - [#550]	DEFPICK+12
^SC - [#44]	WARDIEN+4, WARDIEN+5
^TMP("ORECALL"	DEFPICK+4
^TMP("PSJINS"	OISLCT+2!, OISLCT+8!, INSTRCT+4, INSTRCT+5
^TMP("PSJMR"	ROUTE+3, ROUTE+4, ROUTE+7, ROUTE+8, OISLCT+2!, OISLCT+8!
^TMP("PSJNOUN"	OISLCT+2!, OISLCT+8!, INSTRCT+9, INSTRCT+10
^TMP("PSJSCH"	OISLCT+2!, OISLCT+7, OISLCT+8!
^TMP($J	SCHEDA+2!, SCHEDA+4, SCHEDA+5, SCHEDA+6, SCHEDA+9!, IVROUTE+2!, IVROUTE+4, IVROUTE+5, IVROUTE+6, IVROUTE+7 , IVROUTE+9!, ALLIVRTE+2!, ALLIVRTE+5, ALLIVRTE+6, ALLIVRTE+7, ALLIVRTE+8, ALLIVRTE+10!, ALLROUTE+3!, ALLROUTE+5, ALLROUTE+6 , ALLROUTE+7!, VALROUTE+2!, VALROUTE+5!, VALROUTE+6, VALROUTE+7, VALROUTE+9, VALROUTE+10, VALROUTE+12!, VALROUTE+14!
^VA(200 - [#200]	AUTH+2, AUTH+3, AUTHNVA+5, AUTHNVA+6
^XUSEC("OREMAS"	AUTH+6, AUTHNVA+2, AUTHNVA+3

Label References

Name	Line Occurrences
$$DEFPICK	PICKUP+3
$$NXT	DLGSLCT+4, DLGSLCT+5, DLGSLCT+7, DLGSLCT+9, DLGSLCT+11, DLGSLCT+13, DLGSLCT+14, SHORT+7, SCHEDA+8, IVROUTE+8 , ROUTE+5, ROUTE+6, ROUTE+9, SCHED+6, PRIOR+4, PRIOR+5, PICKUP+2, PICKUP+3, SCLIST+1, OISLCT+3 , OISLCT+4, OISLCT+5, OISLCT+6, OISLCT+7, DISPDRG+8, INSTRCT+7, INSTRCT+8, INSTRCT+10, INSTRCT+11, MESSAGE+1 , ALLROUTE+6
$$UPPER	VALROUTE+3, VALROUTE+12
$$WARDIEN	SCHED+3
DISPDRG	OISLCT+3, DISPDRUG+1
INSTRCT	OISLCT+4
IVROUTE	DLGSLCT+7
MESSAGE	OISLCT+6
PICKUP	DLGSLCT+13
PRIOR	DLGSLCT+5, DLGSLCT+11
ROUTE	OISLCT+5
SCLIST	DLGSLCT+14
SHORT	DLGSLCT+4, DLGSLCT+9
XPICK	DEFPICK+8, DEFPICK+9, DEFPICK+10, DEFPICK+11

Naked Globals

Name	Field # of Occurrence
^(	ROUTE+4, ROUTE+8, MESSAGE+1
^($J	OISLCT+7
^(0	AUTH+2, AUTHNVA+5
^(1	DEFPICK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABB	IVROUTE+1~, IVROUTE+6, IVROUTE+8, ALLIVRTE+1~, ALLIVRTE+7, ALLIVRTE+9
ABBR	ROUTE+2~, ROUTE+4, ROUTE+5, ROUTE+8, ROUTE+9, VALROUTE+1~, VALROUTE+10, VALROUTE+11, VALROUTE+12, VALROUTE+13
AUTH	AUTH+1~, AUTH+3, AUTH+4, AUTHNVA+1~, AUTHNVA+6, AUTHNVA+7
CNT	ALLIVRTE+1~, ALLIVRTE+3, ALLIVRTE+9, ROUTE+2~, SCHED+1~, SCHED+5*, SCHED+6
DFN	DLGSLCT~
DLG	DEFPICK+1~, DEFPICK+2*, DEFPICK+4
DT	AUTH+4, AUTHNVA+7
DUZ	AUTH+6, AUTHNVA+2, AUTHNVA+3
EDITONLY	PICKUP+1~, DEFPICK+5*
EXP	IVROUTE+1~, IVROUTE+7, IVROUTE+8, ALLIVRTE+1~, ALLIVRTE+8, SCHED+1~
I	SHORT+2~, SHORT+7, ROUTE+2~, ROUTE+3, ROUTE+4, ROUTE+6, ROUTE+7, ROUTE+8, DISPDRG+1~, DISPDRG+5 , DISPDRG+6, DISPDRG+7, DISPDRG+8, MESSAGE+1, ALLROUTE+1~, ALLROUTE+5, ALLROUTE+6
IEN	SCHEDA+1~, SCHEDA+5, SCHEDA+6, SCHEDA+8, IVROUTE+1~, IVROUTE+5, IVROUTE+6, IVROUTE+7, IVROUTE+8, ALLIVRTE+1~ , ALLIVRTE+6, ALLIVRTE+7, ALLIVRTE+8, ALLIVRTE+9, ROUTE+2~, ROUTE+4, ROUTE+5, ROUTE+6, ROUTE+8, ROUTE+9 , SCHED+1~, VALROUTE+1~, VALROUTE+6, VALROUTE+7*, VALROUTE+8, VALROUTE+9, VALROUTE+10, VALROUTE+13
IINS	INSTRCT+1~, INSTRCT+4*, INSTRCT+5
ILST	NXT+1, NXT+2, DLGSLCT+2~, OISLCT+1~, DISPDRUG+1~, ALLROUTE+1~, ALLROUTE+2*
INACT	AUTH+1~, AUTH+3, AUTH+4, AUTHNVA+1~, AUTHNVA+6, AUTHNVA+7
INOUN	INSTRCT+1~, INSTRCT+9*, INSTRCT+10
INS	INSTRCT+1~
INSREC	INSTRCT+1~, INSTRCT+5*, INSTRCT+6, INSTRCT+7
LOCIEN	DLGSLCT~, SCHED~, SCHED+3, WARDIEN~, WARDIEN+3, WARDIEN+4, WARDIEN+5
LST	DLGSLCT~, ALLIVRTE~, OISLCT~, DISPDRUG~, ALLROUTE~
LST(	DLGSLCT+4, DLGSLCT+5, DLGSLCT+7, DLGSLCT+9, DLGSLCT+11, DLGSLCT+13, DLGSLCT+14, SHORT+7, SCHEDA+8, IVROUTE+8 , ALLIVRTE+9, ROUTE+5, ROUTE+6, ROUTE+9, SCHED+6, PRIOR+4, PRIOR+5, PICKUP+2, PICKUP+3, SCLIST+1 , OISLCT+3, OISLCT+4, OISLCT+5, OISLCT+6, OISLCT+7, DISPDRG+8, INSTRCT+7, INSTRCT+8, INSTRCT+10, INSTRCT+11 , MESSAGE+1, ALLROUTE+6
NAME	VALROUTE+1~, VALROUTE+9, VALROUTE+11, VALROUTE+12, AUTH+1~, AUTH+2, AUTH+5, AUTHNVA+1~, AUTHNVA+5*, AUTHNVA+8
NOUN	INSTRCT+1~
OI	OISLCT~, DISPDRUG~, DISPDRG+3, DISPDRG+4, INSTRCT+2, MESSAGE+1
ORARRAY	SCHED+1~, SCHED+4
ORARRAY(	SCHED+5, SCHED+6
ORTMP	DISPDRG+1~, DISPDRG+3, DISPDRG+4
ORTMP(	DISPDRG+5, DISPDRG+6, DISPDRG+7, DISPDRG+8
ORVP	OISLCT~, DISPDRG+3
ORX	DISPDRG+1~, DISPDRG+2*, DISPDRG+3, DISPDRG+4
PRMT	DEFPICK+1~, DEFPICK+3*, DEFPICK+4
PRV	AUTH~, AUTH+2, AUTH+3, AUTHNVA~, AUTHNVA+5, AUTHNVA+6
PSTYPE	DLGSLCT~, DLGSLCT+3, DLGSLCT+12, SHORT+3, SHORT+4, SHORT+5, PRIOR+2, OISLCT~, DISPDRUG+1~*, DISPDRG+3 , DISPDRG+4, INSTRCT+3
REC	VALROUTE~, VALROUTE+5, VALROUTE+8, VALROUTE+12, VALROUTE+13
RESULT	WARDIEN+1~, WARDIEN+2, WARDIEN+3, WARDIEN+4, WARDIEN+5, WARDIEN+6
ROUT	ROUTE+2~, ROUTE+4, ROUTE+5, ROUTE+6, ROUTE+8, ROUTE+9
RTE	IVROUTE+1~, IVROUTE+4, IVROUTE+5, IVROUTE+8, ALLIVRTE+1~, ALLIVRTE+5, ALLIVRTE+6, ALLIVRTE+9
SCH	SCHEDA+1~, SCHEDA+4*, SCHEDA+5, SCHEDA+8, SCHED+1~
TIME	SCHEDA+1~, SCHEDA+6*, SCHEDA+7, SCHED+1~
TMP	SHORT+2~, SHORT+6
TMP(	SHORT+7
TYP	SCHED+1~
U	SCHEDA+8, IVROUTE+8, ALLIVRTE+9, ROUTE+4, ROUTE+5, ROUTE+6, ROUTE+8, ROUTE+9, SCHED+6, WARDIEN+4 , WARDIEN+5, PRIOR+4, PRIOR+5, DISPDRG+6, DISPDRG+7, INSTRCT+2, INSTRCT+6, INSTRCT+7, INSTRCT+10, ALLROUTE+6 , VALROUTE+5, VALROUTE+13, AUTH+2, AUTH+3, AUTHNVA+5, AUTHNVA+6
VAL	AUTH~, AUTH+1, AUTH+5, AUTH+7, AUTHNVA~, AUTHNVA+1, AUTHNVA+4, AUTHNVA+8
VERB	INSTRCT+1~, INSTRCT+6*, INSTRCT+11
WIEN	SCHED+1~, SCHED+3*, SCHED+4
X	SHORT+2~, SHORT+3, SHORT+4, SHORT+5, SHORT+6, SCHEDA+1~, SCHEDA+7, SCHEDA+8, ROUTE+2~, PRIOR+1~ , PRIOR+3, PRIOR+4, PICKUP+1~, PICKUP+2, PICKUP+3, DEFPICK+1~, DEFPICK+2, DEFPICK+4, DEFPICK+5, DEFPICK+7 , DEFPICK+8, DEFPICK+9, DEFPICK+10, DEFPICK+11, DEFPICK+12, XPICK, SCLIST+1, MIXED~, MIXED+1, ALLROUTE+1~ , VALROUTE~, VALROUTE+3, VALROUTE+4, VALROUTE+6, VALROUTE+7, VALROUTE+12, AUTH+1~, AUTH+3, AUTHNVA+1~, AUTHNVA+6* , UPPER~, UPPER+1, TRIM~, TRIM+1, TRIM+2, TRIM+3
X0	SCHED+1~
XREF	PRIOR+1~, PRIOR+2*, PRIOR+3, PRIOR+4

Marked Items

Name	Field # of Occurrence
$T(ENDD^PSJORUTL	DISPDRG+2

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDPS32

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items