Routine: XLFNAME3

Information

XLFNAME3 ;CIOFO-SF/MKO-CONVERSION OF NEW PERSON FILE ENTRIES ;10:39 AM 10 Mar 2000

Package	Total	Call Graph
Kernel	6	$$S^%ZTLOAD $$FMADD^XLFDT ($$NAMEFMT,STDNAME)^XLFNAME UPDCOMP^XLFNAME2 UPDATE^XPDID (BMES,MES)^XPDUTL
VA FileMan	4	DELIX^DDMOD FILE^DIE $$IENS^DILF ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	2	XLFNAME XLFNAME5

Entry Points

Name	Comments	DBIA/ICR reference
NEWPERS(XUFLAG,XUIEN)	;Convert New Person file names
STPCHK	;Every 200 records, check whether to stop
UPDATE(XUFLAG,XUFIL,XUIENS,XUFLD,XUNAM,XUPTR,XUPVAL,XUNMSP,XUDEG)	;Process name field
RECORD(XUFIL,XUFLD,XUREC,XUNAM,XUAUD,XUNMSP)	;Record problems in ^XTMP
STOP()	;Check whether to stop
INV(IENS)	;Invert the IENS
PRE	;The Pre-Install entry point
POST	;The Post-Install entry point (run conversion)

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	STPCHK+3
DELIX^DDMOD	PRE+5, PRE+10
FILE^DIE	UPDATE+25
$$IENS^DILF	RECORD+5
^DIR	STOP+7
$$FMADD^XLFDT	NEWPERS+15
$$NAMEFMT^XLFNAME	UPDATE+11
STDNAME^XLFNAME	UPDATE+9
UPDCOMP^XLFNAME2	UPDATE+20
UPDATE^XPDID	STPCHK+5
BMES^XPDUTL	PRE+6
MES^XPDUTL	NEWPERS+29, NEWPERS+37, NEWPERS+60

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," NOTE: To cancel this process, type '^' at any time." Line Location: NEWPERS+19
Function Call: WRITE	Prompt: !," Please wait..." Line Location: NEWPERS+20
Function Call: WRITE	Prompt: !,XUMSG Line Location: NEWPERS+28
Function Call: WRITE	Prompt: !,XUMSG Line Location: NEWPERS+36
Function Call: WRITE	Prompt: ! Line Location: NEWPERS+59
Function Call: WRITE	Prompt: !,XUMSG(I) Condition for execution: $D(XUMSG(I))#2 Line Location: NEWPERS+59
Function Call: WRITE	Prompt: "." Line Location: STPCHK+4
Function Call: READ	Variable: Y#1 Timeout: 0 Line Location: STOP+2
Function Call: READ	Variable: *X Timeout: 0 Line Location: STOP+3
Function Call: WRITE	Prompt: ! Line Location: STOP+7
Routine Call	DIE Line Location: UPDATE+25
Routine Call	DIR Line Location: STOP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	PRE+4, PRE+9
^VA(200 - [#200]	NEWPERS+26, NEWPERS+32, NEWPERS+33*, NEWPERS+41, NEWPERS+42, NEWPERS+43, NEWPERS+46, NEWPERS+47
^XTMP(	NEWPERS+15, NEWPERS+54, RECORD+10!, RECORD+11, RECORD+12, POST+3, POST+5
^XTMP("XLFNAME"	NEWPERS+14!

Label References

Name	Line Occurrences
$$INV	RECORD+7
$$STOP	STPCHK+4
NEWPERS	POST+4
RECORD	UPDATE+15
STPCHK	NEWPERS+41
UPDATE	NEWPERS+51

Naked Globals

Name	Field # of Occurrence
^(	NEWPERS+32
^(0	POST+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIERR	UPDATE+1~, UPDATE+25!, PRE+1~, PRE+6
DIR	STOP+1~
DIR("?"	STOP+6*
DIR("A"	STOP+5*
DIR("B"	STOP+5*
DIR(0	STOP+5*
DIROUT	STOP+1~
DIRUT	STOP+1~
DT	NEWPERS+15
DTOUT	STOP+1~
DUOUT	STOP+1~
I	NEWPERS+9~, NEWPERS+31, NEWPERS+32, NEWPERS+59, INV+1~, INV+4
IENS	INV~, INV+2, INV+3*, INV+4
U	NEWPERS+15, NEWPERS+26, NEWPERS+32, NEWPERS+33, NEWPERS+42, NEWPERS+46, NEWPERS+47, NEWPERS+54, RECORD+12, STOP+4 , PRE+4, PRE+9, POST+3, POST+5
X	STOP+1~, STOP+3, INV+1~, INV+4, INV+5*, INV+6
XPDIDTOT	NEWPERS+9~, NEWPERS+26, NEWPERS+31, NEWPERS+32*, NEWPERS+33
>> XPDNM	NEWPERS+18, NEWPERS+28, NEWPERS+36, NEWPERS+59, STPCHK+4, STPCHK+5, PRE+6
XUAUD	UPDATE+1~, UPDATE+9, UPDATE+13, UPDATE+14, UPDATE+15, UPDATE+23, RECORD~, RECORD+11
XUAUD("DIFFERENT"	UPDATE+14*
XUAUD("STRIP"	UPDATE+13
XUAUD("TRUNC"	UPDATE+12*
XUCNT	NEWPERS+8~, NEWPERS+12, NEWPERS+57, NEWPERS+58, STPCHK+1, STPCHK+2, STPCHK+5
XUDA	UPDATE+1~
XUDEG	NEWPERS+8~, NEWPERS+47*, NEWPERS+51, UPDATE~, UPDATE+19
XUF	NEWPERS+8~, NEWPERS+50*, NEWPERS+51!
XUFDA	UPDATE+1~
XUFDA(	UPDATE+24*
XUFIL	UPDATE~, UPDATE+15, UPDATE+20, UPDATE+24, RECORD~, RECORD+10, RECORD+11, RECORD+12
XUFLAG	NEWPERS~, NEWPERS+10, NEWPERS+14, NEWPERS+15, NEWPERS+25, NEWPERS+50, NEWPERS+54, UPDATE~, UPDATE+2, UPDATE+6 , UPDATE+15, UPDATE+18, UPDATE+23, STOP+6
XUFLD	UPDATE~, UPDATE+15, UPDATE+20, UPDATE+24, RECORD~, RECORD+10, RECORD+11, RECORD+12
XUIEN	NEWPERS~, NEWPERS+22, NEWPERS+26, NEWPERS+31, NEWPERS+33, NEWPERS+41, NEWPERS+42, NEWPERS+43, NEWPERS+44, NEWPERS+46 , NEWPERS+47, NEWPERS+50, NEWPERS+54, STPCHK+1, POST+1~, POST+3*, POST+4, POST+5
XUIENL	NEWPERS+8~, NEWPERS+58, STPCHK+1*
XUIENS	NEWPERS+8~, NEWPERS+44, NEWPERS+51, UPDATE~, UPDATE+15, UPDATE+20, UPDATE+24, RECORD+1~, RECORD+5, RECORD+6* , RECORD+7
XUINV	RECORD+1~, RECORD+7*, RECORD+10, RECORD+11, RECORD+12
XUMAX	UPDATE+1~, UPDATE+6*, UPDATE+10, UPDATE+11
XUMSG	NEWPERS+8~, NEWPERS+27, NEWPERS+28, NEWPERS+29, NEWPERS+30!, NEWPERS+35, NEWPERS+36, NEWPERS+37, NEWPERS+38!, NEWPERS+60 , UPDATE+1~, UPDATE+25!, PRE+1~
XUMSG(	NEWPERS+59
XUMSG(1	NEWPERS+56*
XUMSG(2	NEWPERS+57*
XUMSG(3	NEWPERS+58*
XUNAM	NEWPERS+8~, NEWPERS+42, NEWPERS+43, NEWPERS+50, NEWPERS+51, UPDATE~, UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+14 , UPDATE+15, UPDATE+20, UPDATE+23, UPDATE+24, RECORD~, RECORD+12
XUNAM("DEGREE"	UPDATE+19*
XUNAM("FAMILY"	RECORD+12
XUNAM("GIVEN"	RECORD+12
XUNAM("MIDDLE"	RECORD+12
XUNAM("NOTES"	UPDATE+13*
XUNAM("SUFFIX"	RECORD+12
>> XUNC	UPDATE+11
XUNMSP	NEWPERS+8~, NEWPERS+12, NEWPERS+15, NEWPERS+51, NEWPERS+54, UPDATE~, UPDATE+15, RECORD~, RECORD+2, RECORD+10 , RECORD+11, RECORD+12, POST+1~, POST+2, POST+3, POST+5
XUNODEGT	NEWPERS+8~, NEWPERS+11*
XUNOSIGT	NEWPERS+9~, NEWPERS+11*
XUNOTRIG	NEWPERS+8~, NEWPERS+11, UPDATE+3~
XUORIG	UPDATE+1~
XUPTR	UPDATE~, UPDATE+20
XUPVAL	NEWPERS+9~, NEWPERS+46*, NEWPERS+51, UPDATE~, UPDATE+20
XUREC	RECORD~, RECORD+5, RECORD+6
XUSTOP	NEWPERS+9~, NEWPERS+40, NEWPERS+41, NEWPERS+56, STPCHK+3, STPCHK+4*
Y	STOP+1~, STOP+2*, STOP+4, STOP+8
>> ZTQUEUED	NEWPERS+18, STPCHK+3, STPCHK+4, STPCHK+5
>> ZTSTOP	STPCHK+3*

Customize PDF page

Package: Kernel