96 lines
2.2 KiB
Mathematica
96 lines
2.2 KiB
Mathematica
RMPR9LN1 ;HOIFO/HNC - FLEX FIELD SORT;9/18/02 11:38
|
|
;;3.0;PROSTHETICS;**90,75,60**;Feb 09, 1996;Build 18
|
|
;SPS - Patch 75 added DALC section at the end.
|
|
EN(RESULT) ;
|
|
;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))
|
|
Q
|
|
HLST ;pick list
|
|
;;0;*** COMMON/PURCHASING ***
|
|
;;1;Date Item Added To PO
|
|
;;2;Type Of Transaction
|
|
;;4;Billing Item
|
|
;;10;Delivery Date
|
|
;;11;Form
|
|
;;12;Souce
|
|
;;14;Total Cost
|
|
;;16;Remarks
|
|
;;23;Transaction Number or PO Number
|
|
;;24;Brief Description
|
|
;;25;Deliver To
|
|
;;27;Initiator
|
|
;;38.1;Exclude/Waiver
|
|
;;38.7;Contract #
|
|
;;62;Patient Category
|
|
;;63;Special Category
|
|
;;34;OIF/OEF
|
|
;;78;Unit Of Issue
|
|
;;89;Saved Item Description
|
|
;;0;*** INVENTORY ***
|
|
;;4.6;Stock Issue Date
|
|
;;37;PIP Item Description
|
|
;;38;HCPCS PIP Description
|
|
;;0;*** PRODUCT INFORMATION ***
|
|
;;4.9;Coding Error Flag
|
|
;;4.91;Coding Flag Date
|
|
;;8.12;PCE
|
|
;;8.13;PCE Date
|
|
;;9;Serial Number
|
|
;;9.1;Product Description
|
|
;;9.2;Product Model
|
|
;;21;Lot Number
|
|
;;35;Who Edit 2319
|
|
;;36;Date of Edit 2319
|
|
;;0;*** SUSPENSE ***
|
|
;;8.1;Suspense Date
|
|
;;8.11;Suspense Station
|
|
;;8.14;Suspense Status
|
|
;;8.2;Date RX Written
|
|
;;8.3;Initial Action Date
|
|
;;8.4;Completion Date
|
|
;;8.5;Type of Request
|
|
;;8.6;Suspense Requestor
|
|
;;8.61;Consult Request Service
|
|
;;8.7;Provisional Diagnosis
|
|
;;8.8;Suspense ICD9
|
|
;;8.9;Consult Date
|
|
;;0;*** RETURNED ITEMS ***
|
|
;;13;Action
|
|
;;17;Returned Status
|
|
;;17.5;Retruned Status Date
|
|
;;0;*** ORTHO LAB ***
|
|
;;40;Lab Requesting Station
|
|
;;45;Total Lab Labor Hours
|
|
;;46;Total Lab Labor Cost
|
|
;;47;Total Lab Material Cost
|
|
;;48;Total Lab Cost
|
|
;;50;Lab Completion Date
|
|
;;51;Lab Remarks
|
|
;;69;Source of Procurement
|
|
;;70;Receiving Station
|
|
;;71;Work Order Number
|
|
;;72;2529-3 Date
|
|
;;4.92;HIGH TECH ITEM
|
|
;;72.5;FREE TEXT WO #
|
|
;;80;Lab Work for Other Station
|
|
;;81;NO ADMIN COUNT
|
|
;;0;*** DALC ***
|
|
;;89.1;DALC REFERENCE NUMBER
|
|
;;89.2;DALC BILLING DATE
|
|
;;89;DALC ITEM
|
|
;;4.2;WHO PLACED ORDER
|
|
;;89.3;DALC ORDERING STATION
|
|
;;90;DALC BILLING STATION
|
|
;;91;DALC VENDOR
|
|
;;92;DALC DUNS
|
|
;;93;DALC TAXID
|
|
;END
|