- ACRFPSC1 ;IHS/OIRM/DSD/THL,AEF - SOLICITATION FOR COMMERCIAL ITEMS - COM'T; [ 11/01/2001 9:44 AM ]
- ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- PSC W:$E($G(IOST),1,2)="C-" @IOF
- D L
- W !,"SOLICITATION/CONTRACT/ORDER FOR COMMERCIAL ITEMS|1. Requisition # |PAGE 1 OF"
- W !,"Offeror to complete blocks 12,17,23,24, & 30"
- D 48
- W $G(ACR1)
- D 67
- W $G(ACRPOPG)
- D L
- W !,"2. Contract NO. |3. Award Date |4. Order Number |5. Solicitation # |6.Solic Date"
- W !?3,$G(ACR2)
- D 16
- W $G(ACR3)
- D 31
- W $G(ACR4)
- D 48
- W $G(ACR5)
- D 67
- W $G(ACR6)
- D L
- W !,"7.For Solicitatn|a. Name"
- D 48
- W "b. Phome NO."
- D 67
- W "8. Offer Due"
- W !,"Information call|"
- W ?$X+1,$G(ACR7A)
- D 48
- W " ",$G(ACR7B)
- D 67
- W " ",$G(ACR8)
- W $G(ACR8)
- D L
- W !,"9. Issued by"
- D 35
- W "10. ACQUISI-"
- D 48
- W "11. Deliver to"
- D 64
- W "12. Discount"
- W !?3,"USPHS INDIAN HEATLH SERVICE"
- D 35
- W " tion is"
- D 48
- W "FOB Dest Unless"
- D 64
- W " Terms"
- W !?3
- I $G(ACR9(3))]"" W $G(ACR9(1))
- D 35
- W " ",$G(ACR10)
- D 48
- W "marked |",$G(ACR11)
- D 64
- W $G(ACR12)
- W !?3
- I $G(ACR9(3))]"" W $G(ACR9(2))
- E W $G(ACR9(1))
- D 35
- D 48
- D L31
- W !?3
- I $G(ACR9(3))]"" W $G(ACR9(3))
- E W $G(ACR9(2))
- D 35,48
- W $G(ACR13A)
- W ?52,"|13a Rated order under DPAS"
- W !?3,$G(ACR9(4))
- I $G(ACR9(4))]"" W ", ",$G(ACR9(5))," ",$G(ACR9(6))
- D 35
- D 48
- D L31
- W !?3,"PHONE: ",$G(ACR9(7))
- D 35,48
- W "13b. Rating: "
- W !?3
- D 35,48
- W " ",$G(ACR13B)
- W !?3
- D 35
- D 48
- D L31
- W !?3
- D 35,48
- W "14. Method of Solicitation"
- W !
- D 35
- D 48
- W " ",$G(ACR14)
- D PAUSE^ACRFWARN
- D L
- W !,"15. Deliver to"
- D 40
- W "16. Administered by"
- W !?3
- I $G(ACR15(3))]"" W $G(ACR15(1))
- D 40
- W !?3
- I $G(ACR15(3))]"" W $G(ACR15(3))
- E W $G(ACR15(2))
- D 40
- W !?3,$G(ACR15(4))
- I $G(ACR15(4))]"" W ", ",$G(ACR15(5))," ",$G(ACR15(6))
- D 40
- W !?3,"PHONE: ",$G(ACR15(7))
- D 40
- D L
- W !,"17a. Contractor/Offeror"
- D 40
- W "18a. Payment will be made by"
- W !?3
- I $G(ACR17(3))]"" W $G(ACR17(1))
- D 40
- I $G(ACR18(3))]"" W $G(ACR18(1))
- W !?3
- I $G(ACR17(3))]"" W $G(ACR17(2))
- E W $G(ACR17(1))
- D 40
- I $G(ACR18(3))]"" W $G(ACR18(2))
- E W $G(ACR18(1))
- W !?3
- I $G(ACR17(3))]"" W $G(ACR17(3))
- E W $G(ACR17(2))
- D 40
- I $G(ACR18(3))]"" W $G(ACR18(3))
- E W $G(ACR18(2))
- W !?3,$G(ACR17(4))
- I $G(ACR17(4))]"" W ", ",$G(ACR17(5))," ",$G(ACR17(6))
- D 40
- W $G(ACR18(4))
- I $G(ACR18(4))]"" W ", ",$G(ACR18(5))," ",$G(ACR18(6))
- W !?3,"PHONE: ",$G(ACR17(7))
- D 40
- W "PHONE: ",$G(ACR18(7))
- D L
- W !?3,$G(ACR17B)
- W ?3,"|Check if remit address different"
- D 40
- W $G(ACR18B)
- W ?44,"|Invoice to ADD above unless checked"
- D L
- W !?17,"See addendum for SCHEDULE OF SUPPLIES/SERVICES"
- D:$G(ACRDOCDA) ^ACRFPSS
- D L
- W !?3,$G(ACR27A)
- W ?3,"|27a Solicitation Incorp by Ref FAR 52.212-1,52.212-4, Addenda ",$G(ACR27A1)
- W !?3,$G(ACR27B)
- W ?3,"|27b Contract/PO Incorp by Ref FAR 52.212-4,52.212-5, Addenda ",$G(ACR27B1)
- D L
- W !,"28. Contractor required to sign & return"
- D 40
- W "29.Your offer on solicitation (Block 5)"
- W !,"1 copy to Issuing Office. Contractor"
- D 40
- W "including any additions/changes set"
- W !,"agrees to deliver items itentified on"
- D 40
- W "forth herein is accepted as to Items"
- W !,"the SCHEDULE OF SUPPLIES/SERVICES"
- D 40
- W "on SCHEDULE OF SUPPLIES/SERVICES"
- W !,"30a. Signature of Contractor"
- D L
- W !,"30b. Name & Title of Signer"
- D 48
- W "30c. Date signed"
- D PAUSE^ACRFWARN
- D:$G(ACRDOCDA) ^ACRFPAPV
- D DISPLAY^ACRFSS12
- Q
- L W $$DASH^ACRFMENU
- Q
- 16 W ?16,"|"
- Q
- 31 W ?31,"|"
- Q
- 35 W ?35,"|"
- Q
- 40 W ?40,"|"
- Q
- 48 W ?48,"|"
- Q
- 64 W ?64,"|"
- Q
- 67 W ?67,"|"
- Q
- L31 W $$DASH1^ACRFMENU(31)
- Q
- 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
- PSC IF $EXTRACT($GET(IOST),1,2)="C-"
- WRITE @IOF
- +1 DO L
- +2 WRITE !,"SOLICITATION/CONTRACT/ORDER FOR COMMERCIAL ITEMS|1. Requisition # |PAGE 1 OF"
- +3 WRITE !,"Offeror to complete blocks 12,17,23,24, & 30"
- +4 DO 48
- +5 WRITE $GET(ACR1)
- +6 DO 67
- +7 WRITE $GET(ACRPOPG)
- +8 DO L
- +9 WRITE !,"2. Contract NO. |3. Award Date |4. Order Number |5. Solicitation # |6.Solic Date"
- +10 WRITE !?3,$GET(ACR2)
- +11 DO 16
- +12 WRITE $GET(ACR3)
- +13 DO 31
- +14 WRITE $GET(ACR4)
- +15 DO 48
- +16 WRITE $GET(ACR5)
- +17 DO 67
- +18 WRITE $GET(ACR6)
- +19 DO L
- +20 WRITE !,"7.For Solicitatn|a. Name"
- +21 DO 48
- +22 WRITE "b. Phome NO."
- +23 DO 67
- +24 WRITE "8. Offer Due"
- +25 WRITE !,"Information call|"
- +26 WRITE ?$X+1,$GET(ACR7A)
- +27 DO 48
- +28 WRITE " ",$GET(ACR7B)
- +29 DO 67
- +30 WRITE " ",$GET(ACR8)
- +31 WRITE $GET(ACR8)
- +32 DO L
- +33 WRITE !,"9. Issued by"
- +34 DO 35
- +35 WRITE "10. ACQUISI-"
- +36 DO 48
- +37 WRITE "11. Deliver to"
- +38 DO 64
- +39 WRITE "12. Discount"
- +40 WRITE !?3,"USPHS INDIAN HEATLH SERVICE"
- +41 DO 35
- +42 WRITE " tion is"
- +43 DO 48
- +44 WRITE "FOB Dest Unless"
- +45 DO 64
- +46 WRITE " Terms"
- +47 WRITE !?3
- +48 IF $GET(ACR9(3))]""
- WRITE $GET(ACR9(1))
- +49 DO 35
- +50 WRITE " ",$GET(ACR10)
- +51 DO 48
- +52 WRITE "marked |",$GET(ACR11)
- +53 DO 64
- +54 WRITE $GET(ACR12)
- +55 WRITE !?3
- +56 IF $GET(ACR9(3))]""
- WRITE $GET(ACR9(2))
- +57 IF '$TEST
- WRITE $GET(ACR9(1))
- +58 DO 35
- +59 DO 48
- +60 DO L31
- +61 WRITE !?3
- +62 IF $GET(ACR9(3))]""
- WRITE $GET(ACR9(3))
- +63 IF '$TEST
- WRITE $GET(ACR9(2))
- +64 DO 35
- DO 48
- +65 WRITE $GET(ACR13A)
- +66 WRITE ?52,"|13a Rated order under DPAS"
- +67 WRITE !?3,$GET(ACR9(4))
- +68 IF $GET(ACR9(4))]""
- WRITE ", ",$GET(ACR9(5))," ",$GET(ACR9(6))
- +69 DO 35
- +70 DO 48
- +71 DO L31
- +72 WRITE !?3,"PHONE: ",$GET(ACR9(7))
- +73 DO 35
- DO 48
- +74 WRITE "13b. Rating: "
- +75 WRITE !?3
- +76 DO 35
- DO 48
- +77 WRITE " ",$GET(ACR13B)
- +78 WRITE !?3
- +79 DO 35
- +80 DO 48
- +81 DO L31
- +82 WRITE !?3
- +83 DO 35
- DO 48
- +84 WRITE "14. Method of Solicitation"
- +85 WRITE !
- +86 DO 35
- +87 DO 48
- +88 WRITE " ",$GET(ACR14)
- +89 DO PAUSE^ACRFWARN
- +90 DO L
- +91 WRITE !,"15. Deliver to"
- +92 DO 40
- +93 WRITE "16. Administered by"
- +94 WRITE !?3
- +95 IF $GET(ACR15(3))]""
- WRITE $GET(ACR15(1))
- +96 DO 40
- +97 WRITE !?3
- +98 IF $GET(ACR15(3))]""
- WRITE $GET(ACR15(3))
- +99 IF '$TEST
- WRITE $GET(ACR15(2))
- +100 DO 40
- +101 WRITE !?3,$GET(ACR15(4))
- +102 IF $GET(ACR15(4))]""
- WRITE ", ",$GET(ACR15(5))," ",$GET(ACR15(6))
- +103 DO 40
- +104 WRITE !?3,"PHONE: ",$GET(ACR15(7))
- +105 DO 40
- +106 DO L
- +107 WRITE !,"17a. Contractor/Offeror"
- +108 DO 40
- +109 WRITE "18a. Payment will be made by"
- +110 WRITE !?3
- +111 IF $GET(ACR17(3))]""
- WRITE $GET(ACR17(1))
- +112 DO 40
- +113 IF $GET(ACR18(3))]""
- WRITE $GET(ACR18(1))
- +114 WRITE !?3
- +115 IF $GET(ACR17(3))]""
- WRITE $GET(ACR17(2))
- +116 IF '$TEST
- WRITE $GET(ACR17(1))
- +117 DO 40
- +118 IF $GET(ACR18(3))]""
- WRITE $GET(ACR18(2))
- +119 IF '$TEST
- WRITE $GET(ACR18(1))
- +120 WRITE !?3
- +121 IF $GET(ACR17(3))]""
- WRITE $GET(ACR17(3))
- +122 IF '$TEST
- WRITE $GET(ACR17(2))
- +123 DO 40
- +124 IF $GET(ACR18(3))]""
- WRITE $GET(ACR18(3))
- +125 IF '$TEST
- WRITE $GET(ACR18(2))
- +126 WRITE !?3,$GET(ACR17(4))
- +127 IF $GET(ACR17(4))]""
- WRITE ", ",$GET(ACR17(5))," ",$GET(ACR17(6))
- +128 DO 40
- +129 WRITE $GET(ACR18(4))
- +130 IF $GET(ACR18(4))]""
- WRITE ", ",$GET(ACR18(5))," ",$GET(ACR18(6))
- +131 WRITE !?3,"PHONE: ",$GET(ACR17(7))
- +132 DO 40
- +133 WRITE "PHONE: ",$GET(ACR18(7))
- +134 DO L
- +135 WRITE !?3,$GET(ACR17B)
- +136 WRITE ?3,"|Check if remit address different"
- +137 DO 40
- +138 WRITE $GET(ACR18B)
- +139 WRITE ?44,"|Invoice to ADD above unless checked"
- +140 DO L
- +141 WRITE !?17,"See addendum for SCHEDULE OF SUPPLIES/SERVICES"
- +142 IF $GET(ACRDOCDA)
- DO ^ACRFPSS
- +143 DO L
- +144 WRITE !?3,$GET(ACR27A)
- +145 WRITE ?3,"|27a Solicitation Incorp by Ref FAR 52.212-1,52.212-4, Addenda ",$GET(ACR27A1)
- +146 WRITE !?3,$GET(ACR27B)
- +147 WRITE ?3,"|27b Contract/PO Incorp by Ref FAR 52.212-4,52.212-5, Addenda ",$GET(ACR27B1)
- +148 DO L
- +149 WRITE !,"28. Contractor required to sign & return"
- +150 DO 40
- +151 WRITE "29.Your offer on solicitation (Block 5)"
- +152 WRITE !,"1 copy to Issuing Office. Contractor"
- +153 DO 40
- +154 WRITE "including any additions/changes set"
- +155 WRITE !,"agrees to deliver items itentified on"
- +156 DO 40
- +157 WRITE "forth herein is accepted as to Items"
- +158 WRITE !,"the SCHEDULE OF SUPPLIES/SERVICES"
- +159 DO 40
- +160 WRITE "on SCHEDULE OF SUPPLIES/SERVICES"
- +161 WRITE !,"30a. Signature of Contractor"
- +162 DO L
- +163 WRITE !,"30b. Name & Title of Signer"
- +164 DO 48
- +165 WRITE "30c. Date signed"
- +166 DO PAUSE^ACRFWARN
- +167 IF $GET(ACRDOCDA)
- DO ^ACRFPAPV
- +168 DO DISPLAY^ACRFSS12
- +169 QUIT
- L WRITE $$DASH^ACRFMENU
- +1 QUIT
- 16 WRITE ?16,"|"
- +1 QUIT
- 31 WRITE ?31,"|"
- +1 QUIT
- 35 WRITE ?35,"|"
- +1 QUIT
- 40 WRITE ?40,"|"
- +1 QUIT
- 48 WRITE ?48,"|"
- +1 QUIT
- 64 WRITE ?64,"|"
- +1 QUIT
- 67 WRITE ?67,"|"
- +1 QUIT
- L31 WRITE $$DASH1^ACRFMENU(31)
- +1 QUIT