- 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 Jan 18, 2025@03:09:35 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