| [613] | 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 | ;;;***
|
|---|