Routine: SCAPMC9

Information

SCAPMC9 ;ALB/REW - Team API's:PRCL ; JUN 26, 1995

Source file <SCAPMC9.m>

Package	Total	Call Graph
Scheduling	4	$$PRTP^SCAPMC8 (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 ($$OKARRAY,$$OKUSRCL)^SCAPU1

Package	Total	Caller Graph
Scheduling	1	SCAPMC

Name	Comments	DBIA/ICR reference
OKDATA()	;check/setup variables - return 1 if ok/ 0 if error
PRCL(SC44,SCDATES,SCPOSA,SCUSRA,SCROLEA,SCLIST,SCERR)	;-- list of practitioners for clinic ; input: ; SC44 = ien of CLINIC <FILE#44> [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] ; SCPOSA= array of positions to include reverse with scposa('exclude') ; SCUSRA= array of usr classes included reverse with scusra('exclude') ; SCROLEA= array of roles included reverse with SCROLEA('exclude') ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
PRACQ
ST

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	OKDATA+5
^SCTM(404.57 - [#404.57]	ST+6, ST+8

Name	Line Occurrences
$$OKDATA	ST+3
PRACQ	ST+3

Name	Field # of Occurrence
SC44	PRCL~, ST+6, OKDATA+5, OKDATA+6
SCBEGIN	ST+1~
SCDATES	PRCL~, ST+17, ST+18
SCDTS	ST+1~
SCEND	ST+1~
SCERR	PRCL~, ST+15, ST+17, ST+18, PRACQ, OKDATA+7
SCESEQ	ST+1~, ST+15, OKDATA+7
SCINCL	ST+1~
SCLIST	PRCL~, ST+18
SCLSEQ	ST+1~
SCN	ST+1~
SCND	ST~, ST+8*, ST+9, ST+11
SCOK	ST~, OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+5, OKDATA+8
SCP	ST+1~
SCPARM	ST+1~, ST+15, OKDATA+7
SCPARM("CLINIC"	OKDATA+6*
SCPARM("Position"	ST+14*
SCPOS0	ST~
SCPOSA	PRCL~, ST+7
SCPOSNM	ST~
SCPRCL	ST~
SCR	ST~, ST+11*, ST+12
SCROLEA	PRCL~, ST+12
SCTP	ST~, ST+5, ST+6, ST+7, ST+8, ST+13, ST+14, ST+17, ST+18
SCU	ST~, ST+9*, ST+10
SCUSRA	PRCL~, ST+10
>> SCX	ST+17*, ST+18
U	ST+9, ST+11
>> X	ST+18*