Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SCMCTMU

Package: Scheduling

Routine: SCMCTMU


Information

SCMCTMU ;ALB/REW - Team-Patient Utilities ; 1 May 95

Source Information

Source file <SCMCTMU.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Scheduling 10 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

External References

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

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All