Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ORWDPS32

Package: Order Entry Results Reporting

Routine: ORWDPS32


Information

ORWDPS32 ; SLC/KCM - Pharmacy Calls for GUI Dialog ;08/23/17 12:00

Source Information

Source file <ORWDPS32.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Order Entry Results Reporting 14 ORCDPS3  ORKPS1  ORWDPS1  ORWDPS3  ORWDPS32 ALLIVRTE  ORWDPS32 ALLROUTE  ORWDPS32 AUTH  ORWDPS32 AUTHNVA  
ORWDPS32 DLGSLCT  ORWDPS32 OISLCT  ORWDPS32 VALROUTE  ORWDPS33  ORWDXA  ORWDXM2  

Entry Points

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

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+14, 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)
^OR(100 - [#100] AUTH+6
^ORD(100.98 - [#100.98] AUTH+9
^ORD(101.41 - [#101.41] DEFPICK+2, DEFPICK+3, AUTH+9, AUTH+10
^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+3, AUTH+4, AUTHNVA+5, AUTHNVA+6
^XUSEC("OREMAS" AUTH+14, AUTHNVA+2, AUTHNVA+3
^XUSEC("ORSUPPLY" AUTH+12

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+3, AUTHNVA+5
^(1 DEFPICK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A AUTH+1~, AUTH+6*, AUTH+7, AUTH+9*
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+4*, AUTH+11, AUTHNVA+1~, AUTHNVA+6*, AUTHNVA+7
B AUTH+1~, AUTH+9*
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+11, AUTHNVA+7
DUZ AUTH+12, AUTH+14, 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
IFN AUTH+1~, AUTH+6*
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+4*, AUTH+11, 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+3*, AUTH+13, 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
ORDL AUTH+1~, AUTH+5*, AUTH+9*, AUTH+12
ORDLOG AUTH~, AUTH+5*, AUTH+6, AUTH+7*, AUTH+8*, AUTH+9, AUTH+12
ORSDLOG AUTH+1~, AUTH+10*, AUTH+12
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+3, AUTH+4, 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+3, AUTH+4, AUTHNVA+5, AUTHNVA+6
VAL AUTH~, AUTH+2*, AUTH+11, AUTH+13*, AUTH+15*, 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+4*, 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All