SCAPMC4 ;ALB/REW - Team API's:TMINST ; JUN 30, 1995
Source file <SCAPMC4.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMINST(SCINST,SCDATES,SCPURPA,SCLIST,SCERR) | ; -- list of teams for institution
; input: ; SCINST = ien of INSTITUTION file (#4) ; 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] ; SCPURPA -array of pointers to team purpose file 403.47 ; if none are defined - returns all teams ; if @SCPURPA@('exclude') is defined - exclude listed teams ; SCLIST -array name to store list ; [ex. ^TMP("SCTM",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ST | ||
| PRACQ | ||
| BLDTM(SCTM,SCDATES,ACTHIST,SCLIST,SCERR) | ;build team list
; ACTHIST is per $$acthist - dates may be tighter than team activation ; e.g. practitioners' dates will be dates they not team is active |
|
| OKDATA() | ;check/setup variables - return 1 if ok; 0 if error
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | OKDATA+4 |
| ^SCTM(404.51 - [#404.51] | ST+6, ST+7, BLDTM+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTHIST | ST+11*, ST+12, ST+13, BLDTM~, BLDTM+4, BLDTM+7 |
| SCACT | BLDTM+3~, BLDTM+4*, BLDTM+5, BLDTM+8, BLDTM+11, BLDTM+12 |
| SCBEGIN | ST+1~ |
| SCDATES | TMINST~, ST+11, ST+13, BLDTM~, BLDTM+6 |
| SCDTS | ST+1~ |
| SCEND | ST+1~ |
| SCERR | TMINST~, ST+11, ST+13, PRACQ, BLDTM~, OKDATA+6 |
| SCESEQ | ST+1~, OKDATA+6 |
| SCINACT | BLDTM+3~, BLDTM+6*, BLDTM+7*, BLDTM+11 |
| SCINCL | ST+1~ |
| SCINST | TMINST~, ST+6, OKDATA+4, OKDATA+5 |
| SCLIST | TMINST~, ST+13, BLDTM~, BLDTM+8, BLDTM+9, BLDTM+10, BLDTM+11, BLDTM+12 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~, BLDTM+9*, BLDTM+10, BLDTM+11, BLDTM+12 |
| SCOK | OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+7 |
| SCP | ST+1~ |
| SCPARM | ST+1~, OKDATA+6 |
| SCPARM("INSTITUTION" | OKDATA+5* |
| SCPRP | ST~, ST+9*, ST+10 |
| SCPURPA | TMINST~, ST+10 |
| SCTM | ST~, ST+5*, ST+6*, ST+7, ST+11, ST+13, BLDTM~, BLDTM+8, BLDTM+11, BLDTM+12 |
| SCTM0 | ST~, ST+7*, ST+8, ST+9 |
| SCTMINST | ST~ |
| SCX | ST~ |
| U | ST+9, BLDTM+4, BLDTM+7, BLDTM+11 |
