SCMSPRE ;ALB/JRP - AMB CARE PRE INIT DRIVER;28-MAY-1996
;;5.3;Scheduling;**44**;AUG 13, 1993
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMSPRE 682 printed Nov 22, 2024@17:51:54 Page 2
SCMSPRE ;ALB/JRP - AMB CARE PRE INIT DRIVER;28-MAY-1996
+1 ;;5.3;Scheduling;**44**;AUG 13, 1993
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
