source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSFA.m@ 1110

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

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1ZVEMSFA ;DJB,VSHL**DIU2,DIWE,DIWP,DIWW [04/17/94]
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4DIU2 ;;;
5 ;;; D I U 2 Data Dictionary Deletion
6 ;;;
7 ;;; 1. ENTRY POINT: EN^DIU2
8 ;;;
9 ;;; 2. INPUT VARIABLES
10 ;;; DIU.....File number or global root. This must be a subfile number when
11 ;;; deleting a subfile's data dictionary.
12 ;;; DIU(0)..D=Delete data as well as data dictionary
13 ;;; E=Echo back info during deletion
14 ;;; S=Subfile data dictionary is to be deleted
15 ;;; T=Templates are to be deleted
16 ;;;
17 ;;; Example: S DIU="^DIZ(16000.1,",DIU(0)="" D EN^DIU2
18 ;;; This will delete data dictionary. Data and templates remain.
19 ;;; When deleting the dictionary for a subfile you must include
20 ;;; the S in DIU(0).
21 ;;;
22 ;;; NOTE: If your file is in ^DIC(file#, the data will ALWAYS be deleted.
23 ;;;***
24DIWE ;;;
25 ;;; D I W E Edit Word Processing Text
26 ;;;
27 ;;; 1. ENTRY POINT: ^DIWE
28 ;;;
29 ;;; 2. INPUT VARIABLES
30 ;;; DIC.....Global root.
31 ;;; DWLW....Optional. Maximum number of characters stored on a word
32 ;;; processing node.
33 ;;; DWPK....Optional.
34 ;;; 1 = If user enters lines shorter than DWLW, they will not
35 ;;; be joined. If lines are longer than DWLW, they will
36 ;;; be broken at word boundaries.
37 ;;; 2 = Lines shorter will be joined til they get to DWLW.
38 ;;; If lines are longer they will broken at word boundaries.
39 ;;;***
40DIWP ;;;
41 ;;; D I W P Word Processing
42 ;;;
43 ;;; 1. ENTRY POINT: ^DIWP
44 ;;; Before calling DIWP, kill global ^UTILITY($J,"W"). Then DIWP is invoked
45 ;;; for each text line.
46 ;;;
47 ;;; 2. INPUT VARIABLES
48 ;;; X.......The string of text to be added as input to the formatter. X may
49 ;;; contain |-windows. The expressions within the windows will be
50 ;;; processed as long as they DO NOT refer to database field names.
51 ;;; Thus, |TODAY| will cause today's date to be inserted into the
52 ;;; formatted text.
53 ;;; DIWL....Left margin.
54 ;;; DIWR....Right margin
55 ;;; DIWF....A string of format control parameters:
56 ;;; W = The formatted text will be written out to the current device,
57 ;;; and will not be stored in ^UTILITY($J,"W").
58 ;;; B = Followed by integer, n. The text will stop printing n lines
59 ;;; from the bottom of the page.
60 ;;; C = Followed by integer, n. Column width. Overrides DIWR.
61 ;;; D = Double spaced.
62 ;;; I = Followed by integer, n. Indent n col from left margin (DIWL).
63 ;;; N = No-wrap. If DIWF contains N, DIWR will be ignored.
64 ;;; R = Right justified.
65 ;;;***
66DIWW ;;;
67 ;;; D I W W Output Last Line of Text
68 ;;;
69 ;;; 1. ENTRY POINT: ^DIWW
70 ;;; DIWW must be invoked after the last X string is input to DIWP. It allows
71 ;;; the final line of formatted text to be output.
72 ;;;***
Note: See TracBrowser for help on using the repository browser.