Routine: MAGT7MA

Package	Total	Call Graph
Imaging	6	OUTPUT^MAGDHOW2 ERROR^MAGDHOWA ERR^MAGGTERR ($$BUILDHL7,$$GETFILE,ERROR)^MAGT7MA $$SEGADD^MAGT7S ($$TELEPATH,CANCEL,STATUPDT)^MAGTP005
Health Level Seven	2	$$NEWMSG^HLOAPI $$SENDSUB^HLOAPI1
VA FileMan	2	^DIC ($$GET1,GETS)^DIQ
Kernel	1	$$NOW^XLFDT
Text Integration Utility	1	PUTIMAGE^TIUSRVPL

Package	Total	Caller Graph
Lab Service	7	LR7OB63D LRAPED LRAPEDC LRAPKOE LRAPLG1 LRAPRES LRUDEL
Imaging	5	MAGDIR9F MAGDRPC4 MAGDRPC9 MAGT7MA MAGVIM02

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	; main entry point to create HL7 order message for modification	ICR #5994 Status: Active Usage: Private
NEW	; entry point for to create HL7 order message for a new case	ICR #5994 Status: Active Usage: Private
BUILDHL7(STATE)	; build the segments ; Input variables from Lab Package ; LRDFN ----- lab file (#63) patient pointer ; LRI ------- inverse date in lab file (#63) ; LRSS ------ anatomic pathology section abbreviation in lab file (#63) - CY, EM, or SP
GETFILE(LRSS)	; get FILE information	ICR #7497 Status: Active Usage: Controlled Subscription
REPORT	; main entry point - create HL7 order message for an electronically signed report	ICR #5994 Status: Active Usage: Private
CANCEL	; main entry point - create HL7 order message for a cancelled order	ICR #5994 Status: Active Usage: Private
NEWTIU(LRSS,PARENTFILE,LRDFN,LRI)	; check if this is a TIU note to be linked to an image group ; if so, create the cross-linkages now
TIUXLINK	; create the cross-linkages to TIU EXTERNAL DATA LINK file
TIUIEN(LRSS,LRDFN,LRI)	; lookup TIU reference
ERROR(RETURN,TAG,VARS)	; log the error to the user's email
SENDHL7()	; P166 DAC - Get value of SEND ANATOMIC PATHOLOGY HL7 switch

Name	Field # of Occurrence
^DIC	BUILDHL7+86
$$GET1^DIQ	BUILDHL7+32, BUILDHL7+33, BUILDHL7+64, BUILDHL7+67, BUILDHL7+91, GETFILE+65, SENDHL7+3
GETS^DIQ	BUILDHL7+51, TIUIEN+16
$$NEWMSG^HLOAPI	BUILDHL7+42
$$SENDSUB^HLOAPI1	BUILDHL7+92
OUTPUT^MAGDHOW2	BUILDHL7+103
ERROR^MAGDHOWA	ERROR+12
ERR^MAGGTERR	TIUXLINK+12
$$BUILDHL7^MAGT7MA	REPORT+6, CANCEL+2
$$GETFILE^MAGT7MA	BUILDHL7+45, TIUIEN+8
ERROR^MAGT7MA	EDIT+3, NEW+4, BUILDHL7+55, REPORT+7, CANCEL+3, TIUIEN+10, TIUIEN+20
$$SEGADD^MAGT7S	BUILDHL7+79
$$TELEPATH^MAGTP005	BUILDHL7+61
CANCEL^MAGTP005	BUILDHL7+73
STATUPDT^MAGTP005	BUILDHL7+69
PUTIMAGE^TIUSRVPL	TIUXLINK+2
$$NOW^XLFDT	BUILDHL7+101

FileNo	Call Tags
^MAG(2006.1 - [#2006.1]	GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ
^LR - [#63]	GET1^DIQ
^HLD(779.4 - [#779.4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	GETFILE+60, GETFILE+61, GETFILE+64
^MAG(2005 - [#2005]	NEWTIU+8, NEWTIU+12, NEWTIU+13, NEWTIU+14, TIUXLINK+5*
^MAG(2005.42 - [#2005.42]	BUILDHL7+61
^MAG(2005.85 - [#2005.85]	GETFILE+24, GETFILE+37, GETFILE+54
^MAG(2006.1 - [#2006.1]	SENDHL7+2
^MAG(2006.5838 - [#2006.5838]	NEWTIU+5, NEWTIU+6, NEWTIU+17!, NEWTIU+18, NEWTIU+19*, NEWTIU+20
^TMP("MAG"	BUILDHL7+49

Name	Line Occurrences
$$BUILDHL7	EDIT+2, NEW+3
$$NEWTIU	REPORT+5
$$SENDHL7	BUILDHL7+23
$$TIUIEN	NEWTIU+7
TIUXLINK	NEWTIU+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACNUMB	BUILDHL7+6~, BUILDHL7+57*, BUILDHL7+58, BUILDHL7+61, BUILDHL7+69, BUILDHL7+73, BUILDHL7+79
COMPLETED	BUILDHL7+7~, BUILDHL7+64*, BUILDHL7+65
CROSSREF	NEWTIU+2~, NEWTIU+11*, NEWTIU+14
D0	NEWTIU+2~, NEWTIU+4, NEWTIU+5, NEWTIU+6, NEWTIU+17
DFN	BUILDHL7+8~, BUILDHL7+33*, BUILDHL7+34, BUILDHL7+79
DIC	BUILDHL7+83~, BUILDHL7+86*
DIC(0	BUILDHL7+86*
DO	BUILDHL7+83~
DUZ(2	SENDHL7+2
ERRMSG	BUILDHL7+11~, BUILDHL7+42
ERROR	BUILDHL7+19~, BUILDHL7+52, TIUIEN+5~, TIUIEN+17
ERRSTAT	BUILDHL7+21~, BUILDHL7+23, BUILDHL7+26, BUILDHL7+28, BUILDHL7+29, BUILDHL7+30, BUILDHL7+32, BUILDHL7+34, BUILDHL7+42, BUILDHL7+45* , BUILDHL7+46, BUILDHL7+77, BUILDHL7+78, BUILDHL7+79, BUILDHL7+82, BUILDHL7+94, BUILDHL7+107, GETFILE+1~, GETFILE+56, GETFILE+58 , GETFILE+69, GETFILE+73, TIUIEN+6~, TIUIEN+8*, TIUIEN+9, TIUIEN+10
FILE	BUILDHL7+9~, BUILDHL7+79, GETFILE+4!, TIUIEN+1~
FILE("COMMENT"	GETFILE+21, GETFILE+34, GETFILE+51*
FILE("FIELD"	GETFILE+8, GETFILE+29, GETFILE+42*
FILE("NAME"	GETFILE+6, GETFILE+27, GETFILE+40*
FILE("ORDERED	TEST" , GETFILE+9, GETFILE+30, GETFILE+43*
FILE("PARENT	FILE" , GETFILE+23, GETFILE+36, GETFILE+53*
FILE("PROC/EVENT"	GETFILE+24, GETFILE+37, GETFILE+54*
FILE("PROCEDU	RE IEN" , GETFILE+66, RE NAME" , GETFILE+60, GETFILE+65, GETFILE+68
FILE("SPECIMEN"	GETFILE+10, GETFILE+11, GETFILE+12, GETFILE+13, GETFILE+14, GETFILE+15, GETFILE+16, GETFILE+17, GETFILE+18, GETFILE+19 , GETFILE+20, GETFILE+31, GETFILE+32, GETFILE+33, GETFILE+44, GETFILE+45, GETFILE+46, GETFILE+47, GETFILE+48, GETFILE+49 , GETFILE+50*
FILE("TIU REF	ERENCE" , GETFILE+22, GETFILE+35, GETFILE+52*, TIUIEN+13
FILE(0	BUILDHL7+51, BUILDHL7+57, BUILDHL7+64, BUILDHL7+67, GETFILE+7, GETFILE+28, GETFILE+41*
FILEDATA	NEWTIU+2~
FILEDATA("PAR	ENT FILE PTR" , NEWTIU+11, TIUXLINK+4*
FMDATE	BUILDHL7+97~, BUILDHL7+101*
FMDATETM	BUILDHL7+98~, BUILDHL7+101*
HIT	NEWTIU+2~, NEWTIU+3, NEWTIU+21, NEWTIU+23
HL7SUBLIST	BUILDHL7+83~, BUILDHL7+87*, BUILDHL7+89, BUILDHL7+91
HLMSTATE	BUILDHL7+99~, BUILDHL7+102*
I	ERROR+1~, ERROR+11*
IEN	GETFILE+2~, GETFILE+60*, GETFILE+61, GETFILE+64, GETFILE+65, GETFILE+66
IENS	BUILDHL7+13~, BUILDHL7+48, BUILDHL7+51, BUILDHL7+57, BUILDHL7+58, BUILDHL7+64, BUILDHL7+67, BUILDHL7+79, TIUIEN+15, TIUIEN+16 , TIUIEN+22, SENDHL7+1~, SENDHL7+2*, SENDHL7+3
LABDATA	BUILDHL7+18~, BUILDHL7+49*, BUILDHL7+50, BUILDHL7+51, BUILDHL7+57, BUILDHL7+79, BUILDHL7+106, TIUIEN+2~
LABDATA(	TIUIEN+22
>> LRDATA(1	REPORT+3
LRDFN	BUILDHL7+28, BUILDHL7+32, BUILDHL7+33, BUILDHL7+48, BUILDHL7+79, REPORT+1, REPORT+5, NEWTIU~, NEWTIU+5, NEWTIU+7 , NEWTIU+17, TIUIEN~, TIUIEN+15
LRI	BUILDHL7+29, BUILDHL7+48, BUILDHL7+79, REPORT+2~, REPORT+3*, REPORT+5, NEWTIU~, NEWTIU+5, NEWTIU+7, NEWTIU+17 , TIUIEN~, TIUIEN+15
>> LRSF	REPORT+4
LRSS	BUILDHL7+30, BUILDHL7+45, BUILDHL7+58, BUILDHL7+79, GETFILE~, GETFILE+5, GETFILE+26, GETFILE+39, GETFILE+56, GETFILE+62 , GETFILE+69, REPORT+5, NEWTIU~, NEWTIU+7, TIUIEN~, TIUIEN+8
MAGGP	NEWTIU+2~, NEWTIU+6*, NEWTIU+8, NEWTIU+12, NEWTIU+13, TIUXLINK+2, TIUXLINK+5
MAGIEN	NEWTIU+2~, NEWTIU+13*, NEWTIU+14
MAGNEWCASE	NEW+1~, BUILDHL7+26
MESSAGES	BUILDHL7+83~, BUILDHL7+92
MSG	BUILDHL7+12~, BUILDHL7+42, BUILDHL7+79, BUILDHL7+92, BUILDHL7+102, TIUXLINK+8~, ERROR+1~, ERROR+12
MSG(1	TIUXLINK+9, ERROR+3
MSG(2	TIUXLINK+10, ERROR+4
MSG(3	TIUXLINK+11, ERROR+5
MSG(4	ERROR+6*
MSG(5	ERROR+7*
MSGTYPE	BUILDHL7+100~, BUILDHL7+102*
MSHELTS	BUILDHL7+10~, BUILDHL7+42
MSHELTS("COUNTRY"	BUILDHL7+40*
MSHELTS("EVENT"	BUILDHL7+36*
MSHELTS("MESS	AGE STRUCTURE" , BUILDHL7+37, AGE TYPE" , BUILDHL7+38
MSHELTS("VERSION"	BUILDHL7+39*
NIMAGE	NEWTIU+2~, NEWTIU+12*, NEWTIU+13
PARENTFILE	REPORT+2~, REPORT+4*, REPORT+5, NEWTIU~, NEWTIU+5, NEWTIU+17
PARMS	BUILDHL7+83~, BUILDHL7+92
PARMS("QUEUE"	BUILDHL7+91*
PARMS("SENDIN	G APPLICATION" , BUILDHL7+88*
PARMS("SUBSCR	IPTION IEN" , BUILDHL7+89*
RELEASED	BUILDHL7+14~, BUILDHL7+67*, BUILDHL7+68
RETURN	EDIT+1~, EDIT+2, EDIT+3, NEW+2~, NEW+3, NEW+4, REPORT+2~, REPORT+6, REPORT+7, CANCEL+1~ , CANCEL+2, CANCEL+3, ERROR~, ERROR+5
SEGELTS	BUILDHL7+16~
SEGNAME	BUILDHL7+15~, BUILDHL7+78*, BUILDHL7+79
SETID	BUILDHL7+17~
STATE	BUILDHL7~, BUILDHL7+63, BUILDHL7+65*, BUILDHL7+71, BUILDHL7+79
SUBJECT	ERROR+1~, ERROR+2*, ERROR+12
SUCCESS	BUILDHL7+83~, BUILDHL7+92*, BUILDHL7+93
TAG	ERROR~, ERROR+3
TIUIEN	NEWTIU+2~, NEWTIU+7, NEWTIU+8, NEWTIU+11, TIUXLINK+2, TIUIEN+3~, TIUIEN+22, TIUIEN+23
TIUREF	TIUIEN+4~, TIUIEN+13*, TIUIEN+16, TIUIEN+22
TIUXDIEN	TIUXLINK+1~, TIUXLINK+2, TIUXLINK+3, TIUXLINK+4, TIUXLINK+5, TIUXLINK+10
VARIABLES	ERROR+1~, ERROR+12
VARIABLES(	ERROR+11*
VARIABLES("LRDFN"	ERROR+8*
VARIABLES("LRI"	ERROR+9*
VARIABLES("LRSS"	ERROR+10*
VARS	BUILDHL7+53~, BUILDHL7+54, BUILDHL7+55, TIUIEN+18~, TIUIEN+19, TIUIEN+20, ERROR~, ERROR+11
X	BUILDHL7+83~, BUILDHL7+86, GETFILE+59~, GETFILE+61, GETFILE+62, GETFILE+63, REPORT+2~, REPORT+5*
Y	BUILDHL7+83~, BUILDHL7+87

Customize PDF page

Package: Imaging

Routine: MAGT7MA

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items