Routine: SCAPMC11

Information

SCAPMC11 ;ALB/REW - Team API's: PTTP ; JUN 30, 1995

Source file <SCAPMC11.m>

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

Package	Total	Caller Graph
Scheduling	4	SCAPMC SCMCBK SCMCBK1 SCMRBK

Name	Comments	DBIA/ICR reference
LP
ST
BLD(SCLIST,SCPTTPA,SCPTTPA0)	; build list ; SCPTTPA - ien of patient team position assignment file #404.43 ; SCEFFDT - negative of effective date ; SCN - current subscript (counter) 1->n ; SCPTTPA0 - IS 0 node of Pt Team Pos Assnt(404.43) 1st piece:pt tm ass ; ; this builds the array: ; sclist(1->n)=sc2^ptname^effdt^inactdt ; for each scpta zero node passed to it
PRACQ
PTTP(SCTP,SCDATES,SCLIST,SCERR)	; -- list of patient team position assignments ; input: ; SCTP = ien of TEAM POSITION [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 ; position 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)]
OKDATA()	;check/setup variables

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

Name	Field # of Occurrence
DFN	BLD+11~, BLD+12*, BLD+13, BLD+17, BLD+19
DUZ(2	BLD+17
SCBEGIN	ST+1~, LP+6
SCCNT	BLD+11~
SCDATES	PTTP~
SCDTS	ST+1~
SCEFFDT	BLD+11~
SCEND	ST+1~, LP+6
SCERR	PTTP~, PRACQ, OKDATA+6, OKDATA+10
SCESEQ	ST+1~, OKDATA+6, OKDATA+10
SCINCL	ST+1~, LP+6
SCLIST	PTTP~, LP+7, BLD~, BLD+10, BLD+14, BLD+15, BLD+17, BLD+18, BLD+19
SCLSEQ	ST+1~
SCN	ST+1~, BLD+14*, BLD+15, BLD+17, BLD+18, BLD+19
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+8*, OKDATA+11
SCP	ST+1~
SCPARM	ST+1~, OKDATA+6, OKDATA+10
SCPARM("POSITION"	OKDATA+5*
SCPARM("TEAM"	OKDATA+9*
SCPTA	ST~
SCPTA0	ST~
SCPTMA	ST~, LP, LP+1, LP+3
SCPTPA	ST~, LP+2, LP+3, LP+4, LP+7
SCPTPA0	ST~, LP+4*, LP+5, LP+6, LP+7
SCPTTPA	BLD~, BLD+9, BLD+10, BLD+17, BLD+18
SCPTTPA0	BLD~, BLD+9, BLD+10, BLD+12, BLD+17, BLD+18
SCTP	PTTP~, LP+1, LP+3, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+9
SCTPA	ST~
U	LP+6, BLD+17