Routine: SCMCBK6

Information

SCMCBK6 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1 ;;Aug 7, 1998

Source file <SCMCBK6.m>

Package	Total	Call Graph
Scheduling	1	$$GETPCTM^SCAPMCU2

Package	Total	Caller Graph
Scheduling	2	SCMCBK5 SCMCBK8

Name	Comments	DBIA/ICR reference
YSPTTMPC(DFN,SCACT)	;is it ok to give patient a new pc team? ; Return [OK:1,Not OK: 0^Message]
1	;;Pt is deceased;;
OKPTTMPC(DFN,SCTM,DATE)	; like OKPTTMPC^SCMCTMU2 ; ;;; supports meaningful reject messages ; ;;; for PHASE II enhancement?? ; Return [OK:1,Not OK: 0^Message]
3	;;Pt has future PC assignment;;
2	;;Pt has current PC assignment;;
5	;;Not PC team;;
4	;;Pt has future team assignment;;
7	;;Pt has PC assignment;;
6	;;Team inactive;;
9	;;Invalid setup;;
QTOKTM
S(SCL)	;output: text string
SCOK(SCL)	;
DP(DFN)	;output: boolean, is patient(DFN) dead?
QTOKPC
T	;;
11	;;Filer error;;
10	;;Pt already assigned;;
13	;;Invalid position list;;
12	;;PC role not assignable;;
15	;;Pt being assigned by another PCMM process;;
14	;;Pt not added to team;;

Name	Field # of Occurrence
$$GETPCTM^SCAPMCU2	YSPTTMPC+5, OKPTTMPC+10

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DP+1
^SCPT(404.42 - [#404.42]	YSPTTMPC+10
^SCTM(404.51 - [#404.51]	OKPTTMPC+9

Name	Line Occurrences
$$S	SCOK+3
$$YSPTTMPC	OKPTTMPC+16
QTOKPC	YSPTTMPC+6, YSPTTMPC+11
QTOKTM	OKPTTMPC+9, OKPTTMPC+11
SCOK	YSPTTMPC+6, YSPTTMPC+11, OKPTTMPC+9, OKPTTMPC+11

Name	Field # of Occurrence
DATE	OKPTTMPC~, OKPTTMPC+10, OKPTTMPC+16
DFN	YSPTTMPC~, YSPTTMPC+5, YSPTTMPC+10, OKPTTMPC~, OKPTTMPC+10, OKPTTMPC+16, DP~, DP+1
DT	YSPTTMPC+5
SCACT	YSPTTMPC~, YSPTTMPC+10
SCL	OKPTTMPC+4~, SCOK~, SCOK+3, S~
SCOK	YSPTTMPC+2~, YSPTTMPC+16, QTOKPC, OKPTTMPC+4~, OKPTTMPC+5, OKPTTMPC+16, QTOKTM, SCOK+3
SCPCTM	OKPTTMPC+4~, OKPTTMPC+10*, OKPTTMPC+11
SCTM	YSPTTMPC+2~, YSPTTMPC+5*, YSPTTMPC+6, OKPTTMPC~, OKPTTMPC+9, OKPTTMPC+11, SCOK+3
SCX	YSPTTMPC+2~, YSPTTMPC+10*, YSPTTMPC+11
U	OKPTTMPC+9, DP+1, SCOK+3

Name	Field # of Occurrence
$T(T+SCL	S+1