Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUINPCH2

Package: Kernel

Routine: XUINPCH2


Information

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

Source Information

Source file <XUINPCH2.m>

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.

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls