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
Print Page as PDF
Routine: PRCHPAM8

Package: IFCAP

Routine: PRCHPAM8


Information

PRCHPAM8 ;ID/TKW,RSD/RHD-PRINT AMENDMENT ;6/9/99 10:48

Source Information

Source file <PRCHPAM8.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
CONT
DT
AL
AL1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "2.AMENDMENT/MODIFICATION NO. ",?29,"|3.EFFECTIVE DATE",?46,"|4.REQUISITION/PURCHASE REQ.NO.",?77,"|5.PROJECT NO."
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !?7,$P(PRCH0,U,1),?29,"| "
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: ?46,"| ",$S(Y:Y_"/",1:" "),$P($P(PRCHP0,U,1),"-",2),?77,"| (If applicable)",!,?29,"|",?46,"|",?77,"|"
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,29),"|",$E(PRCHUL,1,16),"|",$E(PRCHUL,1,30),"|",$E(PRCHUL,1,19)
  • Line Location: CONT+4
Function Call: WRITE
  • Prompt: !,"6.ISSUED BY ",?26,"CODE|________| 7.ADMINISTERED BY (If other than item 6) CODE|________"
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: !?3,"A&MM SERVICE",?39,"|",!?3,"VA MEDICAL CENTER",?39,"|",!
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: ?3,$P(Y,U,I),?39,"|",!?3
  • Condition for execution: $P(Y,U,I)]""
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: $P(Y,U,3),", ",$P($G(^DIC(5,+$P(Y,U,4),0)),U,2)," ",$P(Y,U,5),?39,"|"
  • Line Location: CONT+7
Function Call: WRITE
  • Prompt: !?39,"|"
  • Line Location: CONT+7
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,39),"|",$E(PRCHUL,1,57),!,"8.NAME & ADDRESS OF CONTRACTOR (No.,street,county,",?52,"| | 9A.AMENDMENT OF SOLICITATION NO.",!
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: ?31,"State and ZIP Code)",?52,"| |",!,?13,$P(X,U,1),?52,"| |",$E(PRCHUL,1,40),!
  • Line Location: CONT+9
Function Call: WRITE
  • Prompt: ?52,"| | 9B.DATED (See Item 11)",!
  • Line Location: CONT+10
Function Call: WRITE
  • Prompt: ?52,"|___|",$E(PRCHUL,1,40),!
  • Line Location: CONT+10
Function Call: WRITE
  • Prompt: ?52,"| X |",?61,$P(PRCHP0,U,1),!
  • Line Location: CONT+11
Function Call: WRITE
  • Prompt: ?52,"| |",$E(PRCHUL,1,40),!,$E(PRCHUL,1,52),?52,"| | 10B.DATED (See Item 13)",!,"CODE",?30,"|FACILITY CODE",?52,"| |",?61
  • Line Location: CONT+13
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,30),"|",$E(PRCHUL,1,21),"|___|",$E(PRCHUL,1,38),!,?16,"11.THIS ITEM ONLY APPLIES TO AMENDMENTS OF SOLICITATIONS",!,PRCHUL,!
  • Line Location: CONT+14
Function Call: WRITE
  • Prompt: !,"____ The above numbered solicitation is amended as set forth in Item 14. The hour and date speci-",!,"fied for receipt of Offers ____is extended ____is not extended.",!
  • Line Location: CONT+15
Function Call: WRITE
  • Prompt: "Offers must acknowledge receipt of this amendment prior to the hour and date specified in the",!,"solicitation or as amended by one of the following methods:",!!
  • Line Location: CONT+16
Function Call: WRITE
  • Prompt: "(a) By completing Items 8 and 15 and returning ______ copies of the amendment:",!,"(b) By acknowledging receipt of this amendment on each copy of the offer submitted: or",!
  • Line Location: CONT+17
Function Call: WRITE
  • Prompt: "(c) By separate letter or telegram which includes a reference to the solicitation and amendment",!,"numbers. FAILURE OF YOUR ACKNOWLEDGEMENT TO BE RECEIVED AT THE PLACE DESIGNATED FOR THE RECEIPT",!
  • Line Location: CONT+18
Function Call: WRITE
  • Prompt: "OF OFFERS PRIOR TO THE HOUR AND DATE SPECIFIED MAY RESULT IN REJECTION OF YOUR OFFER. If by vir-",!,"tue of this amendment you desire to change an offer already submitted, such change may be made",!
  • Line Location: CONT+19
Function Call: WRITE
  • Prompt: "by telegram or letter, provided each telegram or letter makes reference to the solicitation and",!,"this amendment, and is received prior to the opening hour and date specified.",!
  • Line Location: CONT+20
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: ?13,$P(X,U,J)
  • Line Location: AL+0
Function Call: WRITE
  • Prompt: ?13,$P(X,U,6),", ",$P($G(^DIC(5,+$P(X,U,7),0)),U,2)," ",$P(X,U,8)
  • Line Location: AL1+0
Info |  Source |  Entry Points |  Interaction Calls