source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGQEPRE.m@ 1093

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

initial load of WorldVistAEHR

File size: 485 bytes
RevLine 
[613]1DGQEPRE ;ALB/JFP - VIC PRE INIT DRIVER; 09/01/96
2 ;;V5.3;REGISTRATION;**73**;DEC 11,1996
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4CHKPTS ; -- Create check points for pre-init
5 ;Input : All variables set by KIDS
6 ;Output : None
7 ;
8 ;Declare variables
9 N TMP
10 ; -- Create check points
11 ;Create Terminal Type file entry
12 S TMP=$$NEWCP^XPDUTL("DGQE01","TYPE^DGQEP0")
13 ; -- Create Device file entry
14 S TMP=$$NEWCP^XPDUTL("DGQE02","DEVICE^DGQEP0")
15 ; -- Done
16 Q
Note: See TracBrowser for help on using the repository browser.