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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACGSCLS

Package: Contracts and Grants

Routine: ACGSCLS


Information

ACGSCLS ;IHS/OIRM/DSD/THL,AEF - CLOSE OUT REPORT; [ 03/27/2000 2:22 PM ]

Source Information

Source file <ACGSCLS.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Contracts and Grants 5 DIR^ACGFDIC  DIR^ACGSDIC  HOLD^ACGSMENU  DOLLAR^ACGSRT  (,DONE)^ACGSZIS  
IHS VA Utilities 1 ^XBKVAR  
Kernel 1 ^%ZIS  
VA Fileman 1 ^%DTC  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;ENTER BEGINNING DATE FOR SEARCH
EN
END ;ENTER ENDING DATE FOR SEARCH
ZIS
P ;
DOLLAR
Q ;COUNT NUMBERS AND DOLLARS OF ADMINISTRATIVELY CLOSED CONTRACTS
EN1 ;SETUP FOR CLOSE OUT REPORT
R ;PRINT REPORT
EXIT
CLOSED ;SELECT TYPE OF CLOSURE
PRINT ;EP;TO PRINT CLOSE OUT REPORT

External References

Name Field # of Occurrence
^%DTC P+6
^%ZIS ZIS+3
DIR^ACGFDIC CLOSED+3
DIR^ACGSDIC BEGIN+3, END+3
HOLD^ACGSMENU ZIS+7
DOLLAR^ACGSRT DOLLAR
^ACGSZIS ZIS+1
DONE^ACGSZIS ZIS+6
^XBKVAR EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Contracts",$S(ACGDOLLR>0:" over "_$FN(ACGDOLLR,"P",0),1:"")," with associated dollars,",!,"closed out between ",ACGBEGIN," and ",ACGEND,!,"following administrative close-out procedure: "
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !!?10,"Cost type contracts.: Number: ",$J(+ACG(20),10),?$X+3,$J($FN($P(ACG(20),U,2),"P,",0),12)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !?10,"Other than cost type: Number: ",$J(+ACG(1),10),?$X+3,$J($FN($P(ACG(1),U,2),"P,",0),12)
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !!,"Open contracts awaiting closeout:"
  • Line Location: R+6
Function Call: WRITE
  • Prompt: !!?10,"Cost type contracts.: Number: ",$J(+ACGWAIT(20),10),?$X+3,$J($FN($P(ACGWAIT(20),U,2),"P,",0),12)
  • Line Location: R+7
Function Call: WRITE
  • Prompt: !?10,"Other than cost type: Number: ",$J(+ACGWAIT(1),10),?$X+3,$J($FN($P(ACGWAIT(1),U,2),"P,",0),12)
  • Line Location: R+8
Function Call: WRITE
  • Prompt: !!,"Average length of time required to close out a contract."
  • Line Location: R+9
Function Call: WRITE
  • Prompt: !!?10,"Cost type contracts.: Number: ",$J($S(+ACGAVG(20)<1:0,1:$P(ACGAVG(20),U,2)/30/+ACGAVG(20)),10)
  • Line Location: R+10
Function Call: WRITE
  • Prompt: !?10,"Other than cost type: Number: ",$J($S(+ACGAVG(1)<1:0,1:$P(ACGAVG(1),U,2)/30/+ACGAVG(1)),10)
  • Line Location: R+11
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSED+2
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACGS - [#9002330] PRINT+4, Q+2
^ACGS("C" Q+2
^ACGS("X" PRINT+2, PRINT+4
^DD("DD" R+1, R+2

Label References

Name Line Occurrences
@( EN1+1
EN1 EN+1
P PRINT+4
PRINT ZIS+5
Q P+1
R PRINT+5

Naked Globals

Name Field # of Occurrence
^("DT" PRINT+4, Q+2
^("DT1" PRINT+4, Q+2
^("IHS1" PRINT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACG EXIT!, EN1+1*, PRINT+3*, PRINT+4*, Q+2
ACG( P+3*
ACG(1 PRINT+1*, R+5
ACG(20 PRINT+1*, R+4
ACG15 EXIT!, P+3*, P+4, P+7
ACG154 EXIT!, P+2*, P+5
ACG155 EXIT!, P+2*, P+4, P+5
ACG26 EXIT!, PRINT+1*, P+3, P+4, Q+2*, Q+3
ACG26T EXIT!, PRINT+1*
ACGAVG EXIT!
ACGAVG( P+7*
ACGAVG(1 PRINT+1*, R+11
ACGAVG(20 PRINT+1*, R+10
ACGBEG EXIT!, PRINT+2*, PRINT+4, BEGIN+5*
ACGBEGIN EXIT!, R+1*, R+3, BEGIN+5*
ACGDOLLR EXIT!, Q+3, R+3, DOLLAR+2*, DOLLAR+3
ACGDT EXIT!, PRINT+4*
ACGDT1 EXIT!, PRINT+4*
ACGDT1X EXIT!, Q+2*
ACGDTX EXIT!, P+3, Q+2*
ACGEND EXIT!, PRINT+2, R+2*, R+3, END+5*
ACGIHS1 EXIT!, PRINT+4*, P+2
ACGION EXIT!
>> ACGIOP ZIS+3*
>> ACGOUT DOLLAR+1
ACGQUIT EXIT!, EN1+1, BEGIN+4, END+4, CLOSED+4, DOLLAR+3!, ZIS+3*
>> ACGTYPE CLOSED+5*
ACGWAIT EXIT!
ACGWAIT( P+4*
ACGWAIT(1 PRINT+1*, R+8
ACGWAIT(20 PRINT+1*, R+7
>> ACGX Q+1*, Q+2*
>> ACGXREF CLOSED+5*
>> DIR("?" BEGIN+1*, END+1*, CLOSED+1*
>> DIR("A" BEGIN+1*, END+1*
>> DIR(0 BEGIN+1*, END+1*, CLOSED+1*
IO ZIS+4
IO("Q" ZIS+2
IOF R+3
ION ZIS+3
>> IOP ZIS+3*
IOST ZIS+7
>> POP ZIS+3
U P+2, P+3, P+4, P+7, Q+2, R+4, R+5, R+7, R+8, R+10
, R+11
>> X P+7
>> X1 P+5*
>> X2 P+5*
>> Y R+1*, R+2*, BEGIN+4, BEGIN+5, END+4, END+5, CLOSED+4, CLOSED+5
>> ZTQUEUED ZIS+3
>> ZTRTN ZIS*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All