Routine: SCAPMC22

Information

SCAPMC22 ;ALB/REW - Team API's ; December 1, 1995

Source file <SCAPMC22.m>

Package	Total	Call Graph
Scheduling	2	$$TPPT^SCAPMC23 (ERR,INIT)^SCAPMCU1
VA Fileman	2	NOW^%DTC UPDATE^DIE

Package	Total	Caller Graph
Scheduling	3	SCAPMC SCMCQK1 SCMCQK2

Name	Comments	DBIA/ICR reference
PTTPACT(DFN,SCTP,SCDT,SCERR)	;is patient assigned to a position on a given date-time?
APTTPQ
INPTTP(DFN,SCPTTPA,SCINACT,SCERR)	;inactivate patient from a position (pt tm pos assgn - #404.43 ; input: ; DFN = pointer to PATIENT file (#2) ; SCPTTPA = pointer to pt team assign file (#404.43) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
INPTSCTP(DFN,SCTP,SCINACT,SCERR)	;inactivate patient from a position - using last pt position assignment - Note: This uses pointer to 404.57 (position) not 404.43 as input ; input: ; DFN = pointer to PATIENT file (#2) ; SCTP = pointer to POSITION file (#404.57) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
OKDATA()	;check/setup variables - return 1 if ok/0 if error

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4
^SCPT(404.43 - [#404.43]	INPTTP+19, OKDATA+4, INPTSCTP+18, INPTSCTP+19
^SCTM(404.57 - [#404.57]	PTTPACT+2

Name	Field # of Occurrence
>> %	INPTTP+32
DFN	INPTTP~, INPTTP+22, PTTPACT~, PTTPACT+5, OKDATA+4, OKDATA+5, INPTSCTP~, INPTSCTP+18, INPTSCTP+19, INPTSCTP+20
DT	OKDATA+8, OKDATA+9
DUZ	INPTTP+30
SC	INPTTP+16~
SC(	INPTTP+29, INPTTP+30, INPTTP+32*
SCACT	OKDATA+8, INPTSCTP+17~, INPTSCTP+18, INPTSCTP+19
SCDT	PTTPACT~, PTTPACT+4
SCERR	INPTTP~, INPTTP+22, INPTTP+26, INPTTP+33, INPTTP+34, PTTPACT~, PTTPACT+5, OKDATA+7, INPTSCTP~, INPTSCTP+20
SCESEQ	INPTTP+16~, INPTTP+26, OKDATA+7
SCINACT	INPTTP~, INPTTP+20, INPTTP+22, INPTTP+24, INPTTP+29, OKDATA+9*, INPTSCTP~, INPTSCTP+20
SCLSEQ	INPTTP+16~
SCND	INPTTP+16~, INPTTP+19*, INPTTP+20, INPTTP+21
SCOK	INPTTP+16~, INPTTP+17, INPTTP+23, INPTTP+28, INPTTP+34, APTTPQ, PTTPACT+1~, PTTPACT+3, PTTPACT+5, PTTPACT+6 , OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+10
SCPARM	INPTTP+16~, INPTTP+26, OKDATA+7
SCPARM("INACT	IVE DATE" , INPTTP+24*
SCPARM("MESSAGE"	INPTTP+25*
SCPARM("PATIENT"	OKDATA+5*
SCPARM("Pt PO	SITION Asnt" , OKDATA+6*
SCPTDTS	PTTPACT+1~
SCPTDTS("BEGIN"	PTTPACT+4*
SCPTDTS("END"	PTTPACT+4*
>> SCPTTP	INPTSCTP+19*, INPTSCTP+20
SCPTTPA	INPTTP~, INPTTP+19, INPTTP+29, INPTTP+30, INPTTP+32, OKDATA+4, OKDATA+6
SCTM	PTTPACT+1~, PTTPACT+2*, PTTPACT+5
SCTP	INPTTP+16~, INPTTP+21*, INPTTP+22, PTTPACT~, PTTPACT+2, PTTPACT+5, INPTSCTP~, INPTSCTP+18, INPTSCTP+19
SCTPLST	PTTPACT+1~
SCTPLST("SCTP"	PTTPACT+5
U	INPTTP+20, INPTTP+21, PTTPACT+2