161 lines
4.1 KiB
Mathematica
161 lines
4.1 KiB
Mathematica
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
|