Routine: MCARAM7

Information

MCARAM7 ;WASH ISC/JKL-MUSE SUMMARY LOOKUP AND FILE IN DHCP ;6/26/96 12:27

Source file <MCARAM7.m>

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC IX^DIC FILE^DICN
Medicine	1	$$LOG^MCARAM7

Package	Total	Caller Graph
Medicine	7	MCARAM MCARAM1 MCARAM2 MCARAM3 MCARAM5 MCARAM6 MCARAM7

Name	Comments	DBIA/ICR reference
GRERR(MCA)	;Find first fatal error
LSUM(MCDT,MCNM,MCS)	; ; Where MCDT is Date/time of record in FileMan format ; MCNM is Name of patient equivalent to name in Patient file (#2) ; MCS is array into which data is placed
LOG(MCERR)	;Logs type of error in local array
KPERR(MCA,MCS)	;Transfer local array data into new 700.5 Summary record in DHCP ; occurs for every data transfer attempt whether or not successful
RFFL(MCA,MCS)	; Convert processing errors to 700.5 file fields

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^MCAR(700.5 - [#700.5]	Classic Fileman Calls

Name	Line Occurrences
$$GRERR	RFFL+14
$$RFFL	KPERR+22

Name	Field # of Occurrence
%	KPERR+12~, KPERR+15
D	LSUM+6~, LSUM+7*
DD	KPERR+30!
DIC	LSUM+6~, LSUM+7, KPERR+12~, KPERR+30
DIC("DR"	KPERR+29*
DIC(0	LSUM+7, KPERR+30
DLAYGO	KPERR+30~*
DO	KPERR+30!
MCA	KPERR~, KPERR+22, RFFL~, RFFL+14, GRERR~
MCA(	KPERR+24
MCA("DT"	KPERR+30, RFFL+17*
MCA("ERR"	RFFL+16, GRERR+7, GRERR+8, GRERR+9, LOG+4
MCA("NAME"	KPERR+26
MCDT	LSUM~, LSUM+10, LSUM+11
MCERR	LSUM+6~, LSUM+8, LSUM+10, LSUM+12, KPERR+12~, KPERR+33, RFFL+16, RFFL+17, RFFL+18, GRERR+6~ , GRERR+8, GRERR+9, LOG~, LOG+4, LOG+5
MCI	LSUM+6~, LSUM+11, KPERR+12~, KPERR+29, GRERR+6~, GRERR+8*
>> MCINST	KPERR+20
MCJ	GRERR+6~, GRERR+8*
MCNM	LSUM~, LSUM+7
MCS	LSUM~, KPERR~, KPERR+22, RFFL~
MCS(	KPERR+15*, KPERR+29
MCS("FLDT"	KPERR+15*, RFFL+17
MCS("NAME"	LSUM+9*, LSUM+11
MCS("PID"	LSUM+9*
MCS("SUM"	LSUM+6, LSUM+11, LSUM+12, KPERR+32*
MCS(1	KPERR+20*
MCS(2	KPERR+24*
MCS(3	KPERR+26*
MCS(4	KPERR+22*
MCS(5	KPERR+13*
MCS(6	RFFL+14, RFFL+16
MCS(7	KPERR+28*
>> MCTYPE	KPERR+28
U	LSUM+9
X	LSUM+6~, LSUM+7, KPERR+12~, KPERR+30
Y	LSUM+6~, LSUM+8, LSUM+9, KPERR+12~, KPERR+32
Y(0	LSUM+9