Routine: LREPIRP

Package	Total	Call Graph
Lab Service	6	(NOTE1,NOTE2,NOTE3,SUMHD1,SUMHD3)^LREPIRP1 ($$CDT,OBR,OBX,PID,PV1)^LREPIRP2 (DG1,HDG)^LREPIRP3 OBX^LREPIRP4 (PRTHEP,PRTTOT,SUMMARY)^LREPIRP5 HDGS^LREPIRP6
VA Fileman	2	(C,NOW)^%DTC $$GET1^DIQ
MailMan	1	^XMD

Package	Total	Caller Graph
Lab Service	3	LREPI2 LREPIRS1 LREPIRS3

Entry Points

Name	Comments	DBIA/ICR reference
PV1
ZXE
RPT
CDT(DATE)	;CONVERTS THE DATE AND TIME
PROCESS	;THIS IS THE HL7 PROCESSING ROUTINE ENTRY POINT TO PREVENT HL7 ERRORS
MMMSG
MSH	;
PID
DSP
TOTALS
RESORT	;SAVE DATA BY NTE IN ^XTMP
DG1
EXIT
OBX
CALTOT	;CALCULATE TOTALS
REPORT	;
NTE	;NOTE AND COMMENTS
OBR

External References

Name	Field # of Occurrence
C^%DTC	RESORT+1
NOW^%DTC	REPORT+1
$$GET1^DIQ	MMMSG+23
NOTE1^LREPIRP1	MSH+3
NOTE2^LREPIRP1	MSH+6
NOTE3^LREPIRP1	MSH+8
SUMHD1^LREPIRP1	MSH+1
SUMHD3^LREPIRP1	MSH+4
$$CDT^LREPIRP2	RESORT+8, RESORT+14, RESORT+17
OBR^LREPIRP2	RESORT+30, RESORT+56
OBX^LREPIRP2	RESORT+34, RESORT+60
PID^LREPIRP2	RESORT+24, RESORT+37, RESORT+46
PV1^LREPIRP2	RESORT+26, RESORT+39, RESORT+48
DG1^LREPIRP3	RESORT+43, RESORT+52
HDG^LREPIRP3	RESORT+70
OBX^LREPIRP4	RESORT+69
PRTHEP^LREPIRP5	MSH+5
PRTTOT^LREPIRP5	MSH+7
SUMMARY^LREPIRP5	MSH+2
HDGS^LREPIRP6	RESORT+70
^XMD	MMMSG+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO MAILGROUP TO SEND MESSAGE!" Line Location: MMMSG+22

Used in HL7 Interface

HL7 Protocol Name	Call Tags
LREPI CLIENT	PROCESS
LRNCH	PROCESS

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(69.4 - [#69.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.4 - [#69.4]	MMMSG+21
^ORD(101 - [#101]	MMMSG+20
^TMP("LREPIREP"	RPT+1
^TMP($J	PID+3, PV1+4, DG1+3, OBR+4, OBX+3, OBX+7, ZXE+3, DSP+3, RESORT+4, RESORT+6 , RESORT+7, RESORT+13, RESORT+16, RESORT+20, RESORT+21, RESORT+23, RESORT+25, RESORT+28, RESORT+29, RESORT+32 , RESORT+33, RESORT+36, RESORT+38, RESORT+41, RESORT+42, RESORT+45, RESORT+47, RESORT+50, RESORT+51, RESORT+54 , RESORT+55, RESORT+58, RESORT+59, RESORT+63, RESORT+64, RESORT+67, RESORT+68, CALTOT+4, CALTOT+6, CALTOT+8 , CALTOT+9, MMMSG+2, MMMSG+4, MMMSG+6, MMMSG+8, MMMSG+10, MMMSG+12, MMMSG+14, MMMSG+16, MMMSG+18*
^XTMP("LREPIREP"	TOTALS+3, TOTALS+7, RESORT+2, RESORT+11, RESORT+14, RESORT+17, CALTOT+3, CALTOT+15, CALTOT+16, CALTOT+18 , CALTOT+20*

Label References

Name	Line Occurrences
$$CDT	RESORT+65
EXIT	MMMSG+22
MSH	MMMSG+19

Naked Globals

Name	Field # of Occurrence
^(	RPT+1, RESORT+6, RESORT+13, RESORT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REPORT+1
DATE	CDT~, CDT+1, CDT+2
>> DFN	PID+2, PID+3, PV1+4, DG1+3, OBR+4, OBX+3, OBX+4, OBX+7, ZXE+3, DSP+3 , RESORT+3, RESORT+4*, RESORT+6, RESORT+7, RESORT+13, RESORT+14, RESORT+16, RESORT+17, RESORT+20, RESORT+21 , RESORT+23, RESORT+25, RESORT+28, RESORT+29, RESORT+32, RESORT+33, RESORT+36, RESORT+38, RESORT+41, RESORT+42 , RESORT+45, RESORT+47, RESORT+50, RESORT+51, RESORT+54, RESORT+55, RESORT+58, RESORT+59, RESORT+63, RESORT+64 , RESORT+67, RESORT+68
DT	RESORT+1, RESORT+2
DUZ	RESORT+2
>> HL("FS"	REPORT+4
>> HLFS	REPORT+4*, RPT+1, PID+2, OBX+4, TOTALS+1, TOTALS+2, TOTALS+3, RESORT+8, RESORT+9, RESORT+14 , RESORT+17, RESORT+21, RESORT+65, CALTOT+9, NTE+2, NTE+4, NTE+5, NTE+8
ISITE	MMMSG+31!
LRACCDT	RESORT+65, RESORT+69, EXIT!
>> LRADMDT	RESORT+8*, RESORT+11
>> LRCNT	RESORT+3, CALTOT+17, CALTOT+18*
>> LRCS	OBX+4, TOTALS+1, TOTALS+2, TOTALS+3, RESORT+14, RESORT+17, RESORT+21, CALTOT+9, NTE+2, NTE+4 , NTE+5, NTE+8
>> LRDATE	REPORT+1*, TOTALS+3, TOTALS+7, RESORT+2, RESORT+11, RESORT+14, RESORT+17, CALTOT+3, CALTOT+15, CALTOT+16 , CALTOT+18, CALTOT+20
>> LRDFN	CALTOT+2, CALTOT+3, CALTOT+4, CALTOT+6, CALTOT+8, CALTOT+9, CALTOT+14, CALTOT+15, CALTOT+16, CALTOT+18
>> LRDG1	RESORT+40, RESORT+41, RESORT+42, RESORT+49, RESORT+50, RESORT+51
>> LRDG1CNT	REPORT+3, PV1+2, DG1+2*, DG1+3
>> LRDISDT	RESORT+8*, RESORT+11
LRDONE	TOTALS+1, TOTALS+4, TOTALS+5, TOTALS+8!
>> LRDSP	RESORT+5, RESORT+13
>> LRDSPCNT	REPORT+3, PV1+2, DSP+2, DSP+3, RESORT+3, RESORT+13, RESORT+14, RESORT+15
LRDSPN	RESORT+13*, RESORT+14, EXIT!
>> LRHL7	NTE+2, NTE+4, NTE+5, NTE+8
>> LRI	RPT, RPT+1
LRMGP	MMMSG+21*, MMMSG+22, MMMSG+30!
LRMGPN	MMMSG+23*, MMMSG+27, MMMSG+30!
>> LRNAME	RESORT+8*, RESORT+11, RESORT+14, RESORT+17
>> LRNTE	RESORT+19, RESORT+20, RESORT+21, RESORT+28, RESORT+29, RESORT+32, RESORT+33, RESORT+41, RESORT+42, RESORT+50 , RESORT+51, RESORT+54, RESORT+55, RESORT+58, RESORT+59, RESORT+63, RESORT+64, RESORT+67, RESORT+68, CALTOT+7* , CALTOT+8*, CALTOT+9
>> LRNTECNT	REPORT+3, PV1+2, OBR+4, OBX+3, OBX+6*, OBX+7
>> LRNUM	TOTALS+2*, TOTALS+3
>> LRNUM1	RESORT+22, RESORT+35, RESORT+44, RESORT+61
>> LROBR	RESORT+27, RESORT+28, RESORT+29, RESORT+32, RESORT+33, RESORT+53, RESORT+54, RESORT+55, RESORT+58, RESORT+59 , RESORT+62, RESORT+63, RESORT+64, RESORT+67, RESORT+68, CALTOT+2*
>> LROBRCNT	REPORT+3, PV1+2, OBR+3, OBR+4, OBX+3, OBX+5
>> LROBX	RESORT+31, RESORT+32, RESORT+33, RESORT+57, RESORT+58, RESORT+59, RESORT+66, RESORT+67, RESORT+68
>> LROBXCNT	REPORT+3, PV1+2, OBR+2, OBX+2, OBX+3
>> LRPATH	CALTOT+2, CALTOT+3, CALTOT+10, CALTOT+14, CALTOT+15, CALTOT+16, CALTOT+18
>> LRPATHCT	CALTOT+2, CALTOT+3, CALTOT+12, CALTOT+14, CALTOT+15, CALTOT+19
>> LRPERCNT	CALTOT+2, CALTOT+3, CALTOT+11, CALTOT+14, CALTOT+15, CALTOT+17
LRPREV	MMMSG, MMMSG+25, EXIT!
>> LRPROT	MMMSG+20*, MMMSG+21, MMMSG+23
>> LRPV1	RESORT+5, RESORT+6, RESORT+13, RESORT+16, RESORT+20, RESORT+21, RESORT+25, RESORT+28, RESORT+29, RESORT+32 , RESORT+33, RESORT+38, RESORT+41, RESORT+42, RESORT+47, RESORT+50, RESORT+51, RESORT+54, RESORT+55, RESORT+58 , RESORT+59, RESORT+63, RESORT+64, RESORT+67, RESORT+68, CALTOT+2, CALTOT+5, CALTOT+6*, CALTOT+8, CALTOT+9
>> LRPV1CNT	REPORT+3, PV1+3, PV1+4, DG1+3, OBR+4, OBX+3, OBX+7, ZXE+3, DSP+3
>> LRPV1N	RESORT+6*, RESORT+8, RESORT+9
>> LRPV1NUM	CALTOT+5, CALTOT+11, CALTOT+13
LRSP	REPORT+2*, RESORT+11, RESORT+14, RESORT+17, EXIT!
>> LRTMP	RPT+1, PID+2, PID+3, PV1+4, DG1+3, OBR+4, OBX+3, OBX+4, OBX+7, ZXE+3 , DSP+3, TOTALS+1, TOTALS+2, TOTALS+3, TOTALS+7, RESORT+7, RESORT+8, RESORT+23, RESORT+25, RESORT+29* , RESORT+33, RESORT+36, RESORT+38, RESORT+42, RESORT+45, RESORT+47, RESORT+51, RESORT+55, RESORT+59, RESORT+64 , RESORT+65, RESORT+68*
>> LRTOTCNT	REPORT+3, TOTALS+6, TOTALS+7
>> LRTYPE	RESORT+21, RESORT+22, RESORT+35, RESORT+44, RESORT+61, CALTOT+9, CALTOT+10
>> LRUPDNUM	RESORT+1, RESORT+11, RESORT+12
>> LRZXE	RESORT+5, RESORT+16
>> LRZXECNT	REPORT+3, PV1+2, ZXE+2, ZXE+3, RESORT+3, RESORT+16, RESORT+17, RESORT+18
LRZXEN	RESORT+16*, RESORT+17, EXIT!
>> MSG	MMMSG+1, MMMSG+2, MMMSG+3, MMMSG+4, MMMSG+5, MMMSG+6, MMMSG+7, MMMSG+8, MMMSG+9, MMMSG+10 , MMMSG+11, MMMSG+12, MMMSG+13, MMMSG+14, MMMSG+15, MMMSG+16, MMMSG+17, MMMSG+18, NTE+2, NTE+4 , NTE+5, NTE+8
>> MSGCNT	REPORT+4, MMMSG+2, MMMSG+4, MMMSG+6, MMMSG+8, MMMSG+10, MMMSG+12, MMMSG+14, MMMSG+16, MMMSG+18
>> SEG	RPT+1*, PID+1, PV1+1, DG1+1, OBR+1, OBX+1, OBX+4, ZXE+1, DSP+1, TOTALS+1
>> SSN	RESORT+8*, RESORT+11, RESORT+14, RESORT+17
TYPE	RESORT+9, RESORT+10, RESORT+14, RESORT+17, NTE+2, NTE+3, NTE+6, NTE+8, NTE+9!
U	CALTOT+3, CALTOT+15, MMMSG+21
>> X	RESORT+2, CDT+1, CDT+2, CDT+3*, CDT+4
>> X1	RESORT+1*
>> X2	RESORT+1*
XMDUZ	MMMSG+26*, EXIT!
XMSUB	MMMSG+24, MMMSG+25, EXIT!
XMTEXT	MMMSG+28*, EXIT!
XMY	EXIT!
XMY("G."	MMMSG+27*

Marked Items

Name	Field # of Occurrence
$T(@SEG	RPT+1

Customize PDF page

Package: Lab Service

Routine: LREPIRP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items