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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCRPM21U

Package: Scheduling

Routine: SCRPM21U


Information

SCRPM21U ;ALB/PDR - POSITION REASSIGNMENT UTILITIES ; AUG 1998

Source Information

Source file <SCRPM21U.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Scheduling 3 ($$INPTTM,$$INPTTP,$$TMPT)^SCAPMC  (AFTERTM,AFTERTP)^SCMCDD1  ERROR^SCRPMPSP  
VA Fileman 3 C^%DTC  (FILE,UPDATE)^DIE  ^DIK  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCRPMPSP  

Entry Points

Name Comments DBIA/ICR reference
DISPOS(DISIEN,POSAIEN)
TMEXIST(DFN,SCTM,SCSD,TMAIEN) ;
; returns 1 if current/future assignment exists else 0
; conserves IEN of the des tm asgn if it exists
DPOSPROB(SCPTTPA,SCACT) ; handle disposition of existing destination POSITION
FUTMASN(TMAIEN,SCACT)
TMXISTQ
CREATETM(DFN,SCTMTO,SCACT,TMAIEN)
FUTTMDIS(TMAIEN,SCACT)
GETPOSTM(POSAIEN)
PCPCASN(FASIEN,SCTP)
TMACTIV(TMAIEN,PCPOS)
UPDATPOS(POSAIEN,SCERR) ; UPDATE EXISTING POSITION ASSIGNMENT PARAMETERS, AND ENSURE NO FUTURE DISCHARGE
FUPOSASN(POSAIEN,SCACT) ; IS THIS A FUTURE POSITION ASSIGNMENT?
PREVDAY(DAY)
TMPT(SCX) ;
DELTEAM(TMAIEN) ; DELETE A TEAM ASSIGNMENT
DTMPROB(SCPTTMA,SCACT)
DISTEAM(TMAIEN) ; DISCHARGE A TEAM ASSIGNMENT
; TMAIEN = SOURCE TEAM IEN
DELPOS(DISIEN,POSAIEN)
CREATPOS(POSAIEN,TMAIEN)
XALLPOS(FASIEN,POSAIEN) ; DISCHARGE ALL POSITIONS FROM THE "from" TEAM
; FASIEN = source position assignment IEN
; POSAIEN = destination position assignment IEN, used just for error reporting here
; this only occurs when the "from" pos and "to" pos are both Primary care,
; or the "from" team is PC and the "to" pos is PC.
; Rational is that a patient can't have more than one PC team

External References

Name Field # of Occurrence
C^%DTC PREVDAY+3
FILE^DIE UPDATPOS+12, TMACTIV+9
UPDATE^DIE CREATPOS+10, CREATETM+16
^DIK DELPOS+6, DELTEAM+4
$$INPTTM^SCAPMC DISTEAM+7
$$INPTTP^SCAPMC DISPOS+6, XALLPOS+22
$$TMPT^SCAPMC TMPT+4
AFTERTM^SCMCDD1 CREATETM+23
AFTERTP^SCMCDD1 CREATPOS+15
ERROR^SCRPMPSP DPOSPROB+3, DPOSPROB+6, DTMPROB+3, DTMPROB+6
$$FMADD^XLFDT TMEXIST+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCPT(404.42 - [#404.42] Classic Fileman Calls
^SCPT(404.43 - [#404.43] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SCPT(404.42 - [#404.42] PCPCASN+17, DISTEAM+5, FUTMASN+1, FUTTMDIS+1
^SCPT(404.43 - [#404.43] PCPCASN+6, PCPCASN+14, DISPOS+5, XALLPOS+13, XALLPOS+15, XALLPOS+18, XALLPOS+19, GETPOSTM+1, FUPOSASN+1
^SCTM(404.57 - [#404.57] PCPCASN+7, PCPCASN+9

Label References

Name Line Occurrences
$$FUPOSASN DPOSPROB+1
$$FUTMASN DTMPROB+1
$$GETPOSTM PCPCASN+16
$$PREVDAY DISPOS+5, DISTEAM+5, XALLPOS+12
$$TMPT TMEXIST+11, TMEXIST+16
DELPOS DPOSPROB+2
DELTEAM DTMPROB+2
DISPOS DPOSPROB+5
DISTEAM DTMPROB+5
TMXISTQ TMEXIST+13, TMEXIST+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DELPOS+4*, DELPOS+6, DELTEAM+2*, DELTEAM+4
DAY PREVDAY~, PREVDAY+2
DFN TMEXIST~, TMPT+4, DISPOS+6, DISTEAM+7, CREATETM~, CREATETM+13, XALLPOS+22
>> DIK DELPOS+3*, DELPOS+6, DELTEAM+1*, DELTEAM+4
DISDAT DISPOS+3~, DISPOS+4*, DISPOS+5*, DISPOS+6, DISTEAM+2~, DISTEAM+3*, DISTEAM+5*, DISTEAM+7, XALLPOS+9~, XALLPOS+10*
, XALLPOS+13*, XALLPOS+22
DISIEN DELPOS~, DELPOS+4, DISPOS~, DISPOS+5, DISPOS+6
DPPC PCPCASN+3~, PCPCASN+15*, PCPCASN+19
DT TMEXIST+7
DUZ UPDATPOS+3, TMACTIV+5
ENTFLD UPDATPOS+1~, UPDATPOS+2*, UPDATPOS+10
FASIEN PCPCASN~, PCPCASN+6, PCPCASN+14, PCPCASN+16, XALLPOS~, XALLPOS+13, XALLPOS+15
PCPOS TMACTIV~, TMACTIV+8
POSAIEN UPDATPOS~, UPDATPOS+3, UPDATPOS+4, UPDATPOS+5, UPDATPOS+6, UPDATPOS+11, UPDATPOS+13*, DELPOS~, DELPOS+7*, DISPOS~
, DISPOS+7*, CREATPOS~, CREATPOS+2*, CREATPOS+13*, CREATPOS+15, XALLPOS~, XALLPOS+26*, GETPOSTM~, GETPOSTM+1, FUPOSASN~
, FUPOSASN+1
POSASGN XALLPOS+9~, XALLPOS+17*, XALLPOS+18*, XALLPOS+19, XALLPOS+22
SC UPDATPOS+1~
SC( UPDATPOS+3*, UPDATPOS+4*, UPDATPOS+5*, UPDATPOS+6*, UPDATPOS+11*, CREATPOS+6*, CREATPOS+7*, CREATPOS+8*, CREATPOS+9*, TMACTIV+4*
, TMACTIV+5*, TMACTIV+6*, TMACTIV+7*, TMACTIV+8*
SCACT UPDATPOS+5, DISPOS+4, DISPOS+5, CREATPOS+9, DISTEAM+3, DISTEAM+5, CREATETM~, CREATETM+14, TMACTIV+6, XALLPOS+10
, XALLPOS+12, XALLPOS+20, FUPOSASN~, FUPOSASN+1, FUTMASN~, FUTMASN+1, FUTTMDIS~, FUTTMDIS+1, DPOSPROB~, DPOSPROB+1
, DTMPROB~, DTMPROB+1
SCERR UPDATPOS~, UPDATPOS+12, UPDATPOS+13, DISPOS+6, CREATPOS+10, CREATPOS+11, DISTEAM+7, CREATETM+16, CREATETM+17, TMACTIV+9
, TMACTIV+10, XALLPOS+21, XALLPOS+22, XALLPOS+23
>> SCFIELDA PCPCASN+15, UPDATPOS+7, UPDATPOS+9, UPDATPOS+11, CREATPOS+3, CREATPOS+5, CREATPOS+6, CREATETM+4, CREATETM+6, CREATETM+8
SCFLAG XALLPOS+9~, XALLPOS+14*, XALLPOS+23*, XALLPOS+26
SCFLD UPDATPOS+1~, UPDATPOS+8*, UPDATPOS+9*, UPDATPOS+10, UPDATPOS+11, CREATPOS+4*, CREATPOS+5*, CREATPOS+6
SCIEN CREATPOS+1~, CREATPOS+11!, CREATETM+1~, CREATETM+18!
SCIEN(1 CREATPOS+13, CREATETM+21
>> SCMAINA CREATETM+4, CREATETM+6, CREATETM+8
>> SCNEWTM CREATETM+22*
>> SCNEWTP CREATPOS+14*
SCNODE DISTEAM+2~
>> SCNOW UPDATPOS+4, TMACTIV+4
SCPREVDT DISTEAM+2~
SCPTTMA DTMPROB~, DTMPROB+1, DTMPROB+2, DTMPROB+3, DTMPROB+5, DTMPROB+6, DTMPROB+7
SCPTTPA DPOSPROB~, DPOSPROB+1, DPOSPROB+2, DPOSPROB+3, DPOSPROB+5, DPOSPROB+6, DPOSPROB+7
SCRESULT TMEXIST+3~, TMEXIST+4*, TMEXIST+13*, TMEXIST+29*, TMXISTQ+1
SCSD TMEXIST~, TMEXIST+7
SCSDT TMEXIST+3~
SCSDT("BEGIN" TMEXIST+7*, TMEXIST+8
SCSDT("END" TMEXIST+8*
SCSDT("INCL" TMPT+1*
SCST PCPCASN+3~, PCPCASN+6*, PCPCASN+7*, PCPCASN+8, PCPCASN+9
SCTEC DISTEAM+6~, DISTEAM+7*, DISTEAM+8
SCTM TMEXIST~, TMEXIST+12, TMEXIST+17, TMEXIST+19, TMEXIST+20, CREATETM+1~
SCTM( CREATETM+4*, CREATETM+6*, CREATETM+8*, CREATETM+13*, CREATETM+14*, CREATETM+15*
SCTMERR TMEXIST+3~, TMPT+3!
SCTMLIST TMEXIST+3~, TMPT+2!
SCTMLIST( TMEXIST+21
SCTMLIST("SCTM" TMEXIST+12, TMEXIST+17, TMEXIST+19, TMEXIST+20, TMEXIST+23*, TMEXIST+26, TMEXIST+28
SCTMTO CREATETM~, CREATETM+15
SCTP PCPCASN~, PCPCASN+9, CREATPOS+8
SCX TMEXIST+3~, TMEXIST+11*, TMEXIST+16*, TMEXIST+20*, TMEXIST+21*, TMEXIST+22, TMEXIST+23, TMEXIST+26*, TMEXIST+27, TMEXIST+28
, TMPT~, TMPT+1, XALLPOS+9~, XALLPOS+12*, XALLPOS+13, XALLPOS+19*, XALLPOS+20
SPPC PCPCASN+3~, PCPCASN+14*, PCPCASN+19
>> STEC DISPOS+6*, DISPOS+7, XALLPOS+22*
STPC PCPCASN+3~, PCPCASN+16*, PCPCASN+17*, PCPCASN+19
TMAIEN TMEXIST~, TMEXIST+4*, TMEXIST+12*, TMEXIST+13, TMEXIST+19*, TMEXIST+20, TMEXIST+23, TMEXIST+28*, TMXISTQ*, CREATPOS~
, CREATPOS+7, DELTEAM~, DELTEAM+2, DELTEAM+5*, DISTEAM~, DISTEAM+5, DISTEAM+7, DISTEAM+8*, CREATETM~, CREATETM+2*
, CREATETM+4, CREATETM+6, CREATETM+8, CREATETM+13, CREATETM+14, CREATETM+15, CREATETM+19*, CREATETM+21*, CREATETM+23, TMACTIV~
, TMACTIV+4, TMACTIV+5, TMACTIV+6, TMACTIV+7, TMACTIV+8, TMACTIV+10*, FUTMASN~, FUTMASN+1, FUTTMDIS~, FUTTMDIS+1
TMASGN XALLPOS+9~, XALLPOS+15*, XALLPOS+16, XALLPOS+18, XALLPOS+26
U PCPCASN+6, PCPCASN+7, PCPCASN+9, PCPCASN+14, PCPCASN+17, UPDATPOS+13, TMEXIST+21, TMEXIST+22, DELPOS+7, DISPOS+5
, DISPOS+7, DELTEAM+5, DISTEAM+5, DISTEAM+8, TMACTIV+10, XALLPOS+13, XALLPOS+15, XALLPOS+19, XALLPOS+26, GETPOSTM+1
, FUPOSASN+1, FUTMASN+1, FUTTMDIS+1
X PREVDAY+1~, PREVDAY+4
X1 PREVDAY+1~, PREVDAY+2*
X2 PREVDAY+1~, PREVDAY+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All