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 ;12/29/17 11: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: 8

Package Total Caller Graph
Order Entry Results Reporting 8 OCXOZ08  OCXOZ0B  OCXOZ0X  OCXOZ0Y  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)

External References

Name Field # of Occurrence
NOW^%DTC GLCREAT+9
$$TERMLKUP^ORB31 GLCREAT+13, GLCREAT+16
$$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
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+10
$$FMTE^XLFDT GLCREAT+31
$$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+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
$$SUPPLY NUMRX+24
SHRNKPR CHKSESS+63

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GLCREAT+10, GLCREAT+11!
BDT GLCREAT+5~, GLCREAT+10*, GLCREAT+12, GLCREAT+28
CDT GLCREAT+5~, GLCREAT+27*, GLCREAT+28, GLCREAT+30*, GLCREAT+31
CNT CHKSESS+6~, CHKSESS+59~, CHKSESS+60*, CHKSESS+61*, CHKSESS+62*
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
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+13*, GLCREAT+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
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+19*, GLCREAT+20
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
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
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
ORX( GLCREAT+23
ORY GLCREAT+5~, GLCREAT+13, GLCREAT+14, GLCREAT+19, NUMRX+1~, NUMRX+13*, NUMRX+18
ORY( GLCREAT+20
ORZ GLCREAT+5~, GLCREAT+25*, GLCREAT+26, GLCREAT+27, GLCREAT+28, GLCREAT+30*, GLCREAT+31
PSOI OI2DD+4~, OI2DD+6*, OI2DD+7, OI2DD+9, OI2DD+10
RET GETPSNM+1~, GETPSNM+2*, GETPSNM+4
RSLTS GLCREAT+5~
RSLTS( GLCREAT+28*, GLCREAT+30
RSLTS(0 GLCREAT+30
SEQ CHKSESS+6~, CHKSESS+17*, CHKSESS+20*, CHKSESS+21
SPECFILE GLCREAT+5~, GLCREAT+16*, GLCREAT+18
SPECIMEN GLCREAT+5~, GLCREAT+23*, GLCREAT+24, GLCREAT+25
TEST GLCREAT+5~, GLCREAT+20*, GLCREAT+21, GLCREAT+25
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
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