Routine: SCAPMC26

Information

SCAPMC26 ;ALB/REW - API: Patients in a Clinic ; December 1, 1995 [12/21/98 4:30pm]

Source file <SCAPMC26.m>

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

Package	Total	Caller Graph
Scheduling	3	SCAPMC SCMCBK SCMCBK1

Name	Comments	DBIA/ICR reference
PTCLBRTP(SC44,SCTP,SCDATES)	;for PCMM use only!! returns list to ^tmp($j,'scclpt' ; SC44 - Clinic we're adding to team ; SCTP - EXCLUDES Patients assigned to SCTP Position during scdates ; SCDATES - Standard Date array ; Returns: $j if successful & at least one entry, 0 if error or none ; Warning: Kills ^tmp($j,'scclpt') before it runs
ST
PTCL(SC44,SCDATES,SCLIST,SCERR)	; patients in a clinic ; Input: ; SC44 - Pointer to Hospital Location File #44 ; SCDATES- Date array (begin, end, incl) ; SCLIST - Name of output array ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J ; Output: ; SCLIST() = array of practitioners (users) - pointers to file #200 ; Format: ; Subscript: Sequential # from 1 to n ; Piece Description ; 1 DFN - Ptr to Patient File (#2) ; 2 Patient Name (External) ; 3 null ; 4 Activation Date ; 5 Discharge Date ; 6 '1' - for merge reasons with other pt lists ; 7 sc44
CLTPQ
PTCLBR(SC44,SCTM,SCDATES)	;for PCMM use only!! returns list to ^tmp($j,'scclpt' ; SC44 - Clinic we're adding to team ; SCTM - EXCLUDES Patients assigned to SCTM Team during time period ; SCDATES - Standard Date array ; Returns: $j if successful & at least one entry, 0 if error or none ; Warning: Kills ^tmp($j,'scclpt') before it runs & ^tmp('scmc',$j,'exclude pt') after it runs
OKDATA()	;check/setup variables - return 1 if ok; 0 if error

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ST+17, ST+22
^DPT("AEB1"	ST+7, ST+9, ST+13, ST+15
^SC - [#44]	OKDATA+5
^TMP("SCMC"	ST+10, PTCLBR+10!, PTCLBRTP+10!
^TMP($J	PTCLBR+7!, PTCLBR+11, PTCLBRTP+7!, PTCLBRTP+11

Name	Field # of Occurrence
DFN	ST~, ST+8, ST+9, ST+10, ST+13, ST+15, ST+17, ST+22, ST+24
DUZ(2	ST+22
SC44	PTCL~, ST+7, ST+9, ST+13, ST+15, ST+22, OKDATA+5, OKDATA+6, PTCLBR~, PTCLBR+9 , PTCLBRTP~, PTCLBRTP+9
SCBEGIN	ST+1~, ST+18
SCCL	ST~, ST+13*, ST+14, ST+15, ST+17
SCCLDT	ST~, ST+6, ST+7, ST+9, ST+13, ST+15
SCCLERR	PTCLBR+6~, PTCLBRTP+6~
SCDATES	PTCL~, PTCLBR~, PTCLBR+8, PTCLBR+9, PTCLBRTP~, PTCLBRTP+8, PTCLBRTP+9
SCDTS	ST+1~
SCEND	ST+1~, ST+18
SCERR	PTCL~, CLTPQ, OKDATA+7, OKDATA+10
SCESEQ	ST+1~, OKDATA+3*, OKDATA+7, OKDATA+10
SCINCL	ST+1~, ST+18
SCLIST	PTCL~, ST+19, ST+20, ST+22, ST+24, OKDATA+8, OKDATA+9
SCLSEQ	ST+1~, OKDATA+3*
SCN	ST+1~, ST+19, ST+20, ST+22, ST+24, OKDATA+3
>> SCNODE	ST+17*, ST+18, ST+22
SCOK	ST~, ST+3, OKDATA+1~, OKDATA+2, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+11
SCPARM	ST+1~, OKDATA+7, OKDATA+10
SCPARM("CLINIC"	OKDATA+6*
SCPARM("OUTPU	T ARRAY" , OKDATA+9*
SCTM	PTCLBR~, PTCLBR+8
SCTP	PTCLBRTP~, PTCLBRTP+8
SCX	ST+15, ST+16, ST+17, ST+24, PTCLBR+6~, PTCLBR+9, PTCLBR+11, PTCLBRTP+6~, PTCLBRTP+9*, PTCLBRTP+11
SCXX	PTCLBR+6~, PTCLBR+8, PTCLBRTP+6~, PTCLBRTP+8
U	ST+18, ST+22