Routine: SCAPMC10

Information

SCAPMC10 ;ALB/REW - Team API's: PRPT ; JUN 26, 1995

Source file <SCAPMC10.m>

Package	Total	Call Graph
Scheduling	3	$$TPPT^SCAPMC23 $$PRTP^SCAPMC8 (ERR,INIT)^SCAPMCU1

Package	Total	Caller Graph
Scheduling	1	SCAPMC

Name	Comments	DBIA/ICR reference
OKDATA()	;check/setup variables - return 1 if ok; 0 if error
PRPT(DFN,SCDATES,SCPOSA,SCUSRA,SCROLEA,SCPURPA,SCLIST,SCERR,SCYESCL)	; -- practs for patient (No support for scyescl) ; input: ; DFN = ien of PATIENT <FILE#2> [required] ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use pracitioners who were on ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCPOSA= array of positions to include reverse with scposa('exclude') ; SCUSRA= array of usr classes included reverse with scusra('exclude') ; SCROLEA= array of usr classes included reverse with scusra('exclude')
PRPTQ
ST

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4

Name	Line Occurrences
$$OKDATA	ST+3
PRPTQ	ST+3, ST+5

Name	Field # of Occurrence
DFN	PRPT~, ST+5, OKDATA+4, OKDATA+5
ENR	ST+2~
INDX	ST~, ST+6*
PT	ST+2~
PT("BEGIN"	ST+11*
PT("END"	ST+12*
PT("INCL"	ST+13*
SC44	ST~
SCBEGIN	ST+1~, ST+11
SCDATES	PRPT~, ST+5
SCDTS	ST+1~
SCEND	ST+1~, ST+12
SCENROLL	ST+2~
SCERR	PRPT~, ST+5, ST+9, ST+15, PRPTQ, OKDATA+6
SCESEQ	ST+1~, ST+9, OKDATA+6
SCINCL	ST+1~, ST+13
SCLIST	PRPT~, ST+15
SCLSEQ	ST+1~
SCN	ST+1~
SCND	ST~
SCOK	ST~, OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+9
SCP	ST+1~
SCPARM	ST+1~, ST+9, OKDATA+6
SCPARM("PATIENT"	OKDATA+5*
SCPARM("Posit	ion Xref" , ST+8*
SCPOS0	ST~
SCPOSA	PRPT~, ST+5, OKDATA+7*
SCPOSIT	ST~, ST+2~
SCPOSIT(	ST+6
SCPOSIT(0	ST+6
SCPRACTS	ST~
SCPURPA	PRPT~, ST+5
SCR	ST~
SCROLEA	PRPT~, ST+5
SCTEAMS	ST~
SCTP	ST~, ST+10*, ST+15
SCU	ST~
>> SCUSA	ST+5
SCUSRA	PRPT~, OKDATA+8*
SCX	ST~, ST+6*, ST+7, ST+8, ST+10, ST+11, ST+12
SCYESCL	PRPT~, ST+5
U	ST+10, ST+11, ST+12