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