SCMCLK ;bp/cmf - Preceptor History Functions ; Sep 1999
Source file <SCMCLK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OKPREC(SCIEN,SCPIEN,SCLNKDT) | ;
|
|
| OKPREC1(SCPIEN,SCLNKDT) | ;
; ; prevent preceptor assignment danglers ; ; should also return array of danglers, if any, ; ; for a cleanup function, but not asked for yet |
|
| OKPREC2(SCIEN,SCLNKDT) | ; return preceptor ien^name, if any
; ; used for computed field 306 of file 404.57 |
|
| OKPREC3(SCIEN,SCLNKDT) | ; return preceptor position ien^name, if any
; ; used for computed field 305 of file 404.57 |
|
| OKPREC4(SCIEN) | ; return if precepted position can be un-precepted
; ; if patient assign after 1st preceptment date, NO ; ; used by computed field #400 of file 404.57 |
|
| OKPREC5(SCIEN,SCLNKDT) | ; if position has a preceptor,
; ; is preceptor link valid? |
|
| PRECHIS(SCPIEN,SCDATES,SCLIST) | ;return precepted positions for preceptor
; input ; SCPIEN := preceptor pos ien (404.57) (required) ; SCDATES := standard PCMM date array (required) ; SCDATES(begin) := start date [default = DT] ; SCDATES(end) := end date [default = DT] ; SCDATES(incl) := always set to 0 ; SCLIST := output array (required) |
|
| PRECQ | ||
| DTARY(SCX) | ;
|
|
| CHKPRTP() | ;
|
|
| S(SCX) | ||
| T | ;;
|
|
| 1 | ;;Position can't precept itself;;
|
|
| 2 | ;;Preceptor and precepted must be on same team;;
|
|
| 3 | ;;Preceptor can't have a preceptor on assignment date;;
|
|
| 4 | ;;Preceptor must be able to act as a preceptor;;
|
|
| 5 | ;;Preceptor must be PC if precepted is PC;;
|
|
| 6 | ;;Preceptor must be active on assignment date;;
|
|
| 7 | ;;Active or future precepted position(s);;
|
|
| 8 | ;;Invalid Parameter
|
|
| 9 | ;;Preceptor/Precepted Staff can't be the same;;
|
|
| 10 | ;;Position has patient assignments after precepted date;;
|
