RMPR9LN1 ;HOIFO/HNC - FLEX FIELD SORT;9/18/02 11:38
;;3.0;PROSTHETICS;**90,75,60,125,168**;Feb 09, 1996;Build 43
;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
;;20;DELIVERY VERIFICATION DATE
;;20.1;DELIVERY VERIFICATION STATUS
;;23;Transaction Number or PO Number
;;24;Brief Description
;;25;Deliver To
;;26;Date Required
;;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 ICD
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR9LN1 2453 printed Dec 13, 2024@02:33:39 Page 2
RMPR9LN1 ;HOIFO/HNC - FLEX FIELD SORT;9/18/02 11:38
+1 ;;3.0;PROSTHETICS;**90,75,60,125,168**;Feb 09, 1996;Build 43
+2 ;SPS - Patch 75 added DALC section at the end.
EN(RESULT) ;
+1 ;RESULT passed to broker in ^TMP($J,
+2 ;delimited by "^"
+3 KILL ^TMP($JOB)
+4 NEW RMPRII,RMPRLN
+5 SET CNT=0
+6 FOR RMPRII=1:1
SET RMPRLN=$PIECE($TEXT(HLST+RMPRII),";",4)
if RMPRLN=""
QUIT
Begin DoDot:1
+7 SET RMPRFLD=$PIECE($TEXT(HLST+RMPRII),";",3)
+8 SET CNT=CNT+1
+9 SET ^TMP($JOB,"RMPR",CNT)=RMPRLN_U_RMPRFLD
End DoDot:1
+10 SET RESULT=$NAME(^TMP($JOB))
+11 QUIT
HLST ;pick list
+1 ;;0;*** COMMON/PURCHASING ***
+2 ;;1;Date Item Added To PO
+3 ;;2;Type Of Transaction
+4 ;;4;Billing Item
+5 ;;10;Delivery Date
+6 ;;11;Form
+7 ;;12;Souce
+8 ;;14;Total Cost
+9 ;;16;Remarks
+10 ;;20;DELIVERY VERIFICATION DATE
+11 ;;20.1;DELIVERY VERIFICATION STATUS
+12 ;;23;Transaction Number or PO Number
+13 ;;24;Brief Description
+14 ;;25;Deliver To
+15 ;;26;Date Required
+16 ;;27;Initiator
+17 ;;38.1;Exclude/Waiver
+18 ;;38.7;Contract #
+19 ;;62;Patient Category
+20 ;;63;Special Category
+21 ;;34;OIF/OEF
+22 ;;78;Unit Of Issue
+23 ;;89;Saved Item Description
+24 ;;0;*** INVENTORY ***
+25 ;;4.6;Stock Issue Date
+26 ;;37;PIP Item Description
+27 ;;38;HCPCS PIP Description
+28 ;;0;*** PRODUCT INFORMATION ***
+29 ;;4.9;Coding Error Flag
+30 ;;4.91;Coding Flag Date
+31 ;;8.12;PCE
+32 ;;8.13;PCE Date
+33 ;;9;Serial Number
+34 ;;9.1;Product Description
+35 ;;9.2;Product Model
+36 ;;21;Lot Number
+37 ;;35;Who Edit 2319
+38 ;;36;Date of Edit 2319
+39 ;;0;*** SUSPENSE ***
+40 ;;8.1;Suspense Date
+41 ;;8.11;Suspense Station
+42 ;;8.14;Suspense Status
+43 ;;8.2;Date RX Written
+44 ;;8.3;Initial Action Date
+45 ;;8.4;Completion Date
+46 ;;8.5;Type of Request
+47 ;;8.6;Suspense Requestor
+48 ;;8.61;Consult Request Service
+49 ;;8.7;Provisional Diagnosis
+50 ;;8.8;Suspense ICD
+51 ;;8.9;Consult Date
+52 ;;0;*** RETURNED ITEMS ***
+53 ;;13;Action
+54 ;;17;Returned Status
+55 ;;17.5;Retruned Status Date
+56 ;;0;*** ORTHO LAB ***
+57 ;;40;Lab Requesting Station
+58 ;;45;Total Lab Labor Hours
+59 ;;46;Total Lab Labor Cost
+60 ;;47;Total Lab Material Cost
+61 ;;48;Total Lab Cost
+62 ;;50;Lab Completion Date
+63 ;;51;Lab Remarks
+64 ;;69;Source of Procurement
+65 ;;70;Receiving Station
+66 ;;71;Work Order Number
+67 ;;72;2529-3 Date
+68 ;;4.92;HIGH TECH ITEM
+69 ;;72.5;FREE TEXT WO #
+70 ;;80;Lab Work for Other Station
+71 ;;81;NO ADMIN COUNT
+72 ;;0;*** DALC ***
+73 ;;89.1;DALC REFERENCE NUMBER
+74 ;;89.2;DALC BILLING DATE
+75 ;;89;DALC ITEM
+76 ;;4.2;WHO PLACED ORDER
+77 ;;89.3;DALC ORDERING STATION
+78 ;;90;DALC BILLING STATION
+79 ;;91;DALC VENDOR
+80 ;;92;DALC DUNS
+81 ;;93;DALC TAXID
+82 ;END
