Routine: GMTSLRT

Package	Total	Call Graph
Health Summary	3	^GMTSLRTE REGDT4^GMTSU CKP^GMTSUP
VBECS	2	CPRS^VBECA3B TRAN^VBECA4
Kernel	1	$$FMTE^XLFDT
Order Entry Results Reporting	1	EN^ORWLR1
Toolkit	1	$$GET^XPAR
VA FileMan	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Blood Transfusion
TEXT	;
KEY	;
VBEC	;VBECS format
OLD	;Pre-VBECS format
PARSE	;Parse Record
WRT1	;Writes VBECS transfusion record for each day
PRSREC	; Parses Record for presentation
WRT	; Writes the Transfusion Record for each day

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?19,"* [LEGACY VISTA BLOOD BANK REPORT] *",! Line Location: TEXT+2
Function Call: WRITE	Prompt: !?3,"The following historical information comes from the Legacy VISTA Blood" Line Location: TEXT+3
Function Call: WRITE	Prompt: !?3,"Bank System. It represents data collected prior to the installation of" Line Location: TEXT+4
Function Call: WRITE	Prompt: !?3,"VBECS. Some of the information in this report may have been duplicated" Line Location: TEXT+5
Function Call: WRITE	Prompt: !?3,"in the VBECS Blood Transfusion report above (if available).",! Line Location: TEXT+6
Function Call: WRITE	Prompt: !?22,"---- Blood Transfusions ----",! Line Location: TEXT+7
Function Call: WRITE	Prompt: ! Line Location: KEY+2
Function Call: WRITE	Prompt: " Blood Product Key: " Line Location: KEY+3
Function Call: WRITE	Prompt: ?21,GMI," = ",$G(^TMP("LRT",$J,GMI)),! Line Location: KEY+6
Function Call: WRITE	Prompt: TD Line Location: WRT1+3
Function Call: WRITE	Prompt: ?CL,GMA(GMJ) Line Location: WRT1+7
Function Call: WRITE	Prompt: ! Line Location: WRT1+8
Function Call: WRITE	Prompt: TD Line Location: WRT+3
Function Call: WRITE	Prompt: ?(((GMI2-1)*15)+10),GMA(GMJ) Line Location: WRT+7
Function Call: WRITE	Prompt: ! Line Location: WRT+8

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRT"	MAIN+8!, TEXT+1, KEY+1, KEY+4, KEY+6, KEY+7!, VBEC+1, VBEC+4, OLD+1, OLD+2 , OLD+3
^TMP("ZTRAN"	MAIN+8!, KEY+7!, VBEC+5*, VBEC+6, VBEC+7, VBEC+9

Name	Field # of Occurrence
^(	VBEC+4, VBEC+6*, VBEC+9

Name	Field # of Occurrence
A	MAIN+1~
BPN	MAIN+1~, PARSE+3, PARSE+4, PARSE+5, WRT1+2, WRT1+5, WRT1+8, PRSREC+3, PRSREC+4, PRSREC+5 , WRT+2, WRT+5, WRT+8
C	VBEC+2~
CL	WRT1+1~, WRT1+6*, WRT1+7
CNT	VBEC+2~, VBEC+3, VBEC+6
COMP	VBEC+2~, VBEC+4, VBEC+9
COMPSEQ	VBEC+2~, VBEC+4*, VBEC+5, VBEC+6
>> DFN	MAIN+2, MAIN+11
GMA	MAIN+1~, VBEC+2~
GMA(	PARSE+5, WRT1+7, PRSREC+5, WRT+7
GMA(1	PARSE+3, PARSE+4, PARSE+5, PARSE+6, PRSREC+3, PRSREC+4, PRSREC+5, PRSREC+6
GMI	MAIN+1~, KEY+4, KEY+6, VBEC+4, OLD+2, PARSE+1~, PARSE+5, PRSREC+1~, PRSREC+5*
GMI1	WRT1+1~, WRT1+4, WRT1+5, WRT1+6, WRT1+8, WRT+1~, WRT+4, WRT+5, WRT+6, WRT+8
GMI2	WRT1+1~, WRT1+5, WRT1+6, WRT1+8, WRT+1~, WRT+5, WRT+6, WRT+7, WRT+8
GMJ	WRT1+1~, WRT1+6, WRT1+7, WRT+1~, WRT+6, WRT+7
GML	WRT1+1~, WRT1+2, WRT1+4, WRT1+5, WRT+1~, WRT+2, WRT+4, WRT+5
GMM	WRT1+1~, WRT1+2, WRT+1~, WRT+2
GMR	MAIN+1~, VBEC+2~, VBEC+4, VBEC+5, VBEC+9, VBEC+10, OLD+3*, PARSE+2, PARSE+3, PRSREC+2 , PRSREC+3
>> GMTS1	MAIN+9, MAIN+11
>> GMTS2	MAIN+11, VBEC+4, OLD+2
>> GMTSNDM	MAIN+9
>> GMTSQIT	KEY+2, KEY+3, KEY+5, WRT1+3, WRT+3, WRT+4, WRT+5, WRT+6
ID	VBEC+2~, VBEC+3, VBEC+4, VBEC+5, VBEC+6, VBEC+8, VBEC+9
IX	MAIN+1~, MAIN+9, OLD+2, OLD+3
LOC	MAIN+1~, MAIN+2*, MAIN+11
>> LRDFN	MAIN+2*
MAX	MAIN+1~, MAIN+9*, VBEC+4, OLD+2
ORAY	VBEC+2~
ORAY(	VBEC+3*, VBEC+4
R	MAIN+1~
TD	MAIN+1~, VBEC+2~, PARSE+2, WRT1+3, PRSREC+2, WRT+3
U	VBEC+5, PARSE+3, PRSREC+2, PRSREC+3
X	PARSE+1~, PRSREC+1~, PRSREC+2*

Name	Field # of Occurrence
$T(CPRS^VBECA3B	MAIN+10
$T(EN^ORWLR1	MAIN+10