Routine: SCAPMC5

Information

SCAPMC5 ;ALB/REW - Team API's:TMAU ; JUL 3, 1995

Source file <SCAPMC5.m>

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

Package	Total	Caller Graph
Scheduling	1	SCAPMC

Name	Comments	DBIA/ICR reference
ST
OKDATA()	;check/setup variables
PRACQ
TMAU(SCAU,SCDATES,SCPURPA,SCLIST,SCERR)	; -- list of teams for autolink ; input: ; SCAU = variable pointer to TEAM AUTOLINK file (#404.56) ; e.g. 10866;VA(200 for the practitioner with duz=10866 ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use teams who were active ; for entire date range ; 0: anytime in date range ; [default: 1] ; SCPURPA -array of pointers to team purpose file 403.47 ; if none are defined - returns all teams ; if @SCPURPA@('exclude') is defined - exclude listed teams ; SCLIST -array name to store list ; [ex. ^TMP("SCTM",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]

Name	Line Occurrences (* Changed, ! Killed)
^SCTM(404.51 - [#404.51]	ST+7, ST+16
^SCTM(404.56 - [#404.56]	ST+6, OKDATA+4

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

Name	Field # of Occurrence
>> ACTHIST	ST+11*, ST+12, ST+13, ST+16, ST+17
SCAU	TMAU~, ST+6, OKDATA+4, OKDATA+5
SCBEGIN	ST+1~
SCDATES	TMAU~, ST+11
SCDTS	ST+1~
SCEND	ST+1~
SCERR	TMAU~, ST+11, PRACQ, OKDATA+6
SCESEQ	ST+1~, OKDATA+6
SCINCL	ST+1~
SCLIST	TMAU~, ST+13, ST+14, ST+15, ST+16, ST+17
SCLSEQ	ST+1~
SCN	ST+1~, ST+14*, ST+15, ST+16, ST+17
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+8
SCP	ST+1~
SCPARM	ST+1~, OKDATA+6
SCPARM("AUTOLINK"	OKDATA+5*
SCPRP	ST~, ST+9*, ST+10
SCPURPA	TMAU~, ST+10
SCTM	ST~, ST+5, ST+6, ST+7, ST+11, ST+13, ST+16, ST+17
SCTM0	ST~, ST+7*, ST+8, ST+9
SCTMAU	ST~
U	ST+9, ST+13, ST+16, ST+17