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  | All
Print Page as PDF
Routine: ORWDXR

Package: Order Entry Results Reporting

Routine: ORWDXR


Information

ORWDXR ;SLC/KCM/JDL - Utilites for Order Actions ;Sep 01, 2021@10:05:23

Source Information

Source file <ORWDXR.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Order Entry Results Reporting 12 ($$ISCLOZ,ALLWORD)^ORALWORD  $$VALID^ORCACT0  ($$NMSP,$$PTR,GETDLG,GETORDER)^ORCD  RESETID^ORCDPS  (D1,SIG)^ORCDPS2  RN^ORCSAVE  $$VALUE^ORCSAVE2  TEXT^ORQ12  
$$ISTITR^ORUTL3  $$DEFPICK^ORWDPS1  GETBYIFN^ORWORR  ($$RNWFLDS,EDTDLG)^ORWTITR  
Pharmacy Data Management 2 DOSE^PSSOPKI1  DOSE^PSSORUTL  
Kernel 1 $$UP^XLFSTR  
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: 15

Package Total Caller Graph
Order Entry Results Reporting 14 ORAREN  ORWDX  ORWDX1  ORWDXA  ORWDXR CANRN  ORWDXR GETPKG  ORWDXR GTORITM  ORWDXR ISCPLX  
ORWDXR ISNOW  ORWDXR ISREL  ORWDXR ORCPLX  ORWDXR RENEW  ORWDXR RNWFLDS  ORWPS  
Toolkit 1 ^XTV(8989.51  

Entry Points

Name Comments DBIA/ICR reference
ACTDCREA(DCIEN) ; Valid DC Reason
ISREL(VAL,ORIFN) ; Return true if an order has been released
RENEW(REC,ORIFN,ORVP,ORNP,ORL,FLDS,CPLX,ORAPPT) ; Renew an order
RNWFLDS(LST,ORIFN) ; Return fields for renew action
; LST(0)=RenewType^Start^Stop^Refills^Pickup^Days Supply^Quantity^DispUnits^Clozapine
; LST(n)=Comments
DISPUNIT(OIEN,ORDISPDRG,ORTYPE) ; Returns the dispense unit
VAL(ORIFN,ID) ; Return value for order response
WPVAL(TXT,ORIFN,ID) ; Return word processing value
STR(PTR) ; -- Return word processing text as long string for comparison
CHKACT(ORDERID,ORWSIG,ORWREL,ORWNATR) ; Return error if can't sign/release order
XC1 ; end case
GTORITM(Y,ORIFN) ;-- Get back the orderable item IEN
GETPKG(Y,IFN) ;Get package for an order
ISCPLX(ORY,ORID) ; 1: is complex order 0: is not
ORCPLX(ORY,ORID,ORACT) ;Return children orders of the complex order
CANRN(ORY,ORID) ; Check conjunction for renew.
; All conjunctioni = "And" return 1
; Has a "Then" return 0
ISNOW(ORY,ORID) ; Is first time now order?

External References

Name Field # of Occurrence
$$ISCLOZ^ORALWORD RNWFLDS+43
ALLWORD^ORALWORD RNWFLDS+53
$$VALID^ORCACT0 XC1+2
$$NMSP^ORCD ISCPLX+4, ORCPLX+4, CANRN+6
$$PTR^ORCD RENEW+21, RENEW+32, RENEW+33, RENEW+34, RENEW+37, RENEW+38, RENEW+39, RENEW+47, RENEW+48, RENEW+49
, RENEW+50, RENEW+51, RENEW+52, RENEW+57, RENEW+58
GETDLG^ORCD RENEW+18, RENEW+25
GETORDER^ORCD RENEW+18
RESETID^ORCDPS RENEW+44
D1^ORCDPS2 RENEW+42
SIG^ORCDPS2 RENEW+45
RN^ORCSAVE RENEW+60
$$VALUE^ORCSAVE2 GTORITM+2
TEXT^ORQ12 RNWFLDS+57
$$ISTITR^ORUTL3 RENEW+20, RNWFLDS+8
$$DEFPICK^ORWDPS1 RNWFLDS+13
GETBYIFN^ORWORR RENEW+61
$$RNWFLDS^ORWTITR RNWFLDS+29
EDTDLG^ORWTITR RENEW+20
DOSE^PSSOPKI1 DISPUNIT+9
DOSE^PSSORUTL RENEW+41
$$UP^XLFSTR VAL+5, STR+3, STR+4
$$GET^XPAR RNWFLDS+23

Used in RPC

RPC Name Call Tags
ORWDXR ISREL ISREL
ORWDXR RNWFLDS RNWFLDS
ORWDXR RENEW RENEW
ORWDXR GTORITM GTORITM
ORWDXR GETPKG GETPKG
ORWDXR ORCPLX ORCPLX
ORWDXR CANRN CANRN
ORWDXR ISCPLX ISCPLX
ORWDXR ISNOW ISNOW

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] ACTDCREA+4, RNWFLDS+7, GETPKG+5
^OR(100 - [#100] ISREL+1, RENEW+11, RENEW+17, RENEW+28, RENEW+36, RNWFLDS+6, RNWFLDS+16, RNWFLDS+39, RNWFLDS+50, RNWFLDS+58
, RNWFLDS+61, VAL+2, VAL+5, VAL+7, VAL+8, VAL+12, WPVAL+2, WPVAL+3, CHKACT+7, GETPKG+4
, ISCPLX+1, ISCPLX+3, ISCPLX+8, ISCPLX+12, ISCPLX+13, ORCPLX+1, ORCPLX+3, ORCPLX+8, ORCPLX+10, ORCPLX+14
, ORCPLX+16, CANRN+3, CANRN+5, CANRN+12, CANRN+14, CANRN+18, CANRN+19, ISNOW+2, ISNOW+4, ISNOW+5
^ORD(100.01 - [#100.01] CANRN+15
^ORD(100.02 - [#100.02] ACTDCREA+5
^ORD(100.03 - [#100.03] ACTDCREA+2
^ORD(100.98 - [#100.98] RNWFLDS+7
^ORD(101.41 - [#101.41] RENEW+24, RENEW+26, RENEW+29, RENEW+34, VAL+9
^ORD(101.43 - [#101.43] RENEW+40, DISPUNIT+5
^TMP("ORWORD" RENEW+27, RENEW+28*, RENEW+53!, RENEW+54*, RENEW+55*, RENEW+56
^XUSEC("ORES" CHKACT+4, CHKACT+5

Label References

Name Line Occurrences
$$DISPUNIT RNWFLDS+25
$$STR RENEW+58, RENEW+59
$$VAL RNWFLDS+9, RNWFLDS+17, RNWFLDS+18, RNWFLDS+25, RNWFLDS+32
ISNOW ORCPLX+12
XC1 CHKACT+4, CHKACT+5, CHKACT+6

Naked Globals

Name Field # of Occurrence
^( WPVAL+3, CANRN+20
^("NOW" ISCPLX+12
^(0 ORCPLX+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE CANRN+13~, CANRN+15*, CANRN+16
ARRY STR+1~, STR+2*, STR+3, STR+4
CANRENEW CANRN+8~, CANRN+10*, CANRN+16*, CANRN+17, CANRN+20*, CANRN+21, CANRN+22
CAPS VAL+1~, VAL+5*, VAL+6
CHID CANRN+11~, CANRN+12*, CANRN+14
CHLDCNT ORCPLX+6~, ORCPLX+7*, ORCPLX+8*, ORCPLX+9
CPLX RENEW~, RENEW+8*, RENEW+21
D3 RNWFLDS+15~, RNWFLDS+16*, RNWFLDS+17, RNWFLDS+18
DA VAL+1~, VAL+2*, VAL+5, VAL+8, VAL+12, WPVAL+1~, WPVAL+2*, WPVAL+3
DATA DISPUNIT+1~, DISPUNIT+9
DATA("DD" DISPUNIT+13
DCIEN ACTDCREA~, ACTDCREA+2
DG RNWFLDS+3~, RNWFLDS+6*, RNWFLDS+7*, RNWFLDS+10
DRUG RENEW+35~, RENEW+43*, RENEW+44
DT RENEW+55
DUZ CHKACT+4, CHKACT+5
FLDS RENEW~
FLDS( RENEW+54
FLDS("ORCHECK" RENEW+15
FLDS("ORDUZ" RENEW+6
FLDS(1 RENEW+31, RENEW+32, RENEW+33, RENEW+34, RENEW+46, RENEW+48, RENEW+49, RENEW+50, RENEW+51
FST RENEW+4~, RENEW+7*
FSTDOSE RENEW+4~, RENEW+7*, RENEW+21*, RENEW+22
I RENEW+54~*, RENEW+55, WPVAL+1~, WPVAL+3*, STR+1~, STR+3*, STR+4*
ID VAL~, VAL+2, VAL+3, VAL+11, WPVAL~, WPVAL+2
IDX ORCPLX+6~, ORCPLX+7*, ORCPLX+10*, ORCPLX+12, ORCPLX+14, ORCPLX+16, ORCPLX+18
IFN GETPKG~, GETPKG+2, GETPKG+3
INDX CANRN+8~, CANRN+9*, CANRN+18*, CANRN+19
INDY CANRN+8~, CANRN+19*, CANRN+20
ISNOW ORCPLX+2~, ORCPLX+11*, ORCPLX+12, ORCPLX+13
LACT ORCPLX+2~, ORCPLX+11*, ORCPLX+15*, ORCPLX+17*, ORCPLX+18
LOC RNWFLDS+3~, RNWFLDS+5*, RNWFLDS+23
LST RNWFLDS~, RNWFLDS+48!
LST( RNWFLDS+69*, RNWFLDS+74*
LST("" RNWFLDS+65
LST(0 RNWFLDS+10*, RNWFLDS+11, RNWFLDS+25*, RNWFLDS+30*, RNWFLDS+32*, RNWFLDS+40*, RNWFLDS+42*, RNWFLDS+43*, RNWFLDS+45, RNWFLDS+47
, RNWFLDS+49*
LST(1 RNWFLDS+54*
NOWID ISCPLX+6~, ISCPLX+7*, ISCPLX+12*, ISCPLX+13
NOWVAL ISCPLX+6~, ISCPLX+7*, ISCPLX+13*, ISCPLX+14
NUMCHDS ISCPLX+6~, ISCPLX+8*, ISCPLX+9, ISCPLX+10
OELACT ORCPLX+2~, ORCPLX+11*, ORCPLX+16*, ORCPLX+17
OIEN DISPUNIT~, DISPUNIT+3, DISPUNIT+5
ORACT CHKACT+1~, CHKACT+3*, CHKACT+4*, CHKACT+5*, CHKACT+6*, CHKACT+7*, XC1+2, ORCPLX~
ORAPPT RENEW~, RENEW+9*
ORCAT RENEW+2~, RENEW+17*, RENEW+35~, RENEW+36*, RENEW+41, RENEW+44
ORCHECK RENEW+2~, RENEW+15*
ORDA RENEW+2~, RENEW+61
ORDERID CHKACT~, CHKACT+7, XC1+2, GETPKG+1~, GETPKG+3*, GETPKG+4
ORDFN RNWFLDS+46~, RNWFLDS+50*, RNWFLDS+51, RNWFLDS+52*, RNWFLDS+53
ORDG RENEW+1~, RENEW+12*
ORDGDA VAL+1~, VAL+8*, VAL+9
ORDIALOG RENEW+3~, RENEW+17*, RENEW+18, RENEW+20, RENEW+24*, RENEW+25, VAL+1~, VAL+7*, VAL+9
ORDIALOG( RENEW+22!, RENEW+27*, RENEW+30*, RENEW+32*, RENEW+33*, RENEW+34, RENEW+38, RENEW+39, RENEW+47!, RENEW+48*
, RENEW+49*, RENEW+50*, RENEW+51*, RENEW+56*, RENEW+59*, STR+2
ORDIALOG("B" RENEW+21
ORDISPDRG DISPUNIT~, DISPUNIT+12, DISPUNIT+13
ORDOSE RENEW+35~, RENEW+41
ORDOSE("DD" RENEW+43
ORDRUG RENEW+35~, RENEW+38*, RENEW+43
ORDUZ RENEW+2~, RENEW+6*
OREVENT RENEW+2~
ORI RNWFLDS+4~, RNWFLDS+59*, RNWFLDS+60, RNWFLDS+62*, RNWFLDS+63, RNWFLDS+66*, RNWFLDS+67*, RNWFLDS+69, RNWFLDS+71*, RNWFLDS+72*
, RNWFLDS+74
ORID ISCPLX~, ISCPLX+1, ISCPLX+3, ISCPLX+8, ISCPLX+12, ISCPLX+13, ORCPLX~, ORCPLX+1, ORCPLX+3, ORCPLX+8
, ORCPLX+10, CANRN~, CANRN+3, CANRN+5, CANRN+12, CANRN+18, CANRN+19, ISNOW~, ISNOW+2, ISNOW+4
, ISNOW+5
ORIFN ISREL~, ISREL+1, RENEW~, RENEW+11, RENEW+17, RENEW+18, RENEW+20, RENEW+28, RENEW+36, RENEW+61*
, RNWFLDS~, RNWFLDS+5, RNWFLDS+6*, RNWFLDS+8, RNWFLDS+9, RNWFLDS+16, RNWFLDS+18, RNWFLDS+25, RNWFLDS+29, RNWFLDS+32
, RNWFLDS+39, RNWFLDS+50, RNWFLDS+53, RNWFLDS+57, RNWFLDS+58, RNWFLDS+61, VAL~, VAL+2, VAL+5, VAL+7
, VAL+8, VAL+12, WPVAL~, WPVAL+2, WPVAL+3, GTORITM~, GTORITM+1*, GTORITM+2
ORJ RNWFLDS+4~, RNWFLDS+65*, RNWFLDS+68*, RNWFLDS+69, RNWFLDS+73*, RNWFLDS+74
ORL RENEW~, RENEW+10*
ORL(2 RENEW+10*
ORLOG RENEW+2~
ORMSG RNWFLDS+4~, RNWFLDS+29
ORMSG( RNWFLDS+72, RNWFLDS+74
ORNEW RENEW+2~
ORNP RENEW~
OROI RNWFLDS+3~, RNWFLDS+9*, RNWFLDS+25, RNWFLDS+43
ORORDTXT RNWFLDS+4~, RNWFLDS+29, RNWFLDS+56, RNWFLDS+57
ORORDTXT( RNWFLDS+60*, RNWFLDS+63*, RNWFLDS+67, RNWFLDS+69
ORORDTXT(0 RNWFLDS+59, RNWFLDS+62
ORPICK RNWFLDS+12~, RNWFLDS+13*, RNWFLDS+14, RNWFLDS+17*, RNWFLDS+18*, RNWFLDS+19*
ORPKG RENEW+2~, RENEW+14*
ORPREV RNWFLDS+12~, RNWFLDS+17*
ORQTY RNWFLDS+4~, RNWFLDS+29*, RNWFLDS+30
ORSTS RENEW+2~, CANRN+13~*, CANRN+14*, CANRN+16
ORTITR RNWFLDS+4~, RNWFLDS+8*, RNWFLDS+28
ORTMP RNWFLDS+46~, RNWFLDS+47*, RNWFLDS+49
ORTS RENEW+2~, RENEW+13*
ORTYPE DISPUNIT~, DISPUNIT+4, DISPUNIT+9
ORVP RENEW~, RENEW+10*, RENEW+41
ORWERR CHKACT+1~, XC1+1*, XC1+2*, XC1+3
ORWNATR CHKACT~, CHKACT+6, XC1+2
ORWPSOI RENEW+35~, RENEW+39*, RENEW+40*, RENEW+41
ORWREL CHKACT~, CHKACT+6, CHKACT+7
ORWSIG CHKACT~, CHKACT+4, CHKACT+5
ORY RNWFLDS+46~, RNWFLDS+53, RNWFLDS+54, ISCPLX~, ISCPLX+9*, ISCPLX+11*, ISCPLX+14*, ORCPLX~, CANRN~, CANRN+17*
, CANRN+22*, ISNOW~, ISNOW+6*
ORY( ORCPLX+18*
PI RENEW+57~, RENEW+58*, RENEW+59
PKG RNWFLDS+3~, RNWFLDS+6*, RNWFLDS+7*, RNWFLDS+10, ISCPLX+2~, ISCPLX+3*, ISCPLX+4*, ISCPLX+5, ORCPLX+2~, ORCPLX+3*
, ORCPLX+4*, ORCPLX+5, CANRN+4~, CANRN+5*, CANRN+6*, CANRN+7
PKGID GETPKG+1~, GETPKG+4*, GETPKG+5
POIREC DISPUNIT+1~, DISPUNIT+5*, DISPUNIT+6, DISPUNIT+7
PRMT RENEW+3~, RENEW+26*, RENEW+27, RENEW+28, RENEW+29*, RENEW+30, RENEW+52*, RENEW+53, RENEW+54, RENEW+55
, RENEW+56
PROMPT RENEW+35~, RENEW+37*
PSIEN DISPUNIT+1~, DISPUNIT+7*, DISPUNIT+8, DISPUNIT+9
PTR STR~, STR+2
REC RENEW~, RENEW+61*
REFILLS RNWFLDS+3~
RNWTYPE RNWFLDS+3~
SCH ISNOW+1~, ISNOW+3*, ISNOW+4*, ISNOW+5*, ISNOW+6
SIG RENEW+57~*, RENEW+59
START RNWFLDS+3~
STOP RNWFLDS+3~
STS ISREL+1~*, ISREL+2
TXT WPVAL~
TXT( WPVAL+3*
U ACTDCREA+3, ACTDCREA+4, ACTDCREA+5, ISREL+1, RENEW+12, RENEW+13, RENEW+14, RENEW+16, RENEW+17, RENEW+21
, RENEW+30, RENEW+32, RENEW+33, RENEW+36, RENEW+40, RENEW+48, RENEW+49, RENEW+50, RENEW+51, RENEW+55
, RNWFLDS+6, RNWFLDS+7, RNWFLDS+25, RNWFLDS+30, RNWFLDS+32, RNWFLDS+39, RNWFLDS+40, RNWFLDS+42, RNWFLDS+43, RNWFLDS+45
, RNWFLDS+50, DISPUNIT+5, DISPUNIT+13, VAL+7, CHKACT+7, GETPKG+4, GETPKG+5, ISCPLX+3, ISCPLX+8, ORCPLX+3
, ORCPLX+8, ORCPLX+15, CANRN+5, CANRN+14
UNIT DISPUNIT+1~, DISPUNIT+2*, DISPUNIT+3, DISPUNIT+4, DISPUNIT+6, DISPUNIT+8, DISPUNIT+12, DISPUNIT+13*, DISPUNIT+14
VAL ISREL~, ISREL+2*
X ACTDCREA+1~, ACTDCREA+2*, ACTDCREA+3, ACTDCREA+4, ACTDCREA+5, RENEW+57~, RENEW+58*, RENEW+59, STR+1~, STR+4*
X0 RENEW+3~, RENEW+11*, RENEW+12, RENEW+13, RENEW+14, RENEW+16, RENEW+17, RENEW+30, RNWFLDS+3~, RNWFLDS+6*
X3 ORCPLX+6~, ORCPLX+14*, ORCPLX+15
XCODE VAL+1~, VAL+9*, VAL+10
XXX RNWFLDS+22~, RNWFLDS+23*, RNWFLDS+24*, RNWFLDS+25
Y RNWFLDS+4~, RNWFLDS+39*, RNWFLDS+40, VAL+1~, VAL+6*, VAL+11*, VAL+12*, VAL+13, STR+1~, STR+3*
, STR+4*, STR+5*, STR+6, GTORITM~, GTORITM+2*, GETPKG~, GETPKG+3*, GETPKG+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All