- 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 ;