XUINPCH2 ;ISF/RWF - Post INIT for Person class file v2.; 3/10/03 1:40pm
Source file <XUINPCH2.m>
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|