DGQEP0 ;ALB/JFP - VIC PRE INIT UTILITES; 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.
;
TYPE ;-- Create entry in TERMINAL TYPE file (#3.2)
;
;Input : None
;Output : None
;Note : This is a KIDS complient check point
;
; -- Declare variables
N DIC,X,Y,DLAYGO,DTOUT,DUOUT,NEWENTRY,MSGTXT,PTREVNT,DIE,DA,DR
; -- Create/find entry
D BMES^XPDUTL(">>> Creating entry for P-VIC-OTHER in TERMINAL TYPE file (#3.2)")
S DIC=3.2
S DIC(0)="LX"
S DLAYGO=3.2
S X="P-VIC-OTHER"
D ^DIC
S PTREVNT=+Y
S NEWENTRY=+$P(Y,"^",3)
S MSGTXT(1)=" Existing entry found and updated"
S:(NEWENTRY) MSGTXT(1)=" New entry created "
I (PTREVNT<0) D Q
.S MSGTXT(1)=" ** Unable to create entry for P-VIC-OTHER"
.S MSGTXT(2)=" ** Entry must be created manually"
.D MES^XPDUTL(.MSGTXT)
.K MSGTXT
;
; -- update remaining fields
S DIE=3.2,DA=+Y
S DR=".02///1;1///0;2///#;3///66;4///$C(8)"
D ^DIE
; -- Display message
D MES^XPDUTL(.MSGTXT)
;Done
Q
;
DEVICE ; -- Create entry in DEVICE file (#3.5)
;
;Input : $I device - Pre init question 2
; : Location of terminal - Pre init question 1
;Output : None
;Note : This is a KIDS complient check point
;
; -- Declare variables
N DIC,X,Y,DLAYGO,DTOUT,DUOUT,NEWENTRY,MSGTXT,PTREVNT,DIE,DA,DR
N DGQEI,DGQELOC
; -- Create/find entry
D BMES^XPDUTL(">>> Creating entry for VIC CARD in DEVICE file (#3.5)")
; -- Check for existance of input
I '$D(XPDQUES("PRE1","B")) S DGQELOC=""
I '$D(XPDQUES("PRE2","B")) S DGQEI=""
S DGQELOC=$G(XPDQUES("PRE1","B"))
S DGQEI=$G(XPDQUES("PRE2","B"))
S DIC=3.5
S DIC("DR")="1///"_DGQEI
S DIC(0)="LX"
S DLAYGO=3.5
S X="VIC CARD"
D ^DIC
I $D(DTOUT) D Q
.S MSGTXT(1)=" ** Unable to create entry for VIC CARD"
.S MSGTXT(2)=" ** Time out expired"
.S MSGTXT(3)=" ** Entry must be created manually"
.D MES^XPDUTL(.MSGTXT)
.K MSGTXT
S PTREVNT=+Y
S NEWENTRY=+$P(Y,"^",3)
S MSGTXT(1)=" Existing entry found and updated"
S:(NEWENTRY) MSGTXT(1)=" New entry created "
I (PTREVNT<0) D Q
.S MSGTXT(1)=" ** Unable to create entry for VIC CARD"
.S MSGTXT(2)=" ** Entry must be created manually"
.D MES^XPDUTL(.MSGTXT)
.K MSGTXT
;
; -- update remaining fields
S DIE=3.5,DA=+Y
S DR="1///"_DGQEI_";.02///"_DGQELOC_";1.95///0;2///OTH;3///P-VIC-OTHER;9///132;10///#;11///66;11.2///1;12///$C(8);51.2///3;51.3///900;51.5///0;63///N"
D ^DIE
; -- Display message
I DGQELOC="" S MSGTXT(1)=" ",MSGTXT(2)=" Location entered as null, this will need manual update"
I DGQEI="" D
.S MSGTXT(3)=" "
.S MSGTXT(4)="** $I is a critical element and it has been entered as null"
.S MSGTXT(5)=" This will need to manually updated for VIC to function properly"
D MES^XPDUTL(.MSGTXT)
;Done
Q
;
DGQEP0 ;ALB/JFP - VIC PRE INIT UTILITES; 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.
+3 ;
TYPE ;-- Create entry in TERMINAL TYPE file (#3.2)
+1 ;
+2 ;Input : None
+3 ;Output : None
+4 ;Note : This is a KIDS complient check point
+5 ;
+6 ; -- Declare variables
+7 NEW DIC,X,Y,DLAYGO,DTOUT,DUOUT,NEWENTRY,MSGTXT,PTREVNT,DIE,DA,DR
+8 ; -- Create/find entry
+9 DO BMES^XPDUTL(">>> Creating entry for P-VIC-OTHER in TERMINAL TYPE file (#3.2)")
+10 SET DIC=3.2
+11 SET DIC(0)="LX"
+12 SET DLAYGO=3.2
+13 SET X="P-VIC-OTHER"
+14 DO ^DIC
+15 SET PTREVNT=+Y
+16 SET NEWENTRY=+$PIECE(Y,"^",3)
+17 SET MSGTXT(1)=" Existing entry found and updated"
+18 IF (NEWENTRY)
SET MSGTXT(1)=" New entry created "
+19 IF (PTREVNT<0)
Begin DoDot:1
+20 SET MSGTXT(1)=" ** Unable to create entry for P-VIC-OTHER"
+21 SET MSGTXT(2)=" ** Entry must be created manually"
+22 DO MES^XPDUTL(.MSGTXT)
+23 KILL MSGTXT
End DoDot:1
QUIT
+24 ;
+25 ; -- update remaining fields
+26 SET DIE=3.2
SET DA=+Y
+27 SET DR=".02///1;1///0;2///#;3///66;4///$C(8)"
+28 DO ^DIE
+29 ; -- Display message
+30 DO MES^XPDUTL(.MSGTXT)
+31 ;Done
+32 QUIT
+33 ;
DEVICE ; -- Create entry in DEVICE file (#3.5)
+1 ;
+2 ;Input : $I device - Pre init question 2
+3 ; : Location of terminal - Pre init question 1
+4 ;Output : None
+5 ;Note : This is a KIDS complient check point
+6 ;
+7 ; -- Declare variables
+8 NEW DIC,X,Y,DLAYGO,DTOUT,DUOUT,NEWENTRY,MSGTXT,PTREVNT,DIE,DA,DR
+9 NEW DGQEI,DGQELOC
+10 ; -- Create/find entry
+11 DO BMES^XPDUTL(">>> Creating entry for VIC CARD in DEVICE file (#3.5)")
+12 ; -- Check for existance of input
+13 IF '$DATA(XPDQUES("PRE1","B"))
SET DGQELOC=""
+14 IF '$DATA(XPDQUES("PRE2","B"))
SET DGQEI=""
+15 SET DGQELOC=$GET(XPDQUES("PRE1","B"))
+16 SET DGQEI=$GET(XPDQUES("PRE2","B"))
+17 SET DIC=3.5
+18 SET DIC("DR")="1///"_DGQEI
+19 SET DIC(0)="LX"
+20 SET DLAYGO=3.5
+21 SET X="VIC CARD"
+22 DO ^DIC
+23 IF $DATA(DTOUT)
Begin DoDot:1
+24 SET MSGTXT(1)=" ** Unable to create entry for VIC CARD"
+25 SET MSGTXT(2)=" ** Time out expired"
+26 SET MSGTXT(3)=" ** Entry must be created manually"
+27 DO MES^XPDUTL(.MSGTXT)
+28 KILL MSGTXT
End DoDot:1
QUIT
+29 SET PTREVNT=+Y
+30 SET NEWENTRY=+$PIECE(Y,"^",3)
+31 SET MSGTXT(1)=" Existing entry found and updated"
+32 IF (NEWENTRY)
SET MSGTXT(1)=" New entry created "
+33 IF (PTREVNT<0)
Begin DoDot:1
+34 SET MSGTXT(1)=" ** Unable to create entry for VIC CARD"
+35 SET MSGTXT(2)=" ** Entry must be created manually"
+36 DO MES^XPDUTL(.MSGTXT)
+37 KILL MSGTXT
End DoDot:1
QUIT
+38 ;
+39 ; -- update remaining fields
+40 SET DIE=3.5
SET DA=+Y
+41 SET DR="1///"_DGQEI_";.02///"_DGQELOC_";1.95///0;2///OTH;3///P-VIC-OTHER;9///132;10///#;11///66;11.2///1;12///$C(8);51.2///3;51.3///900;51.5///0;63///N"
+42 DO ^DIE
+43 ; -- Display message
+44 IF DGQELOC=""
SET MSGTXT(1)=" "
SET MSGTXT(2)=" Location entered as null, this will need manual update"
+45 IF DGQEI=""
Begin DoDot:1
+46 SET MSGTXT(3)=" "
+47 SET MSGTXT(4)="** $I is a critical element and it has been entered as null"
+48 SET MSGTXT(5)=" This will need to manually updated for VIC to function properly"
End DoDot:1
+49 DO MES^XPDUTL(.MSGTXT)
+50 ;Done
+51 QUIT
+52 ;
