Routine: SCMCLK

Package	Total	Call Graph
Scheduling	5	$$PRTP^SCAPMC8 $$PCPOSCNT^SCAPMCU1 ($$ACTHIST,$$EXT,$$GETPRTP)^SCAPMCU2 ($$ACTHIST,$$VALHIST)^SCAPMCU5 $$DTCHK^SCAPU1

Package	Total	Caller Graph
Scheduling	19	SCAPMC21 SCAPMC25 SCAPMC8 SCMCBK8 SCMCPREC SCMCTSK2 SCMCTSK3 SCMCTSK5 SCMCTSK6 SCRPITP2 SCRPMPSP SCRPO4 SCRPPAT2 SCRPRAC2 SCRPSLT2 SCRPTA2 SCRPTM2 SCRPTP3 SCUTBK11

Entry Points

Name	Comments	DBIA/ICR reference
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)
OKPREC5(SCIEN,SCLNKDT)	; if position has a preceptor, ; ; is preceptor link valid?
1	;;Position can't precept itself;;
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
3	;;Preceptor can't have a preceptor on assignment date;;
2	;;Preceptor and precepted must be on same team;;
OKPREC1(SCPIEN,SCLNKDT)	; ; ; prevent preceptor assignment danglers ; ; should also return array of danglers, if any, ; ; for a cleanup function, but not asked for yet
4	;;Preceptor must be able to act as a preceptor;;
7	;;Active or future precepted position(s);;
6	;;Preceptor must be active on assignment date;;
9	;;Preceptor/Precepted Staff can't be the same;;
5	;;Preceptor must be PC if precepted is PC;;
S(SCX)
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
T	;;
8	;;Invalid Parameter
OKPREC(SCIEN,SCPIEN,SCLNKDT)	;
10	;;Position has patient assignments after precepted date;;
DTARY(SCX)	;
CHKPRTP()	;
PRECQ

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Scheduling

Routine: SCMCLK

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items