SCAPMC16.m

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 ---SCAPMC16   2124     printed  Apr 09, 2024@22:03:47                                                                                                                                                                                                    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