Routine: ACHSRGPR

Information

ACHSRGPR ;IHS/OIT/FCJ - GPRA REPORT DOS VS DATE PO ISS

Source Information

Call Graph

Call Graph Total: 14

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSRPT GPRA

Entry Points

Name	Comments	DBIA/ICR reference
DOSDT	;FIND THE DOS TO USE
HDR	; Paginate.
FY	; Select FY.
SUM	;SUMMARY REPORT
DET	;DETAILED REPORT
DEV	; Select device for report.
ST	;
BDT	; Enter beginning date.
EXT	; Kill vars, close device, quit.
EDT	; Enter the ending date.
PRINT	;
DOS	; REPORT BY DOS WITHIN FY OR FY ; Enter FY or DOS
TRDT	; Loop thru transaction date x-ref.
CALC	;EP - TaskMan.
TYPE	; TYPE OF REPORT SUMARRY OR DETAILED ; Enter Summary or Detail
FYDT	;BEG AND END DATES FOR THE FY, DOS >ACHSBFY OR <ACHSEFY

External References

Name	Field # of Occurrence
^%DTC	TRDT+14
^%ZIS	DEV+7
HOME^%ZIS	DEV+9
^%ZISC	EXT+2
^%ZTLOAD	DEV+15
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+2
$$FYSEL^ACHS	FY+1
$$PB^ACHS	DEV+2
RTRN^ACHS	DET+4
BRPT^ACHSFU	PRINT+3
SLV^ACHSFU	DEV+7
FC^ACHSUF	CALC+1
^ACHSVAR	EXT+3
^DIR	DOS+5, TYPE+4
$$C^XBFUNC	PRINT+1, PRINT+2
VIEWR^XBLM	DEV+4
EN^XBVK	DEV+4, EXT+3
$$FMTE^XLFDT	DEV+13, PRINT+2
$$REPEAT^XLFSTR	HDR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is a GPRA report to calculate the days between the Date of Service" Line Location: ST+2
Function Call: WRITE	Prompt: !,"and when the Purchase Order was issued. Date of Service is the estimated" Line Location: ST+3
Function Call: WRITE	Prompt: !,"End Date of Service, even if the document has been paid." Line Location: ST+4
Function Call: WRITE	Prompt: !!,"The Purchase Order will either be selected by Fiscal Year or the Date of" Line Location: ST+5
Function Call: WRITE	Prompt: !,"Service to fall within the Fiscal year Beginning and Ending date." Line Location: ST+6
Function Call: WRITE	Prompt: !!,"The report is selected and sorted by issue date." Line Location: ST+7
Function Call: WRITE	Prompt: !!,*7,"Fiscal year '",ACHSACFY,"' does not exist. -- TRY AGAIN" Line Location: FY+3
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: !!,"TOTAL Documents: ",$J(^TMP("ACHSRGPR",$J,"TOTDOC"),10) Line Location: SUM+2
Function Call: WRITE	Prompt: !,"TOTAL Days: ",?18,$J(^TMP("ACHSRGPR",$J,"TOTDAY"),10) Line Location: SUM+3
Function Call: WRITE	Prompt: !,"Average Days: ",?18,$J(ACHSAVG,10,2),! Line Location: SUM+6
Function Call: WRITE	Prompt: !!,"TOTAL Documents Prior or = to DOS: ",?37,$J(^TMP("ACHSRGPR",$J,"TOTPDOC"),10) Line Location: SUM+7
Function Call: WRITE	Prompt: !,"TOTAL Days for Prior or = to DOS: ",?37,$J(^TMP("ACHSRGPR",$J,"TOTPDAY"),10) Line Location: SUM+8
Function Call: WRITE	Prompt: !,"Average Days Prior or = to DOS: ",?37,$J(ACHSAVG,10,2),! Line Location: SUM+11
Function Call: WRITE	Prompt: !!,"TOTAL Documents After DOS: ",?28,$J(^TMP("ACHSRGPR",$J,"TOTADOC"),10) Line Location: SUM+12
Function Call: WRITE	Prompt: !,"TOTAL Days After DOS: ",?28,$J(^TMP("ACHSRGPR",$J,"TOTADAY"),10) Line Location: SUM+13
Function Call: WRITE	Prompt: !,"Average Days After DOS: ",?28,$J(ACHSAVG,10,2),! Line Location: SUM+16
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: !,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+6
Routine Call	%ZIS Line Location: DEV+9
Routine Call	DIR Line Location: DOS+5 TYPE+4
Routine Call	%ZIS Line Location: DEV+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	FY+3
^ACHSF - [#9002080]	FYDT+1, FYDT+2, TRDT+1, TRDT+4, TRDT+7, TRDT+8, TRDT+9, TRDT+10, DOSDT+3, DOSDT+4 , DOSDT+5
^TMP("ACHSRGPR"	CALC+4!, CALC+5, CALC+6, TRDT+18, TRDT+19, TRDT+20, TRDT+21, TRDT+22, TRDT+23, TRDT+24* , EXT+4!, DET+2, DET+3, SUM+2, SUM+3, SUM+5, SUM+7, SUM+8, SUM+10, SUM+12 , SUM+13, SUM+15

Name	Line Occurrences
BDT	EDT+2
CALC	DEV+10
DET	PRINT+5
DEV	DEV+12, DEV+16
DOSDT	TRDT+11
EDT	EDT+2
EXT	FY+2, BDT+2, EDT+2, DOS+6, TYPE+5, DEV+3, DEV+4, DEV+9, CALC+2, PRINT+7
FY	FY+3
HDR	PRINT+5, PRINT+6, DET+4
PRINT	TRDT+25
SUM	PRINT+6

Name	Field # of Occurrence
^(	DET+3
^("TOTADOC"	TRDT+21*
^("TOTPDOC"	TRDT+22*
^(0	TRDT+10, DOSDT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+2, DEV+3, DEV+4, DEV+14
%ZIS	DEV+5!, DEV+6*, DEV+8!
>> ACHSACFY	FY+1*, FY+3, FYDT+1, FYDT+2, TRDT+9, TRDT+18
>> ACHSAVG	SUM+4, SUM+5, SUM+6, SUM+9, SUM+10, SUM+11, SUM+14, SUM+15, SUM+16
>> ACHSBDT	BDT+1*, BDT+2, EDT+2, DEV+13, CALC+3, PRINT+2
>> ACHSBFY	FYDT+1, FYDT+2, TRDT+13
>> ACHSBM	DET+4
>> ACHSDOCN	TRDT+10, TRDT+18, TRDT+19, TRDT+20, DET+1, DET+2*, DET+3
>> ACHSEDOS	TRDT+13, TRDT+16, TRDT+18, DOSDT+4, DOSDT+5*
>> ACHSEDT	EDT+1*, EDT+2, DEV+13, TRDT+1, PRINT+2
>> ACHSEFY	FYDT+1, FYDT+2, TRDT+13
>> ACHSERR	CALC+2
>> ACHSFC	TRDT+18
>> ACHSIO	ST+1*
>> ACHSLOC	HDR+2
>> ACHSORDT	TRDT+10, TRDT+15, TRDT+18
>> ACHSPG	HDR+1*, HDR+2
>> ACHSPPC	EXT+1
>> ACHSPPO	PRINT+4
>> ACHSQIO	DEV+13*
>> ACHSRPT	DEV+13
>> ACHSRTYD	DOS+2, DOS+7, TRDT+9, TRDT+13
>> ACHSRTYP	TYPE+6, TRDT+17, PRINT+5, PRINT+6, HDR+3
>> ACHST1	PRINT+1*, HDR+2
>> ACHST2	PRINT+2*, HDR+2
>> ACHSTIME	HDR+2
>> ACHSTRDT	CALC+3, TRDT+1, TRDT+4, TRDT+7
>> ACHSTYPE	TRDT+3, TRDT+4, TRDT+5, TRDT+7
>> ACHSUSR	HDR+2
>> ACHSVNDR	PRINT+1*
>> DA	TRDT+6, TRDT+7, TRDT+8, TRDT+9, TRDT+10, DOSDT+3, DOSDT+4, DOSDT+5
>> DIR("?"	DOS+4, TYPE+3
>> DIR("A"	DOS+3, TYPE+2
>> DIR("B"	DOS+3, TYPE+2
>> DIR(0	DOS+3, TYPE+2
>> DIROUT	DOS+6, TYPE+5
DTOUT	FY+2, BDT+2, EDT+2, DOS+6, TYPE+5, DEV+3, EXT+5!, DET+2, DET+4
DUOUT	FY+2, BDT+2, EDT+2, DOS+6, TYPE+5, DEV+3, EXT+5!, DET+2, DET+4
DUZ(2	FY+3, FYDT+1, FYDT+2, TRDT+1, TRDT+4, TRDT+7, TRDT+8, TRDT+9, TRDT+10, DOSDT+3 , DOSDT+4, DOSDT+5
IO	ST+1
IO("Q"	DEV+10, DEV+11!
IO("S"	DEV+7, EXT+1, PRINT+4
IOF	HDR+2
IOM	DEV+13
ION	DEV+13
IOP	DEV+5!
IOSL	DEV+13
IOST	DEV+12, DEV+13
>> POP	DEV+9
>> T	DOSDT+4*
U	FYDT+1, FYDT+2, DEV+3, TRDT+8, TRDT+9, TRDT+10, TRDT+18, TRDT+19, TRDT+20, DOSDT+3 , DOSDT+4, DOSDT+5, DET+3
>> X	TRDT+19, TRDT+20, TRDT+21, TRDT+22, TRDT+24
>> X1	TRDT+10*
>> X2	DOSDT+2, DOSDT+4, DOSDT+5*
>> X3	PRINT+2*
>> Y	DOS+7, TYPE+6
>> ZTDESC	DEV+13*
>> ZTIO	DEV+13*
>> ZTQUEUED	EXT+3
>> ZTRTN	DEV+13*
>> ZTSAVE(	DEV+14*
ZTSK	DEV+16, EXT+5!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRGPR

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: