Routine: RMPRFC5

Information

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

Source file <RMPRFC5.m>

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Prosthetics	1	RMPRFC4

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	;