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

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DGQEPST ;ALB/JFP - VIC POST 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 post-init
5 ;Input : All variables set by KIDS
6 ;Output : None
7 ;
8 ; -- Declare variables
9 N TMP
10 ; -- Update HL7 application DGQE VIC EVENTS with site #
11 S TMP=$$NEWCP^XPDUTL("DGQE1","APPUPD^DGQEPST1")
12 ; -- Update Logical Link with device
13 S TMP=$$NEWCP^XPDUTL("DGQE2","UPDLL^DGQEPST1")
14 ; -- Update Bulletin with mail group
15 S TMP=$$NEWCP^XPDUTL("DGQE3","UPDBULL^DGQEPST1")
16 ; -- Message to add members to VIC mail group
17 S TMP=$$NEWCP^XPDUTL("DGQE4","MAILMEM^DGQEPST1")
18 ; -- Check for version 2.2
19 S TMP=$$NEWCP^XPDUTL("DGQE5","CHKVER^DGQEPST1")
20 ; -- Check A08 message for version 2.2
21 S TMP=$$NEWCP^XPDUTL("DGQE6","CHKA08^DGQEPST1")
22 ; -- Check ACK message for version 2.2
23 S TMP=$$NEWCP^XPDUTL("DGQE7","CHKACK^DGQEPST1")
24 ; -- Re-index file 870 to set ALLP cross reference
25 S TMP=$$NEWCP^XPDUTL("DGQE8","ALLP^DGQEPST1")
26 ;Done
27 Q
Note: See TracBrowser for help on using the repository browser.