PRCHL5 ;VACO/HNC/VAC - FLEX FIELD SORT;7/05/06 ; 3/8/07 12:54pm
;;5.1;IFCAP;**103**;Oct 20, 2000;Build 25
;Per VHA Directive 2004-038, this routine should not be modified
;
;hnc - July 5, 2006 removed ;;46;PURCHASE CARD NUMBER
;hnc - July 19, 2006 removed ;;55;PURCHASE CARD EXT. NO.
;hnc - July 19, 2006 added FPDS header and FPDS fields below
;hnc - July 21, 2006 move Primary 2237 to main grid
;hnc - Aug 21, 2006 add Item Detail to main grid
;VAC - March 8, 2007 remove Direct Delivery Patient from Detail
;
EN(RESULT,RMPRFLD) ;
;RESULT passed to broker in ^TMP($J,
;delimited by "^"
K ^TMP($J)
N RMPRII,RMPRLN
S CNT=0
F RMPRII=1:1 S RMPRLN=$P($T(HLST+RMPRII),";",4) Q:RMPRLN="" D
.S RMPRFLD=$P($T(HLST+RMPRII),";",3)
.S CNT=CNT+1
.S ^TMP($J,"RMPR",CNT)=RMPRLN_U_RMPRFLD
S RESULT=$NA(^TMP($J))
K CNT
Q
HLST ;pick list
;;ITM;ITEM DETAIL
;;.03;SPECIAL FUND CONTROL POINT
;;.04;INVOICE ADDRESS
;;.06;PRIORITY OF 2237
;;.08;ESTIMATED ORDER?
;;.09;DEPOT VOUCHER NO.
;;.2;EMERGENCY ORDER?
;;.25;LOCAL PROCUREMENT REASON CODE
;;.3;EXPENDABLE/NONEXPENDABLE
;;.5;SUPPLY STATUS
;;.7;SUPPLY STATUS ORDER
;;.8;FISCAL STATUS ORDER
;;1.4;APPROPRIATION
;;3;SUBACCOUNT1
;;3.4;SUBAMOUNT1
;;4;SUBACCOUNT2
;;4.4;SUBAMOUNT2
;;5;VENDOR
;;5.1;DEBTOR
;;5.2;REQUESTING SERVICE
;;5.4;SHIP TO
;;5.6;DELIVERY LOCATION
;;6;VERBAL PURCHASE ORDER
;;6.2;CONFIRMATION COPY
;;6.4;F.O.B. POINT
;;6.9;ORIGINAL DELIVERY DATE
;;7;DELIVERY DATE
;;7.2;ESTIMATED COST
;;8;SOURCE CODE
;;8.1;ASTR. FOR SOURCE CODE
;;8.2;PROPOSAL
;;13;EST. SHIPPING AND/OR HANDLING
;;13.05;EST. SHIPPING BOC
;;13.1;EST. SHIPPING LINE ITEM NO.
;;13.2;GOV'T B/L NO.
;;13.3;SHIP VIA
;;13.4;GBL P.O.NUMBER
;;15;LINE ITEM COUNT
;;16;PA/PPM/AUTHORIZED BUYER
;;18;PO PRINTED TIME
;;18.6;NEED SPECIAL HANDLING?
;;18.7;TYPE OF SPECIAL HANDLING
;;19;AGENT ASSIGNED P.O.
;;19.2;DATE P.O. ASSIGNED
;;21;MONTH
;;22;QUARTER
;;23;LAST DIGIT OF FISCAL YEAR
;;26;BBFY
;;27;OLD PO RECORD
;;28;NEW PO RECORD
;;29;END DATE FOR SERVICE ORDER
;;30;AUTO ACCRUE
;;31;SUBSTATION
;;42;RFQ NBR
;;44;DISPUTED
;;47;DELIVERY ORDER
;;48;TYPE OF ORDER
;;51;SORT GROUP
;;52;CLASSIFICATION OF REQUEST
;;53;PCDO VENDOR
;;54;RECEIVING REQUIRED?
;;56;PURCHASE CARD USER
;;57;APPROVE RECONCILIATION USER
;;58;DATE RECONCILED
;;60;PURCHASE COST
;;61;PURCHASE CARD HOLDER
;;62;PCDO 2237
;;63;PROCESSING REQUIRED IN FISCAL
;;64;FREE TEXT VENDOR
;;65;INTERFACE PACKAGE PREFIX
;;70;DEPARTMENT NUMBER
;;71;DOCUMENT IDENTIFIER CODE
;;72;ROUTING INDENTIFIER CODE
;;72.4;ACTIVITY ADDRESS CODE
;;73;DEPT.DESIGNATION
;;73.4;SPECIAL CODE
;;74;SIGNAL CODE
;;75;FUND CODE
;;76;DISTRIBUTION CODE
;;77;PROJECT CODE
;;78;PRIORITY CODE
;;79;ADVICE CODE
;;80;MEDIA & STATUS CODE
;;83;REASON CODE
;;91;TOTAL AMOUNT
;;92;NET AMOUNT
;;93;LIQUIDATED AMOUNT
;;94;ACTUAL 1358 BALANCE
;;95;FISCAL 1358 BALANCE
;;96;ESTIMATED 1358 BALANCE
;;96.5;CONVERTED 1358
;;96.6;AUTH. AMOUNT REMAINING
;;96.7;BULLETIN SENT
;;97;PROMPT PAY TYPE
;;101;PAYABLE CODE
;;102;DOCUMENT IDENTIFIER/COMMON NO.
;;102.4;REQUISITION NO.
;;102.5;ISSUE VOUCHER NO.
;;102.6;ISSUE VOUCHER NO.
;;103;LOG BATCH NO.
;;103.5;LOG ACQ.CODE SHEETS DONE?
;;104;LOG CODE SHEETS SENT BY
;;105;LOG CODE SH. VALIDATION CODE
;;105.5;LOG CS VALIDATION VERSION
;;106;DATE SIGNED
;;106.4;SUPPLY FUND ORDER OBLIGATED?
;;107;RELEASING FACILITY NUMBER
;;108;CASCA PROJECT NO.
;;109;CASCA TRANS TYPE
;;111;ISMS BATCH NO.
;;112;ISMS CODE SHEETS DONE?
;;113;ISMS CODE SHEETS SENT BY
;;114.5;ISMS VALIDATION VERSION
;;115;ISMS DATE SIGNED
;;116;DO YOU WANT TO SEND THIS EDI?
;;500.01;BILL #
;;501;CERTIFIED P.O.
;;117;REASON NOT COMPETED
;;118;NUMBER OF OFFERS
;;119;PRE AWARD SYNOPSIS
;;120;ALTERNATIVE ADVERTISING
;;121;SOLICITATION PROCEDURE
;;122;EVALUATED PREFERENCE
;;123;FUNDING AGENCY CODE
;;124;FUNDING AGENCY OFFICE CODE
;;125;MULTIYEAR
;;126;EPA DESIGNATED PRODUCT
;;127;CONTRACT BUNDLING
;;128;EXTENT COMPETED
;;129;PERF. BASED SERVICE CONTRACT
;;130;CLINGER COHEN
;;131;PLACE OF PERF. THIS STATION?
;;132;PLACE OF PERFORMANCE
;;133;SEND TO FPDS?
;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCHL5 4359 printed Apr 09, 2024@21:01:40 Page 2
PRCHL5 ;VACO/HNC/VAC - FLEX FIELD SORT;7/05/06 ; 3/8/07 12:54pm
+1 ;;5.1;IFCAP;**103**;Oct 20, 2000;Build 25
+2 ;Per VHA Directive 2004-038, this routine should not be modified
+3 ;
+4 ;hnc - July 5, 2006 removed ;;46;PURCHASE CARD NUMBER
+5 ;hnc - July 19, 2006 removed ;;55;PURCHASE CARD EXT. NO.
+6 ;hnc - July 19, 2006 added FPDS header and FPDS fields below
+7 ;hnc - July 21, 2006 move Primary 2237 to main grid
+8 ;hnc - Aug 21, 2006 add Item Detail to main grid
+9 ;VAC - March 8, 2007 remove Direct Delivery Patient from Detail
+10 ;
EN(RESULT,RMPRFLD) ;
+1 ;RESULT passed to broker in ^TMP($J,
+2 ;delimited by "^"
+3 KILL ^TMP($JOB)
+4 NEW RMPRII,RMPRLN
+5 SET CNT=0
+6 FOR RMPRII=1:1
SET RMPRLN=$PIECE($TEXT(HLST+RMPRII),";",4)
if RMPRLN=""
QUIT
Begin DoDot:1
+7 SET RMPRFLD=$PIECE($TEXT(HLST+RMPRII),";",3)
+8 SET CNT=CNT+1
+9 SET ^TMP($JOB,"RMPR",CNT)=RMPRLN_U_RMPRFLD
End DoDot:1
+10 SET RESULT=$NAME(^TMP($JOB))
+11 KILL CNT
+12 QUIT
HLST ;pick list
+1 ;;ITM;ITEM DETAIL
+2 ;;.03;SPECIAL FUND CONTROL POINT
+3 ;;.04;INVOICE ADDRESS
+4 ;;.06;PRIORITY OF 2237
+5 ;;.08;ESTIMATED ORDER?
+6 ;;.09;DEPOT VOUCHER NO.
+7 ;;.2;EMERGENCY ORDER?
+8 ;;.25;LOCAL PROCUREMENT REASON CODE
+9 ;;.3;EXPENDABLE/NONEXPENDABLE
+10 ;;.5;SUPPLY STATUS
+11 ;;.7;SUPPLY STATUS ORDER
+12 ;;.8;FISCAL STATUS ORDER
+13 ;;1.4;APPROPRIATION
+14 ;;3;SUBACCOUNT1
+15 ;;3.4;SUBAMOUNT1
+16 ;;4;SUBACCOUNT2
+17 ;;4.4;SUBAMOUNT2
+18 ;;5;VENDOR
+19 ;;5.1;DEBTOR
+20 ;;5.2;REQUESTING SERVICE
+21 ;;5.4;SHIP TO
+22 ;;5.6;DELIVERY LOCATION
+23 ;;6;VERBAL PURCHASE ORDER
+24 ;;6.2;CONFIRMATION COPY
+25 ;;6.4;F.O.B. POINT
+26 ;;6.9;ORIGINAL DELIVERY DATE
+27 ;;7;DELIVERY DATE
+28 ;;7.2;ESTIMATED COST
+29 ;;8;SOURCE CODE
+30 ;;8.1;ASTR. FOR SOURCE CODE
+31 ;;8.2;PROPOSAL
+32 ;;13;EST. SHIPPING AND/OR HANDLING
+33 ;;13.05;EST. SHIPPING BOC
+34 ;;13.1;EST. SHIPPING LINE ITEM NO.
+35 ;;13.2;GOV'T B/L NO.
+36 ;;13.3;SHIP VIA
+37 ;;13.4;GBL P.O.NUMBER
+38 ;;15;LINE ITEM COUNT
+39 ;;16;PA/PPM/AUTHORIZED BUYER
+40 ;;18;PO PRINTED TIME
+41 ;;18.6;NEED SPECIAL HANDLING?
+42 ;;18.7;TYPE OF SPECIAL HANDLING
+43 ;;19;AGENT ASSIGNED P.O.
+44 ;;19.2;DATE P.O. ASSIGNED
+45 ;;21;MONTH
+46 ;;22;QUARTER
+47 ;;23;LAST DIGIT OF FISCAL YEAR
+48 ;;26;BBFY
+49 ;;27;OLD PO RECORD
+50 ;;28;NEW PO RECORD
+51 ;;29;END DATE FOR SERVICE ORDER
+52 ;;30;AUTO ACCRUE
+53 ;;31;SUBSTATION
+54 ;;42;RFQ NBR
+55 ;;44;DISPUTED
+56 ;;47;DELIVERY ORDER
+57 ;;48;TYPE OF ORDER
+58 ;;51;SORT GROUP
+59 ;;52;CLASSIFICATION OF REQUEST
+60 ;;53;PCDO VENDOR
+61 ;;54;RECEIVING REQUIRED?
+62 ;;56;PURCHASE CARD USER
+63 ;;57;APPROVE RECONCILIATION USER
+64 ;;58;DATE RECONCILED
+65 ;;60;PURCHASE COST
+66 ;;61;PURCHASE CARD HOLDER
+67 ;;62;PCDO 2237
+68 ;;63;PROCESSING REQUIRED IN FISCAL
+69 ;;64;FREE TEXT VENDOR
+70 ;;65;INTERFACE PACKAGE PREFIX
+71 ;;70;DEPARTMENT NUMBER
+72 ;;71;DOCUMENT IDENTIFIER CODE
+73 ;;72;ROUTING INDENTIFIER CODE
+74 ;;72.4;ACTIVITY ADDRESS CODE
+75 ;;73;DEPT.DESIGNATION
+76 ;;73.4;SPECIAL CODE
+77 ;;74;SIGNAL CODE
+78 ;;75;FUND CODE
+79 ;;76;DISTRIBUTION CODE
+80 ;;77;PROJECT CODE
+81 ;;78;PRIORITY CODE
+82 ;;79;ADVICE CODE
+83 ;;80;MEDIA & STATUS CODE
+84 ;;83;REASON CODE
+85 ;;91;TOTAL AMOUNT
+86 ;;92;NET AMOUNT
+87 ;;93;LIQUIDATED AMOUNT
+88 ;;94;ACTUAL 1358 BALANCE
+89 ;;95;FISCAL 1358 BALANCE
+90 ;;96;ESTIMATED 1358 BALANCE
+91 ;;96.5;CONVERTED 1358
+92 ;;96.6;AUTH. AMOUNT REMAINING
+93 ;;96.7;BULLETIN SENT
+94 ;;97;PROMPT PAY TYPE
+95 ;;101;PAYABLE CODE
+96 ;;102;DOCUMENT IDENTIFIER/COMMON NO.
+97 ;;102.4;REQUISITION NO.
+98 ;;102.5;ISSUE VOUCHER NO.
+99 ;;102.6;ISSUE VOUCHER NO.
+100 ;;103;LOG BATCH NO.
+101 ;;103.5;LOG ACQ.CODE SHEETS DONE?
+102 ;;104;LOG CODE SHEETS SENT BY
+103 ;;105;LOG CODE SH. VALIDATION CODE
+104 ;;105.5;LOG CS VALIDATION VERSION
+105 ;;106;DATE SIGNED
+106 ;;106.4;SUPPLY FUND ORDER OBLIGATED?
+107 ;;107;RELEASING FACILITY NUMBER
+108 ;;108;CASCA PROJECT NO.
+109 ;;109;CASCA TRANS TYPE
+110 ;;111;ISMS BATCH NO.
+111 ;;112;ISMS CODE SHEETS DONE?
+112 ;;113;ISMS CODE SHEETS SENT BY
+113 ;;114.5;ISMS VALIDATION VERSION
+114 ;;115;ISMS DATE SIGNED
+115 ;;116;DO YOU WANT TO SEND THIS EDI?
+116 ;;500.01;BILL #
+117 ;;501;CERTIFIED P.O.
+118 ;;117;REASON NOT COMPETED
+119 ;;118;NUMBER OF OFFERS
+120 ;;119;PRE AWARD SYNOPSIS
+121 ;;120;ALTERNATIVE ADVERTISING
+122 ;;121;SOLICITATION PROCEDURE
+123 ;;122;EVALUATED PREFERENCE
+124 ;;123;FUNDING AGENCY CODE
+125 ;;124;FUNDING AGENCY OFFICE CODE
+126 ;;125;MULTIYEAR
+127 ;;126;EPA DESIGNATED PRODUCT
+128 ;;127;CONTRACT BUNDLING
+129 ;;128;EXTENT COMPETED
+130 ;;129;PERF. BASED SERVICE CONTRACT
+131 ;;130;CLINGER COHEN
+132 ;;131;PLACE OF PERF. THIS STATION?
+133 ;;132;PLACE OF PERFORMANCE
+134 ;;133;SEND TO FPDS?
+135 ;END
