SCAPMCU4 ;ALB/REW - TEAM API UTILITIES ; 30 Mar 96
Source file <SCAPMCU4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RESTPT(DFN,SCDATE,SCRPA) | ;is pt a restricted consult pt?
; DFN - ien to PATIENT File ; SCATE - Date of interest - default=DT ; SCRPA - literal value of desired restrict patients array ; e.g. scrpa=xx results in xx(sctm)=teamname ; Returned: [1 if yes, 0 if no, -1 if error] ; |