Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSRGPR

Package: Contract Health Management Information System

Routine: ACHSRGPR


Information

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

Source Information

Source file <ACHSRGPR.m>

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

Label References

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

Naked Globals

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All