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

Package: Contracts and Grants

Routine: ACGS2


Information

ACGS2 ;IHS/OIRM/DSD/THL,AEF - INPUT TRANSFORM FOR CONTRACT NUMBER; [ 03/27/2000 2:22 PM ]

Source Information

Source file <ACGS2.m>

Entry Points

Name Comments DBIA/ICR reference
2 ;EP;INPUT TRANSFORM FOR CONTRACT NUMBER
TPA ;TPA MESSAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"For 'P' actions use the appropriate PURCHASE ORDER number."
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !!,"Positions 1 & 2 of GSA contract number must be 'GS'."
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !!,"Positions 3 & 4 of GSA contract number must be numeric."
  • Line Location: 2+10
Function Call: WRITE
  • Prompt: !!,"Position 5 of GSA contract number must be 'F' or 'K'."
  • Line Location: 2+11
Function Call: WRITE
  • Prompt: !!,"If position 5 of GSA contract number is 'F' the GSA contract number must be 10",!,"characters in length."
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: !!,"If position 5 of GSA contract number is 'K' the GSA contract number must be 14",!,"characters in length and the 10th position must be an 'S'."
  • Line Location: 2+13
Function Call: WRITE
  • Prompt: !!,"You must enter the GSA or VA contract number for the Federal Supply Contract."
  • Line Location: 2+15
Function Call: WRITE
  • Prompt: !!,"This contract number has already been assigned and duplicate numbers are not",!,"allowed."
  • Line Location: 2+17
Function Call: WRITE
  • Prompt: !!,"The first 3 characters must be the same as the contract office number."
  • Line Location: 2+18
Function Call: WRITE
  • Prompt: !!,"The contract number must be 12 numeric characters in length."
  • Line Location: 2+19
Function Call: WRITE
  • Prompt: !!,"If Type of Procurement Action is A, D, I, L or S, positions 10-12 of the",!,"contract number must be '000'."
  • Line Location: 2+20
Function Call: WRITE
  • Prompt: !!,"If Type of Procurement Action is not A, D, I, L or S, positions 10-12 of the",!,"contract number must be greater than '000'."
  • Line Location: 2+21
Function Call: WRITE
  • Prompt: !!,"Enter the TYPE OF PROCUREMENT ACTION before entering the contract number."
  • Line Location: TPA+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACGPARA - [#9002335] 2+1
^ACGS - [#9002330] 2+2
^ACGS("B" 2+17
^ACGTPA - [#9002330.1] 2+4, 2+5

Label References

Name Line Occurrences
TPA 2+3, 2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACG1 2+2*, 2+3, 2+4, 2+5*, 2+6, 2+7, 2+16, 2+17, 2+20, 2+21
>> ACG4 2+1*, 2+18
>> ACGPODA 2+1
>> DA 2+2
U 2+1, 2+5
X 2+8, 2+9!, 2+10!, 2+11!, 2+12!, 2+13!, 2+14, 2+15!, 2+17!, 2+18!
, 2+19!, 2+20!, 2+21!, TPA+1!
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All