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
