Routine: SCAPMC7

Package	Total	Call Graph
Scheduling	3	$$TMPT^SCAPMC3 (ERR,INIT)^SCAPMCU1 $$HISTPTTM^SCAPMCU2
VA Fileman	2	NOW^%DTC UPDATE^DIE

Package

Total

Call Graph

Scheduling

$$TMPT^SCAPMC3 (ERR,INIT)^SCAPMCU1 $$HISTPTTM^SCAPMCU2

VA Fileman

NOW^%DTC UPDATE^DIE

Package	Total	Caller Graph
Scheduling	4	SCAPMC SCMCEV1 SCMCQK1 SCMCQK2

Package

Total

Caller Graph

Scheduling

SCAPMC SCMCEV1 SCMCQK1 SCMCQK2

Entry Points

Name	Comments	DBIA/ICR reference
PTTMACT(DFN,SCTM,SCDT,SCERR)	;is patient assigned to a team on a given date-time?
INPTTM(DFN,SCPTTM,SCINACT,SCERR)	;inactivate patient from a team (pt tm assgn - #404.42 ; input: ; DFN = pointer to PATIENT file (#2) ; SCPTTM = pointer to pt team assign file (#404.42) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
APTTMQ
INPTATM(DFNA,SCTM,SCFIELDA,SCACT,SCERR,SCNEWTM,SCOLDTM,SCBADTM)	;list of patients assigned to a team (404.42) ; input: as per ACPTTM (above with the following change:) ; DFNA = is the literal value of a patient array (e.g. "scpt" ; there is at least one scpt(dfn)="" defined ; SCNEWTM = Subset of DFNA that was NEWLY assigned to Team [returned] ; SCOLDTM = Subset of DFNA that was already assigned -Team [returned] ; SCBADTP = Subset of DFNA that was NOT assigned to Team [returned] ; Note: The above three arrays return data in a user determined array ; output: Count of Patients: ; 1 2 3 4 ; total assigned^newly assigned^assigned prior^not assigned
INPTSCTM(DFN,SCTM,SCINACT,SCERR)	;inactivate patient from a team - using last pt team assignment - Note: This uses pointer to 404.51 (team) not 404.42 as input ; input: ; DFN = pointer to PATIENT file (#2) ; SCTM = pointer to TEAM file (#404.51) ; 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	Field # of Occurrence
NOW^%DTC	INPTTM+28
UPDATE^DIE	INPTTM+30
$$TMPT^SCAPMC3	PTTMACT+4
ERR^SCAPMCU1	INPTTM+23, OKDATA+7
INIT^SCAPMCU1	OKDATA+3
$$HISTPTTM^SCAPMCU2	INPTATM+14

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4
^SCPT(404.42 - [#404.42]	INPTTM+19, OKDATA+4, INPTSCTM+18, INPTSCTM+19

Name	Line Occurrences
$$INPTTM	INPTATM+15, INPTSCTM+20
$$OKDATA	INPTTM+18
$$PTTMACT	INPTTM+20
APTTMQ	INPTTM+18, INPTTM+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INPTTM+29
DFN	INPTTM~, INPTTM+20, PTTMACT~, PTTMACT+4, OKDATA+4, OKDATA+5, INPTATM+11~, INPTATM+13*, INPTATM+14, INPTATM+15 , INPTATM+19, INPTATM+22, INPTATM+24, INPTSCTM~, INPTSCTM+18, INPTSCTM+19, INPTSCTM+20
DFNA	INPTATM~, INPTATM+13
DT	OKDATA+8, OKDATA+9
DUZ	INPTTM+27
SC	INPTTM+16~
SC(	INPTTM+26, INPTTM+27, INPTTM+29*
SCACT	OKDATA+8, INPTATM~, INPTATM+14, INPTATM+15, INPTSCTM+17~, INPTSCTM+18, INPTSCTM+19
SCBADCNT	INPTATM+11~, INPTATM+12, INPTATM+25, INPTATM+26
SCBADTM	INPTATM~, INPTATM+24
SCDT	PTTMACT~, PTTMACT+3
SCERR	INPTTM~, INPTTM+20, INPTTM+23, INPTTM+30, INPTTM+31, PTTMACT~, PTTMACT+4, OKDATA+7, INPTATM~, INPTATM+15 , INPTSCTM~, INPTSCTM+20
SCESEQ	INPTTM+16~, INPTTM+23, OKDATA+7
SCFIELDA	INPTATM~, INPTATM+15
SCINACT	INPTTM~, INPTTM+20, INPTTM+22, INPTTM+26, OKDATA+9*, INPTSCTM~, INPTSCTM+20
SCLSEQ	INPTTM+16~
SCNEWCNT	INPTATM+11~, INPTATM+12, INPTATM+18, INPTATM+26
SCNEWTM	INPTATM~, INPTATM+19
SCOK	INPTTM+16~, INPTTM+17, INPTTM+21, INPTTM+25, INPTTM+31, APTTMQ, PTTMACT+1~, PTTMACT+2, PTTMACT+4, PTTMACT+5 , OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+10
SCOLDCNT	INPTATM+11~, INPTATM+12, INPTATM+21, INPTATM+26
SCOLDTM	INPTATM~, INPTATM+22
SCPARM	INPTTM+16~, INPTTM+23, OKDATA+7
SCPARM("INACT	IVE DATE" , INPTTM+22*
SCPARM("PATIENT"	OKDATA+5*
SCPARM("Pt TE	AM Asnt" , OKDATA+6*
SCPTTM	INPTTM~, INPTTM+19, INPTTM+26, INPTTM+27, INPTTM+29, OKDATA+4, OKDATA+6, INPTATM+14, INPTATM+15, INPTSCTM+19 , INPTSCTM+20
SCTM	INPTTM+16~, INPTTM+19*, INPTTM+20, PTTMACT~, PTTMACT+4, INPTATM~, INPTATM+14, INPTSCTM~, INPTSCTM+18, INPTSCTM+19
SCTMDTS	PTTMACT+1~
SCTMDTS("BEGIN"	PTTMACT+3*
SCTMDTS("END"	PTTMACT+3*
SCTMLST	PTTMACT+1~
SCTMLST("SCTM"	PTTMACT+4
SCX	INPTATM+11~, INPTATM+15*, INPTATM+17, INPTATM+19, INPTATM+20, INPTATM+22, INPTATM+23
U	INPTTM+19, INPTATM+17, INPTATM+20, INPTATM+26

Customize PDF page

Package: Scheduling

Routine: SCAPMC7

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: