Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMCMU2.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/SCMCMU2.m (modified) (2 diffs)

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

@@ -1 @@
-SCMCMU2 ;ALBOI/MJK - PCMM Mass Team/Position Unassignment Processing;07/10/98
- ;;5.3;Scheduling;**148,177,524**;AUG 13, 1993;Build 29
+SCMCMU2 ;ALB/MJK - PCMM Mass Team/Position Unassignment Processing ; 10-JUL-1998
+ ;;5.3;Scheduling;**148,177**;AUG 13, 1993
  ;
 QUE() ; -- queue mass unassignment
@@ -169 +169 @@
  . ; -- if assignment date is in future then delete
  . IF SCASDT>DT,SCASDT>SCDATE D  Q
- . . N DA,DIE,DIK,DR
- . . S DA=SCIEN,(DIE,DIK)="^SCPT(404.43,",DR=".04///"_DT D ^DIE  ; og/sd/524
+ . . N DA,DIK
+ . . S DA=SCIEN,DIK="^SCPT(404.43,"
  . . D LOCK(SCNODE)
  . . D ^DIK