Routine: ORKPS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

ORKPS ; slc/CLA - Order checking support procedures for medications ;08-Apr-2013 14:54;DU

Source Information

Source file <ORKPS.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Order Entry Results Reporting	6	$$TERMLKUP^ORB31 $$VALUE^ORCSAVE2 PROCESS^ORKPS1 ($$DGRX,$$OI)^ORQOR2 $$LOCL^ORQQLR1 LIST^ORQQPS
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
Outpatient Pharmacy	2	(DRGCHK,EN)^PSOORDRG OCL^PSOORRL
Registration	2	OERR^VADPT ADM^VADPT2
Pharmacy Data Management	1	DRG^PSSUTIL1
Toolkit	1	$$GET^XPAR
VA Fileman	1	NOW^%DTC

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Order Entry Results Reporting	8	OCXOZ08 OCXOZ0B OCXOZ10 OCXOZ11 ORKCHK4 ORKCHK6 ORKCHKM ORKPS1

Entry Points

Name	Comments	DBIA/ICR reference
SOLUT(OI)	;extrinsic function returns 1 (true) if the orderable item is ; a solution (IV Base)
POLYRX(DFN)	;extrins funct rtns 1 if patient exceeds polypharmacy, 0 if not
SUPPLY(OI)	;extrinsic function returns 1 (true) if the orderable item is ; a supply
CHECK(YY,DFN,MED,OI,ORKDG)	; return drug order checks
OI2DD(ORPSA,OROI,ORPSPKG)	;rtn dispense drugs for a PS OI
CHKSESS(YY,DFN,MED,OI,ORKPDATA,ORKDG)	; return drug order checks for session
GCDAYS(DFN)	;extrinsic function to return number of days to look for ; glucophage serum creatinine result
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
TAKEMED(ORKDFN,ORKMED)	;extrinsic function returns med orderable item if any
NUMRX(DFN)	;extrinsic funct returns number of active meds patient is taking

External References

Name	Field # of Occurrence
NOW^%DTC	GLCREAT+9
$$TERMLKUP^ORB31	GLCREAT+13, GLCREAT+16
$$VALUE^ORCSAVE2	CHKSESS+43
PROCESS^ORKPS1	CHECK+18, CHECK+23, CHKSESS+56
$$DGRX^ORQOR2	CHKSESS+46
$$OI^ORQOR2	NUMRX+26
$$LOCL^ORQQLR1	GLCREAT+25
LIST^ORQQPS	TAKEMED+7
DRGCHK^PSOORDRG	CHKSESS+54
EN^PSOORDRG	CHECK+17, CHECK+22
OCL^PSOORRL	NUMRX+10
DRG^PSSUTIL1	OI2DD+6
OERR^VADPT	POLYRX+4, GCDAYS+6
ADM^VADPT2	NUMRX+6
$$FMADD^XLFDT	GLCREAT+10
$$FMTE^XLFDT	GLCREAT+30
$$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]	CHKSESS+41, CHKSESS+42
^ORD(100.01 - [#100.01]	CHKSESS+42
^ORD(101.43 - [#101.43]	SOLUT+4, SOLUT+7, SUPPLY+4, SUPPLY+7, OI2DD+2, OI2DD+3
^PSDRUG - [#50]	CHECK+11, CHECK+14, CHECK+15
^TMP("ORKA"	CHKSESS+8, CHKSESS+9, CHKSESS+10
^TMP("ORR"	CHKSESS+36, CHKSESS+37, CHKSESS+38
^TMP("PS"	NUMRX+9!, NUMRX+13, NUMRX+14, NUMRX+28!
^TMP($J	CHECK+8!, CHECK+24!, CHKSESS+53!, CHKSESS+57!

Name	Line Occurrences
$$GCDAYS	GLCREAT+7
$$NUMRX	POLYRX+9
$$SUPPLY	NUMRX+26
OI2DD	CHKSESS+24

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
CDRG	CHECK+7~, CHECK+15*, CHECK+17
CDT	GLCREAT+5~, GLCREAT+27*, GLCREAT+28, GLCREAT+30
CMP	CHECK+7~, CHECK+11*, CHECK+12
CMPDR	CHECK+7~, CHECK+13, CHECK+14, CHECK+15
CNT	CHKSESS+1~, CHKSESS+9*
CNTX	CHKSESS+1~, CHKSESS+9*, CHKSESS+10
CREARSLT	GLCREAT+5~, GLCREAT+19, GLCREAT+22, GLCREAT+28*, GLCREAT+29
DFN	CHECK~, CHECK+9, CHECK+16, CHECK+17, CHECK+19*, CHECK+22, CHKSESS~, CHKSESS+3, CHKSESS+54, POLYRX~ , POLYRX+3, POLYRX+9, GLCREAT~, GLCREAT+6, GLCREAT+7, GLCREAT+25, GCDAYS~, GCDAYS+2, NUMRX~, NUMRX+3 , NUMRX+10
DUPORN	CHKSESS+2~, CHKSESS+38, CHKSESS+48, CHKSESS+49, CHKSESS+50
DUPX	CHKSESS+2~, CHKSESS+48*, CHKSESS+49
HOR	CHKSESS+1~, CHKSESS+35, CHKSESS+36, CHKSESS+37, CHKSESS+38
LABFILE	GLCREAT+5~, GLCREAT+13*, GLCREAT+15
MED	CHECK~, CHECK+11, CHECK+14, CHECK+15, CHECK+22, CHKSESS~, CHKSESS+54
NUMRX	NUMRX+1~, NUMRX+2, NUMRX+3, NUMRX+27, NUMRX+29
OI	CHECK~, CHECK+18, CHECK+23, CHKSESS~, CHKSESS+18, CHKSESS+56, SOLUT~, SOLUT+2, SOLUT+4, SUPPLY~ , SUPPLY+2, SUPPLY+4
OITEXT	SOLUT+3~, SOLUT+4, SOLUT+5, SOLUT+6, SOLUT+7, SUPPLY+3~, SUPPLY+4, SUPPLY+5, SUPPLY+6, SUPPLY+7
ORCNT	TAKEMED+6~, TAKEMED+10*, TAKEMED+15
ORDAYS	GLCREAT+4~, GLCREAT+7, GLCREAT+8, GLCREAT+10, GCDAYS+3~, GCDAYS+10, GCDAYS+11
ORDFN	CHECK+9~, CHECK+18, CHECK+23, CHKSESS+3~, CHKSESS+56
ORENT	POLYRX+1~, POLYRX+7, POLYRX+8, GCDAYS+3~, GCDAYS+9, GCDAYS+10
ORI	TAKEMED+6~, TAKEMED+11, TAKEMED+12, GLCREAT+5~, GLCREAT+19, GLCREAT+20
ORJ	TAKEMED+6~, TAKEMED+15, GLCREAT+5~, GLCREAT+22, GLCREAT+23
>> ORKA	CHKSESS+5
ORKARX	TAKEMED+6~, TAKEMED+12, TAKEMED+14, TAKEMED+16
ORKDD	CHKSESS+2~, CHKSESS+25*, CHKSESS+26
ORKDFN	TAKEMED~, TAKEMED+4, TAKEMED+7
ORKDG	CHECK~, CHECK+18, CHECK+23, CHKSESS~, CHKSESS+56
ORKDGI	CHKSESS+1~
ORKDRUG	CHKSESS+1~, CHKSESS+20, CHKSESS+23, CHKSESS+26, CHKSESS+27, CHKSESS+30, CHKSESS+32, CHKSESS+43*, CHKSESS+45, CHKSESS+51
ORKDRUGA	CHKSESS+1~, CHKSESS+54
ORKDRUGA(	CHKSESS+27, CHKSESS+32, CHKSESS+48, CHKSESS+49, CHKSESS+51*
ORKFLG	CHKSESS+2~, CHKSESS+4*
ORKMED	TAKEMED~, TAKEMED+5, TAKEMED+10, TAKEMED+15
ORKMEDP	TAKEMED+6~, TAKEMED+15*, TAKEMED+16
ORKOI	CHKSESS+1~, CHKSESS+16*, CHKSESS+18, CHKSESS+23, CHKSESS+24
ORKORN	CHKSESS+1~, CHKSESS+38*, CHKSESS+39, CHKSESS+40, CHKSESS+41, CHKSESS+42, CHKSESS+43, CHKSESS+46, CHKSESS+49, CHKSESS+51
ORKPDATA	CHKSESS~
ORKRSLT	TAKEMED+6~, TAKEMED+9, TAKEMED+16, TAKEMED+17
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	CHKSESS+2~, CHKSESS+5, CHKSESS+18, CHKSESS+40, NUMRX+1~, NUMRX+16, NUMRX+26
OROI	OI2DD~, OI2DD+2, OI2DD+3
ORPAR	POLYRX+1~, POLYRX+8*, POLYRX+10, GLCREAT+4~
ORPRENEW	NUMRX+1~, NUMRX+18*, NUMRX+25
ORPSA	CHKSESS+2~, CHKSESS+24, CHKSESS+28!, OI2DD~, OI2DD+6
ORPSA(	CHKSESS+25
ORPSPKG	CHKSESS+2~, CHKSESS+12, CHKSESS+13, CHKSESS+14, CHKSESS+19, CHKSESS+24, CHKSESS+27, CHKSESS+32, CHKSESS+46, CHKSESS+47 , CHKSESS+51, OI2DD~, OI2DD+5*, OI2DD+6
ORPTYPE	NUMRX+1~, NUMRX+7*, NUMRX+20
ORS	NUMRX+1~, NUMRX+17*, NUMRX+22, NUMRX+23, NUMRX+24
ORSESS	CHKSESS+2~, CHKSESS+10*, CHKSESS+11, CHKSESS+12, CHKSESS+15, CHKSESS+16, CHKSESS+20
ORSLT	POLYRX+1~, POLYRX+2, POLYRX+3, POLYRX+10, POLYRX+11
ORSNUM	CHKSESS+2~, CHKSESS+15*, CHKSESS+18, CHKSESS+27, CHKSESS+32
ORX	GLCREAT+5~, GLCREAT+16, GLCREAT+17, GLCREAT+22, NUMRX+1~, NUMRX+14*, NUMRX+15, NUMRX+16, NUMRX+17, NUMRX+18 , NUMRX+19
ORX(	GLCREAT+23
ORY	GLCREAT+5~, GLCREAT+13, GLCREAT+14, GLCREAT+19, NUMRX+1~, NUMRX+15*, NUMRX+20
ORY(	GLCREAT+20
ORZ	GLCREAT+5~, GLCREAT+25*, GLCREAT+26, GLCREAT+27, GLCREAT+30
PSOI	OI2DD+1~, OI2DD+3*, OI2DD+4, OI2DD+6
SAVEDFN	CHECK+7~, CHECK+16*, CHECK+19
SEQ	CHKSESS+1~, CHKSESS+35, CHKSESS+37, CHKSESS+38
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+11, CHECK+15, CHKSESS+20, CHKSESS+38, CHKSESS+41, CHKSESS+42, TAKEMED+8, TAKEMED+10, TAKEMED+12, TAKEMED+15 , SOLUT+6, GLCREAT+20, GLCREAT+23, GLCREAT+27, GLCREAT+30, SUPPLY+6, NUMRX+15, NUMRX+16, NUMRX+17, NUMRX+18 , OI2DD+3
VA200	POLYRX+4, POLYRX+6!, GCDAYS+6, GCDAYS+8!
>> VADMVT	NUMRX+7
VAIN	POLYRX+6!, GCDAYS+8!
VAIN(4	POLYRX+5, GCDAYS+7
X	NUMRX+11~, NUMRX+12, NUMRX+13, NUMRX+14
YY	CHECK~, CHKSESS~

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORKPS

Call Graph Total: 15

Caller Graph Total: 8