Routine: OREORV2

Package	Total	Call Graph
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	1	OREORV

Entry Points

Name	Comments	DBIA/ICR reference
IFT	;;Sub-total inactive OI records w/o matching source record
SF6	;;Total validated:
SF7	;;Total without source record matches:
SF4	;;Total with bad source package codes:
SF5	;;Total with package codes not in spec:
SF2	;;Total without source IENs:
SF3	;;Total without source package codes:
SF1	;;Total with null ID field
CON	;;Consult Request Services file
FHT	;;Tubefeeding file
RS4	;;Total number of records with bad source package codes:
RS5	;;Total number of records requiring manual confirmation:
RS6	;;Total number of records with source record matches (validated):
RS7	;;Total number of records without source record matches:
RS0	;;Total number of records processed:
RS1	;;Total number of records with null ID fields:
RS2	;;Total number of records without source IENs:
RS3	;;Total number of records without source package codes:
SH1	;;Section 1, Records with null ID field
SH2	;;Section 2, Records without source IENs
SH3	;;Section 3, Records without source package codes
SH4	;;Section 4, Records with incorrect source package code formats
SH5	;;Section 5, Records with package codes not in current spec
SH6	;;Section 6, Records with source record matches (Validated)
RS	;;Summary of Orderable Items Validation:
RPTSUM	;Report Summary - Summary of ZGOIRV1 findings
PRO	;;Protocol file
CH2	;;Inactive Date
PS7	;Print Section 7
CH1	;;OI Name
RF	;;Orderable Items File Record Validation Report
RAP	;;Radiology/Nuclear Medicine Procedures file
RPF	;Report Page Footer - Prints page footer if output directed to printer
RPH	;Report Page Header
NS	;Next Screen - Advances user to next screen if output directed to
RH	;;Orderable Items File Record Validation Report
LRT	;;Laboratory Test file
FHD	;;Diets file
PFT	;;Sub-total for package
PS(SN)	;Print Sections
AFT	;;Sub-total active OI records w/o matching source record
PSP	;;Pharmacy Orderable Item file
PRC	;;Consult Procedure file
PCI(PN)	;Page Counter
SH7	;;section 7, Records without source record matches
IHT	;;Inactive OI records w/o matching source record
EXIT	;Exit point for this program
LCC	;Line Count Check - Determine if it is time for end of page/screen logic
AHT	;;Active OI records w/o matching source record
ORD	;;Orderable Items file
MAIN	;Main entry point for this program
PHT	;;Records for package

External References

Name	Field # of Occurrence
^DIR	NS+10
$$REPEAT^XLFSTR	PS+18, PS+28, PS7+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P($T(RS),";",3),! Line Location: RPTSUM+7
Function Call: WRITE	Prompt: !,$P($T(@RSL),";",3),?65,$J(^TMP($J,"OIC",X),10) Line Location: RPTSUM+10
Function Call: WRITE	Prompt: !,$P($T(@SH),";",3) Line Location: PS+13
Function Call: WRITE	Prompt: ! Line Location: PS+14
Function Call: WRITE	Prompt: !,$P($T(@SH),";",3) Line Location: PS+17
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: PS+18
Function Call: WRITE	Prompt: !,NAME,?65,$P(^TMP($J,"OIC",SN,"B",NAME),U,2) Line Location: PS+20
Function Call: WRITE	Prompt: !,PH Line Location: PS+26
Function Call: WRITE	Prompt: !,$P($T(CH1),";",3),?65,$P($T(CH2),";",3) Line Location: PS+27
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: PS+28
Function Call: WRITE	Prompt: !,NAME,?65,$P(^TMP($J,"OIC",SN,PACK,"B",NAME),U,2) Line Location: PS+30
Function Call: WRITE	Prompt: !,PF,?65,$J(^TMP($J,"OIC",SN,PACK),10) Line Location: PS+31
Function Call: WRITE	Prompt: ! Line Location: PS+32
Function Call: WRITE	Prompt: !,PH,?65,$J(^TMP($J,"OIC",SN,PACK),10) Line Location: PS+37
Function Call: WRITE	Prompt: ! Line Location: PS+39
Function Call: WRITE	Prompt: !,$P($T(@SF),";",3),?65,$J(^TMP($J,"OIC",SN),10) Line Location: PS+40
Function Call: WRITE	Prompt: !,$P($T(@AH),";",3) Line Location: PS7+10
Function Call: WRITE	Prompt: !,PH Line Location: PS7+14
Function Call: WRITE	Prompt: !,$P($T(CH1),";",3),?65,$P($T(CH2),";",3) Line Location: PS7+15
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: PS7+16
Function Call: WRITE	Prompt: !,NAME,?65,$P(^TMP($J,"OIC",SN,AI,PACK,"B",NAME),U,2) Line Location: PS7+18
Function Call: WRITE	Prompt: !,PF,?65,$J(^TMP($J,"OIC",SN,AI,PACK),10) Line Location: PS7+19
Function Call: WRITE	Prompt: ! Line Location: PS7+20
Function Call: WRITE	Prompt: ! Line Location: PS7+21
Function Call: WRITE	Prompt: !,$P($T(@AF),";",3),?65,$J(^TMP($J,"OIC",SN,AI),10) Line Location: PS7+22
Function Call: WRITE	Prompt: $P($T(RH),";",3),?65,"PAGE: ",PAGE Line Location: RPH+2
Function Call: WRITE	Prompt: ! Line Location: NS+10
Function Call: WRITE	Prompt: ! Line Location: RPF+6
Function Call: WRITE	Prompt: $P($T(RF),";",3),?65,"PAGE: ",PAGE Line Location: RPF+7
Routine Call	DIR Line Location: NS+10

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AF	PS7+6~, PS7+9*
AH	PS7+6~, PS7+9*
AI	PS7+6~, PS7+8*, PS7+9, PS7+11, PS7+17, PS7+18, PS7+19, PS7+22
DIR	NS+8~
DIR(0	NS+9*
DTOUT	NS+8~, NS+10
DUOUT	NS+8~, NS+10
IOF	RPH+1
IOM	PS+18, PS+28, PS7+16
IOSL	RPF+5, LCC+1
IOST	RPTSUM+11, PS+42, RPH+1, LCC+1
LF	RPF+4~, RPF+6*
LFC	RPF+4~, RPF+5*, RPF+6
NAME	PS+11~, PS+19, PS+20, PS+29, PS+30, PS7+17*, PS7+18
PACK	PS+11~, PS+23, PS+24, PS+25, PS+29, PS+30, PS+31, PS+35, PS+36, PS+37 , PS7+11*, PS7+12, PS7+13, PS7+17, PS7+18, PS7+19
PAGE	MAIN+5~, MAIN+6, RPH+1, RPH+2, NS+12, RPF+7, RPF+8*
PF	PS+11~, PS+25, PS+31, PS7+13, PS7+19
PH	PS+11~, PS+24, PS+26, PS+36, PS+37, PS7+12*, PS7+14
PN	PCI~, PCI+3*
RSL	RPTSUM+5~, RPTSUM+9*
SF	PS+11~, PS+12*
SH	PS+11~, PS+12*
SN	PS~, PS+12, PS+15, PS+16, PS+19, PS+20, PS+21, PS+22, PS+23, PS+29 , PS+30, PS+31, PS+33, PS+34, PS+35, PS+37, PS+38, PS+40, PS+41, PS7+7 , PS7+8, PS7+11, PS7+17, PS7+18, PS7+19, PS7+22
STOP	MAIN+5~, MAIN+6, MAIN+7, MAIN+8, MAIN+9, MAIN+10, MAIN+11, MAIN+12, MAIN+13, PS+14 , PS+17, PS+18, PS+19, PS+23, PS+26, PS+27, PS+28, PS+29, PS+30, PS+31 , PS+32, PS+35, PS+37, PS+39, PS+40, PS+41, PS7+8, PS7+10, PS7+11, PS7+14 , PS7+15, PS7+16, PS7+17, PS7+18, PS7+19, PS7+20, PS7+21, PS7+22, NS+11*, NS+13 , RPF+9, LCC+1
U	PS+20, PS+30, PS7+18
X	RPTSUM+5~, RPTSUM+8*, RPTSUM+9, RPTSUM+10
Y	NS+8~, NS+10*, NS+11

Customize PDF page

Package: Order Entry Results Reporting

Routine: OREORV2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Line Occurrences
$$PCI	NS+12, RPF+8
@(	RPTSUM+11, PS+42, LCC+1
CH1	PS+27, PS7+15
CH2	PS+27, PS7+15
EXIT	MAIN+7, MAIN+8, MAIN+9, MAIN+10, MAIN+11, MAIN+12, MAIN+13, LCC+1
LCC	PS+14, PS+17, PS+18, PS+26, PS+27, PS+28, PS+30, PS+31, PS+32, PS+37 , PS+39, PS+40, PS7+10, PS7+14, PS7+15, PS7+16, PS7+18, PS7+19, PS7+20, PS7+21 , PS7+22
PFT	PS+25
PHT	PS+24, PS7+12
PS	MAIN+8, MAIN+9, MAIN+10, MAIN+11, MAIN+12, MAIN+13, MAIN+14
PS7	PS+38
RF	RPF+7
RH	RPH+2
RPH	RPTSUM+6, NS+13, RPF+9
RPTSUM	MAIN+7
RS	RPTSUM+7

Name	Field # of Occurrence
$T(@$EXTRACT^1;3(5)	PS+24, PS+25, PS+36, PS7+12, PS7+13
$T(@AF	PS7+22
$T(@AH	PS7+10
$T(@RSL	RPTSUM+10
$T(@SF	PS+40
$T(@SH	PS+13, PS+17
$T(CH1	PS+27, PS7+15
$T(CH2	PS+27, PS7+15
$T(PFT	PS+25
$T(PHT	PS+24, PS7+12
$T(RF	RPF+7
$T(RH	RPH+2
$T(RS	RPTSUM+7