Routine: ECX351PT

Package	Total	Call Graph
VA FileMan	3	$$FIND1^DIC FILE^DICN UPDATE^DIE
Kernel	1	(BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN
OBF	;Update OCCULT BLOOD (FECAL) to have a Source of Feces
ADD7272	;- Add new entries to file #727.2 ; ECXX is in format: ien;test^source
NEW7272	;- New records for file #727.2
POST1	;- Add new entry to file 728.441 ; ECXREC is in format: code^short description
NATCLIN	;- Contains the NATIONAL CLINIC entry to be added

Name	Field # of Occurrence
$$FIND1^DIC	POST1+14
FILE^DICN	ADD7272+16
UPDATE^DIE	POST1+24
BMES^XPDUTL	OBF+3, POST1+5, POST1+15, POST1+16, POST1+26, POST1+27
MES^XPDUTL	OBF+2, OBF+4, OBF+12, ADD7272+4, ADD7272+5, ADD7272+6, ADD7272+17, ADD7272+18, ADD7272+19, ADD7272+21 , ADD7272+22, POST1+17

FileNo	Call Tags
^ECX(727.2 - [#727.2]	Classic Fileman Calls
^ECX(728.441 - [#728.441]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DD(727.2	ADD7272+14
^DD(727.21	ADD7272+7, ADD7272+23
^ECX(727.2 - [#727.2]	OBF+7, OBF+9, OBF+10!, OBF+11, ADD7272+10, ADD7272+11

Name	Line Occurrences
ADD7272	EN
OBF	EN+1

Name	Field # of Occurrence
CNT	ADD7272+3~, ADD7272+7, ADD7272+12, ADD7272+20
DA	ADD7272+3~
DA(1	ADD7272+14*
DD	ADD7272+16!
DIC	ADD7272+3~, ADD7272+15*
DIC("DR"	ADD7272+15*
DIC("P"	ADD7272+14*
DIC(0	ADD7272+15*
DIE	ADD7272+3~
DINUM	ADD7272+3~, ADD7272+14*
DLAYGO	ADD7272+15*, ADD7272+16!
DO	ADD7272+16!
DR	ADD7272+3~
ECX	ADD7272+3~, ADD7272+8*
ECXCODE	POST1+4~, POST1+11*, POST1+14, POST1+15, POST1+20, POST1+26, POST1+27
ECXDA	OBF+1~, OBF+5, OBF+7, OBF+9, OBF+10, OBF+11, ADD7272+3~, ADD7272+9, ADD7272+11, ADD7272+14 , ADD7272+18
ECXERR	POST1+4~, POST1+26, POST1+27
ECXFDA	POST1+4~
ECXFDA(	POST1+20, POST1+21
ECXREC	POST1+4~, POST1+8*, POST1+11, POST1+15, POST1+21, POST1+26, POST1+27
ECXX	OBF+1~, OBF+5, OBF+6, OBF+8, ADD7272+3~, ADD7272+8, ADD7272+9, ADD7272+13
I	POST1+4~, POST1+8*
SOURCE	OBF+1~, OBF+8, OBF+9, OBF+12, ADD7272+3~, ADD7272+13
TEST	OBF+1~, OBF+8, OBF+12, ADD7272+3~, ADD7272+13, ADD7272+15, ADD7272+18
U	ADD7272+7, ADD7272+13, ADD7272+14, ADD7272+23, POST1+15, POST1+26, POST1+27
X	ADD7272+3~, ADD7272+15*
Y	ADD7272+3~

Name	Field # of Occurrence
$T(NATCLIN+I	POST1+8
$T(NEW7272+ECX	ADD7272+8