Routine: MCARAM2

Information

MCARAM2 ;WASH ISC/JKL-MUSE TRANSFER LAB DATA TO LOCAL ;2/13/98 09:12

Source file <MCARAM2.m>

Package	Total	Call Graph
Medicine	2	$$AR^MCARAM4 $$LOG^MCARAM7
VA Fileman	1	^%DT

Name	Comments	DBIA/ICR reference
L11(MCA,MCD)	;Returns Field 6 = QT, 7 = QTc, "DX,K"=11th line of diagnosis
ERR	;Error return
DATE(MCDATE)	; Get the two digit century for the date
L8(MCA,MCD)	;Returns Field 3 = vent. rate, "DX,H" = 8th line of diagnosis
L9(MCA,MCD)	;Returns Field 4 = PR interval, "DX,I" = 9th line of diagnosis
KNMK	; Kill name check variables
L7(MCA,MCD)	;Returns "DT" = date/time in FM format ; "DX,G" = 7th line of diagnosis
EXIT
L10(MCA,MCD)	;Returns Field 5 = QRS duration, "DX,J" =10th line of diagnosis

Name	Line Occurrences
EXIT	DATE+3, DATE+5

Name	Field # of Occurrence
>> %DT	L7+8*
A1	DATE+1~, DATE+3, DATE+4, DATE+5
A2	DATE+1~, DATE+2, DATE+5, EXIT
A3	DATE+1~
DT	EXIT
MC12FNAM	KNMK+1!
MC12LNAM	KNMK+1!
MC12NAM	KNMK+1!
MCA	L7~, L7+3, L7+4, L7+10, L8~, L8+2, L8+6, L9~, L9+2, L9+6 , L10~, L10+2, L10+6, L11~, L11+2, L11+6, L11+10
MCA("CONT"	L7+10, L8+6, L9+6, L10+6, L11+10
MCA("DAY"	L7+5
MCA("DT"	L7+9*
MCA("TM"	L7+5
MCA(3	L8+3!, L8+4!
MCA(4	L9+3!, L9+4!
MCA(5	L10+3!, L10+4!
MCA(6	L11+3!, L11+4!
MCA(7	L11+7!, L11+8!
MCA12	KNMK+1!
MCD	L7~, L7+3, L7+4, L7+10, L8~, L8+2, L8+6, L9~, L9+2, L9+6 , L10~, L10+2, L10+6, L11~, L11+2, L11+6, L11+10
MCDATE	DATE~, DATE+2, EXIT
MCERR	L7+2~, L7+3, L7+4, L7+10, L8+1~, L8+2, L8+3, L8+4, L8+5, L8+6* , L9+1~, L9+2, L9+3, L9+4, L9+5, L9+6, L10+1~, L10+2, L10+3, L10+4* , L10+5, L10+6, L11+1~, L11+2, L11+3, L11+4, L11+5, L11+6, L11+7, L11+8* , L11+9, L11+10*, ERR+1
MCFNAM	KNMK+1!
MCLNAM	KNMK+1!
MCMTH	DATE+1~
MCNAM	KNMK+1!
SD	DATE+1~, DATE+2*, DATE+3
>> X	L7+5*, L7+6, L7+7
Y	L7+2~, L7+8, L7+9