SCAPMC29 ;ALB/REW - TEAM APIs:CLPT ; 2/17/00 1:33pm
Source file <SCAPMC29.m>
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
|