Routine: ACHSOCVS

Package	Total	Call Graph
Contract Health Management Information System	3	$$LOC^ACHS BRPT^ACHSFU ^ACHSVAR
Kernel	3	^%ZISC $$HTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	2	$$DIR^XBDIR EN^XBVK
VA Fileman	1	COMMA^%DTC

Package

Total

Call Graph

Contract Health Management Information System

$$LOC^ACHS BRPT^ACHSFU ^ACHSVAR

Kernel

^%ZISC $$HTE^XLFDT $$REPEAT^XLFSTR

IHS VA Utilities

$$DIR^XBDIR EN^XBVK

VA Fileman

COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSOCV1

Package

Total

Caller Graph

Contract Health Management Information System

ACHSOCV1

Name	Comments	DBIA/ICR reference
P2	;
SUBTOTL	;
P1	;
END	;
TOTL	;
HEADER	;Prints heading
HEADER1	;Prints Vendor
PRINT	;Prints data totals
NODATA	;

External References

Name	Field # of Occurrence
COMMA^%DTC	PRINT+3, PRINT+6, SUBTOTL+3, SUBTOTL+6, TOTL+3, TOTL+6
^%ZISC	END+2
$$LOC^ACHS	HEADER+6
BRPT^ACHSFU	ACHSOCVS+3
^ACHSVAR	END+2
$$DIR^XBDIR	PRINT+9, SUBTOTL+10, TOTL+9, NODATA+3
EN^XBVK	END+2
$$HTE^XLFDT	HEADER+4
$$REPEAT^XLFSTR	SUBTOTL+1, TOTL+1, HEADER+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,ACHSOCD,?39,$J(ACHSDOCS,4) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?50,X Line Location: PRINT+4
Function Call: WRITE	Prompt: ?66,X Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!?3,"SUBTOTAL",?39,$J(ACHSDOCT,4) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: ?50,X Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: ?66,X Line Location: SUBTOTL+7
Function Call: WRITE	Prompt: !!?3,"PERCENTAGE OF PAYMENT TO OBLIGATED" Line Location: SUBTOTL+8
Function Call: WRITE	Prompt: ?63,$E(X,1,5)_"%" Line Location: SUBTOTL+8
Function Call: WRITE	Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!?3,"TOTAL",?39,$J(ACHSDGT,4) Line Location: TOTL+1
Function Call: WRITE	Prompt: ?50,X Line Location: TOTL+4
Function Call: WRITE	Prompt: ?66,X Line Location: TOTL+7
Function Call: WRITE	Prompt: !!?3,"PERCENTAGE OF PAYMENT TO OBLIGATED" Line Location: TOTL+8
Function Call: WRITE	Prompt: ?63,$E(X,1,5)_"%" Line Location: TOTL+8
Function Call: WRITE	Prompt: !!!,"NO DATA FOR SPECIFIED FISCAL YEAR",!!!! Line Location: NODATA+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"*",ACHSDAT Line Location: HEADER+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+7
Function Call: WRITE	Prompt: ?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*" Line Location: HEADER+8
Function Call: WRITE	Prompt: !!?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: HEADER+10
Function Call: WRITE	Prompt: !?((80/2)-($L(X)/2)),X_ACHSFY,!,$$REPEAT^XLFSTR("*",80) Line Location: HEADER+12
Function Call: WRITE	Prompt: !?4,"Vendor: ",ACHSVNDR,!!?3,"# CODE #",?39,"# DOCS #",?52,"$ OBLIG $",?66,"$ PAYMENT $",! Line Location: HEADER1+1

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(3 - [#9002063]	P2+5
^TMP("ACHSOCV"	ACHSOCVS+6, P1+1, P2+1, P2+4, END+3!, NODATA+4!

Name	Line Occurrences
END	PRINT+9, SUBTOTL+10, TOTL+9, NODATA+3, NODATA+5
HEADER	P1+3, PRINT+8, PRINT+9, NODATA+1
HEADER1	P1+3, PRINT+8, PRINT+9
NODATA	ACHSOCVS+6
P1	SUBTOTL+12
P2	PRINT+12
SUBTOTL	P2+2
TOTL	P1+2

Name	Field # of Occurrence
^(	P2+4
^(0	P2+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHSDAT	HEADER+4*, HEADER+5
>> ACHSDGT	ACHSOCVS+5, SUBTOTL+9, TOTL+1
>> ACHSDOC	ACHSOCVS+5, P2+3
>> ACHSDOCS	ACHSOCVS+5, P2+4, PRINT+1, PRINT+10, PRINT+11*
>> ACHSDOCT	ACHSOCVS+5, PRINT+10, SUBTOTL+1, SUBTOTL+9, SUBTOTL+11*
>> ACHSFAC	ACHSOCVS+4*, ACHSOCVS+6, P1+1, P2+1, P2+4, P2+5, NODATA+4
>> ACHSFY	HEADER+12
>> ACHSOB	ACHSOCVS+5*
>> ACHSOBGT	ACHSOCVS+5, SUBTOTL+9, TOTL+2, TOTL+8
>> ACHSOBST	ACHSOCVS+5, P2+4, PRINT+2, PRINT+10, PRINT+11*
>> ACHSOBT	ACHSOCVS+5, PRINT+10, SUBTOTL+2, SUBTOTL+8, SUBTOTL+9, SUBTOTL+11*
>> ACHSOC	P1+4, P2+1, P2+2, P2+4, P2+5
>> ACHSOCD	P2+5*, PRINT+1
>> ACHSPAGE	ACHSOCVS+5, SUBTOTL+11, HEADER+3*, HEADER+10
>> ACHSPMGT	ACHSOCVS+5, SUBTOTL+9, TOTL+5, TOTL+8
>> ACHSPMST	ACHSOCVS+5, P2+4, PRINT+5, PRINT+10, PRINT+11*
>> ACHSPMTT	ACHSOCVS+5, PRINT+10, SUBTOTL+5, SUBTOTL+8, SUBTOTL+9, SUBTOTL+11*
>> ACHSTIM	HEADER+4*, HEADER+8
>> ACHSUSR	HEADER+8
>> ACHSVNDR	ACHSOCVS+7, P1+1, P1+2, P2+1, P2+4, HEADER1+1
C	ACHSOCVS+5, ACHSOCVS+6, PRINT+11, SUBTOTL+11, END+3!
DIR	END+3!
DUZ(2	ACHSOCVS+4
I	END+3!
IO	HEADER+1, HEADER+8
IO("S"	PRINT+9, SUBTOTL+10, TOTL+9, NODATA+3
IOF	HEADER+2
IOST	PRINT+8, PRINT+9, SUBTOTL+10, TOTL+9, NODATA+3
U	P2+4, P2+5
X	PRINT+2, PRINT+4, PRINT+5, PRINT+7, SUBTOTL+2, SUBTOTL+4, SUBTOTL+5, SUBTOTL+7, SUBTOTL+8, TOTL+2 , TOTL+4, TOTL+5, TOTL+7, TOTL+8, END+3!, HEADER+6, HEADER+7, HEADER+9, HEADER+10, HEADER+11* , HEADER+12
X2	PRINT+2, PRINT+5, SUBTOTL+2, SUBTOTL+5, TOTL+2, TOTL+5, END+3!
Y	END+3!, HEADER+4*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSOCVS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: