Routine: RMPRFC5

Information

RMPRFC5 ;HINES CIOFO/HNC - Utility ; 3/22/05

Source file <RMPRFC5.m>

Name	Comments	DBIA/ICR reference
TRIMWP(ARRAY,PIECE)	;OBX segments so that only comment remains ; Input: ; ARRAY = the array in which the segments are contained ; ex. ^TMP("RMPRIF",541083753,"OBX",3,3)=3\|TX\|^COMMENTS^\|3\|text " ; PIECE = the piece in the array where the text lives ; ; Output: ; trimmed array ; ex. ^TMP("RMPRIF",541083753,"OBX",3,3)="text"
EXIT	;