Routine: SCAPMC27

Information

SCAPMC27 ;ALB/REW - PTST Patients with a Stop Code ; JUN 30, 1995

Source file <SCAPMC27.m>

Package	Total	Call Graph
Scheduling	2	$$PTAPX^SCAPMC28 (ERR,INIT)^SCAPMCU1
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Scheduling	3	SCAPMC SCMCBK SCMCBK1

Name	Comments	DBIA/ICR reference
PTSTEXT(SCSTOP,SCDATES,SCMAXCNT,SCLIST,SCERR)	; -- list of patients with AMIS REPORTING STOP CODE ; For variables see: PTST (above) ; Returned: 1 if ok, 0 if error^More?
ST
INTST(STOP)	;given stop code return ient
STQ
LP
PTST(SCST,SCDATES,SCMAXCNT,SCLIST,SCERR,MORE)	; -- list of patients with a IEN of 40.7 ; USE $$PTSTEXT(below) if you have stop code (e.g. 301) ; input: ; SCST = stop code ; 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 Number 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 - For continuing lists (see scapmc28)
OKDATA()	;check/setup variables

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	OKDATA+5, INTST+1
^SC - [#44]	LP+11

Name	Field # of Occurrence
MORE	PTST~, LP+2, LP+11*, PTSTEXT+5
SCBEGIN	ST+1~, LP, LP+4*, LP+11
SCCL	ST~, LP+5, LP+9, LP+11*
SCDATES	PTST~, PTSTEXT~, PTSTEXT+5
SCDT	ST~, LP*
SCDTS	ST+1~
SCEND	ST~, ST+1~, LP+1*, LP+11
SCERR	PTST~, LP+11, OKDATA+7, PTSTEXT~, PTSTEXT+5
SCESEQ	ST+1~, OKDATA+7
SCINCL	ST+1~
SCLIST	PTST~, LP+3, LP+4, LP+5, LP+6, LP+11, PTSTEXT~, PTSTEXT+5
SCLSEQ	ST+1~
SCMAXCNT	PTST~, LP+11, OKDATA+3*, PTSTEXT~, PTSTEXT+5
SCN	ST+1~
SCNODE	ST~
SCOK	OKDATA+1~, OKDATA+2, OKDATA+4, OKDATA+5, OKDATA+9
SCP	ST+1~
SCPARM	ST+1~, OKDATA+7
SCPARM("STOP"	OKDATA+6*
SCST	PTST~, LP+11, OKDATA+5, OKDATA+6, PTSTEXT+3~, PTSTEXT+4*, PTSTEXT+5
>> SCSTART	LP+3, LP+8, LP+11
SCSTOP	PTSTEXT~, PTSTEXT+4
SCX	ST~, ST+2, LP+11, STQ
STOP	INTST~, INTST+1
U	LP+3, LP+4, LP+5, LP+11