Using the Caché ^%R Routine - InterSystems Documentation

LINESET^%R
; Change the namespace we will use
Znspace "SAMPLES"
; fill in the source code array
Set N = 0
Set code($INCREMENT(N)) = "AnExample ; An example routine"
; Note leading spaces on the following entries"
Set code($INCREMENT(N)) = " Write ""AnExample"", !"
Set code($INCREMENT(N)) = " Quit"
Set code(0) = N
Set routine = "AnExample.INT"
Set options = "S"
Set errors = ""
; Save
; empty list
; do it
Set return = $$ROUTINE^%R(routine, .code, .errors, options)
; show the simple result
Write "Save result: ", return, !
If (+return = "")
{
; format and display the errors
Write $$FMTERR^%R(.errors, .code), !
}
Else
{
; remove local info
Kill code
; list the routine backwards
For i = $$LENGTH^%R(routine) : -1 : 1
{
Write "Line ", i, ":: ", $$LINE^%R(routine, i), !
}
}
; remove the saved source
Write "Removing ", routine, ": ", $$DEL^%R(routine), !
LINESET^%R
LINESET^%R (rtn, linenum, linetext)
Parameters
rtn
linenum
linetext
The name of the target routine.
The number of the line to be replaced or added.
The contents of the new line.
Description
This function inserts the source text at the position indicated in the specified routine.
Using the Caché ^%R Routine 25