Routine: ACHSVUR2

Information

ACHSVUR2 ; IHS/OIT/FCJ - VENDOR USAGE REPORT FOR One Vendor; [ 10/31/2003 12:12 PM ]

Source Information

Call Graph

Call Graph Total: 16

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSVNDRUSAGE-SPECIFIC

Entry Points

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

External References

Name	Field # of Occurrence
COMMA^%DTC	F+2, ENDPRNT+3, ENDPRNT+7, ENDPRNT+11
NOW^%DTC	FILSAV+4
^%ZIS	DEV+7
HOME^%ZIS	DEV+9
^%ZISC	K+2
^%ZTLOAD	DEV+15
$$ASF^ACHS	FILSAV+6
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+2
$$PARM^ACHS	FILSAV+10
$$PB^ACHS	DEV+2
ERPT^ACHS	KILL+5
RTRN^ACHS	D+10, ENDPRNT+14
BRPT^ACHSFU	PRINT+6
SLV^ACHSFU	DEV+7
FC^ACHSUF	CALC+1
^ACHSVAR	KILL+5
^DIC	VEND+3
$$DIR^XBDIR	DOCS+1, FILE+1
$$C^XBFUNC	PRINT+3, PRINT+4, PRINT+5
VIEWR^XBLM	DEV+4
EN^XBVK	DEV+4, KILL+5
$$FMTE^XLFDT	DEV+13, PRINT+4
$$REPEAT^XLFSTR	F+3, ENDPRNT+1, ENDPRNT+8, HDR+5
^ZIBGSVEM	FILSAV+13

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: !?3,ACHSDOC,?16,$E(ACHSNAME,1,25),?42,ACHSHRN,?53,ACHSTOS,?58,ACHSDOS Line Location: D+1
Function Call: WRITE	Prompt: !,?3,ACHSCLRK,?16,$E(ACHSSSN,6,9),?52,ACHSSC Line Location: D+2
Function Call: WRITE	Prompt: ?78-$L(X),X Line Location: D+8
Function Call: WRITE	Prompt: "*" Line Location: D+9
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+1
Function Call: WRITE	Prompt: "TOTAL PAID",?21,"DOCUMENTS:",$J(ACHSPD,5),?42,"DOLLARS:",X,! Line Location: ENDPRNT+4
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+12
Function Call: WRITE	Prompt: @IOF Line Location: ENDPRNT+15
Function Call: WRITE	Prompt: @IOF,!!?19,"* CONTRACT HEALTH MANAGEMENT SYSTEM *",!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHSLOC,!,ACHST1,!,ACHSV,!,ACHSTIME,!,ACHST2 Line Location: HDR+2
Function Call: WRITE	Prompt: !!?3,"DOCUMENT # PATIENT NAME",?43,"HRN",?52,"TYPE DOS",?70,"DOLLARS" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?3,"STAFF",?17,"LAST 4SSN",?53,"OC",?69,"(* = PAID)" Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+5
Routine Call	%ZIS Line Location: DEV+9
Routine Call	DIC Line Location: VEND+3
Routine Call	%ZIS Line Location: DEV+7

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(3 - [#9002063]	TRANS+23
^ACHSF - [#9002080]	TRDT+1, TRTYPE+1, TRANS+3, TRANS+4, TRANS+5, TRANS+13, TRANS+14, TRANS+15, TRANS+22, TRANS+24 , C+2, C+5, D+4
^AUPNPAT - [#9000001]	TRANS+20
^AUTTSITE(1	FILSAV+11
^AUTTVNDR - [#9999999.11]	VEND+7, TRANS+17, B+2
^DD(9002080.01	C+3
^DPT - [#2]	TRANS+18, TRANS+20, TRANS+29
^TMP("ACHSVUR2"	ACHSVUR2+7!, KILL+4!, TRANS+29*, A+1, B+1, C+1
^TMP($J	ACHSVUR2+7!, KILL+3!, CALC+4!, E+2, ENDPRNT+5, ENDPRNT+9, ENDPRNT+13, HDR+7, HDR+8, HDR+9* , HDR+10, HDR+11, HDR+12, HDR+13
^VA(200 - [#200]	TRANS+25

Label References

Name	Line Occurrences
A	B+2
B	B+2, F+4
BDT	EDT+2
C	C+2, E+3
CALC	DEV+10
DEV	DEV+12, DEV+16
DOCS	DOCS+3, VEND+5
EDT	EDT+2, DOCS+2
ENDPRNT	A+2
F	C+1
FILSAV	KILL+1
HDR	PRINT+8, D+10
K	BDT+2, EDT+2, DOCS+2, DOCS+3, FILE+2, DEV+3, DEV+9, CALC+2
KILL	DEV+4, DEV+10, D+10
PRINT	TRDT+2
TRANS	TRANS+7, TRANS+17, TRANS+18, TRANS+30
TRDT	TRTYPE+2, TRANS+4
TRTYPE	TRTYPE+2
VEND	FILE+2

Name	Field # of Occurrence
^(	C+1
^(0	TRANS+5, TRANS+17, C+2
^(3	C+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FILE+1, FILE+3, DEV+2, DEV+3, DEV+4, DEV+14*, FILSAV+4
>> %I(3	FILSAV+4
%ZIS	DEV+5!, DEV+6*, DEV+8!
>> ACHS("$"	TRANS+13, TRANS+14, TRANS+15, TRANS+29, C+1, D+6, D+9, E+1
ACHSAMT	K+1!, C+4, D+8, D+9*, E+2
ACHSBDT	BDT+1*, BDT+2, EDT+2, DEV+13, K+1!, CALC+3, PRINT+4
ACHSBLNK	TRANS+1, TRANS+5, TRANS+17, TRANS+18, TRANS+29, PRINT+1!, D+4*
>> ACHSBM	D+10
>> ACHSCLRK	TRANS+1, TRANS+24, TRANS+25, TRANS+29, C+1, D+2, E+2
ACHSDOB	K+1!
>> ACHSDOC	TRANS+1, TRANS+28, TRANS+29, B+4, C+1, D+1, E+2
ACHSDOCN	TRANS+1, TRANS+5, TRANS+28, PRINT+1!
>> ACHSDOS	C+4, C+5, D+1, E+2
ACHSEDT	EDT+1*, EDT+2, DEV+13, K+1!, TRDT+2, PRINT+4
>> ACHSERR	CALC+2
>> ACHSFC	TRANS+28
>> ACHSFIL	FILE+3*, KILL+1, E+2, ENDPRNT+5, ENDPRNT+9, ENDPRNT+13, HDR+6
ACHSFY	TRANS+1, TRANS+5, TRANS+28, PRINT+1!
ACHSHDR	PRINT+9!, B+3*
ACHSHRN	K+1!, TRANS+20, TRANS+29, C+1, D+1, E+2
ACHSIO	ACHSVUR2+6*, K+1!
>> ACHSLOC	HDR+2, HDR+8
>> ACHSNAME	C+1*, D+1, E+2
>> ACHSPD	PRINT+3, D+9, ENDPRNT+4, ENDPRNT+5, ENDPRNT+8, ENDPRNT+9
>> ACHSPD("$"	PRINT+3, D+9, ENDPRNT+2, ENDPRNT+6
>> ACHSPG	HDR+1*, HDR+2
>> ACHSPPC	KILL+2
>> ACHSPPO	PRINT+7
ACHSQIO	DEV+13*, K+1!
ACHSRPT	DOCS+1*, DEV+13, K+1!, TRANS+17, PRINT+3
>> ACHSSC	TRANS+1, TRANS+23, TRANS+29, C+1*, D+2, E+2
>> ACHSSCPT	TRANS+1, TRANS+22, TRANS+23
>> ACHSSSN	TRANS+20, TRANS+29, C+1, D+2, E+2
ACHSSTAR	D+7!
ACHSSTS	TRANS+1, TRANS+5, TRANS+17, PRINT+1!
>> ACHST1	PRINT+3*, HDR+2
>> ACHST2	PRINT+4*, HDR+2, HDR+12
>> ACHSTIME	HDR+2, HDR+11
>> ACHSTOS	C+2, C+3, D+1, E+2
>> ACHSTOT	PRINT+3, E+1, ENDPRNT+8, ENDPRNT+9, ENDPRNT+12, ENDPRNT+13
>> ACHSTOT("$"	PRINT+3, E+1, ENDPRNT+6, ENDPRNT+10
ACHSTRDT	CALC+3, TRDT+1, TRDT+2, TRTYPE+1, TRANS+3, PRINT+1!
ACHSTYPE	TRDT+3, TRTYPE+1, TRTYPE+2, TRANS+3, PRINT+1!
>> ACHSUSR	HDR+2
>> ACHSV	PRINT+5*, HDR+2, HDR+10
>> ACHSVDOC	B+4, E+1, E+2, F+3
>> ACHSVDOC("$"	B+4, E+1, F+1
ACHSVIEN	VEND+6*, VEND+7, K+1!, TRANS+7
ACHSVNAM	VEND+7*, K+1!, PRINT+5, FILSAV+7
>> ACHSVNDR	TRANS+17, TRANS+29, PRINT+3, A+1*, A+2, B+1, C+1, D+10
>> ACHSVPTR	TRANS+1, TRANS+5, TRANS+7, TRANS+17, TRANS+29, A+3, B+1, B+2, C+1
DA	KILL+3!, TRTYPE+3, TRANS+3, TRANS+4, TRANS+5, TRANS+13, TRANS+14, TRANS+15, TRANS+22, TRANS+24 , TRANS+29, C+1*, C+2, C+5, D+4
DFN	KILL+3!, TRANS+1, TRANS+5, TRANS+17, TRANS+18, TRANS+20, TRANS+29, C+2*
DIC	VEND+1*, VEND+4!
DIC("A"	VEND+1*
DIC(0	VEND+1*, VEND+2
DLAYGO	VEND+2*, VEND+4!
DT	FILSAV+3
DTOUT	BDT+2, EDT+2, DOCS+2, DOCS+3, FILE+2, DEV+3, K+1!, D+10
DUOUT	BDT+2, EDT+2, DOCS+2, DOCS+3, FILE+2, DEV+3, K+1!, D+10
DUZ(2	TRDT+1, TRTYPE+1, TRANS+3, TRANS+4, TRANS+5, TRANS+13, TRANS+14, TRANS+15, TRANS+20, TRANS+22 , TRANS+23, TRANS+24, C+2, C+5, D+4, FILSAV+6
IO	ACHSVUR2+6
IO("Q"	DEV+10, DEV+11!
IO("S"	DEV+7, KILL+2, PRINT+7, ENDPRNT+14
IOF	ENDPRNT+15, HDR+2
IOM	DEV+13
ION	DEV+13
IOP	DEV+5!
IOSL	DEV+13
IOST	DEV+12, DEV+13
>> POP	DEV+9
U	VEND+7, DEV+3, TRANS+5, TRANS+15, TRANS+17, TRANS+22, TRANS+24, TRANS+29, C+1, C+2 , C+3, C+5, D+4, FILSAV+11
>> X	D+6, D+7, D+8, F+1, F+3, ENDPRNT+2, ENDPRNT+4, ENDPRNT+5, ENDPRNT+6, ENDPRNT+8 , ENDPRNT+9, ENDPRNT+10, ENDPRNT+12, ENDPRNT+13, FILSAV+3, FILSAV+4, FILSAV+5*, FILSAV+7
>> X1	FILSAV+6*, FILSAV+7
>> X2	F+1, ENDPRNT+2
>> X3	PRINT+4, F+1, ENDPRNT+2*
XBE	FILSAV+2~, FILSAV+6*
XBF	FILSAV+2~, FILSAV+13*
XBFLT	FILSAV+2~, FILSAV+8*
XBFN	FILSAV+2~, FILSAV+7*
XBGL	FILSAV+2~, FILSAV+13*
XBIO	FILSAV+2~, FILSAV+13*
XBJ	FILSAV+2~
XBMED	FILSAV+2~, FILSAV+8*
XBQ	FILSAV+2~, FILSAV+9*
XBS1	FILSAV+2~, FILSAV+12*
XBUF	FILSAV+2~, FILSAV+10, FILSAV+11
>> Y	VEND+5, VEND+6, C+4, C+5
>> ZTDESC	DEV+13*
>> ZTIO	DEV+13*
>> ZTQUEUED	KILL+5
>> ZTRTN	DEV+13*
>> ZTSAVE(	DEV+14*
ZTSK	DEV+16, KILL+3!, K+1!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVUR2

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: