Routine: ACHSVUR

Package	Total	Call Graph
Contract Health Management Information System	5	($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS (BRPT,SLV)^ACHSFU FC^ACHSUF ^ACHSVAR (MCDTST,MCRTST,PRVTST,RRETST)^ACHSVUR1
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	4	$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSVNDRUSAGE

Entry Points

Name	Comments	DBIA/ICR reference
A	;
C	;
TRANS	; Loop thru transactions, compile report data.
E	;
D	;
F	;
TRTYPE	; Loop thru transaction type.
DOCS	; Select type of docs to print.
K	; Kill vars, close device, quit.
H1	;EP - From HELP^ACHS() via ^DIR.
ENDPRNT	;
H2	;EP - From HELP^ACHS() via ^DIR.
DEV	; Select device for report.
BDT	; Enter beginning date.
B	;
KILL	; Kill vars, close device, quit.
EDT	; Enter the ending date.
PRINT	; Kill calc vars, print.
TRDT	; Loop thru transaction date x-ref.
CALC	;EP - TaskMan.
HDR	; Paginate.

External References

Name	Field # of Occurrence
COMMA^%DTC	F+2, ENDPRNT+4, ENDPRNT+7, ENDPRNT+10
^%ZIS	DEV+7
HOME^%ZIS	DEV+9
^%ZISC	K+2
^%ZTLOAD	DEV+15
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+2
$$PB^ACHS	DEV+2
ERPT^ACHS	KILL+3
RTRN^ACHS	B+3, D+21, ENDPRNT+1, ENDPRNT+12
BRPT^ACHSFU	PRINT+5
SLV^ACHSFU	DEV+7
FC^ACHSUF	CALC+1
^ACHSVAR	KILL+3
MCDTST^ACHSVUR1	D+11
MCRTST^ACHSVUR1	D+10
PRVTST^ACHSVUR1	D+9
RRETST^ACHSVUR1	D+12
$$DIR^XBDIR	DOCS+1, DOCS+3
$$C^XBFUNC	PRINT+3, PRINT+4
VIEWR^XBLM	DEV+4
EN^XBVK	DEV+4, KILL+3
$$FMTE^XLFDT	DEV+13, PRINT+4
$$REPEAT^XLFSTR	F+3, ENDPRNT+2, ENDPRNT+8, HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEV+9
Function Call: WRITE	Prompt: *7,!,"Please queue to printers only." Line Location: DEV+12
Function Call: WRITE	Prompt: ACHSVNDR Line Location: B+4
Function Call: WRITE	Prompt: ?37,$E($P(^(13),U,2),1,17) Line Location: B+6
Function Call: WRITE	Prompt: $S($X>38:", ",1:""),$P(^(0),U,2) Line Location: B+6
Function Call: WRITE	Prompt: !?3,ACHSDOC,?16,ACHSNAME,?49,ACHSTOS,?54,ACHSDOS Line Location: D+1
Function Call: WRITE	Prompt: ?78-$L(X),X Line Location: D+19
Function Call: WRITE	Prompt: "*" Line Location: D+20
Function Call: WRITE	Prompt: !?10,$$REPEAT^XLFSTR("-",55),!?10,"TOTALS DOCUMENTS:",$J(ACHSVDOC,5),?42,"DOLLARS:",X,!,$$REPEAT^XLFSTR("-",79),! Line Location: F+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),! Line Location: ENDPRNT+2
Function Call: WRITE	Prompt: "TOTAL PAID",?21,"DOCUMENTS:",$J(ACHSPD,5),?42,"DOLLARS:",X,! Line Location: ENDPRNT+5
Function Call: WRITE	Prompt: "TOTAL OUTSTANDING",?21,"DOCUMENTS:",$J(ACHSTOT-ACHSPD,5),?42,"DOLLARS:",X,!,$$REPEAT^XLFSTR("-",79),! Line Location: ENDPRNT+8
Function Call: WRITE	Prompt: "GRAND TOTALS",?21,"DOCUMENTS:",$J(ACHSTOT,5),?42,"DOLLARS:",X Line Location: ENDPRNT+11
Function Call: WRITE	Prompt: @IOF Line Location: ENDPRNT+13
Function Call: WRITE	Prompt: @IOF,!!?19,"* CONTRACT HEALTH MANAGEMENT SYSTEM *",!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHSLOC,!,ACHST1,!,ACHSTIME,!,ACHST2 Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"VENDOR",?70,"DOLLARS",!?3,"DOCUMENT # PATIENT NAME",?48,"TYPE DOS",?64,"INS (* = PAID)" Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+9
Routine Call	%ZIS Line Location: DEV+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	TRDT+1, TRTYPE+1, TRANS+1, TRANS+2, TRANS+5, TRANS+14, TRANS+16, TRANS+18, C+2, C+5 , D+4
^AUPNMCD("B"	D+5
^AUPNMCR - [#9000003]	D+5
^AUPNPRVT - [#9000006]	D+5
^AUPNRRE - [#9000005]	D+5
^AUTTVNDR - [#9999999.11]	TRANS+21, B+2, B+6
^DD(9002080.01	C+3
^DIC(5 - [#5]	B+6
^DPT - [#2]	TRANS+22, TRANS+23
^TMP("ACHSVUR"	CALC+4!, TRANS+23*, A+1, B+1, C+1, KILL+2!

Label References

Name	Line Occurrences
A	B+2
B	B+2, F+4
BDT	EDT+2
C	C+2, E+2
CALC	DEV+10
DEV	DEV+12, DEV+16
DOCS	DOCS+4
EDT	EDT+2, DOCS+2
ENDPRNT	A+2
F	C+1
HDR	PRINT+7, B+3, D+21, ENDPRNT+1
K	BDT+2, EDT+2, DOCS+2, DOCS+4, DEV+3, DEV+4, DEV+9, CALC+2
KILL	B+3, D+21, ENDPRNT+1
PRINT	TRDT+2
TRANS	TRANS+21, TRANS+22, TRANS+24
TRDT	TRTYPE+2, TRANS+2
TRTYPE	TRTYPE+2

Naked Globals

Name	Field # of Occurrence
^(	C+1
^(0	TRANS+5, TRANS+21, B+6, C+2
^(13	B+6
^(3	C+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DOCS+3, DOCS+5, DEV+2, DEV+3, DEV+4, DEV+14*
%ZIS	DEV+5!, DEV+6*, DEV+8!
>> ACHS("$"	TRANS+14, TRANS+16, TRANS+18, TRANS+23, C+1, D+17, D+20, E+1
ACHSBDT	BDT+1*, BDT+2, EDT+2, DEV+13, K+1!, CALC+3, PRINT+4
ACHSBLNK	TRANS+5, TRANS+21, TRANS+22, TRANS+23, PRINT+1!, D+4, D+9, D+10, D+11, D+12
>> ACHSBM	D+21
>> ACHSDOC	TRANS+23, B+7, C+1*, D+1
ACHSDOCN	TRANS+5*, TRANS+23, PRINT+1!
>> ACHSDOS	C+4, C+5, D+1
ACHSEDT	EDT+1*, EDT+2, DEV+13, K+1!, TRDT+2, PRINT+4
>> ACHSERR	CALC+2
>> ACHSFC	TRANS+23
ACHSFY	TRANS+5*, TRANS+23, PRINT+1!
ACHSHDR	PRINT+8!, B+3, B+5*
ACHSIO	ACHSVUR+8*, K+1!
>> ACHSLOC	HDR+2
>> ACHSNAME	C+1*, D+1
>> ACHSPD	PRINT+3, D+20, ENDPRNT+5, ENDPRNT+8
>> ACHSPD("$"	PRINT+3, D+20, ENDPRNT+3, ENDPRNT+6
>> ACHSPG	HDR+1*, HDR+2
>> ACHSPPC	KILL+1
>> ACHSPPO	PRINT+6
ACHSQIO	DEV+13*, K+1!
ACHSRPT	DOCS+1*, DEV+13, K+1!, TRANS+21, PRINT+3
ACHSSTAR	D+18!
ACHSSTS	TRANS+5*, TRANS+21, PRINT+1!
>> ACHST1	PRINT+3*, HDR+2
>> ACHST2	PRINT+4*, HDR+2
>> ACHSTIME	HDR+2
>> ACHSTOS	C+2, C+3, D+1
>> ACHSTOT	PRINT+3, E+1, ENDPRNT+8, ENDPRNT+11
>> ACHSTOT("$"	PRINT+3, E+1, ENDPRNT+6, ENDPRNT+9
ACHSTRDT	CALC+3, TRDT+1, TRDT+2, TRTYPE+1, TRANS+1, PRINT+1!
ACHSTYPE	TRDT+3, TRTYPE+1, TRTYPE+2, TRANS+1, PRINT+1!
>> ACHSUSR	HDR+2
>> ACHSVDOC	B+7, E+1, F+3
>> ACHSVDOC("$"	B+7, E+1, F+1
ACHSVND	DOCS+5*, DEV+13, K+1!, B+3, ENDPRNT+1
>> ACHSVNDR	TRANS+21, TRANS+23, PRINT+3, A+1*, A+2, B+1, B+4, C+1, D+21
>> ACHSVPTR	TRANS+5, TRANS+21, TRANS+23, A+3, B+1*, B+2, B+6, C+1
DA	TRTYPE+3, TRANS+1, TRANS+2, TRANS+5, TRANS+14, TRANS+16, TRANS+18, TRANS+23, C+1*, C+2 , C+5, D+4, KILL+2!
DFN	TRANS+5, TRANS+21, TRANS+22, TRANS+23, C+2, D+5, D+7, KILL+2!
DTOUT	BDT+2, EDT+2, DOCS+2, DOCS+4, DEV+3, K+1!, B+3, D+21, ENDPRNT+1
DUOUT	BDT+2, EDT+2, DOCS+2, DOCS+4, DEV+3, K+1!, B+3, D+21, ENDPRNT+1
DUZ(2	TRDT+1, TRTYPE+1, TRANS+1, TRANS+2, TRANS+5, TRANS+14, TRANS+16, TRANS+18, C+2, C+5 , D+4
>> INSTYP	D+5, D+7, D+9, D+10, D+11, D+12
IO	ACHSVUR+8
IO("Q"	DEV+10, DEV+11!
IO("S"	DEV+7, PRINT+6, ENDPRNT+12, KILL+1
IOF	ENDPRNT+13, HDR+2
IOM	DEV+13
ION	DEV+13
IOP	DEV+5!
IOSL	DEV+13
IOST	DEV+12, DEV+13
>> POP	DEV+9
U	DEV+3, TRANS+5, TRANS+18, TRANS+21, TRANS+23, B+6, C+1, C+2, C+3, C+5 , D+4
>> X	B+6, D+17, D+18, D+19, F+1, F+3, ENDPRNT+3, ENDPRNT+5, ENDPRNT+6, ENDPRNT+8 , ENDPRNT+9*, ENDPRNT+11
>> X2	F+1, ENDPRNT+3
>> X3	PRINT+4, F+1, ENDPRNT+3*
>> Y	C+4, C+5
>> ZTDESC	DEV+13*
>> ZTIO	DEV+13*
>> ZTQUEUED	KILL+3
>> ZTRTN	DEV+13*
>> ZTSAVE(	DEV+14*
ZTSK	DEV+16, K+1!, KILL+2!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVUR

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: