SCAPMC24 ;ALB/REW - Team API's:TPTM ; 27 Jun 99 3:05 PM
Source file <SCAPMC24.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TPTM(SCTM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR) | ; -- positions for a pract
; input: ; SCTM = ien of TEAM File (#404.51) [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] ; SCUSRA -array of pointers to user file - 8930 ; if none are defined - returns all usr classes ; if @SCPURPA@('exclude') is defined - exclude listed usr class ; SCROLEA - array of pointers to std position file 403.46 (per scusra) ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ST | ||
| PRACQ | ||
| TPVALBLD(SCTP,SCDATES,SCPOSA,SCUSA,SCPURPA,SCROLEA,SCLIST,SCERR) | ;
; this validates a team position & builds sclist array ; returns 1 if ok, 0 if error |
|
| QTVALBLD | ||
| BLD(SCLIST,SCTM,SCTP,SCACTHIS,SCR) | ; -- build list of positions
|
|
| OKDATA() | ;setup/check variables
|
