Routine: SD599PT

Package	Total	Call Graph
VA FileMan	3	FIELD^DID FILE^DIE ^DIK
Kernel	1	(BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN	; --- main entry point
HL	; -- delete HOSPITIAL LOCATION (#44) fields and related data
BUILDR(SDD,SDARY)	; -- build array of fields to delete
DELDD(SDD)	; -- tool to delete fields dd ; -- delete dd
LABEL(SDFILE,SDFLD)	; -- get label if not deleted
MSG(SDFLD,SDNAME)	; -- tell user (use kids call??)
FLDS	; -- fields to be deleted [ file# ^ field# ^ field label ]

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	HL+12
^SC("AE"	HL+16
^SC("AF"	HL+21

Name	Field # of Occurrence
^("AF"	HL+21!

Name	Field # of Occurrence
DA	DELDD+15~, DELDD+16*
DA(1	DELDD+16*
DIK	DELDD+15~, DELDD+16*
SDARY	HL+1~, HL+6, BUILDR~
SDARY(	HL+15, BUILDR+10*
SDARY(0	HL+8
SDCNT	DELDD+2~, DELDD+4, DELDD+18, DELDD+20
SDD	BUILDR~, BUILDR+9, DELDD~, DELDD+14, DELDD+16
SDENDFLG	BUILDR+1~, BUILDR+2, BUILDR+4, DELDD+2~, DELDD+3, DELDD+7
SDFDA	HL+13~
SDFDA(44	HL+17, HL+19
SDFILE	BUILDR+5~, BUILDR+6, BUILDR+9, DELDD+8~, DELDD+9, DELDD+14, LABEL~, LABEL+2
SDFLD	HL+13~, HL+14, HL+15, HL+16, HL+17, HL+19, BUILDR+5~, BUILDR+7, BUILDR+9, BUILDR+10 , DELDD+8~, DELDD+10, DELDD+14, DELDD+16, DELDD+17, LABEL~, LABEL+2, MSG~, MSG+1
SDI	BUILDR+1~, BUILDR+4, DELDD+2~, DELDD+7
SDIEN	HL+1~, HL+11, HL+12, HL+16, HL+17, HL+19
SDNAME	BUILDR+8, BUILDR+9, DELDD+8~, DELDD+11, DELDD+14, DELDD+17, MSG~, MSG+1
SDX	BUILDR+1~, BUILDR+4, BUILDR+6, BUILDR+7, BUILDR+8, DELDD+2~, DELDD+7, DELDD+9, DELDD+10, DELDD+11
SDY	LABEL+1~
SDY("LABEL"	LABEL+3
U	EN+1*, BUILDR+7, BUILDR+8, DELDD+10, DELDD+11

Name	Field # of Occurrence
$T(FLDS+SDI	BUILDR+4, DELDD+7