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 |  Local Variables |  All
Print Page as PDF
Routine: ACGSCPA1

Package: Contracts and Grants

Routine: ACGSCPA1


Information

ACGSCPA1 ;IHS/OIRM/DSD/THL,AEF - COMPETITIVE PROCUREMENT ACTIVITY REPORT CONTINUED; [ 03/27/2000 2:22 PM ]

Source Information

Source file <ACGSCPA1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Contracts and Grants 3 ^ACGSCPA2  HEAD^ACGSCPAR  HOLD^ACGSMENU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contracts and Grants 1 ACGSCPAR  

Entry Points

Name Comments DBIA/ICR reference
LINES ;

External References

Name Field # of Occurrence
^ACGSCPA2 LINES+23
HEAD^ACGSCPAR LINES+22
HOLD^ACGSMENU LINES+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I. COMPETITIVE | | | |"
  • Line Location: LINES+1
Function Call: WRITE
  • Prompt: !?4,"A. NEW CONTRT | | | |"
  • Line Location: LINES+2
Function Call: WRITE
  • Prompt: !?14,"|",$P(@ACGT@(58,"C"),U,2),?27,"| ",$P(@ACGT@(50,"C"),U,2),?40,"| ",$P(@ACGT@(59,"C"),U,2),?53,"| ",$P(@ACGT@(56,"C"),U,2),?66,"| ",$P(@ACGT@("CCT"),U,2)
  • Line Location: LINES+3
Function Call: WRITE
  • Prompt: !?14,"|",$J($FN($P(@ACGT@(58,"C"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"C"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"C"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"C"),U),"P,",0),12)
  • Line Location: LINES+4
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("CCT"),U),"P,",0),13)
  • Line Location: LINES+5
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: LINES+6
Function Call: WRITE
  • Prompt: !?4,"B. RENEW MOD | | | |"
  • Line Location: LINES+7
Function Call: WRITE
  • Prompt: !?14,"|",$P(@ACGT@(58,"M"),U,2),?27,"| ",$P(@ACGT@(50,"M"),U,2),?40,"| ",$P(@ACGT@(59,"M"),U,2),?53,"| ",$P(@ACGT@(56,"M"),U,2),?66,"| ",$P(@ACGT@("CMT"),U,2)
  • Line Location: LINES+8
Function Call: WRITE
  • Prompt: !?14,"|",$J($FN($P(@ACGT@(58,"M"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"M"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"M"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"M"),U),"P,",0),12)
  • Line Location: LINES+9
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("CMT"),U),"P,",0),13)
  • Line Location: LINES+10
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: LINES+11
Function Call: WRITE
  • Prompt: !?4,"C. OTHER MOD | | | |"
  • Line Location: LINES+12
Function Call: WRITE
  • Prompt: !?14,"|",$P(@ACGT@(58,"O"),U,2),?27,"| ",$P(@ACGT@(50,"O"),U,2),?40,"| ",$P(@ACGT@(59,"O"),U,2),?53,"| ",$P(@ACGT@(56,"O"),U,2),?66,"| ",$P(@ACGT@("COT"),U,2)
  • Line Location: LINES+13
Function Call: WRITE
  • Prompt: !?14,"|",$J($FN($P(@ACGT@(58,"O"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"O"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"O"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"O"),U),"P,",0),12)
  • Line Location: LINES+14
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("COT"),U),"P,",0),13)
  • Line Location: LINES+15
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: LINES+16
Function Call: WRITE
  • Prompt: !?4,"D. TOTALS | | | |"
  • Line Location: LINES+17
Function Call: WRITE
  • Prompt: !?14,"|",$P(@ACGT@(58,"T"),U,2),?27,"| ",$P(@ACGT@(50,"T"),U,2),?40,"| ",$P(@ACGT@(59,"T"),U,2),?53,"| ",$P(@ACGT@(56,"T"),U,2),?66,"| ",$P(@ACGT@("CT"),U,2)
  • Line Location: LINES+18
Function Call: WRITE
  • Prompt: !?14,"|",$J($FN($P(@ACGT@(58,"T"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"T"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"T"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(56,"T"),U),"P,",0),12)
  • Line Location: LINES+19
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("CT"),U),"P,",0),13)
  • Line Location: LINES+20
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: LINES+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACGQUIT LINES+22
>> ACGT LINES+3, LINES+4, LINES+5, LINES+8, LINES+9, LINES+10, LINES+13, LINES+14, LINES+15, LINES+18
, LINES+19, LINES+20
IOST LINES+22
U LINES+3, LINES+4, LINES+5, LINES+8, LINES+9, LINES+10, LINES+13, LINES+14, LINES+15, LINES+18
, LINES+19, LINES+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Local Variables |  All