Routine: XUINPCH2

Information

XUINPCH2 ;ISF/RWF - Post INIT for Person class file v2.; 3/10/03 1:40pm

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