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

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

>>	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!

Name	Field # of Occurrence
$T(KILL	UPDATEDD+15
$T(OLDKILL	UPDATEDD+8
$T(OLDSET	UPDATEDD+6
$T(SET	UPDATEDD+11

Customize PDF page

Package: IHS VA Support Files

Routine: AVAP10

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

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