1 | ZVEMSFD ;DJB,VSHL**%RCR,DIAXU,DDIOL [07/16/94]
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | %RCR ;;;
|
---|
5 | ;;; % R C R Array Moving
|
---|
6 | ;;;
|
---|
7 | ;;; 1. ENTRY POINT: %XY^%RCR
|
---|
8 | ;;;
|
---|
9 | ;;; 2. INPUT VARIABLES
|
---|
10 | ;;; %X.....The global or array root of an existing array.
|
---|
11 | ;;; %Y.....The global or array root of the target array.
|
---|
12 | ;;; Example: To move array X to ^TMP($J you would write:
|
---|
13 | ;;; S %X="X("
|
---|
14 | ;;; S %Y="^TMP($J,"
|
---|
15 | ;;; D %XY^%RCR
|
---|
16 | ;;;***
|
---|
17 | DDIOL ;;;
|
---|
18 | ;;; D D I O L Writer
|
---|
19 | ;;;
|
---|
20 | ;;; Programmers will have to remove embedded WRITE statements from data
|
---|
21 | ;;; dictionaries as alternate user interfaces are developed for FM. Direct
|
---|
22 | ;;; writes might cause the text to display improperly in the new interface.
|
---|
23 | ;;;
|
---|
24 | ;;; 1. ENTRY POINT: EN^DDIOL
|
---|
25 | ;;; This is designed to replace WRITE statements in data dictionaries, such
|
---|
26 | ;;; as executable help. Each string literal passed is written on a new line.
|
---|
27 | ;;; Strings passed should not be longer than 70 characters.
|
---|
28 | ;;;
|
---|
29 | ;;; FORMATS: a. DO EN^DDIOL(Value)
|
---|
30 | ;;; b. DO EN^DDIOL(.Array)
|
---|
31 | ;;; c. DO EN^DDIOL("","^Global Name")
|
---|
32 | ;;;
|
---|
33 | ;;; Value = Any MUMPS expression passed by value, such as a string literal
|
---|
34 | ;;; or a variable.
|
---|
35 | ;;; Array = The name of a local array passed by reference.
|
---|
36 | ;;; A(1) = String 1
|
---|
37 | ;;; A(2) = String 2
|
---|
38 | ;;; Global Name = Name of a global containing string literals.
|
---|
39 | ;;; @GlobalName@(1,0) = String 1
|
---|
40 | ;;; @GlobalName@(2,0) = String 2
|
---|
41 | ;;;***
|
---|
42 | DIAXU ;;;
|
---|
43 | ;;; D I A X U Extract Data
|
---|
44 | ;;;
|
---|
45 | ;;; 1. ENTRY POINT: EN^DIAXU
|
---|
46 | ;;; Extracts data specified in template for a single entry, and moves
|
---|
47 | ;;; that data to a destination file. Source entry may be deleted.
|
---|
48 | ;;;
|
---|
49 | ;;; 2. INPUT VARIABLES
|
---|
50 | ;;; DIAXF......Global root or number of file containing source entry.
|
---|
51 | ;;; DIAXT......Extract template (in brackets) in source file that
|
---|
52 | ;;; contains specifications of data to be extracted.
|
---|
53 | ;;; DIAXFE.....Internal entry number of source entry.
|
---|
54 | ;;; DIAXDEL....Optional. If defined, tells pgm to delete source entry.
|
---|
55 | ;;;
|
---|
56 | ;;; 3. OUTPUT VARIABLES
|
---|
57 | ;;; DIAXDA......Internal entry number of entry created in destination file.
|
---|
58 | ;;; DIAXNTC.....Internal entry number of validated extract template.
|
---|
59 | ;;;
|
---|
60 | ;;; DIAXFE killed upon exit. DIAXF,DIAXT,DIAXDEL not killed.
|
---|
61 | ;;;
|
---|
62 | ;;; DIAXNTC is flag used to determine if extract template has been validated.
|
---|
63 | ;;; Validation is necessary to ensure mapping information is valid. If this
|
---|
64 | ;;; entry point is used within a FOR loop to move several entries, kill this
|
---|
65 | ;;; variable outside the loop since re-validation occurs for each call within
|
---|
66 | ;;; the loop.
|
---|
67 | ;;;
|
---|
68 | ;;; If an error occurred during extract process, the following array is
|
---|
69 | ;;; returned instead:
|
---|
70 | ;;; ^TMP("DIERR",$J,n,"TEXT",0) = ^^m^m
|
---|
71 | ;;; ^TMP("DIERR",$J,n,"TEXT",1:m,0) = error msg
|
---|
72 | ;;; n = error sequence number. DIERR can be used as a terminating
|
---|
73 | ;;; value when looping through this array.
|
---|
74 | ;;; m = Total number of nodes of msg text for error n.
|
---|
75 | ;;;
|
---|
76 | ;;; DIAXDA is not defined. All input variables are left defined.
|
---|
77 | ;;;***
|
---|