Routine: SCAPMC2

Information

SCAPMC2 ;ALB/REW - Team API's: PTTM ; JUN 30, 1995

Source file <SCAPMC2.m>

Package	Total	Call Graph
Scheduling	2	(ERR,INIT)^SCAPMCU1 $$DTCHK^SCAPU1
IHS Changes To ADT	1	$$HRCN^BDGF2

Package	Total	Caller Graph
Scheduling	7	SCAPMC SCMCBK SCMCBK1 SCMRBK SCRPEC3 SCRPTA SCRPTP

Name	Comments	DBIA/ICR reference
BLD(SCLIST,SCPTA,SCPTA0,SCN)	; build list
LP
PTTM(SCTEAM,SCDATES,SCLIST,SCERR)	; -- list of patient team assignments ; input: ; SCTEAM = ien of TEAM [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] ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
ST
PRACQ
OKDATA()	;check/setup variables

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BLD+16
^SCPT(404.42 - [#404.42]	LP+1, LP+3, LP+4
^SCTM(404.51 - [#404.51]	OKDATA+4, OKDATA+8
^TMP("SCMC"	BLD+12

Name	Field # of Occurrence
DUZ(2	BLD+16
SCBEGIN	ST+1~, LP+6
SCCNT	BLD+13~
SCDATES	PTTM~
SCDTS	ST+1~
SCEFFDT	BLD+13~
SCEND	ST+1~, LP+6
SCERR	PTTM~, PRACQ, OKDATA+6, OKDATA+10
SCESEQ	ST+1~, OKDATA+6, OKDATA+10
SCINCL	ST+1~, LP+6
SCLIST	PTTM~, LP+7, BLD~, BLD+11, BLD+16, BLD+18
SCLSEQ	ST+1~
SCN	ST+1~, LP+7, BLD~, BLD+14*, BLD+16, BLD+18
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+8*, OKDATA+11
SCP	ST+1~
SCPARM	ST+1~, OKDATA+6, OKDATA+10
SCPARM("TEAM"	OKDATA+5, OKDATA+9
SCPT	ST~, LP, LP+1, LP+3
SCPTA	ST~, LP+2, LP+3, LP+4, LP+7, BLD~, BLD+10, BLD+11, BLD+16, BLD+18
SCPTA0	ST~, LP+4*, LP+5, LP+6, LP+7, BLD~, BLD+10, BLD+11, BLD+12, BLD+16 , BLD+18
SCTEAM	PTTM~, LP+1, LP+3, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+9
U	LP+6, BLD+16