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

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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