source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9LN1.m@ 1697

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1RMPR9LN1 ;HOIFO/HNC - FLEX FIELD SORT;9/18/02 11:38
2 ;;3.0;PROSTHETICS;**90,75,60**;Feb 09, 1996;Build 18
3 ;SPS - Patch 75 added DALC section at the end.
4EN(RESULT) ;
5 ;RESULT passed to broker in ^TMP($J,
6 ;delimited by "^"
7 K ^TMP($J)
8 N RMPRII,RMPRLN
9 S CNT=0
10 F RMPRII=1:1 S RMPRLN=$P($T(HLST+RMPRII),";",4) Q:RMPRLN="" D
11 .S RMPRFLD=$P($T(HLST+RMPRII),";",3)
12 .S CNT=CNT+1
13 .S ^TMP($J,"RMPR",CNT)=RMPRLN_U_RMPRFLD
14 S RESULT=$NA(^TMP($J))
15 Q
16HLST ;pick list
17 ;;0;*** COMMON/PURCHASING ***
18 ;;1;Date Item Added To PO
19 ;;2;Type Of Transaction
20 ;;4;Billing Item
21 ;;10;Delivery Date
22 ;;11;Form
23 ;;12;Souce
24 ;;14;Total Cost
25 ;;16;Remarks
26 ;;23;Transaction Number or PO Number
27 ;;24;Brief Description
28 ;;25;Deliver To
29 ;;27;Initiator
30 ;;38.1;Exclude/Waiver
31 ;;38.7;Contract #
32 ;;62;Patient Category
33 ;;63;Special Category
34 ;;34;OIF/OEF
35 ;;78;Unit Of Issue
36 ;;89;Saved Item Description
37 ;;0;*** INVENTORY ***
38 ;;4.6;Stock Issue Date
39 ;;37;PIP Item Description
40 ;;38;HCPCS PIP Description
41 ;;0;*** PRODUCT INFORMATION ***
42 ;;4.9;Coding Error Flag
43 ;;4.91;Coding Flag Date
44 ;;8.12;PCE
45 ;;8.13;PCE Date
46 ;;9;Serial Number
47 ;;9.1;Product Description
48 ;;9.2;Product Model
49 ;;21;Lot Number
50 ;;35;Who Edit 2319
51 ;;36;Date of Edit 2319
52 ;;0;*** SUSPENSE ***
53 ;;8.1;Suspense Date
54 ;;8.11;Suspense Station
55 ;;8.14;Suspense Status
56 ;;8.2;Date RX Written
57 ;;8.3;Initial Action Date
58 ;;8.4;Completion Date
59 ;;8.5;Type of Request
60 ;;8.6;Suspense Requestor
61 ;;8.61;Consult Request Service
62 ;;8.7;Provisional Diagnosis
63 ;;8.8;Suspense ICD9
64 ;;8.9;Consult Date
65 ;;0;*** RETURNED ITEMS ***
66 ;;13;Action
67 ;;17;Returned Status
68 ;;17.5;Retruned Status Date
69 ;;0;*** ORTHO LAB ***
70 ;;40;Lab Requesting Station
71 ;;45;Total Lab Labor Hours
72 ;;46;Total Lab Labor Cost
73 ;;47;Total Lab Material Cost
74 ;;48;Total Lab Cost
75 ;;50;Lab Completion Date
76 ;;51;Lab Remarks
77 ;;69;Source of Procurement
78 ;;70;Receiving Station
79 ;;71;Work Order Number
80 ;;72;2529-3 Date
81 ;;4.92;HIGH TECH ITEM
82 ;;72.5;FREE TEXT WO #
83 ;;80;Lab Work for Other Station
84 ;;81;NO ADMIN COUNT
85 ;;0;*** DALC ***
86 ;;89.1;DALC REFERENCE NUMBER
87 ;;89.2;DALC BILLING DATE
88 ;;89;DALC ITEM
89 ;;4.2;WHO PLACED ORDER
90 ;;89.3;DALC ORDERING STATION
91 ;;90;DALC BILLING STATION
92 ;;91;DALC VENDOR
93 ;;92;DALC DUNS
94 ;;93;DALC TAXID
95 ;END
Note: See TracBrowser for help on using the repository browser.