| 1 | DGQEPST ;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.
|
|---|
| 4 | CHKPTS ; -- 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
|
|---|
