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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ORKPS

Package: Order Entry Results Reporting

Routine: ORKPS


Information

ORKPS ; SLC/CLA - Order checking support procedures for medications ;Oct 27, 2023@10:53:17

Source Information

Source file <ORKPS.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Order Entry Results Reporting 9 $$TERMLKUP^ORB31  $$VALUE^ORCSAVE2  PARAMS^ORKCHK6  PROCESS^ORKPS1  ($$DGRX,$$OI)^ORQOR2  $$LOCL^ORQQLR1  LIST^ORQQPS  $$USID^ORWDXC  
$$OI^ORX8  
Pharmacy Data Management 4 NDF^PSS50  DRGIEN^PSS52P7  $$PRE^PSSDSAPK  $$DRG^PSSDSAPM  
Outpatient Pharmacy 3 CPRS^PSODDPR4  CPRS^PSODDPR8  OCL^PSOORRL  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  
Registration 2 OERR^VADPT  ADM^VADPT2  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Order Entry Results Reporting 8 OCXOZ08  OCXOZ0B  OCXOZ0X  OCXOZ11  ORDSGCHK  ORKCHK4  ORKCHK6  ORMBLDPS  

Entry Points

Name Comments DBIA/ICR reference
CHECK(YY,DFN,MED,OI,ORKDG,OROIL,ORSUPPLY,ORIVTYPE,ORIVRAN,ORDODSG) ; return drug order checks
CHKSESS(YY,DFN,MED,OI,ORKPDATA,ORKDG,ORSUPPLY,ORIVTYPE) ; return drug order checks for session
IVADD(ORDRUG,OROI) ;RETURN YES OR NO IF SHOULD ADD THE IV ITEM
SHRNKPR ;REMOVE DUPLICATS FROM PROSPECTIVE LIST
GETPSNM(ORIEN) ;GET THE FILE 50 .01 FIELD FROM A FILE 50 IEN
TAKEMED(ORKDFN,ORKMED) ;extrinsic function returns med orderable item if any
POLYRX(DFN) ;extrins funct rtns 1 if patient exceeds polypharmacy, 0 if not
GLCREAT(DFN) ;extrinsic function returns patient's (DFN) most recent serum
; creatinine within # of days from parameter ORK GLUCOPHAGE CREATININE
; results format: test id^result units flag ref range collect d/t^result
; used by order check GLUCOPHAGE-LAB RESULTS
GCDAYS(DFN) ;extrinsic function to return number of days to look for
; glucophage serum creatinine result
SUPPLY(OI) ;extrinsic function returns 1 (true) if the orderable item is
; a supply
NUMRX(DFN) ;extrinsic funct returns number of active meds patient is taking
OI2DD(OROI,ORPSPKG,ORCHKTYP)
GLEGFR(DFN) ;extrinsic function returns patient's (DFN) most recent eGFR
; within # of days from parameter ORK METFORMIN EGFR
; results format: test id^result units flag ref range collect d/t^result
; used by order check METFORMIN EGFR-LAB RESULTS
GEDAYS(DFN) ;extrinsic function to return number of days to look for
; Metformin eGFR result
RSLTCALC(ORRSLT) ;Recalculate results

External References

Name Field # of Occurrence
NOW^%DTC GLCREAT+9, GLEGFR+9
$$TERMLKUP^ORB31 GLCREAT+13, GLCREAT+16, GLEGFR+13, GLEGFR+16, GLEGFR+17
$$VALUE^ORCSAVE2 CHKSESS+26
PARAMS^ORKCHK6 CHECK+21, CHECK+22, CHECK+23
PROCESS^ORKPS1 CHECK+58, CHKSESS+68
$$DGRX^ORQOR2 CHKSESS+27
$$OI^ORQOR2 NUMRX+24
$$LOCL^ORQQLR1 GLCREAT+25, GLEGFR+32
LIST^ORQQPS TAKEMED+7
$$USID^ORWDXC CHECK+50
$$OI^ORX8 CHKSESS+34
CPRS^PSODDPR4 CHECK+52, CHKSESS+64
CPRS^PSODDPR8 CHECK+55, CHKSESS+67
OCL^PSOORRL NUMRX+8
NDF^PSS50 GETPSNM+2
DRGIEN^PSS52P7 IVADD+6
$$PRE^PSSDSAPK CHECK+29, CHECK+44, CHKSESS+15, IVADD+11
$$DRG^PSSDSAPM OI2DD+9
OERR^VADPT POLYRX+4, GCDAYS+6, GEDAYS+6
ADM^VADPT2 NUMRX+5
$$FMADD^XLFDT GLCREAT+10, GLEGFR+10
$$FMTE^XLFDT GLCREAT+31, GLEGFR+39
$$UP^XLFSTR TAKEMED+14
$$GET^XPAR POLYRX+8, GCDAYS+10, GEDAYS+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] POLYRX+5, GCDAYS+7, GEDAYS+7
^OR(100 - [#100] CHECK+46, CHECK+47, CHECK+52, CHECK+55, CHKSESS+24, CHKSESS+25, CHKSESS+43, CHKSESS+45, CHKSESS+54, CHKSESS+55
, CHKSESS+64, CHKSESS+67
^ORD(100.01 - [#100.01] CHKSESS+25
^ORD(101.43 - [#101.43] CHECK+25, CHECK+40, CHKSESS+14, IVADD+10, SUPPLY+4, SUPPLY+7, OI2DD+5, OI2DD+6
^TMP("ORR" CHKSESS+18, CHKSESS+20, CHKSESS+21
^TMP("PS" NUMRX+7!, NUMRX+11, NUMRX+12, NUMRX+26!
^TMP($J CHECK+57*, CHKSESS+11, IVADD+5!, IVADD+7, IVADD+12!, GETPSNM+1!, GETPSNM+2, GETPSNM+3!

Label References

Name Line Occurrences
$$GCDAYS GLCREAT+7
$$GEDAYS GLEGFR+7
$$GETPSNM CHECK+32, CHECK+51, CHKSESS+50, CHKSESS+51, CHKSESS+57, CHKSESS+61
$$IVADD CHKSESS+50
$$NUMRX POLYRX+9
$$OI2DD CHKSESS+35, CHKSESS+48, CHKSESS+55
$$RSLTCALC GLEGFR+38
$$SUPPLY NUMRX+24
SHRNKPR CHKSESS+63

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GLCREAT+10, GLCREAT+11!, GLEGFR+10, GLEGFR+11!
BDT GLCREAT+5~, GLCREAT+10*, GLCREAT+12, GLCREAT+28, GLEGFR+5~, GLEGFR+10*, GLEGFR+12, GLEGFR+35
CDT GLCREAT+5~, GLCREAT+27*, GLCREAT+28, GLCREAT+30*, GLCREAT+31, GLEGFR+5~, GLEGFR+34*, GLEGFR+35, GLEGFR+37*, GLEGFR+39
CNT CHKSESS+6~, CHKSESS+59~, CHKSESS+60*, CHKSESS+61*, CHKSESS+62*, GLEGFR+19~, GLEGFR+20*, GLEGFR+22*, GLEGFR+23
CNTX CHKSESS+6~
CREARSLT GLCREAT+5~, GLCREAT+28*, GLCREAT+29
DFN CHECK~, CHECK+24, CHKSESS~, CHKSESS+8, CHKSESS+64, CHKSESS+67, POLYRX~, POLYRX+3, POLYRX+9, GLCREAT~
, GLCREAT+6, GLCREAT+7, GLCREAT+25, GCDAYS~, GCDAYS+2, NUMRX~, NUMRX+3, NUMRX+8, GLEGFR~, GLEGFR+6
, GLEGFR+7, GLEGFR+32, GEDAYS~, GEDAYS+2
DUPORN CHKSESS+7~, CHKSESS+21*, CHKSESS+30, CHKSESS+31*, CHKSESS+32
DUPX CHKSESS+7~, CHKSESS+30*, CHKSESS+31
EGFRRSLT GLEGFR+5~, GLEGFR+35*, GLEGFR+36
HOR CHKSESS+6~, CHKSESS+17*, CHKSESS+18*, CHKSESS+19, CHKSESS+20, CHKSESS+21
I CHKSESS+62~*, GLEGFR+19~, GLEGFR+21*
LABFILE GLCREAT+5~, GLCREAT+13*, GLCREAT+15, GLEGFR+5~, GLEGFR+13*, GLEGFR+15
MED CHECK~, CHECK+32, CHECK+58, CHKSESS~, CHKSESS+61, CHKSESS+68
NUMRX NUMRX+1~, NUMRX+2*, NUMRX+3, NUMRX+25*, NUMRX+27
OI CHECK~, CHECK+25, CHECK+38, CHECK+58, CHKSESS~, CHKSESS+14, CHKSESS+68, SUPPLY~, SUPPLY+2, SUPPLY+4
OITEXT SUPPLY+3~, SUPPLY+4*, SUPPLY+5, SUPPLY+6*, SUPPLY+7
OR2CRITD CHECK+19~, CHECK+21
OR2CRITF CHECK+19~, CHECK+21, CHECK+57
OR2CRITN CHECK+19~, CHECK+21
OR2DRUG CHKSESS+44~, CHKSESS+48*, CHKSESS+50
OR2DUPCD CHECK+19~, CHECK+23
OR2DUPCF CHECK+19~, CHECK+23, CHECK+57
OR2DUPCN CHECK+19~, CHECK+23
OR2DUPD CHECK+19~
OR2DUPF CHECK+19~
OR2DUPN CHECK+19~
OR2I CHKSESS+42~, CHKSESS+43*, CHKSESS+45
OR2OI CHECK+36~, CHECK+39*, CHECK+40, CHKSESS+44~, CHKSESS+45*, CHKSESS+46, CHKSESS+48, CHKSESS+50
OR2PHDG CHECK+36~, CHECK+41*, CHECK+42*, CHECK+43, CHECK+44
OR2PSOI CHECK+36~, CHECK+40*, CHECK+44
OR2SIGD CHECK+19~, CHECK+22
OR2SIGF CHECK+19~, CHECK+22, CHECK+57
OR2SIGN CHECK+19~, CHECK+22
ORCHKTYP OI2DD~, OI2DD+9, OI2DD+10
ORCNT TAKEMED+6~, TAKEMED+10*, TAKEMED+13
ORDAYS GLCREAT+4~, GLCREAT+7*, GLCREAT+8, GLCREAT+10, GCDAYS+3~, GCDAYS+10*, GCDAYS+11, GLEGFR+4~, GLEGFR+7*, GLEGFR+8
, GLEGFR+10, GEDAYS+3~, GEDAYS+10*, GEDAYS+11
ORDFN CHECK+24~*, CHECK+52, CHECK+55, CHECK+58, CHKSESS+8~*, CHKSESS+68
ORDOCHKS CHECK+20~, CHECK+28, CHECK+29*, CHECK+30
ORDODSG CHECK~, CHECK+30*, CHECK+31*
ORDRUG IVADD~, IVADD+6
ORENT POLYRX+1~, POLYRX+7*, POLYRX+8, GCDAYS+3~, GCDAYS+9*, GCDAYS+10, GEDAYS+3~, GEDAYS+9*, GEDAYS+10
ORI SHRNKPR+2~*, SHRNKPR+3, TAKEMED+6~, TAKEMED+11*, TAKEMED+12, GLCREAT+5~, GLCREAT+19*, GLCREAT+20, GLEGFR+5~, GLEGFR+26*
, GLEGFR+27
ORIEN GETPSNM~, GETPSNM+2
>> ORIFN CHECK+46, CHECK+47, CHECK+52, CHECK+54
ORIVRAN CHECK~, CHECK+32, CHECK+34, CHECK+35*, CHECK+56
ORIVTYPE CHECK~, CHECK+28, CHECK+31, CHKSESS~, CHKSESS+15
ORJ SHRNKPR+3~*, TAKEMED+6~, TAKEMED+13*, GLCREAT+5~, GLCREAT+22*, GLCREAT+23, GLEGFR+5~, GLEGFR+29*, GLEGFR+30
ORKA CHECK+24~, CHECK+52, CHECK+55, CHECK+56, CHKSESS+13
ORKA( CHECK+51*
ORKA(1 CHECK+32*
ORKAI CHECK+24~, CHECK+32*, CHECK+51*
ORKARX TAKEMED+6~, TAKEMED+12*, TAKEMED+14
ORKDFN TAKEMED~, TAKEMED+4, TAKEMED+7
ORKDG CHECK~, CHECK+26, CHECK+27, CHECK+34, CHECK+58, CHKSESS~, CHKSESS+9, CHKSESS+10, CHKSESS+35, CHKSESS+68
ORKDGI CHKSESS+6~
ORKDRUG CHKSESS+6~, CHKSESS+26*, CHKSESS+33, CHKSESS+37*, CHKSESS+39, CHKSESS+51
ORKDRUGA CHKSESS+6~
ORKDRUGA( CHKSESS+30, CHKSESS+31, CHKSESS+50*, CHKSESS+51*, CHKSESS+57*, CHKSESS+62
ORKFLG CHKSESS+7~, CHKSESS+12*
ORKMED TAKEMED~, TAKEMED+5, TAKEMED+10, TAKEMED+13
ORKMEDP TAKEMED+6~, TAKEMED+13*, TAKEMED+14
ORKOI CHKSESS+6~
ORKORN CHKSESS+6~, CHKSESS+21*, CHKSESS+22, CHKSESS+23, CHKSESS+24, CHKSESS+25, CHKSESS+26, CHKSESS+27, CHKSESS+31, CHKSESS+34
, CHKSESS+36, CHKSESS+43, CHKSESS+45, CHKSESS+50, CHKSESS+51, CHKSESS+54, CHKSESS+55, CHKSESS+56, CHKSESS+57
ORKPDATA CHKSESS~
ORKRSLT TAKEMED+6~, TAKEMED+9*, TAKEMED+14*, TAKEMED+15
ORKSOIA CHECK+20~, CHECK+55, CHECK+56, CHKSESS+8~, CHKSESS+67
ORKSOIA( CHECK+54*, CHKSESS+36*, CHKSESS+56*, CHKSESS+66*
ORKY TAKEMED+6~, TAKEMED+7
ORKY( TAKEMED+11, TAKEMED+12
ORKY(1 TAKEMED+8
ORLOC POLYRX+1~, POLYRX+5*, POLYRX+7, GLCREAT+4~, GCDAYS+3~, GCDAYS+7*, GCDAYS+9, GLEGFR+4~, GEDAYS+3~, GEDAYS+7*
, GEDAYS+9
ORMEDS POLYRX+1~, POLYRX+9*, POLYRX+10
ORNUM CHECK+55, CHKSESS+7~, CHKSESS+13*, CHKSESS+23, CHKSESS+61, CHKSESS+64, CHKSESS+66, CHKSESS+67, NUMRX+1~, NUMRX+14*
, NUMRX+24
OROI CHKSESS+34~*, CHKSESS+35, IVADD~, IVADD+10, OI2DD~, OI2DD+5, OI2DD+6
OROIL CHECK~
OROIL( CHECK+35, CHECK+37, CHECK+38, CHECK+39, CHECK+41, CHECK+44, CHECK+45, CHECK+48*, CHECK+50
OROILI CHECK+24~, CHECK+35*, CHECK+37, CHECK+38, CHECK+39, CHECK+41, CHECK+44, CHECK+45, CHECK+48, CHECK+50
ORPAR POLYRX+1~, POLYRX+8*, POLYRX+10, GLCREAT+4~, GLEGFR+4~
ORPHDG CHECK+20~, CHECK+27*, CHECK+29, CHECK+55, CHKSESS+8~, CHKSESS+10*, CHKSESS+15, CHKSESS+67
ORPHOI CHECK+24~, CHECK+25*, CHECK+29, CHKSESS+6~, CHKSESS+14*, CHKSESS+15, IVADD+9~, IVADD+10*, IVADD+11
ORPRENEW NUMRX+1~, NUMRX+16*, NUMRX+23
ORPROSP CHKSESS+59~, CHKSESS+64, SHRNKPR+1
ORPROSP( CHKSESS+61*, CHKSESS+62*, SHRNKPR+2, SHRNKPR+3!
ORPSA CHKSESS+7~
ORPSPKG CHKSESS+7~, CHKSESS+27*, CHKSESS+28*, CHKSESS+29*, CHKSESS+33, CHKSESS+40, CHKSESS+50, CHKSESS+51, CHKSESS+53, OI2DD~
, OI2DD+8*, OI2DD+9
ORPTY CHECK+24~, CHECK+26*, CHECK+52, CHECK+55, CHECK+58, CHKSESS+7~, CHKSESS+9*, CHKSESS+11, CHKSESS+64, CHKSESS+67
, CHKSESS+68
ORPTYPE NUMRX+1~, NUMRX+6*, NUMRX+18
>> ORREN CHECK+45
ORRET CHKSESS+8~, CHKSESS+35*, CHKSESS+36, CHKSESS+37, CHKSESS+54~, CHKSESS+55*, CHKSESS+56, CHKSESS+57, IVADD+1~, IVADD+3*
, IVADD+11*, IVADD+13, OI2DD+4~, OI2DD+9*, OI2DD+10*, OI2DD+11
ORRSLT GLEGFR+4~, GLEGFR+38*, GLEGFR+39, RSLTCALC~, RSLTCALC+3, RSLTCALC+4*, RSLTCALC+5, RSLTCALC+6*, RSLTCALC+7, RSLTCALC+8*
, RSLTCALC+9
ORS NUMRX+1~, NUMRX+15*, NUMRX+20, NUMRX+21, NUMRX+22
ORSESS CHKSESS+7~
ORSLT POLYRX+1~, POLYRX+2*, POLYRX+3, POLYRX+10*, POLYRX+11
ORSNUM CHKSESS+7~
ORSUPPLY CHECK~, CHECK+53, CHECK+54, CHECK+58, CHKSESS~, CHKSESS+65, CHKSESS+66, CHKSESS+68
ORUSID CHECK+49~, CHECK+50*, CHECK+51
ORVOLID CHECK+46~*, CHECK+47
ORVOLVAL CHECK+46~*, CHECK+47*, CHECK+48
ORX CHKSESS+54~*, CHKSESS+55, SHRNKPR+2~*, SHRNKPR+3, GLCREAT+5~, GLCREAT+16, GLCREAT+17, GLCREAT+22, NUMRX+1~, NUMRX+12*
, NUMRX+13, NUMRX+14, NUMRX+15, NUMRX+16, NUMRX+17, GLEGFR+5~, GLEGFR+16, GLEGFR+24, GLEGFR+29
ORX( GLCREAT+23, GLEGFR+23*, GLEGFR+30
ORX("" GLEGFR+20
ORX1 GLEGFR+5~, GLEGFR+17, GLEGFR+18, GLEGFR+23
ORX1( GLEGFR+21
ORY GLCREAT+5~, GLCREAT+13, GLCREAT+14, GLCREAT+19, NUMRX+1~, NUMRX+13*, NUMRX+18, GLEGFR+5~, GLEGFR+13, GLEGFR+14
, GLEGFR+26
ORY( GLCREAT+20, GLEGFR+27
ORZ GLCREAT+5~, GLCREAT+25*, GLCREAT+26, GLCREAT+27, GLCREAT+28, GLCREAT+30*, GLCREAT+31, GLEGFR+5~, GLEGFR+32*, GLEGFR+33
, GLEGFR+34, GLEGFR+35, GLEGFR+37*, GLEGFR+38, GLEGFR+39
PSOI OI2DD+4~, OI2DD+6*, OI2DD+7, OI2DD+9, OI2DD+10
RET GETPSNM+1~, GETPSNM+2*, GETPSNM+4
RMVCHAR RSLTCALC+1~, RSLTCALC+2*, RSLTCALC+4, RSLTCALC+6, RSLTCALC+8, RSLTCALC+9
RSLTS GLCREAT+5~, GLEGFR+5~
RSLTS( GLCREAT+28*, GLCREAT+30, GLEGFR+35*, GLEGFR+37
RSLTS(0 GLCREAT+30, GLEGFR+37
SEQ CHKSESS+6~, CHKSESS+17*, CHKSESS+20*, CHKSESS+21
SPECFILE GLCREAT+5~, GLCREAT+16*, GLCREAT+18, GLEGFR+5~, GLEGFR+16*, GLEGFR+25
SPECFILE1 GLEGFR+5~, GLEGFR+17*, GLEGFR+25
SPECIMEN GLCREAT+5~, GLCREAT+23*, GLCREAT+24, GLCREAT+25, GLEGFR+5~, GLEGFR+30*, GLEGFR+31, GLEGFR+32
TEST GLCREAT+5~, GLCREAT+20*, GLCREAT+21, GLCREAT+25, GLEGFR+5~, GLEGFR+27*, GLEGFR+28, GLEGFR+32
U CHECK+25, CHECK+32, CHECK+40, CHECK+41, CHECK+44, CHECK+45, CHECK+51, CHECK+58, CHKSESS+14, CHKSESS+21
, CHKSESS+24, CHKSESS+25, CHKSESS+50, CHKSESS+51, CHKSESS+57, CHKSESS+61, CHKSESS+62, CHKSESS+68, IVADD+7, IVADD+10
, TAKEMED+8, TAKEMED+10, TAKEMED+12, TAKEMED+13, GLCREAT+20, GLCREAT+23, GLCREAT+27, GLCREAT+31, SUPPLY+6, NUMRX+13
, NUMRX+14, NUMRX+15, NUMRX+16, OI2DD+6, GLEGFR+27, GLEGFR+30, GLEGFR+34, GLEGFR+38, GLEGFR+39
VA200 POLYRX+4*, POLYRX+6!, GCDAYS+6*, GCDAYS+8!, GEDAYS+6*, GEDAYS+8!
VADM GLCREAT+5~, GLEGFR+5~
VADMVT NUMRX+1~, NUMRX+6
VAIN POLYRX+6!, GLCREAT+5~, GCDAYS+8!, GLEGFR+5~, GEDAYS+8!
VAIN(4 POLYRX+5, GCDAYS+7, GEDAYS+7
X NUMRX+9~, NUMRX+10*, NUMRX+11*, NUMRX+12
YY CHECK~, CHKSESS~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All