Routine: SCAPMC29

Information

SCAPMC29 ;ALB/REW - TEAM APIs:CLPT ; 2/17/00 1:33pm

Source file <SCAPMC29.m>

Package	Total	Call Graph
Scheduling	3	$$TPTM^SCAPMC (ERR,INIT)^SCAPMCU1 $$OKARRAY^SCAPU1

Package	Total	Caller Graph
Scheduling	3	SCAPMC SCAPMC23 SCRPEC2

Name	Comments	DBIA/ICR reference
QTOKC
CLPT(DFN,SCDATES,SCTEAMA,SCLIST,SCERR)	;clinics for patient ; input: ; DFN = ien of PATIENT <FILE#2> [required] ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use pracitioners who were on ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCTEAMA= array of teams to include reverse with scposa('exclude') ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
ST
OKCLIN(SC44,SCPOSA)	;is clinic ok, given position array
PTCLQ
OKDATA()	;check/setup variables - return 1 if ok; 0 if error

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4
^SCTM(404.57 - [#404.57]	OKCLIN+4

Name	Field # of Occurrence
DFN	CLPT~, OKDATA+4, OKDATA+5
SC44	ST~, OKCLIN~, OKCLIN+4
SCACOPT	ST~
SCACT	ST+1~
SCBEGIN	ST+1~
SCCLNM	ST+1~
SCDATES	CLPT~, ST+6
SCDTS	ST+1~
SCEND	ST+1~
SCERR	CLPT~, ST+6, PTCLQ, OKDATA+6
SCESEQ	ST+1~, OKDATA+6
SCINACT	ST+1~
SCINCL	ST+1~
SCLIST	CLPT~
SCLSEQ	ST+1~
SCN	ST+1~
SCND	ST+1~
SCOK	ST+1~, OKCLIN+1~, OKCLIN+2, OKCLIN+3, OKCLIN+4, QTOKC, OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4* , OKDATA+7
SCP	ST+1~
SCPARM	ST+1~, OKDATA+6
SCPARM("PATIENT"	OKDATA+5*
SCPOSA	ST~, OKCLIN~, OKCLIN+2, OKCLIN+4
SCPOSA(	ST+7*
SCPOSA("EXCLUDE"	ST+8*
>> SCPOSAX(	ST+7
SCREVDT	ST+1~
SCS	ST~, ST+1~
SCTEAMA	CLPT~, ST+3, ST+5, ST+8
SCTM	ST~, ST+4, ST+5, ST+6
SCTP	ST~, ST+7, OKCLIN+1~, OKCLIN+3, OKCLIN+4*
SCX	ST~, ST+5, ST+6, ST+7