Routine: SCAPMC18

Information

SCAPMC18 ;ALB/REW - Team APIs:ACPTCL ; 5 Jul 1995

Source file <SCAPMC18.m>

Package	Total	Call Graph
Scheduling	3	$$CLPT^SCAPMC (ERR,INIT)^SCAPMCU1 (AFTER,BEFORE,INVOKE)^SCMCEV3
VA Fileman	2	EN^DDIOL FILE^DICN

Package	Total	Caller Graph
Scheduling	2	SCMCBK1 SCMCQK1

Name	Comments	DBIA/ICR reference
OKDATA()	;setup/check variables
PTCLACT(DFN,SCCL,SCDT,SCERR)	;what is patient/clinic enrollment date on a given date-time? Return date or 0
ACPTCL(DFN,SCCL,SCFIELDA,SCACT,SCERR)	;add a patient to a clinic (enrollment) ; input: ; DFN = pointer to PATIENT file (#2) ; SCCL = pointer to HOSPITAL LOCATION file (#44) ; SCFIELDA= array of additional fields to be added ; SCACT = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
APTCLQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+10
^SC - [#44]	OKDATA+7

Name	Field # of Occurrence
>> DA(1	ACPTCL+28, ACPTCL+35
>> DA(2	ACPTCL+36*
DFN	ACPTCL~, ACPTCL+18, ACPTCL+21, ACPTCL+22, ACPTCL+28, ACPTCL+36, ACPTCL+48, PTCLACT~, PTCLACT+4, OKDATA+10 , OKDATA+11
>> DGQUIET	ACPTCL+25
DIC	ACPTCL+16~, ACPTCL+22, ACPTCL+23, ACPTCL+33
DIC("DR"	ACPTCL+39!, ACPTCL+42, ACPTCL+43
DIC("P"	ACPTCL+27, ACPTCL+34
DIC(0	ACPTCL+26*
DLAYGO	ACPTCL+16~, ACPTCL+30*
DT	OKDATA+13
SC	ACPTCL+16~
SCACT	ACPTCL~, ACPTCL+18, ACPTCL+37, OKDATA+13*
SCCL	ACPTCL~, ACPTCL+18, ACPTCL+29, PTCLACT~, PTCLACT+4, OKDATA+4, OKDATA+5, OKDATA+7, OKDATA+8
SCCLLST	PTCLACT+1~
SCCLLST("SCCL"	PTCLACT+4
SCDATES	PTCLACT+1~
SCDATES("BEGIN"	PTCLACT+3*
SCDATES("END"	PTCLACT+3*
SCDT	PTCLACT~, PTCLACT+3
SCERR	ACPTCL~, ACPTCL+18, PTCLACT~, PTCLACT+4, OKDATA+6, OKDATA+9, OKDATA+12
SCESEQ	ACPTCL+16~, OKDATA+6, OKDATA+9, OKDATA+12
SCFIELDA	ACPTCL~, ACPTCL+38, ACPTCL+41, ACPTCL+42, ACPTCL+43
SCFLD	ACPTCL+16~, ACPTCL+40, ACPTCL+41, ACPTCL+42, ACPTCL+43
SCIEN	ACPTCL+16~
SCNEWCL	ACPTCL+16~, ACPTCL+46*, APTCLQ
SCOK	PTCLACT+1~, PTCLACT+2, PTCLACT+4, PTCLACT+5, OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+7, OKDATA+10 , OKDATA+14
SCPARM	ACPTCL+16~, OKDATA+6, OKDATA+9, OKDATA+12
SCPARM("CLINIC"	OKDATA+5, OKDATA+8
SCPARM("PATIENT"	OKDATA+11*
SCPTCL	ACPTCL+16~, ACPTCL+18, ACPTCL+19, ACPTCL+45, APTCLQ
SCX	ACPTCL+16~, ACPTCL+23*, ACPTCL+24, ACPTCL+32, ACPTCL+47
U	ACPTCL+45, ACPTCL+46, APTCLQ
X	ACPTCL+16~, ACPTCL+29, ACPTCL+37
>> Y	ACPTCL+32, ACPTCL+33, ACPTCL+35, ACPTCL+45, ACPTCL+46