Routine: SCAPMC13

Information

SCAPMC13 ;ALB/REW - Team API's: TMPR ; JUN 30, 1995 [10/22/98 2:10pm]

Source file <SCAPMC13.m>

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

Package	Total	Caller Graph
Scheduling	1	SCAPMC

Name	Comments	DBIA/ICR reference
TMPR(SC200,SCDATES,SCPURPA,SCLIST,SCERR)	; -- list of teams for a pract ; input: ; SC200 = ien of NEW PERSON file(#200) [required] ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use patients who were assigned to ; team 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("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
OKDATA()	;setup/check variables
PRACQ
ST

Name	Line Occurrences (* Changed, ! Killed)
^SCTM(404.51 - [#404.51]	ST+14, ST+16
^SCTM(404.52 - [#404.52]	ST+6, ST+7
^SCTM(404.57 - [#404.57]	ST+9
^VA(200 - [#200]	OKDATA+4

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

Name	Field # of Occurrence
>> ACTHIST	ST+22*, ST+23, ST+24
SC200	TMPR~, ST+6, OKDATA+4, OKDATA+5
SCBEGIN	ST+1~
SCDATES	TMPR~, ST+22, ST+24
SCDTS	ST+1~
SCEND	ST+1~
SCERR	TMPR~, ST+22, ST+24, PRACQ, OKDATA+6
SCESEQ	ST+1~, OKDATA+6
SCINCL	ST+1~
SCLIST	TMPR~, ST+24
SCLSEQ	ST+1~
SCN	ST+1~
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+7
SCP	ST+1~, ST+16*, ST+20
SCPARM	ST+1~, OKDATA+6
SCPARM("PRACTITIONER"	OKDATA+5*
SCPTA	ST~
SCPTA0	ST~
SCPURPA	TMPR~, ST+20
SCTM	ST~, ST+9*, ST+10, ST+14, ST+16, ST+24
SCTMPR	ST~
SCTP	ST~, ST+7*, ST+8, ST+9, ST+22
>> SCTPA	ST+5, ST+6, ST+7
U	ST+7, ST+9, ST+16