source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHL5.m@ 1800

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