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

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

@@ -1 +1 @@
 SCAPMC29 ;ALB/REW - TEAM APIs:CLPT  ; 2/17/00 1:33pm
- ;;5.3;Scheduling;**41,210,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,210**;AUG 13, 1993
  ;;1.0
 CLPT(DFN,SCDATES,SCTEAMA,SCLIST,SCERR) ;clinics for patient
@@ -48 +48 @@
  .F SCX=1:1 S SCTP=+$G(SCPOSAX(SCX)) Q:'SCTP  S SCPOSA(SCTP)=""
  .S:$D(@SCTEAMA@("EXCLUDE")) SCPOSA("EXCLUDE")=""
- ;S SCX=0 F  S SCX=$O(^DPT(DFN,"DE",SCX)) Q:'SCX  D
- ;.S SC44=+$G(^DPT(DFN,"DE",SCX,0))
- ;.Q:'SC44
- ;.Q:'$$OKCLIN(SC44,.SCPOSA)
- ;.S SCCLNM=$P($G(^SC(SC44,0)),U,1)
- ;.S SCS=0 F  S SCS=$O(^DPT(DFN,"DE",SCX,1,SCS)) Q:'SCS  D
- ;..S SCND=$G(^DPT(DFN,"DE",SCX,1,SCS,0))
- ;..S SCACT=$P(SCND,U,1)
- ;..S SCINACT=$P(SCND,U,3)
- ;..Q:'$$DTCHK^SCAPU1(SCBEGIN,SCEND,SCINCL,SCACT,SCINACT)
- ;..S SCACOPT=$P(SCND,U,2)
- ;..S SCREVDT=$P(SCND,U,5)
- ;..S SCN=$G(@SCLIST@(0),0)+1
- ;..;bp/ar nois brx-1298-12323 prevent undefined variable error
- ;..;New code begins
- ;..Q:'SCACT
- ;..Q:'SCN
- ;.;End of brx-1298-12323
- ;..S @SCLIST@(0)=SCN
- ;..S @SCLIST@(SCN)=SC44_U_SCCLNM_U_SCACT_U_SCINACT_U_SCACOPT_U_SCREVDT
- ;..S @SCLIST@("SCCL",SC44,SCACT,SCN)=""
+ S SCX=0 F  S SCX=$O(^DPT(DFN,"DE",SCX)) Q:'SCX  D
+ .S SC44=+$G(^DPT(DFN,"DE",SCX,0))
+ .Q:'SC44
+ .Q:'$$OKCLIN(SC44,.SCPOSA)
+ .S SCCLNM=$P($G(^SC(SC44,0)),U,1)
+ .S SCS=0 F  S SCS=$O(^DPT(DFN,"DE",SCX,1,SCS)) Q:'SCS  D
+ ..S SCND=$G(^DPT(DFN,"DE",SCX,1,SCS,0))
+ ..S SCACT=$P(SCND,U,1)
+ ..S SCINACT=$P(SCND,U,3)
+ ..Q:'$$DTCHK^SCAPU1(SCBEGIN,SCEND,SCINCL,SCACT,SCINACT)
+ ..S SCACOPT=$P(SCND,U,2)
+ ..S SCREVDT=$P(SCND,U,5)
+ ..S SCN=$G(@SCLIST@(0),0)+1
+ ..;bp/ar nois brx-1298-12323 prevent undefined variable error
+ ..;New code begins
+ ..Q:'SCACT
+ ..Q:'SCN
+ ..;End of brx-1298-12323
+ ..S @SCLIST@(0)=SCN
+ ..S @SCLIST@(SCN)=SC44_U_SCCLNM_U_SCACT_U_SCINACT_U_SCACOPT_U_SCREVDT
+ ..S @SCLIST@("SCCL",SC44,SCACT,SCN)=""
 PTCLQ Q $G(@SCERR@(0))<1
  ;
@@ -75 +75 @@
  IF '$D(SCPOSA) S SCOK=1 G QTOKC
  S (SCOK,SCTP)=0
- F  S SCTP=$O(^SCTM(404.57,"E",+SC44,SCTP)) Q:'SCTP  S:$$OKARRAY^SCAPU1(.SCPOSA,SCTP) SCOK=1
+ F  S SCTP=$O(^SCTM(404.57,"D",+SC44,SCTP)) Q:'SCTP  S:$$OKARRAY^SCAPU1(.SCPOSA,SCTP) SCOK=1
 QTOKC Q SCOK
  ;