SCAPMC2 ;ALB/REW - Team API's: PTTM ; JUN 30, 1995
Source file <SCAPMC2.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 |
---|---|---|
PTTM(SCTEAM,SCDATES,SCLIST,SCERR) | ; -- list of patient team assignments
; input: ; SCTEAM = ien of TEAM [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)] |
|
ST | ||
LP | ||
PRACQ | ||
BLD(SCLIST,SCPTA,SCPTA0,SCN) | ; build list
|
|
OKDATA() | ;check/setup variables
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | BLD+15 |
^SCPT(404.42 - [#404.42] | LP+1, LP+3, LP+4 |
^SCTM(404.51 - [#404.51] | OKDATA+4, OKDATA+8 |
^TMP("SCMC" | BLD+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
SCBEGIN | ST+1~, LP+6 |
SCCNT | BLD+13~ |
SCDATES | PTTM~ |
SCDTS | ST+1~ |
SCEFFDT | BLD+13~ |
SCEND | ST+1~, LP+6 |
SCERR | PTTM~, PRACQ, OKDATA+6, OKDATA+10 |
SCESEQ | ST+1~, OKDATA+6, OKDATA+10 |
SCINCL | ST+1~, LP+6 |
SCLIST | PTTM~, LP+7, BLD~, BLD+11, BLD+15, BLD+17 |
SCLSEQ | ST+1~ |
SCN | ST+1~, LP+7, BLD~, BLD+14*, BLD+15, BLD+17 |
SCOK | OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+8*, OKDATA+11 |
SCP | ST+1~ |
SCPARM | ST+1~, OKDATA+6, OKDATA+10 |
SCPARM("TEAM" | OKDATA+5*, OKDATA+9* |
SCPT | ST~, LP*, LP+1*, LP+3 |
SCPTA | ST~, LP+2*, LP+3*, LP+4, LP+7, BLD~, BLD+10, BLD+11, BLD+15, BLD+17 |
SCPTA0 | ST~, LP+4*, LP+5, LP+6, LP+7, BLD~, BLD+10, BLD+11, BLD+12, BLD+15 , BLD+17 |
SCTEAM | PTTM~, LP+1, LP+3, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+9 |
U | LP+6, BLD+15 |