SCAPMC16 ;ALB/CMM - TEAM/CLINIC APIs ;03/19/96
;;5.3;Scheduling;**41**;AUG 13, 1993
;
TMCL(SCCLN,SCDATES,SCLIST,SCERR) ; -- list of teams for a clinic
; input:
; SCCLN = ien of HOSPITAL LOCATION <FILE#44> [required]
; SCDATES("BEGIN") = begin date to search (inclusive)
; [default: TODAY]
; ("END") = end date to search (inclusive)
; [default: TODAY]
; ("INCL") = 1: only use patients who were assigned to
; team for entire date range
; 0: anytime in date range
; [default: 1]
; SCLIST -array name to store list
; [ex. ^TMP("SCPT",$J)]
;
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
;
; Output:
; SCLIST() = array of positions (includes SCTP xref)
; Format:
; Subscript: Sequential # from 1 to n
; Piece Description
; 1 IEN of Team #404.51
; 2 Team Name
; Subscript: "SCTP",SCTM,IEN =""
;
; SCERR() = Array of errors
; @SCERR@(0) = number of errors, undefined if none
; Format:
; Subscript: Sequential # from 1 to n
; Piece Description
; 1 error description
; Returned: 1 if ok, 0 if error
;
ST ;
N OKAY,NODE,ENT,PCLIST,ERR2,CNT,TIEN
I '$D(SCCLN)!('$D(SCLIST)) S @SCERR@(0)="undefined variables" Q 0
I '$D(SCERR) Q 0
;
S PCLIST="PCLST",ERR2="ERROR2"
S OKAY=$$TPCL^SCAPMC30(SCCLN,.SCDATES,"","","","",.PCLIST,.ERR2)
; ^ positions for a clinic SCCLN
I 'OKAY S @SCERR@(0)="error in TPCL^SCAPMC30 call"
Q:'OKAY 0
;
S (CNT,ENT)=0
F S ENT=$O(@PCLIST@(ENT)) Q:ENT=""!(ENT'?.N) D
.S NODE=$G(@PCLIST@(ENT))
.S TIEN=+$P(NODE,"^",3) ;team ien
.I $D(@SCLIST@("SCTP",TIEN)) Q
.;unique entries only
.S CNT=CNT+1
.S @SCLIST@(CNT)=TIEN ;team ien
.S @SCLIST@("SCTP",TIEN,CNT)=""
.S $P(@SCLIST@(CNT),"^",2)=$P($G(^SCTM(404.51,TIEN,0)),"^") ;team name
S @SCLIST@(0)=CNT
Q 1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCAPMC16 2124 printed Dec 13, 2024@02:37:50 Page 2
SCAPMC16 ;ALB/CMM - TEAM/CLINIC APIs ;03/19/96
+1 ;;5.3;Scheduling;**41**;AUG 13, 1993
+2 ;
TMCL(SCCLN,SCDATES,SCLIST,SCERR) ; -- list of teams for a clinic
+1 ; input:
+2 ; SCCLN = ien of HOSPITAL LOCATION <FILE#44> [required]
+3 ; SCDATES("BEGIN") = begin date to search (inclusive)
+4 ; [default: TODAY]
+5 ; ("END") = end date to search (inclusive)
+6 ; [default: TODAY]
+7 ; ("INCL") = 1: only use patients who were assigned to
+8 ; team for entire date range
+9 ; 0: anytime in date range
+10 ; [default: 1]
+11 ; SCLIST -array name to store list
+12 ; [ex. ^TMP("SCPT",$J)]
+13 ;
+14 ; SCERR = array NAME to store error messages.
+15 ; [ex. ^TMP("ORXX",$J)]
+16 ;
+17 ; Output:
+18 ; SCLIST() = array of positions (includes SCTP xref)
+19 ; Format:
+20 ; Subscript: Sequential # from 1 to n
+21 ; Piece Description
+22 ; 1 IEN of Team #404.51
+23 ; 2 Team Name
+24 ; Subscript: "SCTP",SCTM,IEN =""
+25 ;
+26 ; SCERR() = Array of errors
+27 ; @SCERR@(0) = number of errors, undefined if none
+28 ; Format:
+29 ; Subscript: Sequential # from 1 to n
+30 ; Piece Description
+31 ; 1 error description
+32 ; Returned: 1 if ok, 0 if error
+33 ;
ST ;
+1 NEW OKAY,NODE,ENT,PCLIST,ERR2,CNT,TIEN
+2 IF '$DATA(SCCLN)!('$DATA(SCLIST))
SET @SCERR@(0)="undefined variables"
QUIT 0
+3 IF '$DATA(SCERR)
QUIT 0
+4 ;
+5 SET PCLIST="PCLST"
SET ERR2="ERROR2"
+6 SET OKAY=$$TPCL^SCAPMC30(SCCLN,.SCDATES,"","","","",.PCLIST,.ERR2)
+7 ; ^ positions for a clinic SCCLN
+8 IF 'OKAY
SET @SCERR@(0)="error in TPCL^SCAPMC30 call"
+9 if 'OKAY
QUIT 0
+10 ;
+11 SET (CNT,ENT)=0
+12 FOR
SET ENT=$ORDER(@PCLIST@(ENT))
if ENT=""!(ENT'?.N)
QUIT
Begin DoDot:1
+13 SET NODE=$GET(@PCLIST@(ENT))
+14 ;team ien
SET TIEN=+$PIECE(NODE,"^",3)
+15 IF $DATA(@SCLIST@("SCTP",TIEN))
QUIT
+16 ;unique entries only
+17 SET CNT=CNT+1
+18 ;team ien
SET @SCLIST@(CNT)=TIEN
+19 SET @SCLIST@("SCTP",TIEN,CNT)=""
+20 ;team name
SET $PIECE(@SCLIST@(CNT),"^",2)=$PIECE($GET(^SCTM(404.51,TIEN,0)),"^")
End DoDot:1
+21 SET @SCLIST@(0)=CNT
+22 QUIT 1
