1 | ZVEMSF4 ;DJB,VSHL**DICQ,DICRW,DID,DIEZ,DIFG,DICD,DIKZ [12/4/95 7:08pm]
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | DICQ ;;;
|
---|
5 | ;;; D I C Q Entry Display for Loop-ups
|
---|
6 | ;;;
|
---|
7 | ;;; 1. ENTRY POINT: DQ^DICQ
|
---|
8 | ;;; Use this subroutine to process a question mark response directly.
|
---|
9 | ;;;
|
---|
10 | ;;; 2. INPUT VARIABLES
|
---|
11 | ;;; DIC........Global root
|
---|
12 | ;;; DIC(0).....Same as ^DIC
|
---|
13 | ;;; DIC("S")...Optional. Same as ^DIC
|
---|
14 | ;;; D..........Set to "B".
|
---|
15 | ;;; DZ.........Set to "??" to prevent "DO YOU WANT TO SEE ALL nn ENTRIES?"
|
---|
16 | ;;; prompt.
|
---|
17 | ;;;***
|
---|
18 | DICRW ;;;
|
---|
19 | ;;; D I C R W Required Variables
|
---|
20 | ;;;
|
---|
21 | ;;; 1. ENTRY POINT: DT^DICRW
|
---|
22 | ;;;
|
---|
23 | ;;; 2. OUTPUT VARIABLES
|
---|
24 | ;;; DUZ......Set to zero if not already defined.
|
---|
25 | ;;; DUZ(0)...Set to null if not already defined. If DUZ(0)=@ enables
|
---|
26 | ;;; terminal break if operating system supports it.
|
---|
27 | ;;; IO(0)....Set to $I if IO(0) is not defined. Therefore this program should
|
---|
28 | ;;; not be used if user is on a device different from the home
|
---|
29 | ;;; terminal and IO(0) is undefined.
|
---|
30 | ;;; DT.......Set to the current date.
|
---|
31 | ;;; U........Up-arrow (^).
|
---|
32 | ;;;***
|
---|
33 | DID ;;;
|
---|
34 | ;;; D I D Data Dictionary Listing
|
---|
35 | ;;;
|
---|
36 | ;;; 1. ENTRY POINT: EN^DID
|
---|
37 | ;;;
|
---|
38 | ;;; 2. INPUT VARIABLES
|
---|
39 | ;;; DIC........Data dictionary number
|
---|
40 | ;;; DIFORMAT...Equal to desired data dictionary format:
|
---|
41 | ;;; STANDARD, BRIEF, MODIFIED STANDARD, TEMPLATES ONLY
|
---|
42 | ;;; GLOBAL MAP, CONDENSED
|
---|
43 | ;;;***
|
---|
44 | DIEZ ;;;
|
---|
45 | ;;; D I E Z Input Template Compilation
|
---|
46 | ;;;
|
---|
47 | ;;; 1. ENTRY POINT: ^DIEZ
|
---|
48 | ;;;
|
---|
49 | ;;; 1. ENTRY POINT: EN^DIEZ
|
---|
50 | ;;; Recompile an input template without user intervention.
|
---|
51 | ;;;
|
---|
52 | ;;; 2. INPUT VARIABLES
|
---|
53 | ;;; X.......Routine name.
|
---|
54 | ;;; Y.......The internal entry number of template.
|
---|
55 | ;;; DMAX....Maximum size of compiled routines.
|
---|
56 | ;;;***
|
---|
57 | DIFG ;;;
|
---|
58 | ;;; D I F G Filegrams
|
---|
59 | ;;;
|
---|
60 | ;;; Refer to the VA Fileman Programmer's Manual.
|
---|
61 | ;;;***
|
---|
62 | DICD ;;;
|
---|
63 | ;;; D I C D Wait Messages
|
---|
64 | ;;;
|
---|
65 | ;;; 1. ENTRY POINT: WAIT^DICD
|
---|
66 | ;;; Generates wait messages.
|
---|
67 | ;;;***
|
---|
68 | DIKZ ;;;
|
---|
69 | ;;; D I K Z Cross Reference Compilation
|
---|
70 | ;;;
|
---|
71 | ;;; 1. ENTRY POINT: ^DIKZ
|
---|
72 | ;;; Compiled routines are then used when any calls to ^DIK are made.
|
---|
73 | ;;;
|
---|
74 | ;;; 1. ENTRY POINT: EN^DIKZ
|
---|
75 | ;;; Recompile a file's cross references without user intervention.
|
---|
76 | ;;;
|
---|
77 | ;;; 2. INPUT VARIABLES
|
---|
78 | ;;; X.......Routine name.
|
---|
79 | ;;; Y.......The file number.
|
---|
80 | ;;; DMAX....Maximum size of compiled routines.
|
---|
81 | ;;;***
|
---|