Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMCQK1.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• SCHEDULING-SD-SC/SCMCQK1.m (modified) (2 diffs)

FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMCQK1.m

@@ -1 @@
-SCMCQK1 ;ALBOI/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge;11/07/02
- ;;5.3;Scheduling;**148,177,231,264,436,297,446,524**;AUG 13, 1993;Build 29
+SCMCQK1 ;ALB/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge ; 07 Oct 2002  12:10 PM  ; Compiled April 12, 2007 10:03:59
+ ;;5.3;Scheduling;**148,177,231,264,436,297,446**;AUG 13, 1993;Build 77
  ;
  ;04/25/2006 SD*5.3*446 INTER-FACILITY TRANSFER
@@ -11 +11 @@
  G:SCDISCH<1 QTUNTP
  G:'$$CONFIRM() QTUNTP
- S OK=$$INPTSCTP^SCAPMC22(DFN,SCTP,SCDISCH,.SCER)  ; og/sd/524
+ S OK=1 ;$$INPTSCTP^SCAPMC22(DFN,SCTP,SCDISCH,.SCER)
  G:OK'>0 QTUNTP
  S SCCL=$P($G(^SCTM(404.57,+$G(SCTP),0)),U,9)