Routine: SCRPM21U

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

Package	Total	Caller Graph
Scheduling	1	SCRPMPSP

Entry Points

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*

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

Customize PDF page

Package: Scheduling

Routine: SCRPM21U

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: