Routine: SRTPUTL

Information

SRTPUTL ;BIR/SJA - UTILITY ROUTINE ;02/27/2008

Source file <SRTPUTL.m>

Package	Total	Call Graph
Surgery	2	$$HW^SROACL1 RET^SRTPCOM
VA Fileman	2	EN^DDIOL CHK^DIE
General Medical Record - Vitals	1	EN1^GMRVUT0
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	31	SRTPASS SRTPDONR SRTPHRT1 SRTPHRT2 SRTPHRT3 SRTPHRT4 SRTPHRT5 SRTPHRT6 SRTPKID1 SRTPKID2 SRTPKID3 SRTPKID4 SRTPKID6 SRTPLIV1 SRTPLIV2 SRTPLIV3 SRTPLIV4 SRTPLIV5 SRTPLIV6 SRTPLIV7 SRTPLUN1 SRTPLUN2 SRTPLUN3 SRTPLUN5 SRTPPAS SRTPRACE SRTPRH SRTPRK SRTPRLI SRTPRLU SRTPTMIT

Name	Comments	DBIA/ICR reference
ADT	; set 'ADT x-ref
PVR	; called by input transform of the PVR VASODILATION fields
TR(SRI)	;
HDR	; print screen header
SRHDR
AGE	; set logic of the 'AGE' x-ref on the Donor's Date of Birth
HW	; get weight & height from Vitals
HT
F69(SRTPP)	; restrict selection of DCD & SCD for heart transplant
WT
KAGE	; 'KILL' logic of the 'AGE' x-ref on the Date of Birth
AT	; set logic for AT x-ref on DATE OF LAST TRANSMISSION
KAT	; kill logic for AT x-ref on DATE OF LAST TRANSMISSION
Y
KADT	; kill 'ADT' x-ref
F147(SRTPP)	; screen out DIET for Lung, Liver, and Kidney
HLA	; called by input transform of the HLA TYPING fields

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SRHDR(I) Line Location: HDR+2
Function Call: WRITE	Prompt: ?(79-$L(SRHPG)),SRHPG Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Routine Call	DIE Line Location: WT+2 HT+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SRHDR+2
^SRT - [#139.5]	ADT+1, KADT+1, AT+2, KAT+2, AGE+3, AGE+4, KAGE+1, PVR+2, PVR+3, WT , WT+1, WT+2, HT, HT+2, HT+8, F69+2, F147+2, SRHDR, SRHDR+2, SRHDR+3
^SRT("ADT"	ADT+1*, KADT+1!
^SRT("AT"	AT+1*, AT+2!, KAT+1!, KAT+2!
^UTILITY($J	HT+2!, HT+3, HT+4, HT+5, HT+6

Name	Field # of Occurrence
>> DA	ADT+1, KADT+1, AT+1, AT+2, KAT+1, KAT+2, AGE+2, KAGE+1
>> DFN	SRHDR*
DOB	AGE+1~, AGE+3*, AGE+4
DOT	AGE+1~, AGE+3*, AGE+4
>> DR	PVR+2, PVR+3
GMRVSTR	HT+1~, HT+2*
GMRVSTR(0	HT+2*
I	HDR+2, HDR+3, SRHDR~, SRHDR+3*
IOF	HDR+1
RESULTS	HT+2!
SRBDATA	HT+1~, HT+6*
SRBIEN	HT+1~, HT+5*, HT+6
SRBRDT	HT+1~, HT+4*, HT+5, HT+6
>> SRCASE	SRHDR*, SRHDR+1
SREND	HW+1~, WT+1, HT+2
SREQ	HW+1~
SREX	HW+1~, WT+1, WT+2, HT+6, HT+7
SREY	HW+1~, WT+2, HT+7, HT+8
SRHDR	HDR+1, SRHDR!, SRHDR+1*
SRHDR(	HDR+2
SRHDR(1	SRHDR+4*
SRHPG	HDR+2, HDR+3!
SRHTDT	HT+1~
SRI	TR~, TR+1
SRINVDT	ADT+1!, KADT+1!
>> SRNOVA	SRHDR+1
SROK	F69+1~, F69+2, F69+3, F147+1~, F147+2, F147+3
>> SROPER	SRHDR+3, SRHDR+4
SRPAGE	HDR+1, HDR+3!
>> SRSDATE	SRHDR+2*, SRHDR+4
SRSTRT	HW+1~, WT+1*
SRTPP	AGE+2, AGE+3, AGE+4, KAGE+1, PVR+2, PVR+3, WT, WT+1, WT+2, HT , HT+2, HT+8, F69~, F69+2, F147~, F147+2, SRHDR, SRHDR+2, SRHDR+3
>> SRVACO	SRHDR*, SRHDR+1
SRX	AT+1~, AT+2, KAT+1~, KAT+2, HLA+1~, PVR+1~, PVR+4
SRY	PVR+1~, PVR+2, PVR+3, PVR+4
>> VA("PID"	SRHDR+1
>> VADM(1	SRHDR+1
X	ADT+1, KADT+1, AT+1, AT+2, KAT+1, KAT+2, Y!, Y+1, HLA+1!, PVR+1!* , PVR+4!, SRHDR~
>> Y	F69+2, F147+2, SRHDR+2*