SCAPMC23 ;ALB/REW - Team API's:TPPT ;02/19/2014
Source file <SCAPMC23.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TPPT(DFN,SCDATES,SCPOSA,SCUSRA,SCPURPA,SCROLEA,SCYESCL,SCLIST,SCERR) | ; -- positions for a 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 patients who were assigned to ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCPOSA -array of pointers to team position - 404.57 (per SCPURPA) ; SCUSRA -array of pointers to user file - 8930 (per SCPURPA array) ; 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 ; SCROLEA - array of pointers to std position file 403.46 (per SCPURPA) ; SCYESCL -boolean[0-NO(default)/1-YES] Include pts asc. via enrollment? ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ST | ||
| PRACQ | ||
| OKDATA() | ;setup/check variables
|
