| 1 | SCMCDDA ;bp/cmf - extension of SCMCDD ; 21 December 1999
|
|---|
| 2 | ;;5.3;Scheduling;**204,297**;AUG 13, 1993
|
|---|
| 3 | ;1
|
|---|
| 4 | BADNEWDT() ; not a stand alone function!! called from NEWHIST^SCMCDD
|
|---|
| 5 | ; ; ensure team/team position is active on DATE
|
|---|
| 6 | I FILE=404.59 D I +SCOK=0 Q 1
|
|---|
| 7 | . D OKTMTP(IEN,DATE)
|
|---|
| 8 | . Q
|
|---|
| 9 | ;
|
|---|
| 10 | I FILE=404.52 D I +SCOK=0 Q 1
|
|---|
| 11 | . D OKTMTP(IEN,DATE)
|
|---|
| 12 | . D OKTP(IEN,DATE)
|
|---|
| 13 | . ;;bp/cmf if not active, delete newhist entry here?!? [SCHIEN]
|
|---|
| 14 | . Q
|
|---|
| 15 | ;
|
|---|
| 16 | Q 0
|
|---|
| 17 | ;
|
|---|
| 18 | BADCHGDT() ; not a stand alone function!! called from OKCHGDT^SCMCDD
|
|---|
| 19 | I FILE=404.59 D I +SCOK=0 Q 1
|
|---|
| 20 | . N SCTP
|
|---|
| 21 | . S SCTP=$P(SCNODE,U)
|
|---|
| 22 | . D OKTMTP(SCTP,DATE)
|
|---|
| 23 | . Q
|
|---|
| 24 | ;
|
|---|
| 25 | I FILE=404.52 D I +SCOK=0 Q 1
|
|---|
| 26 | . N SCTP
|
|---|
| 27 | . S SCTP=$P(SCNODE,U)
|
|---|
| 28 | . D OKTMTP(SCTP,DATE)
|
|---|
| 29 | . D OKTP(SCTP,DATE)
|
|---|
| 30 | . Q
|
|---|
| 31 | ;
|
|---|
| 32 | Q 0
|
|---|
| 33 | ;
|
|---|
| 34 | OKTMTP(SC1,SC2) ;
|
|---|
| 35 | ; sc1 := team position ien
|
|---|
| 36 | ; sc2 := assignment date
|
|---|
| 37 | N SCNODE,SCTM
|
|---|
| 38 | S SCNODE=$G(^SCTM(404.57,SC1,0),"BAD")
|
|---|
| 39 | I SCNODE="BAD" S SCOK="0^Bad Team Position entry." Q
|
|---|
| 40 | S SCTM=$P(SCNODE,U,2)
|
|---|
| 41 | S SCNODE=$G(^SCTM(404.51,SCTM,0),"BAD")
|
|---|
| 42 | I SCNODE="BAD" S SCOK="0^Bad Team entry." Q
|
|---|
| 43 | S SCX=+$$DATES^SCAPMCU1(404.58,SCTM,SC2)
|
|---|
| 44 | I SCX<1 S SCOK="0^Team not active on selected date."
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | OKTP(SC1,SC2) ;
|
|---|
| 48 | ; sc1 := team position ien
|
|---|
| 49 | ; sc2 := assignment date
|
|---|
| 50 | S SCX=+$$DATES^SCAPMCU1(404.59,SC1,SC2)
|
|---|
| 51 | I SCX<1 S SCOK="0^Team Position not active on selected date."
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
