Routine: SCMCTMU2

Information

SCMCTMU2 ;ALB/REW - Team-Patient Utilities ; 1 Apr 96

Source file <SCMCTMU2.m>

Package	Total	Call Graph
Scheduling	2	$$TMPT^SCAPMC ($$ACTHIST,$$GETPCTM)^SCAPMCU2

Package	Total	Caller Graph
Scheduling	5	SCAPMC6 SCMCPM1 SCMCQK SCMCQK1 SCMCQK2

Name	Comments	DBIA/ICR reference
OKINPTTM(DFN,SCTM,SCINACT)	;no future pt-position assignments?
END
RESTENR	;call when pt is set to 'restrict consults' & he is enrolled in clinic
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?
YSPTTMPC(DFN,SCACT)	;is it ok to give patient a new pc team? ; Return [OK:1,Not OK: 0^Message]
OKPTTMPC(DFN,SCTM,DATE)	;
QTOKPC
QTOKTM
ENDOKTM

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.42 - [#404.42]	YSPTTMPC+7, YSPTTMPC+9
^SCPT(404.43 - [#404.43]	OKINPTTM+4, OKINPTTM+5, OKINPTTM+6, OKINPTTM+7
^SCTM(404.51 - [#404.51]	YSPTTMPC+10, OKPTTMPC+4
^SCTM(404.57 - [#404.57]	OKINPTTM+8
^TMP($J	RESTENR+3

Name	Field # of Occurrence
DATE	OKPTTMPC~, OKPTTMPC+5, OKPTTMPC+10
DFN	RESTENR+1, YSPTTMPC~, YSPTTMPC+4, YSPTTMPC+7, YSPTTMPC+9, OKACPTTM~, OKACPTTM+14, OKPTTMPC~, OKPTTMPC+5, OKPTTMPC+10 , OKINPTTM~, OKINPTTM+1, OKINPTTM+4, OKINPTTM+5, OKINPTTM+6
DT	YSPTTMPC+4, OKACPTTM+8
OK	OKINPTTM+2~, OKINPTTM+3, OKINPTTM+4, OKINPTTM+9, OKINPTTM+10*, OKINPTTM+11
SCACERR	OKACPTTM+6~
SCACLST	OKACPTTM+6~
SCACLST("SCTM"	OKACPTTM+15
SCACT	YSPTTMPC~, YSPTTMPC+7
SCACTIVE	OKACPTTM~, OKACPTTM+11*, OKACPTTM+13
>> SCCL	RESTENR+2, RESTENR+3, RESTENR+4
SCDATE	OKACPTTM~, OKACPTTM+8
SCINACT	OKINPTTM~, OKINPTTM+1, OKINPTTM+10
SCOK	YSPTTMPC+2~, YSPTTMPC+5, YSPTTMPC+10, YSPTTMPC+11, QTOKPC, OKACPTTM+6~, OKACPTTM+7, OKACPTTM+13, OKACPTTM+14, OKACPTTM+15* , ENDOKTM, OKPTTMPC+1~, OKPTTMPC+2, OKPTTMPC+4, OKPTTMPC+8, OKPTTMPC+10, QTOKTM
SCPCTM	OKPTTMPC+1~, OKPTTMPC+5*, OKPTTMPC+6, OKPTTMPC+7
SCPTTP0	OKINPTTM+2~, OKINPTTM+7*, OKINPTTM+8, OKINPTTM+9, OKINPTTM+10
SCPTTPDT	OKINPTTM+2~, OKINPTTM+5*, OKINPTTM+6
SCPTTPI	OKINPTTM+2~, OKINPTTM+6*, OKINPTTM+7
SCTM	YSPTTMPC+2~, YSPTTMPC+4, YSPTTMPC+5, YSPTTMPC+9, YSPTTMPC+10, OKACPTTM~, OKACPTTM+13, OKACPTTM+15, OKPTTMPC~, OKPTTMPC+4 , OKPTTMPC+7, OKINPTTM~, OKINPTTM+1, OKINPTTM+8
SCTMDT	OKACPTTM+6~, OKACPTTM+13
SCTMDT("BEGIN"	OKACPTTM+8*
SCTMDT("END"	OKACPTTM+9*
SCTMDT("INCL"	OKACPTTM+10*
SCTP	OKINPTTM+2~, OKINPTTM+3, OKINPTTM+4, OKINPTTM+5, OKINPTTM+6
SCX	YSPTTMPC+2~, YSPTTMPC+7*, YSPTTMPC+8, YSPTTMPC+9
U	YSPTTMPC+5, YSPTTMPC+10, OKPTTMPC+4, OKINPTTM+8, OKINPTTM+9, OKINPTTM+10