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: ACGSCPA2

Package: Contracts and Grants

Routine: ACGSCPA2


Information

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

Source Information

Source file <ACGSCPA2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Contracts and Grants 1 HOLD^ACGSMENU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contracts and Grants 1 ACGSCPA1  

Entry Points

Name Comments DBIA/ICR reference

External References

Name Field # of Occurrence
HOLD^ACGSMENU ACGSCPA2+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"II. NON-COMPETITIVE | | | |"
  • Line Location: ACGSCPA2+3
Function Call: WRITE
  • Prompt: !?5,"A. NEW CONTRT | | | |"
  • Line Location: ACGSCPA2+4
Function Call: WRITE
  • Prompt: !,$P(@ACGT@(61,"C"),U,2),?14,"| ",$P(@ACGT@(62,"C"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"C"),U,2),?53,"| ",$P(@ACGT@(63,"C"),U,2),?66,"| ",$P(@ACGT@("NCCT"),U,2)
  • Line Location: ACGSCPA2+5
Function Call: WRITE
  • Prompt: !?0,$J($FN($P(@ACGT@(61,"C"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"C"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"C"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"C"),U),"P,",0),12)
  • Line Location: ACGSCPA2+6
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("NCCT"),U),"P,",0),13)
  • Line Location: ACGSCPA2+7
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: ACGSCPA2+8
Function Call: WRITE
  • Prompt: !?5,"B. RENEW MOD | | | |"
  • Line Location: ACGSCPA2+9
Function Call: WRITE
  • Prompt: !,$P(@ACGT@(61,"M"),U,2),?14,"| ",$P(@ACGT@(62,"M"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"M"),U,2),?53,"| ",$P(@ACGT@(63,"M"),U,2),?66,"| ",$P(@ACGT@("NCMT"),U,2)
  • Line Location: ACGSCPA2+10
Function Call: WRITE
  • Prompt: !?0,$J($FN($P(@ACGT@(61,"M"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"M"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"M"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"M"),U),"P,",0),12)
  • Line Location: ACGSCPA2+11
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("NCMT"),U),"P,",0),13)
  • Line Location: ACGSCPA2+12
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: ACGSCPA2+13
Function Call: WRITE
  • Prompt: !?5,"C. OTHER MOD | | | |"
  • Line Location: ACGSCPA2+14
Function Call: WRITE
  • Prompt: !,$P(@ACGT@(61,"O"),U,2),?14,"| ",$P(@ACGT@(62,"O"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"O"),U,2),?53,"| ",$P(@ACGT@(63,"O"),U,2),?66,"| ",$P(@ACGT@("NCOT"),U,2)
  • Line Location: ACGSCPA2+15
Function Call: WRITE
  • Prompt: !?0,$J($FN($P(@ACGT@(61,"O"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"O"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"O"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"O"),U),"P,",0),12)
  • Line Location: ACGSCPA2+16
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("NCOT"),U),"P,",0),13)
  • Line Location: ACGSCPA2+17
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: ACGSCPA2+18
Function Call: WRITE
  • Prompt: !?5,"D. TOTALS | | | |"
  • Line Location: ACGSCPA2+19
Function Call: WRITE
  • Prompt: !,$P(@ACGT@(61,"T"),U,2),?14,"| ",$P(@ACGT@(62,"T"),U,2),?27,"|",?40,"| ",$P(@ACGT@(60,"T"),U,2),?53,"| ",$P(@ACGT@(63,"T"),U,2),?66,"| ",$P(@ACGT@("NCT"),U,2)
  • Line Location: ACGSCPA2+20
Function Call: WRITE
  • Prompt: !?0,$J($FN($P(@ACGT@(61,"T"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(62,"T"),U),"P,",0),12),?27,"|",?40,"|",$J($FN($P(@ACGT@(60,"T"),U),"P,",0),12),?53,"|",$J($FN($P(@ACGT@(63,"T"),U),"P,",0),12)
  • Line Location: ACGSCPA2+21
Function Call: WRITE
  • Prompt: ?66,"|",$J($FN($P(@ACGT@("NCT"),U),"P,",0),13)
  • Line Location: ACGSCPA2+22
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: ACGSCPA2+23
Function Call: WRITE
  • Prompt: !!,"III. MEDICAL SERVICES | | | |"
  • Line Location: ACGSCPA2+24
Function Call: WRITE
  • Prompt: !?0,$P(@ACGT@(61,"Q"),U,2),?14,"| ",$P(@ACGT@(58,"Q"),U,2)+$P(@ACGT@(62,"Q"),U,2),?27,"| ",$P(@ACGT@(50,"Q"),U,2),?40,"| ",$P(@ACGT@(59,"Q"),U,2)+$P(@ACGT@(60,"Q"),U,2)
  • Line Location: ACGSCPA2+25
Function Call: WRITE
  • Prompt: ?53,"| ",$P(@ACGT@(56,"Q"),U,2)+$P(@ACGT@(63,"Q"),U,2),?66,"| ",$P(@ACGT@("Q"),U,2)
  • Line Location: ACGSCPA2+26
Function Call: WRITE
  • Prompt: !?0,$J($FN($P(@ACGT@(61,"Q"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(58,"Q"),U)+$P(@ACGT@(62,"Q"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"Q"),U),"P,",0),12),?40,"|",$J($FN($P(@ACGT@(59,"Q"),U)+$P(@ACGT@(60,"Q"),U),"P,",0),12)
  • Line Location: ACGSCPA2+27
Function Call: WRITE
  • Prompt: ?53,"|",$J($FN($P(@ACGT@(56,"Q"),U)+$P(@ACGT@(63,"Q"),U),"P,",0),12),?66,"|",$J($FN($P(@ACGT@("Q"),U),"P,",0),13)
  • Line Location: ACGSCPA2+28
Function Call: WRITE
  • Prompt: !,"--------------|------------|------------|------------|------------|-------------"
  • Line Location: ACGSCPA2+29
Function Call: WRITE
  • Prompt: !!,"IV. GRAND TOTALS | | | |"
  • Line Location: ACGSCPA2+30
Function Call: WRITE
  • Prompt: !,$P(@ACGT@(61,"T"),U,2),?14,"| ",$P(@ACGT@(58,"T"),U,2)+$P(@ACGT@(62,"T"),U,2),?27,"| ",$P(@ACGT@(50,"T"),U,2),?40,"| ",$P(@ACGT@(59,"T"),U,2)+$P(@ACGT@(60,"T"),U,2)
  • Line Location: ACGSCPA2+31
Function Call: WRITE
  • Prompt: ?53,"| ",$P(@ACGT@(56,"T"),U,2)+$P(@ACGT@(63,"T"),U,2),?66,"| ",$P(@ACGT@("T"),U,2)
  • Line Location: ACGSCPA2+32
Function Call: WRITE
  • Prompt: !,$J($FN($P(@ACGT@(61,"T"),U),"P,",0),13),?14,"|",$J($FN($P(@ACGT@(58,"T"),U)+$P(@ACGT@(62,"T"),U),"P,",0),12),?27,"|",$J($FN($P(@ACGT@(50,"T"),U),"P,",0),12)
  • Line Location: ACGSCPA2+33
Function Call: WRITE
  • Prompt: ?40,"|",$J($FN($P(@ACGT@(59,"T"),U)+$P(@ACGT@(60,"T"),U),"P,",0),12)
  • Line Location: ACGSCPA2+34
Function Call: WRITE
  • Prompt: ?53,"|",$J($FN($P(@ACGT@(56,"T"),U)+$P(@ACGT@(63,"T"),U),"P,",0),12),?66,"|",$J($FN($P(@ACGT@("T"),U),"P,",0),13)
  • Line Location: ACGSCPA2+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACGT ACGSCPA2+5, ACGSCPA2+6, ACGSCPA2+7, ACGSCPA2+10, ACGSCPA2+11, ACGSCPA2+12, ACGSCPA2+15, ACGSCPA2+16, ACGSCPA2+17, ACGSCPA2+20
, ACGSCPA2+21, ACGSCPA2+22, ACGSCPA2+25, ACGSCPA2+26, ACGSCPA2+27, ACGSCPA2+28, ACGSCPA2+31, ACGSCPA2+32, ACGSCPA2+33, ACGSCPA2+34
, ACGSCPA2+35
IOST ACGSCPA2+36
U ACGSCPA2+5, ACGSCPA2+6, ACGSCPA2+7, ACGSCPA2+10, ACGSCPA2+11, ACGSCPA2+12, ACGSCPA2+15, ACGSCPA2+16, ACGSCPA2+17, ACGSCPA2+20
, ACGSCPA2+21, ACGSCPA2+22, ACGSCPA2+25, ACGSCPA2+26, ACGSCPA2+27, ACGSCPA2+28, ACGSCPA2+31, ACGSCPA2+32, ACGSCPA2+33, ACGSCPA2+34
, ACGSCPA2+35
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Local Variables |  All