Routine: IBD30P71

Package	Total	Call Graph
Kernel	2	$$FMADD^XLFDT MES^XPDUTL
VA FileMan	2	FILE^DICN ^DIE

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Backup 357.69 Type of Visit File
POST	; Update Type of Visit Codes
UPD35769	;update type of visit codes to file (#357.69)
MSG(IBA)	;
GLBBKUP
NCODE	;;code^recommended text^new(1)/established(2)/consult(3)/other(9)^recommended header

FileNo	Call Tags
^IBE(357.69 - [#357.69]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IBE(	GLBBKUP+4
^IBE(357.69 - [#357.69]	UPD35769+8, UPD35769+12
^XTMP("IBD30P71"	GLBBKUP+3, GLBBKUP+4

Name	Line Occurrences
GLBBKUP	EN+7
MSG	POST+2, POST+4, UPD35769+14, UPD35769+19, UPD35769+20, UPD35769+21, UPD35769+22, UPD35769+23, UPD35769+24
POST	EN+10
UPD35769	POST+3

Name	Field # of Occurrence
DA	UPD35769+1~, UPD35769+13*
DIC	UPD35769+1~, UPD35769+17*
DIC("DR"	UPD35769+18*
DIC(0	UPD35769+17*
DIE	UPD35769+1~, UPD35769+13*
DINUM	UPD35769+1~, UPD35769+17*
DLAYGO	UPD35769+1~, UPD35769+17*
DR	UPD35769+1~, UPD35769+13*
DT	GLBBKUP+3
I71FILE	EN+1~, EN+2, EN+6, GLBBKUP+4
I71FILES	EN+1~, EN+3*, EN+5, EN+6
IBA	POST+1~, UPD35769+1~, UPD35769+2, UPD35769+20, UPD35769+22, MSG~, MSG+1
IBBKNDE	GLBBKUP+1~, GLBBKUP+2*, GLBBKUP+3
IBCM	UPD35769+1~, UPD35769+11*, UPD35769+12
IBCNT	EN+1~, EN+4, EN+5, EN+6
IBCODE	UPD35769+1~, UPD35769+4*, UPD35769+5, UPD35769+8, UPD35769+11, UPD35769+12, UPD35769+13, UPD35769+17, UPD35769+19
IBEX	UPD35769+1~, UPD35769+2, UPD35769+10, UPD35769+12*, UPD35769+23
IBHD	UPD35769+1~, UPD35769+7*, UPD35769+10, UPD35769+11, UPD35769+13, UPD35769+18
IBNECO	UPD35769+1~, UPD35769+6*, UPD35769+11, UPD35769+13, UPD35769+18
IBT	UPD35769+1~, UPD35769+3*, UPD35769+4, UPD35769+5, UPD35769+6, UPD35769+7
IBTXT	UPD35769+1~, UPD35769+5*, UPD35769+11, UPD35769+13, UPD35769+18
IBTXT2	UPD35769+1~, UPD35769+5*, UPD35769+10, UPD35769+12, UPD35769+14, UPD35769+20
IBU	UPD35769+1~, UPD35769+2, UPD35769+14, UPD35769+22
IBX	UPD35769+1~, UPD35769+3*
U	POST+1~*, UPD35769+4, UPD35769+5, UPD35769+6, UPD35769+7, UPD35769+11
X	UPD35769+1~, UPD35769+17*
Y	UPD35769+1~, UPD35769+19

Name	Field # of Occurrence
$T(NCODE+IBX	UPD35769+3