source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCSP123.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.1 KB
Line 
1PRCSP123 ;WISC/SAW-CONTROL POINT ACTIVITY 2237 PRINTOUT CON'T ;3-9-88/5:05 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;ADMIN AND RECEIPT ACTION BLOCKS
5 W !,?12,"ADMINISTRATIVE ACTION",?45,"|",?60,"RECEIPT ACTION",!,$E(L,1,45)
6 W "|",$E(L,1,44)
7 W !,"(Circle Applicable Item)",?45,"|I CERTIFY that the quantities in ""ACTION"""
8 W !," Unposted Posted Service Bulk Sale",?45,"|column have been received.",!,$E(L,1,45)
9 W "|",$E(L,1,44)
10 W !,"Availability of Items Requested Above, or",?45,"|Signature of Responsible Official",?79,"|Date"
11 W !,"Suitable Substitutes",?45,"|or Designee",?79,"|"
12 W !," VA GSA NOT AVAILABLE FROM",?45,"|",?79,"|"
13 W !," STOCK STOCK EXCESS ANY OF THESE SOURCES",?45,"|",?79,"|",!,$E(L,1,45)
14 W "|",$E(L,1,33),"|",$E(L,1,10),!,"Signature of Accountable",?25,"|Date",?45,"|(Check Applicable Statement)"
15 W !,"Officer or Designee",?25,"|",?45,"|TURN-IN USE ONLY"
16 N AO S AO=$P($G(^PRCS(410,DA,7)),"^",11) I AO'="" W !,$P($G(^VA(200,AO,0)),"^"),?25,"|"
17 I AO="" W !,?25,"|"
18 N AODATE S AODATE=$P($G(^PRCS(410,DA,7)),"^",12) I AODATE'="" S Y=AODATE D DD^%DT W $P(Y,"@")
19 W ?45,"| I CERTIFY that the quantities shown in",!,$E(L,1,25)
20 W ?25,"|",$E(L,1,19),"| ""ACTION"" column have been received and"
21 W !,"Authority for and/or Method of Purchase",?45,"| the turn-in circumstances cited appear"
22 W !,?45,"| reasonable. Disposition codes indicate",!,$E(L,1,45)
23 W ?45,"| action taken."
24 W !,"I certify that the resultant contract is",?45,"|RECEIVING REPORT USE ONLY"
25 W !,"authorized by law and is within the limits",?45,"| The articles or services listed hereon"
26 W !,"of my authority.",?45,"| have been received or rendered and are"
27 W !,?45,"| accepted, except as noted.",!,$E(L,1,45)
28 W "|",$E(L,1,44)
29 I $Y>57 D NEWP^PRCSP121
30 W !,"Signature of Contracting Officer",?45,"|Signature of Storekeeper",?78,"|Date",!,?45,"|",?78,"|",!,$E(L,1,45)
31 W ?45,"|",$E(L,1,32)
32 W ?78,"|",$E(L,1,11)
33 W !,"Purchase Order or Req. No|Date of P.O. or Req|Signature of Accountable Officer",?78,"|Date",!,?25,"|",?45,"|",?78,"|",!,$E(L,1,25)
34 W ?25,"|",$E(L,1,19),"|",$E(L,1,32),?78,"|",$E(L,1,11) I $Y>53 D NEWP^PRCSP121
35 W !,"FUND CERTIFICATION: The Supplies/Services",?45,"|Date of Voucher",?58,"|Voucher No."
36 W !,"listed on this request are properly charge-",?45,"|",?61,"|"
37 W !,"able to the following allotments, the avail-",?45,"|",?61,"|"
38 W !,"able balances of which are sufficient to",?45,"|",$E(L,1,15)
39 W ?61,"|",$E(L,1,28)
40 W !,"cover the cost thereof, and funds have",?45,"|Obligated By",?78,"|Date"
41 W !,"been obligated.",?45,"|",?78,"|",!,$E(L,1,45)
42 W ?45,"|",?78,"|",!,"Appropriation and Accounting Symbols",?45,"|",?78,"|",!
43 S P=$P(^PRCS(410,DA,0),U,5) I $D(^(3)) S X=^(3) S:$P(X,U,2)'="" P=P_"-"_$P(X,U,2) S:$P(X,U)'="" P=P_"-"_$P($P(X,U)," ") S:$P(X,U,3)'="" P=P_"-"_$P($P(X,U,3)," ")
44 S:$D(PRCS("SUB")) P=P_"-"_PRCS("SUB")
45 I $D(^PRCS(410,DA,4)),$P(^(4),U,5)'="" S P=P_"-"_$P(^(4),U,5)
46 S FPROJ=$P($G(^PRCS(410,DA,3)),"^",12) S P=P_" "_FPROJ
47 W P,?45,"|",?78,"|",!,$E(L,1,45)
48 W ?45,"|",$E(L,1,32)
49 W ?78,"|",$E(L,1,11),!,"VA FORM 90-2237-ADP MAR 1985",!
50 Q
Note: See TracBrowser for help on using the repository browser.