Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFPSC1

ACRFPSC1.m

Go to the documentation of this file.
  1. ACRFPSC1 ;IHS/OIRM/DSD/THL,AEF - SOLICITATION FOR COMMERCIAL ITEMS - COM'T; [ 11/01/2001 9:44 AM ]
  1. ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1. PSC W:$E($G(IOST),1,2)="C-" @IOF
  1. D L
  1. W !,"SOLICITATION/CONTRACT/ORDER FOR COMMERCIAL ITEMS|1. Requisition # |PAGE 1 OF"
  1. W !,"Offeror to complete blocks 12,17,23,24, & 30"
  1. D 48
  1. W $G(ACR1)
  1. D 67
  1. W $G(ACRPOPG)
  1. D L
  1. W !,"2. Contract NO. |3. Award Date |4. Order Number |5. Solicitation # |6.Solic Date"
  1. W !?3,$G(ACR2)
  1. D 16
  1. W $G(ACR3)
  1. D 31
  1. W $G(ACR4)
  1. D 48
  1. W $G(ACR5)
  1. D 67
  1. W $G(ACR6)
  1. D L
  1. W !,"7.For Solicitatn|a. Name"
  1. D 48
  1. W "b. Phome NO."
  1. D 67
  1. W "8. Offer Due"
  1. W !,"Information call|"
  1. W ?$X+1,$G(ACR7A)
  1. D 48
  1. W " ",$G(ACR7B)
  1. D 67
  1. W " ",$G(ACR8)
  1. W $G(ACR8)
  1. D L
  1. W !,"9. Issued by"
  1. D 35
  1. W "10. ACQUISI-"
  1. D 48
  1. W "11. Deliver to"
  1. D 64
  1. W "12. Discount"
  1. W !?3,"USPHS INDIAN HEATLH SERVICE"
  1. D 35
  1. W " tion is"
  1. D 48
  1. W "FOB Dest Unless"
  1. D 64
  1. W " Terms"
  1. W !?3
  1. I $G(ACR9(3))]"" W $G(ACR9(1))
  1. D 35
  1. W " ",$G(ACR10)
  1. D 48
  1. W "marked |",$G(ACR11)
  1. D 64
  1. W $G(ACR12)
  1. W !?3
  1. I $G(ACR9(3))]"" W $G(ACR9(2))
  1. E W $G(ACR9(1))
  1. D 35
  1. D 48
  1. D L31
  1. W !?3
  1. I $G(ACR9(3))]"" W $G(ACR9(3))
  1. E W $G(ACR9(2))
  1. D 35,48
  1. W $G(ACR13A)
  1. W ?52,"|13a Rated order under DPAS"
  1. W !?3,$G(ACR9(4))
  1. I $G(ACR9(4))]"" W ", ",$G(ACR9(5))," ",$G(ACR9(6))
  1. D 35
  1. D 48
  1. D L31
  1. W !?3,"PHONE: ",$G(ACR9(7))
  1. D 35,48
  1. W "13b. Rating: "
  1. W !?3
  1. D 35,48
  1. W " ",$G(ACR13B)
  1. W !?3
  1. D 35
  1. D 48
  1. D L31
  1. W !?3
  1. D 35,48
  1. W "14. Method of Solicitation"
  1. W !
  1. D 35
  1. D 48
  1. W " ",$G(ACR14)
  1. D PAUSE^ACRFWARN
  1. D L
  1. W !,"15. Deliver to"
  1. D 40
  1. W "16. Administered by"
  1. W !?3
  1. I $G(ACR15(3))]"" W $G(ACR15(1))
  1. D 40
  1. W !?3
  1. I $G(ACR15(3))]"" W $G(ACR15(3))
  1. E W $G(ACR15(2))
  1. D 40
  1. W !?3,$G(ACR15(4))
  1. I $G(ACR15(4))]"" W ", ",$G(ACR15(5))," ",$G(ACR15(6))
  1. D 40
  1. W !?3,"PHONE: ",$G(ACR15(7))
  1. D 40
  1. D L
  1. W !,"17a. Contractor/Offeror"
  1. D 40
  1. W "18a. Payment will be made by"
  1. W !?3
  1. I $G(ACR17(3))]"" W $G(ACR17(1))
  1. D 40
  1. I $G(ACR18(3))]"" W $G(ACR18(1))
  1. W !?3
  1. I $G(ACR17(3))]"" W $G(ACR17(2))
  1. E W $G(ACR17(1))
  1. D 40
  1. I $G(ACR18(3))]"" W $G(ACR18(2))
  1. E W $G(ACR18(1))
  1. W !?3
  1. I $G(ACR17(3))]"" W $G(ACR17(3))
  1. E W $G(ACR17(2))
  1. D 40
  1. I $G(ACR18(3))]"" W $G(ACR18(3))
  1. E W $G(ACR18(2))
  1. W !?3,$G(ACR17(4))
  1. I $G(ACR17(4))]"" W ", ",$G(ACR17(5))," ",$G(ACR17(6))
  1. D 40
  1. W $G(ACR18(4))
  1. I $G(ACR18(4))]"" W ", ",$G(ACR18(5))," ",$G(ACR18(6))
  1. W !?3,"PHONE: ",$G(ACR17(7))
  1. D 40
  1. W "PHONE: ",$G(ACR18(7))
  1. D L
  1. W !?3,$G(ACR17B)
  1. W ?3,"|Check if remit address different"
  1. D 40
  1. W $G(ACR18B)
  1. W ?44,"|Invoice to ADD above unless checked"
  1. D L
  1. W !?17,"See addendum for SCHEDULE OF SUPPLIES/SERVICES"
  1. D:$G(ACRDOCDA) ^ACRFPSS
  1. D L
  1. W !?3,$G(ACR27A)
  1. W ?3,"|27a Solicitation Incorp by Ref FAR 52.212-1,52.212-4, Addenda ",$G(ACR27A1)
  1. W !?3,$G(ACR27B)
  1. W ?3,"|27b Contract/PO Incorp by Ref FAR 52.212-4,52.212-5, Addenda ",$G(ACR27B1)
  1. D L
  1. W !,"28. Contractor required to sign & return"
  1. D 40
  1. W "29.Your offer on solicitation (Block 5)"
  1. W !,"1 copy to Issuing Office. Contractor"
  1. D 40
  1. W "including any additions/changes set"
  1. W !,"agrees to deliver items itentified on"
  1. D 40
  1. W "forth herein is accepted as to Items"
  1. W !,"the SCHEDULE OF SUPPLIES/SERVICES"
  1. D 40
  1. W "on SCHEDULE OF SUPPLIES/SERVICES"
  1. W !,"30a. Signature of Contractor"
  1. D L
  1. W !,"30b. Name & Title of Signer"
  1. D 48
  1. W "30c. Date signed"
  1. D PAUSE^ACRFWARN
  1. D:$G(ACRDOCDA) ^ACRFPAPV
  1. D DISPLAY^ACRFSS12
  1. Q
  1. L W $$DASH^ACRFMENU
  1. Q
  1. 16 W ?16,"|"
  1. Q
  1. 31 W ?31,"|"
  1. Q
  1. 35 W ?35,"|"
  1. Q
  1. 40 W ?40,"|"
  1. Q
  1. 48 W ?48,"|"
  1. Q
  1. 64 W ?64,"|"
  1. Q
  1. 67 W ?67,"|"
  1. Q
  1. L31 W $$DASH1^ACRFMENU(31)
  1. Q