Routine: SCMCTMU

Package	Total	Call Graph
Scheduling	2	$$DATES^SCAPMCU1 ($$ACTHIST,$$GETPCTM,$$GETPRTP)^SCAPMCU2
Kernel	1	EN^XQOR

Package

Total

Call Graph

Scheduling

$$DATES^SCAPMCU1 ($$ACTHIST,$$GETPCTM,$$GETPRTP)^SCAPMCU2

Kernel

EN^XQOR

Package	Total	Caller Graph
Scheduling	10	SCAPMC SCMCCV SCMCCV3 SCMCWAIT SCRPITP2 SCRPPAT3 SCRPTM SCRPV1A SDWLE3 SDWLE6

Package

Total

Caller Graph

Scheduling

SCAPMC SCMCCV SCMCCV3 SCMCWAIT SCRPITP2 SCRPPAT3 SCRPTM SCRPV1A
SDWLE3 SDWLE6

Entry Points

Name	Comments	DBIA/ICR reference
CK
ACTTM(SCTM,SCDT)	;is the team currently active? ; Used by computed field #300 (CURRENTLY ACTIVE?) OF file #404.51 ; Input: ; SCTM - Pointer to Team file #404.51 ; SCDT - Date to check for, Default=DT ; Returns: ; 1 if after effective date and before inactive date ; 0 if not yet active or inactivated ; -1 if error
PR(SDNPI)	;Provider Display Data ; Input -- SDNPI New Person IEN ; Output -- Provider Display Data - Provider Name
OKPTTM(SCNODE,DA)	;check pt team assignment - 404.42 ; SCNODE is proposed new node
INSTPCTM(DFN,SCEFF)	;return institution & team for pt's pc team ; return ptr4^institution^sctm^team name
ENROLL(DFN,CLINIC,DATE)	;is this patient enrolled in this clinic on a date?
WHOCLIN(SDCL,DATE)	;give clinic & date return prt to 200 ; SDCL - ien of #44 ; DATE - effective date (optional) default =DT ; Returned: ien of 200
WHOPOS(SCTP,DATE)	;given position & date,return pointer to 200^name of pr
EVTQ
PTTMSCRN	;define dic('s') to ensure patient team position assignement is ok
DISPWHO(SCPOS,DATE)	;given position & date, return external of 200
RESTCONS(DFN)	;does this patient have restricted consults? ; for a clinic in which the patient is NOT enrolled, some patients/teams ; require more authority to enroll or make appointments ; this will often be used with $$ENROLL(dfn) to see if he is enrolled
POSCLIN(SDCL,DATE)	;given clinic & date, return ptr to team position 404.57 ; SDCL - ien of Hospital Location (#44) ; Returned: If exactly one position for clinic - ien of team postion ; else null
QTOKTM
EVT(SCCVEVT,SCCVORG)	;Invoke encounter conversion event driver ; Input -- SCCVEVT Conversion event ; 0=Estimate, 1=Convert, 2=Re-convert ; SCCVORG Originating process type ; Output -- ^TMP("SCCVEVT",$J, disposition array

Name	Field # of Occurrence
$$DATES^SCAPMCU1	ACTTM+10
$$ACTHIST^SCAPMCU2	OKPTTM+17
$$GETPCTM^SCAPMCU2	INSTPCTM+4
$$GETPRTP^SCAPMCU2	WHOPOS+4
EN^XQOR	EVT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	INSTPCTM+7
^DPT - [#2]	ENROLL+10, ENROLL+12, ENROLL+13
^ORD(101 - [#101]	EVT+6
^SCPT(404.42 - [#404.42]	CK+2, OKPTTM+21, OKPTTM+23, OKPTTM+24, OKPTTM+25, OKPTTM+30
^SCPT(404.43 - [#404.43]	CK+1
^SCTM(404.51 - [#404.51]	INSTPCTM+5, INSTPCTM+7
^SCTM(404.57 - [#404.57]	POSCLIN+7, POSCLIN+8
^TMP("SCCVEVT"	EVT+8!
^VA(200 - [#200]	DISPWHO+7, PR+4

Name	Line Occurrences
$$WHOPOS	DISPWHO+6
QTOKTM	OKPTTM+5, OKPTTM+15

Name	Field # of Occurrence
^(0	DISPWHO+7, PR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLINIC	ENROLL~, ENROLL+10
DA	OKPTTM~, OKPTTM+5, OKPTTM+21
DATE	ENROLL~, ENROLL+16, WHOCLIN~, POSCLIN~, POSCLIN+6, POSCLIN+7, WHOPOS~, WHOPOS+4, DISPWHO~, DISPWHO+5 , DISPWHO+6
DFN	ENROLL~, ENROLL+10, ENROLL+12, ENROLL+13, RESTCONS~, OKPTTM+3~, OKPTTM+6*, OKPTTM+16, OKPTTM+21, OKPTTM+23 , OKPTTM+24, OKPTTM+30, INSTPCTM~, INSTPCTM+4
>> DIC("S"	CK+3*
DIROUT	EVT+5!
DT	POSCLIN+6, DISPWHO+5
DTOUT	EVT+5!
OK	OKPTTM+3~, OKPTTM+4, OKPTTM+15, OKPTTM+18, OKPTTM+21, OKPTTM+25, OKPTTM+28, OKPTTM+31*, QTOKTM
SCACT	ENROLL+7~, ENROLL+14, ENROLL+16, OKPTTM+3~, OKPTTM+8, OKPTTM+10, OKPTTM+11, OKPTTM+15, OKPTTM+16, OKPTTM+21 , OKPTTM+23, OKPTTM+28
SCAFT	OKPTTM+3~, OKPTTM+30*, OKPTTM+31
SCB4	OKPTTM+3~, OKPTTM+23*, OKPTTM+24
>> SCB4A	OKPTTM+24*, OKPTTM+25
SCCL	ENROLL+7~, ENROLL+9, ENROLL+10, ENROLL+12, ENROLL+13
>> SCCL1	ENROLL+11, ENROLL+12, ENROLL+13
SCCVEVT	EVT~
SCCVORG	EVT~
SCD	POSCLIN+5~, POSCLIN+7*, POSCLIN+8
SCDT	ACTTM~, ACTTM+10
SCDTS	OKPTTM+3~, OKPTTM+12, OKPTTM+17
SCDTS("BEGIN"	OKPTTM+10*
SCDTS("END"	OKPTTM+11*
SCDTS("INCL"	OKPTTM+12*
SCEFF	INSTPCTM~, INSTPCTM+4
SCINACT	ENROLL+7~, ENROLL+15, ENROLL+16, OKPTTM+3~, OKPTTM+9, OKPTTM+11, OKPTTM+15, OKPTTM+28, OKPTTM+30, OKPTTM+31
SCINST	INSTPCTM+2~, INSTPCTM+5*, INSTPCTM+6, INSTPCTM+7
SCL1	ENROLL+7~
SCNODE	ENROLL+7~, ENROLL+13*, ENROLL+14, ENROLL+15, OKPTTM~, OKPTTM+6, OKPTTM+7, OKPTTM+8, OKPTTM+9
SCOK	INSTPCTM+2~, INSTPCTM+3, INSTPCTM+6, INSTPCTM+7
SCP	DISPWHO+4~, DISPWHO+6*, DISPWHO+7
SCPOS	DISPWHO~, DISPWHO+6
>> SCPTTMA	OKPTTM+21*
SCTM	ACTTM~, ACTTM+10, CK~, CK+2, CK+3, OKPTTM+3~, OKPTTM+7, OKPTTM+16, OKPTTM+17, OKPTTM+21 , OKPTTM+23, OKPTTM+24, OKPTTM+30, INSTPCTM+2~, INSTPCTM+4*, INSTPCTM+5, INSTPCTM+6, INSTPCTM+7
SCTMA	CK~, CK+1*, CK+2
SCTMHIST	OKPTTM+3~, OKPTTM+17*, OKPTTM+18
SCTP	WHOPOS~, WHOPOS+4
SCYES	ENROLL+7~, ENROLL+8, ENROLL+16, ENROLL+17
SDCL	WHOCLIN~, POSCLIN~, POSCLIN+7, POSCLIN+8
SDNPI	PR~, PR+4
U	ENROLL+15, DISPWHO+7, CK+1, CK+2, OKPTTM+6, OKPTTM+7, OKPTTM+8, OKPTTM+9, OKPTTM+15, OKPTTM+18 , OKPTTM+21, OKPTTM+25, OKPTTM+28, OKPTTM+31, INSTPCTM+5, INSTPCTM+7
X	POSCLIN+5~, POSCLIN+8, POSCLIN+9, EVT+6, EVT+7, EVT+8!
Y	DISPWHO+4~, DISPWHO+7, DISPWHO+8, PR+3~, PR+4, PR+5, CK+1

Customize PDF page

Package: Scheduling

Routine: SCMCTMU

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: