Routine: SCAPMCU4

Information

SCAPMCU4 ;ALB/REW - TEAM API UTILITIES ; 30 Mar 96

Source file <SCAPMCU4.m>

Package	Total	Call Graph
Scheduling	1	$$TMPT^SCAPMC

Package	Total	Caller Graph
Scheduling	5	SCMCEV3 SCMCQK1 SCMSPX1 SDAPP SDM

Name	Comments	DBIA/ICR reference
RESTPT(DFN,SCDATE,SCRPA)	;is pt a restricted consult pt? ; DFN - ien to PATIENT File ; SCATE - Date of interest - default=DT ; SCRPA - literal value of desired restrict patients array ; e.g. scrpa=xx results in xx(sctm)=teamname ; Returned: [1 if yes, 0 if no, -1 if error] ;

Name	Field # of Occurrence
$$TMPT^SCAPMC	RESTPT+12

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.42 - [#404.42]	RESTPT+24
^SCTM(404.51 - [#404.51]	RESTPT+20

Name	Field # of Occurrence
DFN	RESTPT~, RESTPT+12
SCDATE	RESTPT~, RESTPT+9, RESTPT+10
SCND	RESTPT+7~, RESTPT+15*, RESTPT+16, RESTPT+17, RESTPT+18
SCNDX	RESTPT+7~, RESTPT+14*, RESTPT+15
SCOK	RESTPT+7~, RESTPT+12*
>> SCPTTM	RESTPT+18*, RESTPT+24
SCRPA	RESTPT~, RESTPT+22, RESTPT+26
SCRPDTS	RESTPT+7~
SCRPDTS("BEGIN"	RESTPT+9*
SCRPDTS("END"	RESTPT+10*
SCRPDTS("INCL"	RESTPT+11*
SCRPERR	RESTPT+7~, RESTPT+27
SCRPLIST	RESTPT+7~
SCRPLIST(	RESTPT+15
SCRPLIST(0	RESTPT+13, RESTPT+14
SCTM	RESTPT+7~, RESTPT+16*, RESTPT+20, RESTPT+22, RESTPT+26
SCTMNM	RESTPT+7~, RESTPT+17*, RESTPT+22, RESTPT+26
SCTP	RESTPT+7~
SCYES	RESTPT+7~, RESTPT+8, RESTPT+21, RESTPT+25*, RESTPT+27
U	RESTPT+17, RESTPT+18, RESTPT+20, RESTPT+24