SCMCLK ;bp/cmf - Preceptor History Functions ; Sep 1999
Source file <SCMCLK.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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;;
|
Name | Field # of Occurrence |
---|---|
$$PRTP^SCAPMC8 | PRECHIS+61 |
$$PCPOSCNT^SCAPMCU1 | OKPREC4+10 |
$$ACTHIST^SCAPMCU2 | OKPREC+25 |
$$EXT^SCAPMCU2 | OKPREC3+18 |
$$GETPRTP^SCAPMCU2 | OKPREC2+18, CHKPRTP+1 |
$$ACTHIST^SCAPMCU5 | OKPREC+18, OKPREC2+10, OKPREC3+10, PRECHIS+44 |
$$VALHIST^SCAPMCU5 | OKPREC+17, OKPREC2+9, OKPREC3+9, OKPREC4+8, PRECHIS+42 |
$$DTCHK^SCAPU1 | PRECHIS+55 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCTM(404.53 - [#404.53] | OKPREC1+9, OKPREC2+16, OKPREC2+17, OKPREC3+16, OKPREC3+17, OKPREC4+5, PRECHIS+32, PRECHIS+33, PRECHIS+37, PRECHIS+48 |
^SCTM(404.57 - [#404.57] | OKPREC+10, OKPREC+11, OKPREC+12, OKPREC+13, OKPREC4+4 |
^TMP("SCPHIS" | OKPREC1+13!, OKPREC1+15! |
Name | Line Occurrences |
---|---|
$$CHKPRTP | OKPREC+27 |
$$OKPREC | OKPREC5+9 |
$$OKPREC3 | OKPREC5+7 |
$$PRECHIS | OKPREC1+14 |
$$S | OKPREC+5, OKPREC+7, OKPREC+10, OKPREC+12, OKPREC+14, OKPREC+18, OKPREC+21, OKPREC+23, OKPREC+25, OKPREC+27 , OKPREC1+8, OKPREC1+17, OKPREC2+6, OKPREC2+16, OKPREC3+6, OKPREC3+16, OKPREC4+4, OKPREC4+11, OKPREC5+5, PRECHIS+22 |
DTARY | OKPREC+16, OKPREC1+12, OKPREC2+8, OKPREC3+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DT | OKPREC5+4, PRECHIS+28, PRECHIS+29 |
SCBEGIN | PRECHIS+25~, PRECHIS+28*, PRECHIS+55 |
SCDATES | PRECHIS~, PRECHIS+20*, PRECHIS+22, PRECHIS+28*, PRECHIS+29*, PRECHIS+30, PRECHIS+44 |
SCDT | OKPREC4+7~, OKPREC4+8*, OKPREC4+9, OKPREC4+10 |
SCEND | PRECHIS+25~, PRECHIS+29*, PRECHIS+55 |
SCESEQ | PRECHIS+25~ |
SCIEN | OKPREC~, OKPREC+2*, OKPREC+5, OKPREC+7, OKPREC+10, OKPREC+11, OKPREC2~, OKPREC2+4*, OKPREC2+6, OKPREC2+9 , OKPREC3~, OKPREC3+4*, OKPREC3+6, OKPREC3+9, OKPREC4~, OKPREC4+3*, OKPREC4+4, OKPREC4+5, OKPREC4+8, OKPREC4+10 , OKPREC5~, OKPREC5+3*, OKPREC5+5, OKPREC5+7, OKPREC5+9, PRECHIS+24~, PRECHIS+36*, PRECHIS+37*, PRECHIS+41, PRECHIS+42 , PRECHIS+43, PRECHIS+44, PRECHIS+48, PRECHIS+49, PRECHIS+50, PRECHIS+51, PRECHIS+52, PRECHIS+53, PRECHIS+61, PRECHIS+71 , PRECHIS+74, CHKPRTP+1 |
SCLIST | PRECHIS~, PRECHIS+21*, PRECHIS+22, PRECHIS+35, PRECHIS+69, PRECHIS+70, PRECHIS+71, PRECQ |
SCLNKDT | OKPREC~, OKPREC+4*, OKPREC+5, OKPREC1~, OKPREC1+7*, OKPREC1+8, OKPREC2~, OKPREC2+5*, OKPREC2+6, OKPREC2+18 , OKPREC3~, OKPREC3+5*, OKPREC3+6, OKPREC5~, OKPREC5+4*, OKPREC5+5, OKPREC5+7, OKPREC5+9, DTARY+1, DTARY+2 , CHKPRTP+1 |
SCLNKDT("BEGIN" | DTARY+1* |
SCLNKDT("END" | DTARY+2* |
SCLNKDT("INCL" | DTARY+3* |
SCLNKER | OKPREC2+7~, OKPREC3+7~ |
SCLNKLI | OKPREC2+7~ |
SCLSEQ | PRECHIS+25~ |
SCN | OKPREC1+11~, PRECHIS+24~ |
SCP12 | PRECHIS+26~, PRECHIS+66*, PRECHIS+68 |
SCP13 | PRECHIS+26~, PRECHIS+67*, PRECHIS+68 |
SCP14 | PRECHIS+26~, PRECHIS+51*, PRECHIS+52, PRECHIS+53, PRECHIS+55, PRECHIS+58, PRECHIS+68, PRECHIS+71 |
SCP15 | PRECHIS+26~, PRECHIS+53*, PRECHIS+54*, PRECHIS+55, PRECHIS+59, PRECHIS+68 |
SCP16 | PRECHIS+26~, PRECHIS+52*, PRECHIS+53, PRECHIS+68, PRECHIS+71 |
SCP1P11 | PRECHIS+26~, PRECHIS+65*, PRECHIS+68 |
SCP2 | OKPREC2+7~, OKPREC2+13*, OKPREC2+14, OKPREC3+7~, OKPREC3+13*, OKPREC3+14 |
SCP3 | OKPREC2+7~, OKPREC2+15*, OKPREC2+16, OKPREC2+17, OKPREC3+7~, OKPREC3+15*, OKPREC3+16, OKPREC3+17 |
SCPAH | OKPREC+9~, OKPREC+17*, OKPREC2+7~, OKPREC2+9*, OKPREC3+7~, OKPREC3+9* |
SCPAHA | OKPREC+9~, OKPREC2+7~, OKPREC3+7~ |
SCPIEN | OKPREC~, OKPREC+3*, OKPREC+5, OKPREC+7, OKPREC+12, OKPREC+13, OKPREC+17, OKPREC+25, OKPREC1~, OKPREC1+6* , OKPREC1+8, OKPREC1+9, OKPREC1+14, OKPREC2+7~, OKPREC2+17*, OKPREC2+18, OKPREC3+7~, OKPREC3+17*, OKPREC3+18, OKPREC5+6~ , OKPREC5+7*, OKPREC5+8, OKPREC5+9, PRECHIS~, PRECHIS+19*, PRECHIS+22, PRECHIS+32, PRECHIS+33, PRECHIS+37, PRECHIS+48 , CHKPRTP+1 |
SCPN | PRECHIS+24~, PRECHIS+34*, PRECHIS+64*, PRECHIS+69, PRECHIS+70, PRECHIS+71 |
SCPTP | PRECHIS+25~, PRECHIS+56! |
SCPTP( | PRECHIS+65, PRECHIS+66, PRECHIS+67 |
SCPTP(0 | PRECHIS+62, PRECHIS+63 |
SCPTPN | PRECHIS+25~ |
SCPVAL | PRECHIS+24~ |
SCPVAL( | PRECHIS+41!, PRECHIS+43, PRECHIS+49, PRECHIS+50, PRECHIS+51, PRECHIS+52, PRECHIS+53, PRECHIS+74! |
SCR | PRECHIS+26~, PRECHIS+68*, PRECHIS+70, PRECHIS+71 |
SCVALHIS | OKPREC4+7~ |
SCX | OKPREC+9~, OKPREC+11*, OKPREC+14, OKPREC+23, OKPREC1+11~, OKPREC1+14*, OKPREC1+17, OKPREC2+7~, OKPREC2+10*, OKPREC2+12 , OKPREC2+13, OKPREC2+15, OKPREC3+7~, OKPREC3+10*, OKPREC3+12, OKPREC3+13, OKPREC3+15, OKPREC4+7~, OKPREC4+10*, OKPREC4+11 , PRECHIS+24~, PRECHIS+42*, PRECHIS+44*, PRECHIS+45, PRECHIS+47*, PRECHIS+48*, PRECHIS+49, PRECHIS+50, DTARY~, DTARY+2 , S~ |
SCXARY | PRECHIS+24~, PRECHIS+50*, PRECHIS+51, PRECHIS+52, PRECHIS+53 |
SCXDT | PRECHIS+24~, PRECHIS+57! |
SCXDT("BEGIN" | PRECHIS+58* |
SCXDT("END" | PRECHIS+59* |
SCXDT("INCL" | PRECHIS+60* |
SCXP | PRECHIS+24~, PRECHIS+61*, PRECHIS+63*, PRECHIS+65, PRECHIS+66, PRECHIS+67 |
SCXPR | PRECHIS+24~ |
SCY | OKPREC+9~, OKPREC+13*, OKPREC+14, OKPREC+21, OKPREC+23 |
U | OKPREC+14, OKPREC+21, OKPREC+23, OKPREC2+13, OKPREC2+15, OKPREC2+17, OKPREC3+13, OKPREC3+15, OKPREC3+17, OKPREC3+18 , OKPREC4+8, PRECHIS+53, PRECHIS+65, PRECHIS+66, PRECHIS+67, PRECHIS+68, PRECHIS+71, S |
Name | Field # of Occurrence |
---|---|
$T(T+SCX | S |