Routine: GMTSLRT

Information

GMTSLRT ; SLC/JER,KER - Blood Bank Transfusion ; 11/26/2002

Source file <GMTSLRT.m>

Package	Total	Call Graph
Health Summary	3	^GMTSLRTE ($$ROK,REGDT4)^GMTSU CKP^GMTSUP
VA Fileman	1	$$GET1^DIQ
VBECS	1	TRAN^VBECA4

Name	Comments	DBIA/ICR reference
PRSREC	; Parses Record for presentation
WRT	; Writes the Transfusion Record for each day
MAIN	; Blood Transfusion

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+15
Function Call: WRITE	Prompt: " Blood Product Key: " Line Location: MAIN+16
Function Call: WRITE	Prompt: ?21,GMI," = ",$G(^TMP("LRT",$J,GMI)),! Line Location: MAIN+19
Function Call: WRITE	Prompt: TD Line Location: WRT+2
Function Call: WRITE	Prompt: ?(((GMI2-1)*15)+10),GMA(GMJ) Line Location: WRT+6
Function Call: WRITE	Prompt: ! Line Location: WRT+7

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRT"	MAIN+10, MAIN+12, MAIN+13, MAIN+14, MAIN+17, MAIN+19, MAIN+20!

Name	Line Occurrences
PRSREC	MAIN+13
WRT	MAIN+13

Name	Field # of Occurrence
A	MAIN+1~
BPN	MAIN+1~, PRSREC+2, PRSREC+3, PRSREC+4, WRT+1, WRT+4, WRT+7
>> DFN	MAIN+2, MAIN+8
GMA	MAIN+1~
GMA(	PRSREC+4*, WRT+6
GMA(1	PRSREC+2, PRSREC+3, PRSREC+4, PRSREC+5
GMI	MAIN+1~, MAIN+12, MAIN+17, MAIN+19, PRSREC+1~, PRSREC+4*
GMI1	WRT+1~, WRT+3*, WRT+4, WRT+5, WRT+7
GMI2	WRT+1~, WRT+4*, WRT+5, WRT+6, WRT+7
GMJ	WRT+1~, WRT+5*, WRT+6
GML	WRT+1~*, WRT+3, WRT+4
GMM	WRT+1~*
GMR	MAIN+1~, MAIN+13*, PRSREC+1, PRSREC+2
>> GMTS1	MAIN+8, MAIN+11
>> GMTS2	MAIN+8, MAIN+12
>> GMTSNDM	MAIN+11
>> GMTSQIT	MAIN+15, MAIN+16, MAIN+18, WRT+2, WRT+3, WRT+4, WRT+5
IX	MAIN+1~, MAIN+11, MAIN+12, MAIN+13
LOC	MAIN+1~, MAIN+2*, MAIN+8
>> LRDFN	MAIN+2*
MAX	MAIN+1~, MAIN+11*, MAIN+12
R	MAIN+1~
TD	MAIN+1~, PRSREC+1*, WRT+2
U	PRSREC+1, PRSREC+2
X	PRSREC+1~*