source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCMSPRE.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 661 bytes
Line 
1SCMSPRE ;ALB/JRP - AMB CARE PRE INIT DRIVER;28-MAY-1996
2 ;;5.3;Scheduling;**44**;AUG 13, 1993
3CHKPTS ;Create check points for pre-init
4 ;Input : All variables set by KIDS
5 ;Output : None
6 ;
7 ;Declare variables
8 N TMP
9 ;Create check points
10 ;Create Z00 HL7 Event Code
11 S TMP=$$NEWCP^XPDUTL("SCMS01","HL7EVNT^SCMSP0")
12 ;Create HL7 Applications
13 S TMP=$$NEWCP^XPDUTL("SCMS02","HL7APPS^SCMSP0")
14 ;Create Mail Group for HL7 Logical Link
15 S TMP=$$NEWCP^XPDUTL("SCMS03","MAILGRP^SCMSP0")
16 ;Create HL7 Lower Level Protocol Parameters
17 S TMP=$$NEWCP^XPDUTL("SCMS04","HL7LLPP^SCMSP0")
18 ;Create HL7 Logical Link
19 S TMP=$$NEWCP^XPDUTL("SCMS05","HL7LINK^SCMSP0")
20 ;Done
21 Q
Note: See TracBrowser for help on using the repository browser.