Routine: SCAPMC24

Information

SCAPMC24 ;ALB/REW - Team API's:TPTM ; 27 Jun 99 3:05 PM

Source file <SCAPMC24.m>

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

Package	Total	Caller Graph
Scheduling	7	SCAPMC SCAPMC12 SCAPMC23 SCAPMC30 SCMCMU SCMCMU11 SDNEXT

Name	Comments	DBIA/ICR reference
TPTM(SCTM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR)	; -- positions for a pract ; input: ; SCTM = ien of TEAM File (#404.51) [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] ; SCUSRA -array of pointers to user file - 8930 ; if none are defined - returns all usr classes ; if @SCPURPA@('exclude') is defined - exclude listed usr class ; SCROLEA - array of pointers to std position file 403.46 (per scusra) ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
QTVALBLD
ST
TPVALBLD(SCTP,SCDATES,SCPOSA,SCUSA,SCPURPA,SCROLEA,SCLIST,SCERR)	; ; this validates a team position & builds sclist array ; returns 1 if ok, 0 if error
BLD(SCLIST,SCTM,SCTP,SCACTHIS,SCR)	; -- build list of positions
PRACQ
OKDATA()	;setup/check variables

Name	Line Occurrences (* Changed, ! Killed)
^SCTM(404.51 - [#404.51]	OKDATA+4
^SCTM(404.57 - [#404.57]	ST+6, TPVALBLD+5, TPVALBLD+9, BLD+15, BLD+19, BLD+27
^SCTM(404.59 - [#404.59]	TPVALBLD+6
^SD(403.46 - [#403.46]	BLD+27
^USR(8930 - [#8930]	BLD+27

Name	Field # of Occurrence
SCACTHIS	ST~, TPVALBLD+7*, TPVALBLD+8, TPVALBLD+14, TPVALBLD+15, BLD~, BLD+16, BLD+27, BLD+31
SCBEGIN	ST+1~
SCCNT	BLD+14~
SCDATES	TPTM~, ST+6, TPVALBLD~, TPVALBLD+4
SCDDDD	TPVALBLD+3~, TPVALBLD+4*
SCDDDD("END"	TPVALBLD+15*
SCDTS	ST+1~
SCEFFDT	BLD+14~
SCEND	ST+1~
SCERR	TPTM~, ST+6, PRACQ, TPVALBLD~, TPVALBLD+7, QTVALBLD, OKDATA+6
SCESEQ	ST+1~, OKDATA+6
SCINCL	ST+1~
SCLIST	TPTM~, ST+6, TPVALBLD~, TPVALBLD+14, BLD~, BLD+16, BLD+17, BLD+18, BLD+27, BLD+31
SCLSEQ	ST+1~
SCN	ST+1~, BLD+14~, BLD+17*, BLD+18, BLD+27, BLD+31
SCND	ST~, TPVALBLD+9*, TPVALBLD+10, TPVALBLD+12
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+7
SCPARM	ST+1~, OKDATA+6
SCPARM("Team"	OKDATA+5*
SCPOSA	ST+6, TPVALBLD~
SCPTTP	ST~
SCPTTP0	ST~, BLD+27
SCPURPA	ST+6, TPVALBLD~
SCR	ST~, TPVALBLD+3~, TPVALBLD+12*, TPVALBLD+13, TPVALBLD+14, BLD~, BLD+27
SCROLEA	TPTM~, ST+6, TPVALBLD~, TPVALBLD+13
SCTM	TPTM~, ST+6, TPVALBLD+3~, BLD~, BLD+15*, BLD+16, BLD+27, BLD+31, OKDATA+4, OKDATA+5
SCTP	ST~, ST+5, ST+6, TPVALBLD~, TPVALBLD+5, TPVALBLD+6, TPVALBLD+7, TPVALBLD+9, TPVALBLD+14, BLD~ , BLD+15, BLD+16, BLD+19, BLD+27, BLD+31
SCTP0	TPVALBLD+3~, TPVALBLD+5*, TPVALBLD+14
SCTPA	ST~, ST+5*
SCTPDT	TPVALBLD+3~, TPVALBLD+6*
SCTPTM	ST~
SCU	TPVALBLD+3~, TPVALBLD+10*, TPVALBLD+11
SCUSA	ST+6, TPVALBLD~
SCUSR	BLD+14~, BLD+19*, BLD+27
SCUSRA	TPTM~, TPVALBLD+11
U	TPVALBLD+10, TPVALBLD+12, TPVALBLD+14, TPVALBLD+15, BLD+15, BLD+16, BLD+19, BLD+27, BLD+31