SCAPMC29 ;ALB/REW - TEAM APIs:CLPT ; 2/17/00 1:33pm
Source file <SCAPMC29.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 |
|---|---|---|
| CLPT(DFN,SCDATES,SCTEAMA,SCLIST,SCERR) | ;clinics for patient
; input: ; DFN = ien of PATIENT <FILE#2> [required] ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use pracitioners who were on ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCTEAMA= array of teams to include reverse with scposa('exclude') ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ST | ||
| PTCLQ | ||
| OKCLIN(SC44,SCPOSA) | ;is clinic ok, given position array
|
|
| QTOKC | ||
| OKDATA() | ;check/setup variables - return 1 if ok; 0 if error
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | OKDATA+4 |
| ^SCTM(404.57 - [#404.57] | OKCLIN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | CLPT~, OKDATA+4, OKDATA+5 |
| SC44 | ST~, OKCLIN~, OKCLIN+4 |
| SCACOPT | ST~ |
| SCACT | ST+1~ |
| SCBEGIN | ST+1~ |
| SCCLNM | ST+1~ |
| SCDATES | CLPT~, ST+6 |
| SCDTS | ST+1~ |
| SCEND | ST+1~ |
| SCERR | CLPT~, ST+6, PTCLQ, OKDATA+6 |
| SCESEQ | ST+1~, OKDATA+6 |
| SCINACT | ST+1~ |
| SCINCL | ST+1~ |
| SCLIST | CLPT~ |
| SCLSEQ | ST+1~ |
| SCN | ST+1~ |
| SCND | ST+1~ |
| SCOK | ST+1~, OKCLIN+1~, OKCLIN+2*, OKCLIN+3*, OKCLIN+4*, QTOKC, OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4* , OKDATA+7 |
| SCP | ST+1~ |
| SCPARM | ST+1~, OKDATA+6 |
| SCPARM("PATIENT" | OKDATA+5* |
| SCPOSA | ST~, OKCLIN~, OKCLIN+2, OKCLIN+4 |
| SCPOSA( | ST+7* |
| SCPOSA("EXCLUDE" | ST+8* |
| >> SCPOSAX( | ST+7 |
| SCREVDT | ST+1~ |
| SCS | ST~, ST+1~ |
| SCTEAMA | CLPT~, ST+3, ST+5, ST+8 |
| SCTM | ST~, ST+4*, ST+5*, ST+6 |
| SCTP | ST~, ST+7*, OKCLIN+1~, OKCLIN+3*, OKCLIN+4* |
| SCX | ST~, ST+5, ST+6*, ST+7* |
