source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSFD.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1ZVEMSFD ;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 ;;;***
17DDIOL ;;;
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 ;;;***
42DIAXU ;;;
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 ;;;***
Note: See TracBrowser for help on using the repository browser.