Routine: MCU

Information

MCU ;WISC/MLH-GENERAL UTILITY FOR MEDICINE ;6/21/96 13:31

Source file <MCU.m>

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE EN^DIQ1

Package	Total	Caller Graph
Medicine	5	MCARDSE MCARPCS1 MCBPFTP1 MCOR MCWORKLD

Name	Comments	DBIA/ICR reference
GETVALUE(MCFILENO,DA,DR)	; get external value of single field number DR in record number DA of file number MCFILENO
INSERT(STRING,POST,CHAR)	; Insert a character in a string ; Mumps statement S $E(MHY,MHFL)=$C(MCHAR)
PARAM(DR)	; Edit the Medicine Package Parameters file (#690.1)

FileNo	Call Tags
^MCAR(690.1 - [#690.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(690.1 - [#690.1]	PARAM+3
^UTILITY("DIQ1"	GETVALUE+1!

Name	Field # of Occurrence
CHAR	INSERT~, INSERT+4
CHR	INSERT+2~, INSERT+4*, INSERT+7
DA	GETVALUE~, GETVALUE+1, PARAM+2~, PARAM+3, PARAM+4, PARAM+7, PARAM+9
DD	PARAM+2~, PARAM+5!
DIC	GETVALUE+1, PARAM+2~, PARAM+5!, PARAM+6
DIC(0	PARAM+6*
DIE	PARAM+2~, PARAM+9*
DINUM	PARAM+2~, PARAM+5!, PARAM+6*
DLAYGO	PARAM+2~, PARAM+6*
DO	PARAM+2~, PARAM+5!
DR	GETVALUE~, GETVALUE+1, PARAM~, PARAM+1
LEFT	INSERT+2~, INSERT+5*, INSERT+7
LEN	INSERT+2~, INSERT+3*, INSERT+6
MCFILENO	GETVALUE~, GETVALUE+1
MCRESULT	GETVALUE+1~*, GETVALUE+2
POST	INSERT~, INSERT+5, INSERT+6
RIGHT	INSERT+2~, INSERT+6*, INSERT+7
STRING	INSERT~, INSERT+3, INSERT+5, INSERT+6
>> X	PARAM+6*
>> Y	PARAM+7