SCMCTMU2 ;ALB/REW - Team-Patient Utilities ; 1 Apr 96
Source file <SCMCTMU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESTENR | ;call when pt is set to 'restrict consults' & he is enrolled in clinic
|
|
| END | ||
| YSPTTMPC(DFN,SCACT) | ;is it ok to give patient a new pc team?
; Return [OK:1,Not OK: 0^Message] |
|
| QTOKPC | ||
| OKACPTTM(DFN,SCTM,SCDATE,SCACTIVE) | ;is patient active from now till forever?
; Returned: 1: Not active from now till forever, 0 = Active sometime ; DFN - Pointer to Patient File ; SCTM - Team File ien of interest ; SCDATE - Start Date ; SCACTIVE- Must Team be active on date or just sometime in future? |
|
| ENDOKTM | ||
| OKPTTMPC(DFN,SCTM,DATE) | ;
|
|
| QTOKTM | ||
| OKINPTTM(DFN,SCTM,SCINACT) | ;no future pt-position assignments?
|
