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 ;02/13/26 09:58

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

Package Total Caller Graph
Order Entry Results Reporting 9 OCXOZ08  OCXOZ0B  OCXOZ0X  OCXOZ0Y  OCXOZ0Z  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)
RSLTCALC(ORRSLT,ORINVLD) ;Recalculate results

External References

Name Field # of Occurrence
NOW^%DTC GLCREAT+10
$$TERMLKUP^ORB31 GLCREAT+14, GLCREAT+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+26
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
ADM^VADPT2 NUMRX+5
$$FMADD^XLFDT GLCREAT+11
$$FMTE^XLFDT GLCREAT+35
$$UP^XLFSTR TAKEMED+14
$$GET^XPAR POLYRX+8, GCDAYS+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] POLYRX+5, GCDAYS+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+8
$$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 GLCREAT+33
$$SUPPLY NUMRX+24
SHRNKPR CHKSESS+63

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GLCREAT+11, GLCREAT+12!
BDT GLCREAT+5~, GLCREAT+11*, GLCREAT+13, GLCREAT+29
CDT GLCREAT+5~, GLCREAT+28*, GLCREAT+29, GLCREAT+31*, GLCREAT+35
CNT CHKSESS+6~, CHKSESS+59~, CHKSESS+60*, CHKSESS+61*, CHKSESS+62*
CNTX CHKSESS+6~
CREARSLT GLCREAT+5~, GLCREAT+29*, GLCREAT+30
DFN CHECK~, CHECK+24, CHKSESS~, CHKSESS+8, CHKSESS+64, CHKSESS+67, POLYRX~, POLYRX+3, POLYRX+9, GLCREAT~
, GLCREAT+6, GLCREAT+8, GLCREAT+26, GCDAYS~, GCDAYS+2, NUMRX~, NUMRX+3, NUMRX+8
DONE RSLTCALC+1~, RSLTCALC+5*, RSLTCALC+6, RSLTCALC+10*, RSLTCALC+11, RSLTCALC+13*, RSLTCALC+14, RSLTCALC+18*, RSLTCALC+19, RSLTCALC+21*
, RSLTCALC+22, RSLTCALC+26*, RSLTCALC+27
DUPORN CHKSESS+7~, CHKSESS+21*, CHKSESS+30, CHKSESS+31*, CHKSESS+32
DUPX CHKSESS+7~, CHKSESS+30*, CHKSESS+31
HOR CHKSESS+6~, CHKSESS+17*, CHKSESS+18*, CHKSESS+19, CHKSESS+20, CHKSESS+21
I CHKSESS+62~*
LABFILE GLCREAT+5~, GLCREAT+14*, GLCREAT+16
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+8*, GLCREAT+9, GLCREAT+11, GCDAYS+3~, GCDAYS+10*, GCDAYS+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
ORI SHRNKPR+2~*, SHRNKPR+3, TAKEMED+6~, TAKEMED+11*, TAKEMED+12, GLCREAT+5~, GLCREAT+20*, GLCREAT+21
ORIEN GETPSNM~, GETPSNM+2
>> ORIFN CHECK+46, CHECK+47, CHECK+52, CHECK+54
ORINVLD GLCREAT+4~, GLCREAT+7*, GLCREAT+33, GLCREAT+34, GLCREAT+35, RSLTCALC~, RSLTCALC+11*, RSLTCALC+19*, RSLTCALC+27*, RSLTCALC+28*
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+23*, GLCREAT+24
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
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~
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 GLCREAT+4~, GLCREAT+32*, GLCREAT+33*, GLCREAT+34*, GLCREAT+35, RSLTCALC~, RSLTCALC+2, RSLTCALC+3, RSLTCALC+4, RSLTCALC+8
, RSLTCALC+9*, RSLTCALC+12, RSLTCALC+16, RSLTCALC+17*, RSLTCALC+20, RSLTCALC+24, RSLTCALC+25*
ORRSLT1 RSLTCALC+1~
ORRSLTNSPC RSLTCALC+1~, RSLTCALC+2*, RSLTCALC+3
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+17, GLCREAT+18, GLCREAT+23, NUMRX+1~, NUMRX+12*
, NUMRX+13, NUMRX+14, NUMRX+15, NUMRX+16, NUMRX+17
ORX( GLCREAT+24
ORY GLCREAT+5~, GLCREAT+14, GLCREAT+15, GLCREAT+20, NUMRX+1~, NUMRX+13*, NUMRX+18
ORY( GLCREAT+21
ORZ GLCREAT+5~, GLCREAT+26*, GLCREAT+27, GLCREAT+28, GLCREAT+29, GLCREAT+31*, GLCREAT+32, GLCREAT+35
PATTERN RSLTCALC+1~, RSLTCALC+7*, RSLTCALC+8, RSLTCALC+15*, RSLTCALC+16, RSLTCALC+23*, RSLTCALC+24
PC RSLTCALC+1~, RSLTCALC+6*, RSLTCALC+7, RSLTCALC+9, RSLTCALC+14*, RSLTCALC+15, RSLTCALC+17, RSLTCALC+22*, RSLTCALC+23, RSLTCALC+25
PSOI OI2DD+4~, OI2DD+6*, OI2DD+7, OI2DD+9, OI2DD+10
RET GETPSNM+1~, GETPSNM+2*, GETPSNM+4
RSLTS GLCREAT+5~
RSLTS( GLCREAT+29*, GLCREAT+31
RSLTS("" GLCREAT+31
SEQ CHKSESS+6~, CHKSESS+17*, CHKSESS+20*, CHKSESS+21
SPECFILE GLCREAT+5~, GLCREAT+17*, GLCREAT+19
SPECIMEN GLCREAT+5~, GLCREAT+24*, GLCREAT+25, GLCREAT+26
TEST GLCREAT+5~, GLCREAT+21*, GLCREAT+22, GLCREAT+26
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+21, GLCREAT+24, GLCREAT+28, GLCREAT+32, GLCREAT+35, SUPPLY+6
, NUMRX+13, NUMRX+14, NUMRX+15, NUMRX+16, OI2DD+6
VA200 POLYRX+4*, POLYRX+6!, GCDAYS+6*, GCDAYS+8!
VADM GLCREAT+5~
VADMVT NUMRX+1~, NUMRX+6
VAIN POLYRX+6!, GLCREAT+5~, GCDAYS+8!
VAIN(4 POLYRX+5, GCDAYS+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