Routine: ORWRP

Information

ORWRP ; ALB/MJK,dcm Report Calls ;Sep 15, 2020@09:01:07

Package	Total	Call Graph
Kernel	2	($$DEL,$$FTG,CLOSE,OPEN)^%ZISH $$FMADD^XLFDT
VA FileMan	2	^%DTC $$GET1^DIQ
Health Summary	1	GETLIST^GMTSXAL
Master Patient Index VistA	1	($$GETDFN,GETDFN)^MPIF001
Order Entry Results Reporting	1	GETINDV^ORWTPD
Registration	1	$$SITE^VASITE
Toolkit	1	($$GET,ADD,CHG,GETLST)^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 24

Package	Total	Caller Graph
Order Entry Results Reporting	19	ORAM2 ORCXPND1 ORCXPND3 ORCXPNDR ORQQCN2 ORWLR ORWLRR ORWRP COLUMN HEADERS ORWRP GET DEFAULT PRINTER ORWRP LAB REPORT LISTS ORWRP REPORT LISTS ORWRP REPORT TEXT ORWRP SAVE DEFAULT PRINTER ORWRP WINPRINT DEFAULT ORWRP1 ORWRP2 ORWRPL ORWRPP ORWTIU
Consult Request Tracking	3	GMRCGUIU GMRCMED GMRCTIU3
Automated Medical Information Exchange	1	DVBAB1
Imaging	1	MAGTP007

Entry Points

Name	Comments	DBIA/ICR reference
LABLIST(LST)	; -- report list for labs tab ; RPC: ORWRP LAB REPORT LIST
LIST(LST)	; -- report lists for reports tab ; RPC: ORWRP REPORT LIST
GETCOL(ROOT,IFN)	; -- get Column headers for ListView
GETRPTS(ROOT,EOF)	; -- get report list
GETHS(ROOT,EOF)	; --get health summary types
GETDT(ROOT,EOF)	; -- get date range choices
DTLIST	; -- list of date ranges
SETITEM(ROOT,X)	; -- set item in list
RPT(ROOT,DFN,RPTID,HSTYPE,DTRANGE,EXAMID,ALPHA,OMEGA)	; -- return report text
NOTYET(ROOT)	; -- not available
START(RM,GOTO,ORIOSL)	;
ERR	;Error trap
UNWIND	;Unwind Error stack
HFS()	; -- get hfs file name
HFSOPEN(HANDLE,ORHFS,ORMODE)	;
IOVAR(ORIO,ORRM,ORIOSL,ORIOST,ORIOF,ORIOT)	;Setup IO variables based on IO Device
HFSCLOSE(HANDLE,ORHFS)	;Close HFS and unload data
USEHFS	; -- use host file to build global array
INIT	; -- initialize counts and global section
FINAL	; -- set 'x of y' for each section CALLED FROM ^ORWLR
STRIP	; -- strip off control chars
WINDFLT(ORY)	;Windows printer as default?
GETDFPRT(Y,ORUSER,ORLOC)	; Returns default printer for user
SAVDFPRT(Y,ORDEV)	; Save new default printer for user

External References

Name	Field # of Occurrence
^%DTC	RPT+36
$$DEL^%ZISH	ERR+8, HFSCLOSE+8, USEHFS+7
$$FTG^%ZISH	HFSCLOSE+6, USEHFS+4
CLOSE^%ZISH	ERR+5, HFSCLOSE+3
OPEN^%ZISH	HFSOPEN+1
$$GET1^DIQ	LABLIST+8, GETRPTS+6
GETLIST^GMTSXAL	GETHS+10
$$GETDFN^MPIF001	RPT+56
GETDFN^MPIF001	RPT+55
GETINDV^ORWTPD	RPT+49
$$SITE^VASITE	RPT+18
$$FMADD^XLFDT	RPT+38, RPT+40
$$GET^XPAR	GETCOL+5, GETHS+4, GETHS+9, WINDFLT+1, GETDFPRT+4, GETDFPRT+5, SAVDFPRT+7, SAVDFPRT+12
ADD^XPAR	SAVDFPRT+8, SAVDFPRT+13
CHG^XPAR	SAVDFPRT+7, SAVDFPRT+12
GETLST^XPAR	LABLIST+5, GETRPTS+2

RPC Name	Call Tags
ORWRP REPORT LISTS	LIST
ORWRP REPORT TEXT	RPT
ORWRP WINPRINT DEFAULT	WINDFLT
ORWRP GET DEFAULT PRINTER	GETDFPRT
ORWRP SAVE DEFAULT PRINTER	SAVDFPRT
ORWRP LAB REPORT LISTS	LABLIST
ORWRP COLUMN HEADERS	GETCOL

FileNo	Call Tags
^XWB(8994 - [#8994]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	IOVAR+3, IOVAR+4, GETDFPRT+6
^%ZIS(2 - [#3.2]	IOVAR+4, IOVAR+5
^%ZOSF("ERRTN"	ERR+4
^GMT(142 - [#142]	GETHS+5, GETHS+6, GETHS+7
^ORD(101.24 - [#101.24]	LABLIST+6, GETCOL+4, GETCOL+6, GETRPTS+4, RPT+19, RPT+20, RPT+21, RPT+22, RPT+23
^TMP(	HFSCLOSE+4, INIT+1, FINAL+2*
^TMP("ORDATA"	RPT+12!, RPT+15
^TMP("ORHSPARM"	GETHS+2!

Label References

Name	Line Occurrences
$$HFS	START+3
@(	RPT+61, START+11, ERR+4
GETDT	LIST+7
GETHS	LIST+6
GETRPTS	LIST+5
HFSCLOSE	START+12
HFSOPEN	START+4
INIT	USEHFS+3
IOVAR	START+7
NOTYET	RPT+28, RPT+30, RPT+31
SETITEM	LABLIST+4, LABLIST+11, LABLIST+12, GETCOL+8, GETRPTS+2, GETRPTS+9, GETRPTS+10, GETHS+13, GETHS+14, GETHS+15 , GETDT+2, GETDT+3, RPT+55, RPT+57, RPT+59, NOTYET+1, START+6
STRIP	HFSCLOSE+7, USEHFS+5

Naked Globals

Name	Field # of Occurrence
^(	GETCOL+6, GETHS+5, STRIP+2
^("SUBTYPE"	IOVAR+4
^("TYPE"	IOVAR+4
^(0	LABLIST+6, GETRPTS+4, IOVAR+3, IOVAR+5, GETDFPRT+6
^(2	LABLIST+6, GETRPTS+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPT+11~, RPT+60, ERR+2~, ERR+3, HFSCLOSE+1~, HFSCLOSE+2*
ALPHA	RPT~, RPT+33, RPT+35, RPT+36, RPT+38, RPT+39, RPT+40*
C	GETHS+1~, GETHS+4, GETHS+7, GETHS+8
CNT	LABLIST+2~, LABLIST+3, GETRPTS+1~, GETRPTS+3, INIT+1*
DFN	RPT~, RPT+17, RPT+56, RPT+57
DIRECT	RPT+11~, RPT+24*, RPT+42
DT	RPT+40
DTRANGE	RPT~, RPT+38, RPT+39, RPT+40
DUZ	GETCOL+5, GETHS+10, SAVDFPRT+7, SAVDFPRT+8, SAVDFPRT+12, SAVDFPRT+13
ENT	RPT+11~, RPT+29, RPT+30, RPT+53, GETDFPRT+1~, GETDFPRT+2, GETDFPRT+3*, GETDFPRT+4, GETDFPRT+5
EOF	LABLIST+2~, LABLIST+3, LIST+2~, LIST+3, LIST+5, LIST+6, LIST+7, GETRPTS~, GETHS~, GETHS+15 , GETDT~, GETDT+3
EXAMID	RPT~, RPT+52
GO	RPT+11~, RPT+54, RPT+55, RPT+57, RPT+58, RPT+59
GOTO	START~, START+11
H	HFS+1~, HFS+2*, HFS+3
HANDLE	HFSOPEN~, HFSOPEN+1, HFSCLOSE~, HFSCLOSE+3
HEAD	LABLIST+2~, LABLIST+8, LABLIST+9, LABLIST+10, GETRPTS+1~, GETRPTS+6, GETRPTS+7, GETRPTS+8
HSTAG	RPT+11~, RPT+15*, RPT+42, RPT+43
HSTYPE	RPT~, RPT+51
I	LABLIST+2~, LABLIST+3, LABLIST+6, LABLIST+8, GETCOL+1~, GETCOL+3, GETCOL+4, GETCOL+6, GETCOL+7, GETRPTS+1~ , GETRPTS+3, GETRPTS+4, GETRPTS+6, GETHS+1~, GETHS+4, GETHS+5, GETHS+8, GETHS+12, GETHS+14, GETDT+1~ , GETDT+3, RPT+11~, RPT+18, RPT+19, FINAL+1~, FINAL+2, STRIP+1~, STRIP+2, STRIP+4, STRIP+5* , STRIP+6
>> ICN	RPT+56*
ID	RPT+11~, RPT+42, RPT+51, RPT+52*
IEN	GETDFPRT+1~, GETDFPRT+5*, GETDFPRT+6, GETDFPRT+7
IFN	LABLIST+2~, LABLIST+8, LABLIST+10, GETCOL~, GETCOL+2, GETCOL+4, GETCOL+5, GETCOL+6, GETRPTS+1~, GETRPTS+6 , GETRPTS+8, GETHS+1~, GETHS+5, GETHS+6, GETHS+7, IOVAR+1~, IOVAR+3, IOVAR+4, IOVAR+5*
IFN1	IOVAR+1~, IOVAR+5*
>> INC	INIT+1*
IO	START+10, HFSCLOSE+3
IOF	START+2~, IOVAR+2, IOVAR+5
IOM	START+2~, IOVAR+2, IOVAR+5
ION	IOVAR+2*
IOS	START+2~, IOVAR+3*
IOSL	START+2~, IOVAR+2, IOVAR+5
IOST	START+2~, IOVAR+2, IOVAR+4, IOVAR+5
IOST(0	IOVAR+4, IOVAR+5
IOT	START+2~, IOVAR+2, IOVAR+4
J	LABLIST+2~, GETCOL+1~, GETCOL+5, GETCOL+6, GETRPTS+1~, RPT+11~, RPT+19*, RPT+20, RPT+21, RPT+22 , RPT+23, RPT+27
LST	LABLIST~, LABLIST+3, LIST~, LIST+3
MAX	RPT+11~, RPT+43, RPT+46, RPT+50
OMEGA	RPT~, RPT+36, RPT+38, RPT+40, RPT+41*
ORARR	ERR+7~, ERR+8, USEHFS+6~, USEHFS+7
ORARR(	ERR+8, USEHFS+6
ORDEL	HFSCLOSE+1~, HFSCLOSE+8
ORDEL(	HFSCLOSE+4*
ORDEV	SAVDFPRT~, SAVDFPRT+2, SAVDFPRT+5, SAVDFPRT+9, SAVDFPRT+11*, SAVDFPRT+12, SAVDFPRT+13
ORERR	GETHS+1~, GETHS+10, GETHS+11, SAVDFPRT+1~, SAVDFPRT+7, SAVDFPRT+8, SAVDFPRT+12, SAVDFPRT+13
ORFHIE	RPT+11~, RPT+23, RPT+24, RPT+25, RPT+26
ORHANDLE	START+2~, START+3*, START+4, START+12, ERR+5
ORHFS	START+2~, START+3*, START+4, START+12, ERR+6, ERR+8, HFSOPEN~, HFSOPEN+1, HFSCLOSE~, HFSCLOSE+3 , HFSCLOSE+4, HFSCLOSE+6, USEHFS+4, USEHFS+6
ORHSPARM	GETHS+1~
ORHSROOT	GETHS+1~, GETHS+3*, GETHS+7, GETHS+8, GETHS+10, GETHS+12, GETHS+14
ORIO	START+2~, START+7, IOVAR~, IOVAR+2*, IOVAR+3
ORIOF	IOVAR~, IOVAR+2, IOVAR+5
ORIOSL	START~, START+7, IOVAR~, IOVAR+2, IOVAR+5
ORIOST	IOVAR~, IOVAR+2, IOVAR+4
ORIOT	IOVAR~, IOVAR+2, IOVAR+4
ORLIST	LABLIST+2~, LABLIST+5, GETRPTS+1~, GETRPTS+2
ORLIST(	LABLIST+6, LABLIST+8, GETRPTS+4, GETRPTS+6
ORLOC	GETDFPRT~, GETDFPRT+3*
ORMODE	HFSOPEN~, HFSOPEN+1
OROK	ERR+7~, ERR+8, USEHFS+1~, USEHFS+4, USEHFS+7*
ORPAR	SAVDFPRT+1~, SAVDFPRT+4, SAVDFPRT+7, SAVDFPRT+8, SAVDFPRT+11, SAVDFPRT+12, SAVDFPRT+13
ORRM	IOVAR~, IOVAR+2, IOVAR+5
ORRPTIEN	RPT+11~, RPT+16, RPT+27, RPT+47, RPT+49
ORSUB	START+2~, START+3*, HFSCLOSE+4, INIT+1, FINAL+2
ORTIMOCC	RPT+11~, RPT+48*, RPT+49, RPT+50
ORUSER	GETDFPRT~
ORWINDEF	SAVDFPRT+1~, SAVDFPRT+5, SAVDFPRT+6, SAVDFPRT+7, SAVDFPRT+8
ORY	WINDFLT~, WINDFLT+1*
OUT	RPT+11~, RPT+53*, RPT+61
>> POP	START+5, HFSOPEN+1
REMOTE	RPT+11~, RPT+15*, RPT+17, RPT+54
RM	START~, START+7
ROOT	LABLIST+2~, LABLIST+3, LABLIST+4, LABLIST+11, LABLIST+12, LIST+2~, LIST+3, LIST+4, LIST+5, LIST+6 , LIST+7, GETCOL~, GETCOL+3, GETCOL+8, GETRPTS~, GETRPTS+2, GETRPTS+9, GETRPTS+10, GETHS~, GETHS+13 , GETHS+14, GETHS+15, GETDT~, GETDT+2, GETDT+3, SETITEM~, SETITEM+1, RPT~, RPT+15, RPT+28 , RPT+30, RPT+31, RPT+55, RPT+57, RPT+59, NOTYET~, NOTYET+1, START+6, HFSCLOSE+4, HFSCLOSE+5 , HFSCLOSE+6, USEHFS+4, INIT+1, INIT+2, STRIP+2, STRIP+4, STRIP+5, STRIP+6
RPC	LABLIST+2~, LABLIST+8, LABLIST+10, GETRPTS+6, GETRPTS+8
RPTID	RPT~, RPT+14, RPT+15, RPT+20, RPT+42
RTN	RPT+11~, RPT+29*, RPT+30, RPT+53
SECTION	USEHFS+1~, USEHFS+2, INIT+1, FINAL+2
SITE	RPT+11~, RPT+18*, RPT+42, RPT+55, RPT+57, RPT+59
T	GETHS+1~, GETHS+7*
TAB	RPT+11~, RPT+13, RPT+14, RPT+20
U	RPT+46, FINAL+2, GETDFPRT+7
VAL	GETCOL+1~, GETCOL+5*, GETCOL+7
X	LABLIST+2~, LABLIST+10, LABLIST+11, GETCOL+1~, GETCOL+6, GETCOL+7, GETCOL+8, GETRPTS+1~, GETRPTS+8, GETRPTS+9 , GETHS+1~, GETHS+6, GETHS+7, GETDT+1~, GETDT+3, SETITEM~, SETITEM+1, RPT+11~, RPT+35, RPT+37 , RPT+38, HFSCLOSE+1~, HFSCLOSE+6, HFSCLOSE+8, STRIP+1~, STRIP+2, STRIP+3, STRIP+4, STRIP+5*, STRIP+6
X0	LABLIST+2~, LABLIST+6, LABLIST+7, LABLIST+8, LABLIST+10, GETRPTS+1~, GETRPTS+4, GETRPTS+5, GETRPTS+6, GETRPTS+8 , RPT+11~, RPT+18, RPT+21, RPT+28, RPT+29, RPT+46, RPT+58, GETDFPRT+1~, GETDFPRT+6*, GETDFPRT+7
X1	RPT+34~, RPT+36*
X2	LABLIST+2~, LABLIST+6, LABLIST+9, GETRPTS+1~, GETRPTS+4, GETRPTS+7, RPT+11~, RPT+18, RPT+22, RPT+34~ , RPT+36*, RPT+42
X4	RPT+11~, RPT+18, RPT+25, RPT+38, RPT+39
Y	GETDFPRT~, GETDFPRT+4, GETDFPRT+7, SAVDFPRT~
ZTQUEUED	START+2~

Marked Items

Name	Field # of Occurrence
$T(@(5)	RPT+31
$T(DTLIST+I	GETDT+3
$T(GETDFN^MPIF001	RPT+55
$T(GETLIST^GMTSXAL	GETHS+10

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWRP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 24

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items