Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 6

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

External References

Name Field # of Occurrence
^DIC AK+4
UPDATE^DIE MANUAL+13, REPOINT+4
^DIR MANUAL+5, AK+5
$$FMADD^XLFDT BUILD+3
BMES^XPDUTL AUTO+2
$$ACTIVE^XUSER MANUAL+10

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
Routine Call
  • DIE
  • Line Location:
    • MANUAL+13
    • REPOINT+4
Routine Call
  • DIC
  • Line Location:
    • AK+4
Routine Call
  • DIR
  • Line Location:
    • MANUAL+5
    • AK+5

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$ASK MANUAL+17
$$LOCK MANUAL+7
AINIT MANUAL+3, BUILD+1
AK AK+7
AUTO POST
LOCK MANUAL+7
MARK MANUAL+17
PINIT AUTO+3
REPOINT AUTO+8, MANUAL+17
SHOW AK+1, AK+5

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All