SCAPMC2 ;ALB/REW - Team API's: PTTM ; JUN 30, 1995
Source file <SCAPMC2.m>
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
|