Routine: XUINPCH2

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT BMES^XPDUTL $$ACTIVE^XUSER
VA FileMan	3	^DIC UPDATE^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PREXXX	;This is the pre-init
POST
AUTO	;Loop through and repoint the ones we can.
MANUAL	;Find person class entries need to ask about
ASK(OLD,OFFER)	;Ask what to point to.
AK
LOCK(DA,%)	;Lock/Unlock user
RPOLD(DA1,DA,OLD,NEW)	;Don't use FM here. Too many protections.
REPOINT(DA1,DA,OLD,NEW)	;Use FM so to fire X-ref's
SHOW(DA)	;
PINIT	;Build swap array
AINIT	;Build swap array for the Ask user
BUILD	;
MARK(Y)	;Set checkmark
CLEANUP	;Cleanup after done.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Now to re-map person class entries." Line Location: MANUAL+2
Function Call: WRITE	Prompt: !,"Terminated User ("_$P(^VA(200,VA200,0),"^")_") has been automatically processed." Line Location: MANUAL+14
Function Call: WRITE	Prompt: !,$S($D(DUOUT):"Come back soon to finish up.",1:"That's the end."),! Line Location: MANUAL+20
Function Call: WRITE	Prompt: !!,"User "_$P(^VA(200,VA200,0),U)," has the following person class:",! Line Location: AK+0
Function Call: WRITE	Prompt: !,"This has been discontinued. Please select a new entry.",! Line Location: AK+2
Function Call: WRITE	Prompt: $P(OFFER,"A, ",2,9) Line Location: AK+3
Function Call: WRITE	Prompt: !! Line Location: AK+5
Function Call: WRITE	Prompt: $P(X,U,1) Line Location: SHOW+2
Function Call: WRITE	Prompt: !,?3,$P(X,U,2) Condition for execution: $P(X,U,2)]"" Line Location: SHOW+2
Function Call: WRITE	Prompt: !,?6,$P(X,U,3) Condition for execution: $P(X,U,3)]"" Line Location: SHOW+2
Routine Call	DIC Line Location: AK+4
Routine Call	DIE Line Location: MANUAL+13 REPOINT+4
Routine Call	DIR Line Location: MANUAL+5 AK+5

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	AUTO+7, MANUAL+16, PINIT+1!, PINIT+3, AINIT+1!, AINIT+3, BUILD+2
^USC	PREXXX+2*
^USC(8932.1 - [#8932.1]	PREXXX+2!, SHOW+1, PINIT+2, AINIT+2
^VA(200 - [#200]	AUTO+4, AUTO+5, AUTO+6, MANUAL+7, MANUAL+8, MANUAL+9, MANUAL+14, AK, LOCK+1, LOCK+2 , RPOLD+2, RPOLD+3!, RPOLD+4, REPOINT+2, REPOINT+3, BUILD+3, BUILD+4*
^XTMP("A4A7"	MANUAL+6, MARK+1*, CLEANUP+2!

Name	Field # of Occurrence
^("LAST"	MARK+1*

Name	Field # of Occurrence
%	LOCK~, LOCK+1, LOCK+2
DA	MANUAL+1~, LOCK~, LOCK+1, LOCK+2, RPOLD~, RPOLD+2, RPOLD+3, RPOLD+4, REPOINT~, REPOINT+2 , SHOW~, SHOW+1, BUILD+1, BUILD+2, BUILD+4
DA1	RPOLD~, RPOLD+2, RPOLD+3, RPOLD+4, REPOINT~, REPOINT+2, REPOINT+3
>> DATE	BUILD+1, BUILD+3, BUILD+4
DIC	ASK+1~, AK+4*
DIC(0	AK+4*
DIR	ASK+1~
DIR("A"	MANUAL+4, AK+5
DIR("B"	MANUAL+4*
DIR(0	MANUAL+4, AK+5
>> DIRUT	MANUAL+5
DT	MANUAL+12, MARK+1
DUOUT	MANUAL+1~, MANUAL+18, MANUAL+20, ASK+1!, AK+6
DUZ	REPOINT+1~
>> I	PINIT+2, PINIT+3, AINIT+2, AINIT+3
>> ID	BUILD+3*, BUILD+4
>> IEN	BUILD+1*, BUILD+3, BUILD+4
>> J	PINIT+3*
LAST	MANUAL+1~, MANUAL+6*, MANUAL+7
NEW	ASK+1~, AK+4*, AK+5, AK+6, RPOLD~, RPOLD+3, RPOLD+4, REPOINT~, REPOINT+3
OFFER	ASK~, AK+3
OLD	ASK~, AK+1, RPOLD~, RPOLD+2, RPOLD+3, REPOINT~, REPOINT+2
PC	AUTO+1~, AUTO+5, AUTO+6, AUTO+8, MANUAL+1~, MANUAL+8, MANUAL+9, MANUAL+12, MANUAL+17, RPOLD+1~ , REPOINT+1~
R1	AUTO+1~, AUTO+6, AUTO+7, AUTO+8, MANUAL+1~, MANUAL+9, MANUAL+16, MANUAL+17, RPOLD+1~
R2	AUTO+1~, AUTO+7, AUTO+8, MANUAL+1~, MANUAL+16, MANUAL+17*, RPOLD+1~
RX1	REPOINT+1~
RX1(	REPOINT+3*
RX2	REPOINT+1~
U	AUTO+6, MANUAL+9, AK, RPOLD+2, RPOLD+4, REPOINT+2, SHOW+2, PINIT+2, AINIT+2, BUILD+4
VA200	AUTO+1~, AUTO+4, AUTO+5, AUTO+6, AUTO+8, MANUAL+1~, MANUAL+7, MANUAL+8, MANUAL+9, MANUAL+10 , MANUAL+12, MANUAL+14, MANUAL+17, MANUAL+18*, AK, RPOLD+1~, REPOINT+1~
X	SHOW+1~, SHOW+2, PINIT+2, PINIT+3, AINIT+2*, AINIT+3
XXX	MANUAL+1~, MANUAL+11!
XXX(	MANUAL+12*
Y	MANUAL+6, AK+4, AK+6, MARK~, MARK+1