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 ;05/06/14 16:06

Source Information

Source file <ORWDXR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Order Entry Results Reporting 9 ($$ISCLOZ,ALLWORD)^ORALWORD  $$VALID^ORCACT0  ($$NMSP,$$PTR,GETDLG,GETORDER)^ORCD  RESETID^ORCDPS  (D1,SIG)^ORCDPS2  RN^ORCSAVE  $$VALUE^ORCSAVE2  $$DEFPICK^ORWDPS1  
GETBYIFN^ORWORR  
Kernel 1 $$UP^XLFSTR  
Pharmacy Data Management 1 DOSE^PSSORUTL  

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 LST(n)=Comments
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+27
ALLWORD^ORALWORD RNWFLDS+37
$$VALID^ORCACT0 XC1+2
$$NMSP^ORCD ISCPLX+4, ORCPLX+4, CANRN+6
$$PTR^ORCD RENEW+19, RENEW+30, RENEW+31, RENEW+32, RENEW+35, RENEW+36, RENEW+37, RENEW+45, RENEW+46, RENEW+47
, RENEW+48, RENEW+53, RENEW+54
GETDLG^ORCD RENEW+18, RENEW+23
GETORDER^ORCD RENEW+18
RESETID^ORCDPS RENEW+42
D1^ORCDPS2 RENEW+40
SIG^ORCDPS2 RENEW+43
RN^ORCSAVE RENEW+56
$$VALUE^ORCSAVE2 GTORITM+2
$$DEFPICK^ORWDPS1 RNWFLDS+8
GETBYIFN^ORWORR RENEW+57
DOSE^PSSORUTL RENEW+39
$$UP^XLFSTR VAL+5, STR+3, STR+4

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+4, GETPKG+5
^OR(100 - [#100] ISREL+1, RENEW+11, RENEW+17, RENEW+26, RENEW+34, RNWFLDS+3, RNWFLDS+11, RNWFLDS+23, RNWFLDS+25, RNWFLDS+34
, VAL+2, VAL+5, VAL+7, VAL+8, VAL+12, WPVAL+1, WPVAL+2, 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+4
^ORD(101.41 - [#101.41] RENEW+22, RENEW+24, RENEW+27, RENEW+32, VAL+9
^ORD(101.43 - [#101.43] RENEW+38
^TMP("ORWORD" RENEW+25, RENEW+26*, RENEW+49!, RENEW+50*, RENEW+51*, RENEW+52
^XUSEC("ORES" CHKACT+4, CHKACT+5

Label References

Name Line Occurrences
$$STR RENEW+54, RENEW+55
$$VAL RNWFLDS+12, RNWFLDS+13, RNWFLDS+15, RNWFLDS+17
ISNOW ORCPLX+12
XC1 CHKACT+4, CHKACT+5, CHKACT+6

Naked Globals

Name Field # of Occurrence
^( WPVAL+2, 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+19
D3 RNWFLDS+10~, RNWFLDS+11*, RNWFLDS+12, RNWFLDS+13
DA VAL+1~, VAL+2*, VAL+5, VAL+8, VAL+12, WPVAL+1~*, WPVAL+2
DCIEN ACTDCREA~, ACTDCREA+2
DG RNWFLDS+2~, RNWFLDS+3*, RNWFLDS+4*, RNWFLDS+5
DRUG RENEW+33~, RENEW+41*, RENEW+42
DT RENEW+51
DUZ CHKACT+4, CHKACT+5
FLDS RENEW~
FLDS( RENEW+50
FLDS("ORCHECK" RENEW+15
FLDS("ORDUZ" RENEW+6
FLDS(1 RENEW+29, RENEW+30, RENEW+31, RENEW+32, RENEW+44, RENEW+46, RENEW+47
FST RENEW+4~, RENEW+7*
FSTDOSE RENEW+4~, RENEW+7*, RENEW+19*, RENEW+20
I RENEW+50*, RENEW+51, WPVAL+2*, STR+1~, STR+3*, STR+4*
ID VAL~, VAL+2, VAL+3, VAL+11, WPVAL~, WPVAL+1
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
LST RNWFLDS~, RNWFLDS+32!
LST(0 RNWFLDS+5*, RNWFLDS+6, RNWFLDS+15*, RNWFLDS+17*, RNWFLDS+22*, RNWFLDS+27*, RNWFLDS+29, RNWFLDS+31, RNWFLDS+33*
LST(1 RNWFLDS+38*
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
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+33~, RENEW+34*, RENEW+39, RENEW+42
ORCHECK RENEW+2~, RENEW+15*
ORDA RENEW+2~, RENEW+57
ORDERID CHKACT~, CHKACT+7, XC1+2, GETPKG+1~, GETPKG+3*, GETPKG+4
ORDFN RNWFLDS+30~, RNWFLDS+34*, RNWFLDS+35, RNWFLDS+36*, RNWFLDS+37
ORDG RENEW+1~, RENEW+12*
ORDGDA VAL+1~, VAL+8*, VAL+9
ORDIALOG RENEW+3~, RENEW+17*, RENEW+18, RENEW+22*, RENEW+23, VAL+1~, VAL+7*, VAL+9
ORDIALOG( RENEW+20!, RENEW+25*, RENEW+28*, RENEW+30*, RENEW+31*, RENEW+32, RENEW+36, RENEW+37, RENEW+45!, RENEW+46*
, RENEW+47*, RENEW+52*, RENEW+55*, STR+2
ORDIALOG("B" RENEW+19
ORDOSE RENEW+33~, RENEW+39
ORDOSE("DD" RENEW+41
ORDRUG RENEW+33~, RENEW+36*, RENEW+41
ORDUZ RENEW+2~, RENEW+6*
OREVENT RENEW+2~
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+26, RENEW+34, RENEW+57*, RNWFLDS~
, RNWFLDS+3*, RNWFLDS+11, RNWFLDS+13, RNWFLDS+15, RNWFLDS+17, RNWFLDS+23, RNWFLDS+25, RNWFLDS+34, RNWFLDS+37, VAL~
, VAL+2, VAL+5, VAL+7, VAL+8, VAL+12, WPVAL~, WPVAL+1, WPVAL+2, GTORITM~, GTORITM+1*
, GTORITM+2
ORL RENEW~, RENEW+10*
ORL(2 RENEW+10*
ORLOG RENEW+2~
ORNEW RENEW+2~
ORNP RENEW~
OROI RNWFLDS+2~, RNWFLDS+23*, RNWFLDS+24, RNWFLDS+25*, RNWFLDS+26, RNWFLDS+27
ORPICK RNWFLDS+7~, RNWFLDS+8*, RNWFLDS+9, RNWFLDS+12*, RNWFLDS+13*, RNWFLDS+14*, RNWFLDS+15
ORPKG RENEW+2~, RENEW+14*
ORPREV RNWFLDS+7~, RNWFLDS+12*
ORSTS RENEW+2~, CANRN+13~*, CANRN+14*, CANRN+16
ORTMP RNWFLDS+30~, RNWFLDS+31*, RNWFLDS+33
ORTS RENEW+2~, RENEW+13*
ORVP RENEW~, RENEW+10*, RENEW+39
ORWERR CHKACT+1~, XC1+1*, XC1+2*, XC1+3
ORWNATR CHKACT~, CHKACT+6, XC1+2
ORWPSOI RENEW+33~, RENEW+37*, RENEW+38*, RENEW+39
ORWREL CHKACT~, CHKACT+6, CHKACT+7
ORWSIG CHKACT~, CHKACT+4, CHKACT+5
ORY RNWFLDS+30~, RNWFLDS+37, RNWFLDS+38, ISCPLX~, ISCPLX+9*, ISCPLX+11*, ISCPLX+14*, ORCPLX~, CANRN~, CANRN+17*
, CANRN+22*, ISNOW~, ISNOW+6*
ORY( ORCPLX+18*
PI RENEW+53~, RENEW+54*, RENEW+55
PKG RNWFLDS+2~, RNWFLDS+3*, RNWFLDS+4*, RNWFLDS+5, 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
PRMT RENEW+3~, RENEW+24*, RENEW+25, RENEW+26, RENEW+27*, RENEW+28, RENEW+48*, RENEW+49, RENEW+50, RENEW+51
, RENEW+52
PROMPT RENEW+33~, RENEW+35*
PTR STR~, STR+2
REC RENEW~, RENEW+57*
REFILLS RNWFLDS+2~
RNWTYPE RNWFLDS+2~
SCH ISNOW+1~, ISNOW+3*, ISNOW+4*, ISNOW+5*, ISNOW+6
SIG RENEW+53~*, RENEW+55
START RNWFLDS+2~
STOP RNWFLDS+2~
STS ISREL+1~*, ISREL+2
TXT WPVAL~
TXT( WPVAL+2*
U ACTDCREA+3, ACTDCREA+4, ACTDCREA+5, ISREL+1, RENEW+12, RENEW+13, RENEW+14, RENEW+16, RENEW+17, RENEW+19
, RENEW+28, RENEW+30, RENEW+31, RENEW+34, RENEW+38, RENEW+46, RENEW+47, RENEW+51, RNWFLDS+3, RNWFLDS+4
, RNWFLDS+15, RNWFLDS+17, RNWFLDS+22, RNWFLDS+27, RNWFLDS+29, RNWFLDS+34, VAL+7, CHKACT+7, GETPKG+4, GETPKG+5
, ISCPLX+3, ISCPLX+8, ORCPLX+3, ORCPLX+8, ORCPLX+15, CANRN+5, CANRN+14
VAL ISREL~, ISREL+2*
X ACTDCREA+1~, ACTDCREA+2*, ACTDCREA+3, ACTDCREA+4, ACTDCREA+5, RENEW+53~, RENEW+54*, RENEW+55, STR+1~, STR+4*
X0 RENEW+3~, RENEW+11*, RENEW+12, RENEW+13, RENEW+14, RENEW+16, RENEW+17, RENEW+28, RNWFLDS+2~, RNWFLDS+3*
X3 ORCPLX+6~, ORCPLX+14*, ORCPLX+15
XCODE VAL+1~, VAL+9*, VAL+10
Y 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