| 1 | RMPR9LN1 ;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.
|
|---|
| 4 | EN(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
|
|---|
| 16 | HLST ;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
|
|---|
