Routine: SCAPMC28

Package	Total	Caller Graph
Scheduling	4	SCAPMC SCAPMC27 SCMCBK SCMCBK1

Entry Points

Name	Comments	DBIA/ICR reference
PTAPX(SCCL,SCBEGIN,SCEND,MAXCNT,SCLIST,SCERR,SCSTART)	;return appointments in dt range ; Input: (As above plus:) ; SCSTART - Continue with list at this point ; output: SCN - COUNT OF PTS ; returns: dfn^ptname^clinic^apptdt^long id ;
APQ
ST
PTAP(SCCL,SCDATES,SCMAXCNT,SCLIST,SCERR,MORE)	; -- list of patients with an appointment in a given clinic ; ; input: ; SCCL = Pointer to File #44 ; 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 ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCMAXCNT - Maximum # of patients to return, default=99 ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] ; MORE - This is a flag that says that this list exists and has been ; aborted because it reached the maxcount. If this =1 it means ; 'kill the old list & start where you finished' ; Note: Don't Return DFNs where $D(^TMP("SCMC",$J,"EXCLUDE PT","SCPTA",+DFN)) is true ; Output: ; SCLIST() = array of patients ; Format: ; Subscript: Sequential # from 1 to n ; Piece Description ; 1 IEN of PATIENT file entry ; 2 Name of patient ; 3 ien to 40.7 - Not Stop Code!! stp=$$intstp ; 4 AMIS reporting stop code ; 5 Patient's Long ID (SSN)
LP
OKDATA()	;check/setup variables

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PTAPX+55
^SC - [#44]	OKDATA+5
^TMP("SCMC"	PTAPX+46
^TMP($J	PTAPX+8!, PTAPX+18!, PTAPX+31!, PTAPX+33, PTAPX+34, PTAPX+35*, PTAPX+36!, PTAPX+40, PTAPX+42, PTAPX+59!

Name	Field # of Occurrence
DFN	PTAPX+7~, PTAPX+25, PTAPX+42, PTAPX+45, PTAPX+46, PTAPX+51, PTAPX+55, PTAPX+57, PTAPX+63
DUZ(2	PTAPX+55
MAXCNT	PTAPX~
MORE	PTAP~, LP+2
SCARRAY	PTAPX+7~
SCBEGIN	ST+1~, LP, LP+4*, APQ, PTAPX~, PTAPX+10
SCCL	PTAP~, APQ, PTAPX~, PTAPX+10, PTAPX+55, PTAPX+63, OKDATA+5, OKDATA+6
SCDATES	PTAP~
SCDT	LP, PTAPX+7~, PTAPX+27, PTAPX+40*, PTAPX+42, PTAPX+55, PTAPX+63
SCDTS	ST+1~
SCEND	ST~, ST+1~, LP+1*, APQ, PTAPX~, PTAPX+10
SCERR	PTAP~, APQ, PTAPX~, PTAPX+15, PTAPX+17, PTAPX+64, OKDATA+7
SCESEQ	ST+1~, PTAPX+17, OKDATA+7
SCINCL	ST+1~
SCLIST	PTAP~, LP+3, LP+4, LP+5, APQ, PTAPX~, PTAPX+45, PTAPX+48, PTAPX+49, PTAPX+55 , PTAPX+57, PTAPX+63
SCLSEQ	ST+1~
SCMAXCNT	PTAP~, APQ, PTAPX+15, PTAPX+40, PTAPX+42, PTAPX+63, PTAPX+64, OKDATA+3*
SCN	ST+1~, PTAPX+15, PTAPX+40, PTAPX+42, PTAPX+48*, PTAPX+49, PTAPX+55, PTAPX+57, PTAPX+63, PTAPX+64
SCOK	OKDATA+1~, OKDATA+2, OKDATA+4, OKDATA+5, OKDATA+9
SCP	ST+1~
SCPARM	ST+1~, OKDATA+7
SCPARM("CLINIC"	OKDATA+6*
SCSTART	ST~, LP+3, APQ, PTAPX~, PTAPX+25, PTAPX+26
SCVSDT	ST~
SDAPTCNT	PTAPX+7~, PTAPX+13*, PTAPX+15, PTAPX+20
SDARRAY	PTAPX+7~, PTAPX+13
SDARRAY("FLDS"	PTAPX+10*
SDARRAY("SORT"	PTAPX+11*
SDARRAY(1	PTAPX+10*
SDARRAY(2	PTAPX+10*
SDERR	PTAPX+7~
SDX	PTAPX+7~, PTAPX+32, PTAPX+33, PTAPX+34, PTAPX+35
SDY	PTAPX+7~, PTAPX+32, PTAPX+34, PTAPX+35
U	LP+3, LP+4, PTAPX+15, PTAPX+55, PTAPX+63, PTAPX+64