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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AVAP10

Package: IHS VA Support Files

Routine: AVAP10


Information

AVAP10 ;IHS/ASDST/GTH - CORRECT GIHS XREF FROM 200 TO 6 ; [ 02/24/1999 1:45 PM ]

Source Information

Source file <AVAP10.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 WAIT^DICD  ENALL^DIK  ^DIR  
Kernel 1 $$DT^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS VA Support Files 2 AVA32P17  AVA32P22  

Entry Points

Name Comments DBIA/ICR reference
SET ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"" S:'$D(^DIC(6,%,9999999)) ^DIC(6,%,9999999)="" S $P(^(9999999),U,9)=X,^DIC(6,"GIHS",X,%)=""
EOJ ;
UPDATEDD ;
KILL ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"",$D(^DIC(6,%,9999999)) S $P(^(9999999),U,9)="" K ^DIC(6,"GIHS",X,%)
OLDSET ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"" S:'$D(^DIC(6,%,9999999)) ^DIC(6,%,9999999)="" S $P(^(9999999),U,9)=X
OLDKILL ;;N % S %=$P(^DIC(3,DA,0),U,16) I %]"",$D(^DIC(6,%,9999999)) S $P(^(9999999),U,9)=""
XREF ;

External References

Name Field # of Occurrence
WAIT^DICD AVAP10+19
ENALL^DIK XREF+4
^DIR AVAP10+16
$$DT^XLFDT UPDATEDD+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This is Patch 10 to AVA 93.2."
  • Line Location: AVAP10+4
Function Call: WRITE
  • Prompt: !!,"A correction will be made to the File 200 dd, Field 9999999.09,"
  • Line Location: AVAP10+5
Function Call: WRITE
  • Prompt: !,"which does not correctly set the GIHS x-ref on File 6."
  • Line Location: AVAP10+6
Function Call: WRITE
  • Prompt: !!,"Then, the x-ref will be fired for all entries in File 200, which"
  • Line Location: AVAP10+7
Function Call: WRITE
  • Prompt: !,"will correctly set the GIHS x-ref on File 6."
  • Line Location: AVAP10+8
Function Call: WRITE
  • Prompt: !!,"Based on your ",$P(^VA(200,0),U,4)," entries in File 200,"
  • Line Location: AVAP10+9
Function Call: WRITE
  • Prompt: !,"this should take about ",$FN($P(^VA(200,0),U,4)/100/60,"",2)," minutes."
  • Line Location: AVAP10+10
Function Call: WRITE
  • Prompt: !!,"Re-running this patch causes no harm."
  • Line Location: AVAP10+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: AVAP10+12
Function Call: WRITE
  • Prompt: !,"Updating dd..."
  • Line Location: UPDATEDD+1
Function Call: WRITE
  • Prompt: !,"X-REF 'ACXIHS09' not found in File 200, Field 9999999.09.",!,"Abnormal end of Patch 10!"
  • Line Location: UPDATEDD+4
Function Call: WRITE
  • Prompt: !,"You don't have the standard SET of the ACXIHS09 x-ref.",!,"Ending Patch 10 without updating."
  • Line Location: UPDATEDD+6
Function Call: WRITE
  • Prompt: !,"You don't have the standard KILL of the ACXIHS09 x-ref.",!,"Ending Patch 10 without updating."
  • Line Location: UPDATEDD+8
Function Call: WRITE
  • Prompt: !,"Updating SET of x-ref 'ACXIHS09'..."
  • Line Location: UPDATEDD+10
Function Call: WRITE
  • Prompt: "Done updating SET."
  • Line Location: UPDATEDD+12
Function Call: WRITE
  • Prompt: !,"Updating KILL of x-ref 'ACXIHS09'..."
  • Line Location: UPDATEDD+14
Function Call: WRITE
  • Prompt: "Done updating KILL."
  • Line Location: UPDATEDD+16
Function Call: WRITE
  • Prompt: !,"dd update complete."
  • Line Location: UPDATEDD+21
Function Call: WRITE
  • Prompt: !!,"Beginning re-index of File 200, Field 9999999.09, x-ref 'ACXIHS09'..."
  • Line Location: XREF+1
Function Call: WRITE
  • Prompt: !,"Re-index complete."
  • Line Location: XREF+6
Function Call: WRITE
  • Prompt: !!,"Patch 10 to AVA 93.2 is complete.",!
  • Line Location: XREF+8
Routine Call
  • DIR
  • Line Location:
    • AVAP10+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(200 UPDATEDD+3, UPDATEDD+6, UPDATEDD+8, UPDATEDD+11*, UPDATEDD+15*, UPDATEDD+18*
^VA(200 - [#200] AVAP10+9, AVAP10+10

Label References

Name Line Occurrences
EOJ AVAP10+18, UPDATEDD+4, UPDATEDD+6, UPDATEDD+8
KILL UPDATEDD+15
OLDKILL UPDATEDD+8
OLDSET UPDATEDD+6
SET UPDATEDD+11

Naked Globals

Name Field # of Occurrence
^( UPDATEDD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % UPDATEDD+3*
DA UPDATEDD+2~, UPDATEDD+3*, UPDATEDD+4, UPDATEDD+6, UPDATEDD+8, UPDATEDD+11, UPDATEDD+15, UPDATEDD+19!, EOJ+1!
DIC EOJ+1!
DIE EOJ+1!
DIK XREF+2~, XREF+3*, XREF+5!
DIK(1 XREF+3*
DIR AVAP10+13~, AVAP10+17!, EOJ+1!
DIR("A" AVAP10+15*
DIR("B" AVAP10+14*
DIR(0 AVAP10+14*
DR EOJ+1!
U AVAP10+3*, AVAP10+9, AVAP10+10
X EOJ+1!
Y AVAP10+18, EOJ+1!

Marked Items

Name Field # of Occurrence
$T(KILL UPDATEDD+15
$T(OLDKILL UPDATEDD+8
$T(OLDSET UPDATEDD+6
$T(SET UPDATEDD+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All