Routine: ACHSOCVD

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	Caller Graph
Contract Health Management Information System	1	ACHSOCV2

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
P3	;
SUBTOTL	;
END	;Close device, kill variables, quit
P4	;
VNDRTOT	;
GETADD	;Vendor address
GETPAT	;
TOTL	;
HEADER	;Prints heading
GETHRN	;
HEADER1	;Prints Object Class Code/Vendor Data
PRINT	;Prints data totals
NODATA	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ACHSDOC,?17,$E(ACHSPAT,1,25),?45,$J(ACHSHRN,6) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?54,X Line Location: PRINT+4
Function Call: WRITE	Prompt: ?68,X Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",?25,$J(ACHSDOCS,4) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: ?54,X Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: ?68,X Line Location: SUBTOTL+7
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED" Line Location: SUBTOTL+9
Function Call: WRITE	Prompt: ?67,$E(X,1,5)_"%" Line Location: SUBTOTL+9
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("=",80),!,"VENDOR TOTALS",?25,$J(ACHSVDCT,4) Line Location: VNDRTOT+1
Function Call: WRITE	Prompt: ?54,X Line Location: VNDRTOT+4
Function Call: WRITE	Prompt: ?68,X Line Location: VNDRTOT+7
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED" Line Location: VNDRTOT+8
Function Call: WRITE	Prompt: ?67,$E(X,1,5)_"%" Line Location: VNDRTOT+8
Function Call: WRITE	Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!,"TOTAL",?25,$J(ACHSDOCT,4) Line Location: TOTL+1
Function Call: WRITE	Prompt: ?56,X Line Location: TOTL+4
Function Call: WRITE	Prompt: ?68,X Line Location: TOTL+7
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED" Line Location: TOTL+8
Function Call: WRITE	Prompt: ?67,$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: !!?5,"Object Class Code: ",ACHSOCD,!?16,"Vendor: ",ACHSVNDR,!?24,ACHSVADD,!?24,ACHSVCIT," ",?34,ACHSVST," ",?45,ACHSZIP,!!?1,"# DOCS #",?17,"PATIENT NAME",?44,"# CHART #",?56,"$ OBLIG $",?68,"$ PAYMENT $",! Line Location: HEADER1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(3 - [#9002063]	P3+4
^AUTTVNDR - [#9999999.11]	GETADD+1
^DIC(5 - [#5]	GETADD+2
^DPT - [#2]	GETPAT+1
^TMP("ACHSOCV"	ACHSOCVD+5, P2+1, P3+1, P4+1, GETADD+1, GETADD+4, END+3!, NODATA+4!

Label References

Name	Line Occurrences
END	PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+5
HEADER	P3+3, PRINT+9, PRINT+10, NODATA+1
HEADER1	GETADD+3, PRINT+9, PRINT+10
NODATA	ACHSOCVD+5
P2	VNDRTOT+11
P3	SUBTOTL+13
P4	PRINT+11
SUBTOTL	P4+2
TOTL	P2+2
VNDRTOT	P3+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	GETHRN+1*
>> ACHSDAT	HEADER+4*, HEADER+5
>> ACHSDOC	ACHSOCVD+6, P3+5, P4+1*, P4+2, GETADD+1, GETADD+4, PRINT+1
>> ACHSDOCS	ACHSOCVD+6, PRINT+8, SUBTOTL+1, SUBTOTL+8, SUBTOTL+10, SUBTOTL+12*
>> ACHSDOCT	ACHSOCVD+6, SUBTOTL+8, TOTL+1
>> ACHSFAC	ACHSOCVD+4*, ACHSOCVD+5, P2+1, P3+1, P3+4, P4+1, GETADD+1, GETADD+4, NODATA+4
>> ACHSFLG	ACHSOCVD+6, GETADD+3, PRINT+8, PRINT+9, PRINT+10, SUBTOTL+12, VNDRTOT+10
>> ACHSFY	HEADER+12
>> ACHSHRN	GETHRN+1*, PRINT+1
>> ACHSOB	ACHSOCVD+6, GETHRN+1, PRINT+2, PRINT+8
>> ACHSOBST	ACHSOCVD+6, PRINT+8, SUBTOTL+2, SUBTOTL+8, SUBTOTL+9, SUBTOTL+10, SUBTOTL+12*
>> ACHSOBT	ACHSOCVD+6, SUBTOTL+8, TOTL+2, TOTL+8
>> ACHSOC	P2+3, P3+1, P3+2, P3+4, P4+1, GETADD+1, GETADD+4
>> ACHSOCD	P3+4*, HEADER1+1
>> ACHSPAGE	ACHSOCVD+4, ACHSOCVD+6, VNDRTOT+10, HEADER+3, HEADER+10
>> ACHSPAT	GETPAT+1*, PRINT+1
>> ACHSPMST	ACHSOCVD+6, PRINT+8, SUBTOTL+5, SUBTOTL+8, SUBTOTL+9, SUBTOTL+10, SUBTOTL+12*
>> ACHSPMT	GETHRN+1*, PRINT+5, PRINT+8
>> ACHSPMTT	ACHSOCVD+6, SUBTOTL+8, TOTL+5, TOTL+8
>> ACHSTIM	HEADER+4*, HEADER+8
>> ACHSUSR	HEADER+8
>> ACHSVADD	GETADD+2*, HEADER1+1
>> ACHSVCIT	GETADD+2*, HEADER1+1
>> ACHSVDCT	ACHSOCVD+6, SUBTOTL+10, VNDRTOT+1, VNDRTOT+10*
>> ACHSVEN	GETADD+1*
>> ACHSVNDR	ACHSOCVD+7, P2+1, P2+2, P3+1, P4+1, GETADD+1, GETADD+4, HEADER1+1
>> ACHSVOBT	ACHSOCVD+6, SUBTOTL+10, VNDRTOT+2, VNDRTOT+8, VNDRTOT+10*
>> ACHSVPMT	ACHSOCVD+6, SUBTOTL+10, VNDRTOT+5, VNDRTOT+8, VNDRTOT+10*
>> ACHSVST	GETADD+2*, HEADER1+1
>> ACHSZIP	GETADD+2*, HEADER1+1
>> C	ACHSOCVD+6, PRINT+8, SUBTOTL+12*
DUZ(2	ACHSOCVD+4
I	END+3!
IO	HEADER+1, HEADER+8
IO("S"	PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+3
IOF	HEADER+2
IOST	PRINT+9, PRINT+10, SUBTOTL+11, VNDRTOT+9, TOTL+9, NODATA+3
P	GETPAT+1*, END+3!
U	P3+4, GETADD+1, GETADD+2, GETPAT+1, GETHRN+1
X	GETADD+4, GETPAT+1, GETHRN+1, PRINT+2, PRINT+4, PRINT+5, PRINT+7, SUBTOTL+2, SUBTOTL+4, SUBTOTL+5* , SUBTOTL+7, SUBTOTL+9, VNDRTOT+2, VNDRTOT+4, VNDRTOT+5, VNDRTOT+7, VNDRTOT+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, VNDRTOT+2, VNDRTOT+5, TOTL+2, TOTL+5, END+3!
Y	END+3!, HEADER+4*
Z	GETADD+1*, GETADD+2, END+3!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSOCVD

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

Local Variables

Legend: