Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCHL5

PRCHL5.m

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