DGQEPRE.m

DGQEPRE ;ALB/JFP - VIC PRE INIT DRIVER; 09/01/96

 ;;5.3;REGISTRATION;**73,1015**;DEC 11,1996;Build 21

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

CHKPTS ; -- Create check points for pre-init

 ;Input  : All variables set by KIDS

 ;Output : None

 ;

 ;Declare variables

 N TMP

 ; -- Create check points

 ;Create Terminal Type file entry

 S TMP=$$NEWCP^XPDUTL("DGQE01","TYPE^DGQEP0")

 ; -- Create Device file entry

 S TMP=$$NEWCP^XPDUTL("DGQE02","DEVICE^DGQEP0")

 ; -- Done

 Q

DGQEPRE   ;ALB/JFP - VIC PRE INIT DRIVER; 09/01/96

 +1       ;;5.3;REGISTRATION;**73,1015**;DEC 11,1996;Build 21

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

CHKPTS    ; -- Create check points for pre-init

 +1       ;Input  : All variables set by KIDS

 +2       ;Output : None

 +3       ;

 +4       ;Declare variables

 +5        NEW TMP

 +6       ; -- Create check points

 +7       ;Create Terminal Type file entry

 +8        SET TMP=$$NEWCP^XPDUTL("DGQE01","TYPE^DGQEP0")

 +9       ; -- Create Device file entry

 +10       SET TMP=$$NEWCP^XPDUTL("DGQE02","DEVICE^DGQEP0")

 +11      ; -- Done

 +12       QUIT