source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSF4.m@ 1240

ZVEMSF4 ;DJB,VSHL**DICQ,DICRW,DID,DIEZ,DIFG,DICD,DIKZ [12/4/95 7:08pm]
 ;;12;VPE;;COPYRIGHT David Bolduc @1993
 ;
DICQ ;;;
 ;;; D I C Q     Entry Display for Loop-ups
 ;;;
 ;;; 1. ENTRY POINT: DQ^DICQ
 ;;;    Use this subroutine to process a question mark response directly.
 ;;;
 ;;; 2. INPUT VARIABLES
 ;;;    DIC........Global root
 ;;;    DIC(0).....Same as ^DIC
 ;;;    DIC("S")...Optional. Same as ^DIC
 ;;;    D..........Set to "B".
 ;;;    DZ.........Set to "??" to prevent "DO YOU WANT TO SEE ALL nn ENTRIES?"
 ;;;               prompt.
 ;;;***
DICRW ;;;
 ;;; D I C R W     Required Variables
 ;;;
 ;;; 1. ENTRY POINT: DT^DICRW
 ;;;
 ;;; 2. OUTPUT VARIABLES
 ;;;    DUZ......Set to zero if not already defined.
 ;;;    DUZ(0)...Set to null if not already defined. If DUZ(0)=@ enables
 ;;;             terminal break if operating system supports it.
 ;;;    IO(0)....Set to $I if IO(0) is not defined. Therefore this program should
 ;;;             not be used if user is on a device different from the home
 ;;;             terminal and IO(0) is undefined.
 ;;;    DT.......Set to the current date.
 ;;;    U........Up-arrow (^).
 ;;;***
DID ;;;
 ;;; D I D     Data Dictionary Listing
 ;;;
 ;;; 1. ENTRY POINT: EN^DID
 ;;;
 ;;; 2. INPUT VARIABLES
 ;;;    DIC........Data dictionary number
 ;;;    DIFORMAT...Equal to desired data dictionary format:
 ;;;               STANDARD, BRIEF, MODIFIED STANDARD, TEMPLATES ONLY
 ;;;               GLOBAL MAP, CONDENSED
 ;;;***
DIEZ ;;;
 ;;; D I E Z     Input Template Compilation
 ;;;
 ;;; 1. ENTRY POINT: ^DIEZ
 ;;;
 ;;; 1. ENTRY POINT: EN^DIEZ
 ;;;    Recompile an input template without user intervention.
 ;;;
 ;;; 2. INPUT VARIABLES
 ;;;    X.......Routine name.
 ;;;    Y.......The internal entry number of template.
 ;;;    DMAX....Maximum size of compiled routines.
 ;;;***
DIFG ;;;
 ;;; D I F G     Filegrams
 ;;;
 ;;;  Refer to the VA Fileman Programmer's Manual.
 ;;;***
DICD ;;;
 ;;; D I C D     Wait Messages
 ;;;
 ;;; 1. ENTRY POINT: WAIT^DICD
 ;;;    Generates wait messages.
 ;;;***
DIKZ ;;;
 ;;; D I K Z     Cross Reference Compilation
 ;;;
 ;;; 1. ENTRY POINT: ^DIKZ
 ;;;    Compiled routines are then used when any calls to ^DIK are made.
 ;;;
 ;;; 1. ENTRY POINT: EN^DIKZ
 ;;;    Recompile a file's cross references without user intervention.
 ;;;
 ;;; 2. INPUT VARIABLES
 ;;;    X.......Routine name.
 ;;;    Y.......The file number.
 ;;;    DMAX....Maximum size of compiled routines.
 ;;;***