As you can see, this Remote procedure calls TGET^TIUSRVR1()
MUMPS>w $T(TGET^TIUSRVR1)
TGET(TIUY,TIUDA,ACTION) ; Build ^TMP("TIUVIEW",$J,
The first argument TIUY is the output "results" location. in this
it is the global root for the text portion of the
TIU Document record: ie:
MUMPS>WRITE $T(TGET+7^TIUSRVR1),!
S TIUY=$NA(^TMP("TIUVIEW",$J))
The second argument TIUDA is the progress note internal number in
file #8925 TIU DOCUMENT, rooted at "^TIU(8925,"
The third argument ACTION defaults to "VIEW" but may
be other valid TIU actions
MUMPS>D P^DI
VA FileMan 22.0
Select OPTION: INQUIRE TO FILE ENTRIES
OUTPUT FROM WHAT FILE: NEW PERSON// REMOTE PROCEDURE
(3158 entries)
Select REMOTE PROCEDURE NAME: TIU GET RECORD TEXT
ANOTHER ONE:
STANDARD CAPTIONED OUTPUT? Yes// (Yes)
Include COMPUTED fields: (N/Y/R/B): NO// BOTH Computed Fields and Record
Number
(IEN)
NUMBER: 147 NAME: TIU GET RECORD TEXT
TAG: TGET ROUTINE: TIUSRVR1
RETURN VALUE TYPE: GLOBAL ARRAY AVAILABILITY: SUBSCRIPTION
WORD WRAP ON: TRUE
DESCRIPTION:
This RPC will get the textual portion of a TIU Document Record.
INPUT PARAMETER: TIUDA PARAMETER TYPE: LITERAL
MAXIMUM DATA LENGTH: 10 REQUIRED: YES
> I want to modify a server function for CPRS.
>
> When I look at the broker call record in CPRS, it says
> that the call was "TIU GET RECORD TEXT"
>
> I can't remember which file these RPC calls are stored
> in.
>
> Can someone point me in the right direction?
>
> Thanks
> Kevin
-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
