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: ORWDXC

Package: Order Entry Results Reporting

Routine: ORWDXC


Information

ORWDXC ; SLC/KCM - Utilities for Order Checking ; 3/18/21 12:17pm

Source Information

Source file <ORWDXC.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Order Entry Results Reporting 8 $$NMSP^ORCD  ($$START,FDBDOWN,RETURN,SESSION)^ORCHECK  (AM,CANCEL,NEXT,OC)^ORCSAVE2  EN^ORKCHK  $$USID^ORMBLD  (CANCEL,ORCAN)^ORNORC  $$NAME50^ORPEAPI  $$DEFDLG^ORWDXQ  
Pharmacy Data Management 2 DOSE^PSSOPKI1  DOSE^PSSORUTL  
Inpatient Medications 1 ($$ENDCM,ENDDIV)^PSJORUTL  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ^%DT  

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 13 ORAREN  ORDV06D  ORKPS  ORQQCN2  ORWDAL32  ORWDXC ACCEPT  ORWDXC DELAY  ORWDXC DELORD  
ORWDXC DISPLAY  ORWDXC FILLID  ORWDXC ON  ORWDXC SAVECHK  ORWDXC SESSION  
Enterprise Health Management Platform 1 HMPWBM1  

Entry Points

Name Comments DBIA/ICR reference
ON(VAL) ; returns E if order checking enabled, otherwise D
FILLID(VAL,DLG) ; Return the FillerID (namespace) for a dialog
DISPLAY(LST,DFN,FID) ; Return list of Order Checks for a FillerID (namespace)
ALLERGY(LST,DFN,FID,OIL,ORDRNUM) ; Return list of allergy Order Checks on select medication
; DFN = Patient IEN
; FID = PSI (Inpatient)
; PSO (Outpatient)
; PSH (Non-VA)
; OIL = Orderable Item #
; ORDRNUM = Order # (file 100)
ACCEPT(LST,DFN,FID,STRT,ORL,OIL,ORIFN,ORREN)
DELAY(LST,DFN,FID,STRT,ORL,OIL) ; Return list of Order Checks on Accept Delayed
SESSION(LST,ORVP,ORLST) ; Return list of Order Checks on Release Order
SAVECHK(OK,ORVP,RSN,LST)
DELORD(OK,ORIFN)
USID(ORITMX) ; Return universal svc ID for an orderable item
; ORITMX = OI^NMSP^PKGINFO
CHK2LST ; creates list that can be passed to broker from ORCHECK array
; expects ORCHECK to be present and populates LST
LST2CHK ; create ORCHECK array from list passed by broker
CHECKIT(X) ;remove uncessesary duplication of Duplicate Therapy checks
AINB(A,B) ;if array A is a subset of array B then return 1, else return 0
XINA(X,A) ;if string X is an entry in array A then return 1, else return 0
REMDUPS ;
REMDUPSX ;similar to REMDUPS^ORCHECK
OPOS(DFN) ;handles saving and removing order checks that should only be displayed once per cprs session
; expects ORCHECK
; sets these order checks into the "Once Per cprs Session" global ^TMP($J,"OC-OPOS",DFN)
FNDDRUG(USID,OI,DFN,FID) ;Identify and return potential drug items based on
; the Orderable Item
OISLCT(LST,OI,PSTYPE,ORVP) ; Return Dispense Drug IENs ;Modified from OISLCT^ORWDPS2
DRUG(ORDD) ;Returns 6 ^-piece identifier for Dispense Drug ;Modified from DRUG^ORCHECK
D1
FNDDRG(ORX,ORDER,PKG) ;

External References

Name Field # of Occurrence
^%DT ACCEPT+9, DELAY+7
$$NMSP^ORCD FILLID+4
$$START^ORCHECK FNDDRG+8
FDBDOWN^ORCHECK ALLERGY+29, ACCEPT+29
RETURN^ORCHECK ALLERGY+27, ACCEPT+18, ACCEPT+27, DELAY+14
SESSION^ORCHECK SESSION+8
AM^ORCSAVE2 ACCEPT+8, DELAY+6
CANCEL^ORCSAVE2 DELORD+3
NEXT^ORCSAVE2 ACCEPT+8, DELAY+6
OC^ORCSAVE2 SAVECHK+4
EN^ORKCHK DISPLAY+3, ALLERGY+26, ACCEPT+17, ACCEPT+26, DELAY+13
$$USID^ORMBLD USID+14
CANCEL^ORNORC ACCEPT+34
ORCAN^ORNORC DELORD+2
$$NAME50^ORPEAPI USID+13, D1
$$DEFDLG^ORWDXQ FILLID+3
$$ENDCM^PSJORUTL USID+12, DRUG+5
ENDDIV^PSJORUTL USID+9
DOSE^PSSOPKI1 OISLCT+8, OISLCT+9
DOSE^PSSORUTL OISLCT+8
$$GET^XPAR ON+1

Used in RPC

RPC Name Call Tags
ORWDXC ON ON
ORWDXC DISPLAY DISPLAY
ORWDXC FILLID FILLID
ORWDXC ACCEPT ACCEPT
ORWDXC SAVECHK SAVECHK
ORWDXC SESSION SESSION
ORWDXC DELORD DELORD
ORWDXC DELAY DELAY

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] FNDDRG+3, FNDDRG+4, FNDDRG+6
^ORD(100.8 - [#100.8] CHECKIT+3
^ORD(100.98 - [#100.98] FILLID+7
^ORD(101.41 - [#101.41] FILLID+2, FILLID+4
^ORD(101.43 - [#101.43] USID+6, OISLCT+6
^TMP("PSJINS" OISLCT+3!
^TMP("PSJMR" OISLCT+3!
^TMP("PSJNOUN" OISLCT+3!
^TMP("PSJSCH" OISLCT+3!
^TMP("PSSDIN" OISLCT+3!
^TMP($J ALLERGY+9!, ALLERGY+10!, ALLERGY+30*, ALLERGY+32!, ACCEPT+1!, ACCEPT+4!, ACCEPT+33!, DELAY+1!, DELAY+17!, SESSION+1!
, SESSION+12!, OPOS+12, OPOS+13, OPOS+14, OPOS+15*

Label References

Name Line Occurrences
$$AINB CHECKIT+13, CHECKIT+18
$$DRUG FNDDRUG+5, FNDDRG+7
$$USID ACCEPT+13, DELAY+11
$$XINA AINB+3
CHECKIT ACCEPT+32, SESSION+11
CHK2LST ALLERGY+31, ACCEPT+31, DELAY+16, SESSION+10
FNDDRG ALLERGY+23
FNDDRUG ALLERGY+16
LST2CHK SAVECHK+2
OISLCT FNDDRUG+3
OPOS ACCEPT+30, SESSION+9
REMDUPS CHK2LST+2

Naked Globals

Name Field # of Occurrence
^(0 FNDDRG+4
^(1 FNDDRG+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ALLERGY+11~, ACCEPT+5~, ACCEPT+9*, DELAY+3~, DELAY+7*
A CHECKIT+12~*, CHECKIT+13, CHECKIT+18, AINB~, XINA~
A( AINB+3, XINA+3
ADDCLASS CHECKIT+14~*, CHECKIT+16, CHECKIT+19~*, CHECKIT+21
B CHECKIT+12~*, CHECKIT+13, CHECKIT+18, AINB~, AINB+3
CDL CHK2LST+3~, CHK2LST+6*, CHK2LST+7, CHK2LST+8, CHK2LST+9, CHK2LST+13*, CHK2LST+14, CHK2LST+15, CHK2LST+16, CHK2LST+19*
CHK2LST+20, CHK2LST+23, CHK2LST+24, CHK2LST+25, LST2CHK+1~, LST2CHK+6*, LST2CHK+7, LST2CHK+8, REMDUPS+1~, REMDUPS+2*
REMDUPS+3, REMDUPS+5, REMDUPS+6, REMDUPS+7, REMDUPS+8, REMDUPSX+1~, REMDUPSX+2*, REMDUPSX+3, REMDUPSX+4
CDL2 REMDUPS+1~, REMDUPS+4*, REMDUPS+5, REMDUPS+6, REMDUPS+7
CLASS CHECKIT+5~*, CHECKIT+6
CNT ALLERGY+11~, ALLERGY+18*, ALLERGY+19*, ALLERGY+20
DD OISLCT+12~, OISLCT+13*, OISLCT+15
DFN DISPLAY~, DISPLAY+3, ALLERGY~, ALLERGY+16, ALLERGY+26, ACCEPT~, ACCEPT+17, ACCEPT+26, ACCEPT+30, ACCEPT+34
, DELAY~, DELAY+13, OPOS~, OPOS+14, OPOS+15, FNDDRUG~, FNDDRUG+3
DGRP FILLID+1~, FILLID+2*, FILLID+3, FILLID+7
DLG FILLID~, FILLID+2, FILLID+3*, FILLID+4
FID DISPLAY~, DISPLAY+2, ALLERGY~, ALLERGY+8*, ALLERGY+16, ALLERGY+17*, ALLERGY+20, ALLERGY+22*, ALLERGY+23, ACCEPT~
, ACCEPT+15, ACCEPT+24, ACCEPT+34, DELAY~, DELAY+11, FNDDRUG~, FNDDRUG+3
I DISPLAY+1~, DISPLAY+4*, SESSION+2~, SESSION+4*, SESSION+5, SESSION+6, SESSION+7, CHK2LST+3~, CHK2LST+8*, CHK2LST+9
CHK2LST+15*, CHK2LST+16, CHK2LST+20*, CHK2LST+23, CHK2LST+24, CHK2LST+25, LST2CHK+1~*, LST2CHK+8*, CHECKIT+1~, CHECKIT+2*
, CHECKIT+4, CHECKIT+5, CHECKIT+6, CHECKIT+8, CHECKIT+9*, CHECKIT+10, CHECKIT+11, CHECKIT+12, CHECKIT+14, CHECKIT+15
, CHECKIT+17, CHECKIT+19, CHECKIT+20, AINB+1~, AINB+3*, XINA+1~, XINA+3*, REMDUPS+1~, REMDUPS+3*, REMDUPS+5
REMDUPS+7, REMDUPS+8, REMDUPSX+1~, REMDUPSX+3*, REMDUPSX+4, OPOS+3~, OPOS+4*, OPOS+5, OPOS+6, OPOS+9
, OPOS+11, OPOS+14
IFN REMDUPS+1~*, REMDUPS+2, REMDUPS+3, REMDUPS+4, REMDUPS+5, REMDUPS+6, REMDUPS+7, REMDUPS+8, REMDUPSX+1~*, REMDUPSX+2
REMDUPSX+3, REMDUPSX+4
ILST CHK2LST+3~, CHK2LST+4*, CHK2LST+21*, CHK2LST+25*, LST2CHK+1~, LST2CHK+2*, LST2CHK+3, LST2CHK+4, LST2CHK+5, OISLCT+2~
, OISLCT+4*, OISLCT+14*, OISLCT+15
INST FNDDRG+1~, FNDDRG+4*
ITEM FNDDRG+1~, FNDDRG+4*, FNDDRG+11
J LST2CHK+4~*, CHECKIT+1~, CHECKIT+7*, CHECKIT+8, CHECKIT+10*, CHECKIT+11, CHECKIT+12, CHECKIT+14, CHECKIT+15, CHECKIT+17
, CHECKIT+21, REMDUPS+1~, REMDUPS+5*, REMDUPS+6, REMDUPSX+1~, REMDUPSX+4*, OPOS+3~, OPOS+5*, OPOS+6, OPOS+9
, OPOS+11, OPOS+14
K CHECKIT+1~, CHECKIT+11*, CHECKIT+12, CHECKIT+16, CHECKIT+19, CHECKIT+20, OPOS+3~, OPOS+6*, OPOS+9, OPOS+11
, OPOS+14
LASTIFN CHK2LST+3~, CHK2LST+4*, CHK2LST+21*
LST DISPLAY~, ALLERGY~, ACCEPT~, ACCEPT+32, ACCEPT+34, DELAY~, SESSION~, SESSION+11, SAVECHK~, OISLCT~
LST( DISPLAY+4*, CHK2LST+24*, CHK2LST+25*, OISLCT+15*
LST("ORCHECKS" LST2CHK+2, LST2CHK+3, LST2CHK+4, LST2CHK+5
OI FNDDRUG~, FNDDRUG+3, OISLCT~, OISLCT+6
OIL ALLERGY~, ALLERGY+7, ALLERGY+15, ALLERGY+16, ALLERGY+20, ALLERGY+24*, ALLERGY+26, ACCEPT~, ACCEPT+17, ACCEPT+26
, ACCEPT+34, DELAY~, DELAY+13
OIL( ACCEPT+11, ACCEPT+12, ACCEPT+13, ACCEPT+14*, ACCEPT+15, ACCEPT+16, ACCEPT+21, ACCEPT+22, ACCEPT+24, ACCEPT+25
, DELAY+9, DELAY+11, DELAY+12
OK SAVECHK~, SAVECHK+1*, DELORD~, DELORD+1*
OLIST CHK2LST+3~, CHK2LST+4*, CHK2LST+16*
ORCHECK ALLERGY+11~, ACCEPT+5~, DELAY+3~, SESSION+2~, SAVECHK+1~, CHK2LST+11!, REMDUPS+6*, REMDUPS+8*, REMDUPSX+4*
ORCHECK( SAVECHK+4, CHK2LST+5, CHK2LST+6, CHK2LST+8, CHK2LST+9, CHK2LST+16*, CHK2LST+19, CHK2LST+20, CHK2LST+23, CHK2LST+24
CHK2LST+25, LST2CHK+8*, REMDUPS+2, REMDUPS+3, REMDUPS+4, REMDUPS+5, REMDUPS+6!, REMDUPS+7*, REMDUPS+8!, REMDUPSX+2
REMDUPSX+3, REMDUPSX+4!, OPOS+4, OPOS+5, OPOS+6, OPOS+9, OPOS+11, OPOS+14!
ORCHECK("OK" SAVECHK+3*
ORCHECK2 CHK2LST+3~
ORCHECK2( CHK2LST+9*, CHK2LST+12, CHK2LST+13, CHK2LST+14, CHK2LST+15, CHK2LST+16
ORDD DRUG~, DRUG+4*, DRUG+5, D1, FNDDRG+1~, FNDDRG+6*, FNDDRG+7
ORDER FNDDRG~, FNDDRG+3, FNDDRG+4, FNDDRG+6, FNDDRG+8, FNDDRG+11
ORDODSG ALLERGY+11~, ACCEPT+5~, ACCEPT+7*, ACCEPT+17, ACCEPT+26
ORDOSE OISLCT+2~, OISLCT+8, OISLCT+9
ORDOSE("DD" OISLCT+13
ORDRNUM ALLERGY~, ALLERGY+7, ALLERGY+21, ALLERGY+23, ALLERGY+24
ORDRUG USID+2~, USID+9, USID+10*, USID+11*, USID+12, USID+13
ORES SESSION+2~
ORES( SESSION+7*
ORI ALLERGY+11~, ALLERGY+20*, ACCEPT+5~, ACCEPT+11*, ACCEPT+12, ACCEPT+13, ACCEPT+14, ACCEPT+15, ACCEPT+16, ACCEPT+21*
, ACCEPT+22, ACCEPT+24, ACCEPT+25, DELAY+3~, DELAY+9*, DELAY+11, DELAY+12, FNDDRG+1~, FNDDRG+2*, FNDDRG+3*
, FNDDRG+4
ORID CHK2LST+3~, CHK2LST+22*, CHK2LST+24, CHK2LST+25
ORIFN ACCEPT~, SAVECHK+1~, SAVECHK+4*, DELORD~, DELORD+2, DELORD+3, CHK2LST+3~, CHK2LST+5*, CHK2LST+6, CHK2LST+8
CHK2LST+9, CHK2LST+10, CHK2LST+12*, CHK2LST+13, CHK2LST+14, CHK2LST+15, CHK2LST+16, CHK2LST+18*, CHK2LST+19, CHK2LST+20
CHK2LST+21, CHK2LST+22, CHK2LST+23, CHK2LST+24, CHK2LST+25, LST2CHK+1~, LST2CHK+6*, LST2CHK+7, LST2CHK+8
ORITMX USID~, USID+3, USID+4, USID+6, USID+7, USID+8, USID+11, USID+14
ORL ALLERGY+11~, ALLERGY+13*, ACCEPT~, ACCEPT+7*, ACCEPT+34, DELAY~, DELAY+5*
ORLST SESSION~
ORLST( SESSION+4, SESSION+5, SESSION+6, SESSION+7
ORNDF DRUG+1~, DRUG+5*, D1
ORNUM CHK2LST+3~, CHK2LST+14*, CHK2LST+15, CHK2LST+16
ORREN ACCEPT~
ORTXT OPOS+7~, OPOS+10*, OPOS+13*, OPOS+14, OPOS+15
ORTXT0 OPOS+7~
ORTXTI OPOS+7~, OPOS+12*, OPOS+13
ORTXTO OPOS+7~, OPOS+8*, OPOS+9, OPOS+10, OPOS+12, OPOS+13
ORVP SESSION~, SESSION+3*, SESSION+9, SAVECHK~, OISLCT~, OISLCT+8, OISLCT+9
ORWDOSES OISLCT+2~
ORWPSOI OISLCT+2~, OISLCT+5*, OISLCT+6*, OISLCT+8, OISLCT+9
ORX DISPLAY+1~, DISPLAY+2*, DISPLAY+3, ALLERGY+11~, ALLERGY+12!, ALLERGY+18*, ALLERGY+20*, ALLERGY+23, ALLERGY+26, ACCEPT+5~
, ACCEPT+11*, ACCEPT+15*, ACCEPT+16, ACCEPT+17, ACCEPT+19!, ACCEPT+21*, ACCEPT+23*, ACCEPT+24, ACCEPT+25, ACCEPT+26
, DELAY+3~, DELAY+9*, DELAY+10*, DELAY+11, DELAY+12, DELAY+13, FNDDRG~, FNDDRG+11*
ORX( ALLERGY+20*, ACCEPT+15*, ACCEPT+16*, ACCEPT+24*, ACCEPT+25*, DELAY+11*, DELAY+12*, FNDDRG+11*
ORX(1 DISPLAY+2*
ORXTRAI OPOS+7~, OPOS+11*, OPOS+12, OPOS+13
ORY DISPLAY+1~, DISPLAY+3, ALLERGY+11~, ALLERGY+12!, ALLERGY+26, ALLERGY+27, ALLERGY+30, ACCEPT+5~, ACCEPT+17, ACCEPT+18
, ACCEPT+19!, ACCEPT+26, ACCEPT+27, DELAY+3~, DELAY+13, DELAY+14
ORY( DISPLAY+4
PKG FNDDRG~, FNDDRG+11
PSOI USID+5~, USID+6*, USID+9
PSTYPE OISLCT~, OISLCT+8, OISLCT+9
PTR FNDDRG+1~, FNDDRG+4*
RESERVED CHK2LST+3~, CHK2LST+4*, CHK2LST+21*, CHK2LST+24
RET AINB+1~, AINB+2*, AINB+3*, AINB+4, XINA+1~, XINA+2*, XINA+3*, XINA+4
RSLT ALLERGY+11~, USID+2~*, USID+12*, USID+13*, USID+14*, USID+15*, USID+16, FNDDRUG+2~, FNDDRUG+3, FNDDRUG+6!
RSLT( FNDDRUG+4, FNDDRUG+5
RSN SAVECHK~, SAVECHK+3
SORT CHK2LST+3~, CHK2LST+4*, CHK2LST+7*, CHK2LST+10*, CHK2LST+17*, CHK2LST+18
SORT( CHK2LST+10*, CHK2LST+17, CHK2LST+18
START FNDDRG+1~, FNDDRG+8*, FNDDRG+11
STR CHECKIT+4~*, CHECKIT+7, CHECKIT+8
STRT ACCEPT~, ACCEPT+7*, ACCEPT+9*, ACCEPT+24, ACCEPT+34, DELAY~, DELAY+5*, DELAY+7*, DELAY+11
TYPE USID+5~, USID+7*, USID+8, USID+9
U FILLID+2, FILLID+4, FILLID+7, DISPLAY+4, ACCEPT+16, ACCEPT+25, DELAY+12, SESSION+6, SESSION+7, USID+3
, USID+4, USID+6, USID+7, USID+8, USID+11, USID+13, USID+15, CHK2LST+23, CHK2LST+24, CHK2LST+25
LST2CHK+6, LST2CHK+8, CHECKIT+2, CHECKIT+3, CHECKIT+14, CHECKIT+19, REMDUPS+5, REMDUPS+7, REMDUPS+8, OISLCT+6
D1, FNDDRG+4
USID ALLERGY+11~, ALLERGY+16, ACCEPT+5~, ACCEPT+13*, ACCEPT+14, ACCEPT+15, FNDDRUG~, FNDDRG+1~, FNDDRG+7*, FNDDRG+11
USID( ALLERGY+19, ALLERGY+20, FNDDRUG+5*
VAL ON~, ON+1*, FILLID~, FILLID+2*, FILLID+4*, FILLID+5, FILLID+8*
VOL USID+5~*, USID+8*, USID+9
X FILLID+6~, FILLID+7*, FILLID+8, ALLERGY+11~, ACCEPT+5~, ACCEPT+7*, ACCEPT+8, ACCEPT+9, DELAY+3~, DELAY+5*
, DELAY+6, DELAY+7, LST2CHK+1~, LST2CHK+4*, LST2CHK+5*, LST2CHK+6, LST2CHK+8, CHECKIT~, XINA~, XINA+3
, FNDDRUG+2~, FNDDRUG+4*, FNDDRUG+5
X( CHECKIT+2, CHECKIT+4, CHECKIT+5, CHECKIT+6, CHECKIT+8, CHECKIT+15!, CHECKIT+16*, CHECKIT+20!, CHECKIT+21*
X1 OISLCT+2~
X2 OISLCT+2~
Y ALLERGY+11~, ACCEPT+5~, ACCEPT+9*, DELAY+3~, DELAY+7*, CHECKIT+1~, DRUG+1~, D1*, D1+1
Y( CHECKIT+8*, CHECKIT+9, CHECKIT+10, CHECKIT+11, CHECKIT+12, CHECKIT+15!, CHECKIT+17, CHECKIT+20!
Z CHECKIT+1~
Z( CHECKIT+6*, CHECKIT+14, CHECKIT+19

Marked Items

Name Field # of Occurrence
$T(DOSE^PSSOPKI1 OISLCT+8, OISLCT+9
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