SCMSPRE.m

SCMSPRE ;ALB/JRP - AMB CARE PRE INIT DRIVER;28-MAY-1996

 ;;5.3;Scheduling;**44,1015**;AUG 13, 1993;Build 21

CHKPTS ;Create check points for pre-init

 ;Input  : All variables set by KIDS

 ;Output : None

 ;

 ;Declare variables

 N TMP

 ;Create check points

 ;Create Z00 HL7 Event Code

 S TMP=$$NEWCP^XPDUTL("SCMS01","HL7EVNT^SCMSP0")

 ;Create HL7 Applications

 S TMP=$$NEWCP^XPDUTL("SCMS02","HL7APPS^SCMSP0")

 ;Create Mail Group for HL7 Logical Link

 S TMP=$$NEWCP^XPDUTL("SCMS03","MAILGRP^SCMSP0")

 ;Create HL7 Lower Level Protocol Parameters

 S TMP=$$NEWCP^XPDUTL("SCMS04","HL7LLPP^SCMSP0")

 ;Create HL7 Logical Link

 S TMP=$$NEWCP^XPDUTL("SCMS05","HL7LINK^SCMSP0")

 ;Done

 Q

SCMSPRE   ;ALB/JRP - AMB CARE PRE INIT DRIVER;28-MAY-1996

 +1       ;;5.3;Scheduling;**44,1015**;AUG 13, 1993;Build 21

CHKPTS    ;Create check points for pre-init

 +1       ;Input  : All variables set by KIDS

 +2       ;Output : None

 +3       ;

 +4       ;Declare variables

 +5        NEW TMP

 +6       ;Create check points

 +7       ;Create Z00 HL7 Event Code

 +8        SET TMP=$$NEWCP^XPDUTL("SCMS01","HL7EVNT^SCMSP0")

 +9       ;Create HL7 Applications

 +10       SET TMP=$$NEWCP^XPDUTL("SCMS02","HL7APPS^SCMSP0")

 +11      ;Create Mail Group for HL7 Logical Link

 +12       SET TMP=$$NEWCP^XPDUTL("SCMS03","MAILGRP^SCMSP0")

 +13      ;Create HL7 Lower Level Protocol Parameters

 +14       SET TMP=$$NEWCP^XPDUTL("SCMS04","HL7LLPP^SCMSP0")

 +15      ;Create HL7 Logical Link

 +16       SET TMP=$$NEWCP^XPDUTL("SCMS05","HL7LINK^SCMSP0")

 +17      ;Done

 +18       QUIT