Routine: SCRPMPSP

Package	Total	Call Graph
Scheduling	4	$$TPPT^SCAPMC (ERR,INIT)^SCAPMCU1 $$OKPREC5^SCMCLK ($$DPOSPROB,$$DTMPROB,$$FUTMASN,$$FUTTMDIS,$$GETPOSTM,$$PCPCASN,$$TMEXIST,CREATETM,CREATPOS,DISPOS,DISTEAM,TMACTIV,UPDATPOS,XALLPOS)^SCRPM21U

Package

Total

Call Graph

$$TPPT^SCAPMC (ERR,INIT)^SCAPMCU1 $$OKPREC5^SCMCLK ($$DPOSPROB,$$DTMPROB,$$FUTMASN,$$FUTTMDIS,$$GETPOSTM,$$PCPCASN,$$TMEXIST,CREATETM,CREATPOS,DISPOS,DISTEAM,TMACTIV,UPDATPOS,XALLPOS)^SCRPM21U

Package	Total	Caller Graph
Scheduling	2	SCAPMR21 SCRPM21U

Package

Total

Caller Graph

Scheduling

SCAPMR21 SCRPM21U

Entry Points

Name	Comments	DBIA/ICR reference
PCPOS()	; IS THIS A PC POSITION?
SRCTEAM()
SAVPARMS	; save params for debugging ; NVS - comment out the quit to save path/variable data
ACPTTP(DFN,SCTP,SCFIELDA,SCACT,FASIEN,SCERR,SCYESTM,SCMAINA)	;add/edit a patient to a position (pt TP assgn - #404.43 ; input: ; DFN = pointer to PATIENT file (#2) ; SCTP = pointer to TEAM POSTION file (#404.57) (DESTINATION POSITION) ; SCFIELDA= array of extra field entries - scfielda('fld#')=value for 404.43 ; SCACT = date to activate [default=DT] ; FASIEN = "FROM" position assignment IEN ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] ; SCYESTM = Should team assignment be made, if none active now?[1=YES] ; SCMAINA= array of extra field entries for 404.42
APTTPQ	; All done
1	;;Data Integrity error.;;
3	;;Unable to activate existing position.;;
2	;;Unable to get positions list.;;
5	;;Unable to discharge source position.;;
4	;;Unable to activate existing team.;;
7	;;Unable to create destination position.;;
6	;;Unable to create destination team.;;
9	;;Unable to discharge PC source team.;;
8	;;Unable to discharge all positions for PC source team.;;
POSEXIST(SCTM,SCTP,POSAIEN,TMIEN)	; ; if active pos asgn, return ien
INITVARS
T	;;
10	;;Patient is being reassigned by another PCMM process.;;
SETP(BR)	; SET PATH INDICATOR FOR DEBUGGING ; NVS - comment out the quit to save path/variable data
ERROR(TXT,IEN,ENUM)
DSTTEAM()
GETPLST()	; get patient position list
OKDATA()

External References

Name	Field # of Occurrence
$$TPPT^SCAPMC	GETPLST+1
ERR^SCAPMCU1	OKDATA+7
INIT^SCAPMCU1	OKDATA+3
$$OKPREC5^SCMCLK	ACPTTP+42
$$DPOSPROB^SCRPM21U	ACPTTP+78
$$DTMPROB^SCRPM21U	ACPTTP+81, ACPTTP+105
$$FUTMASN^SCRPM21U	ACPTTP+59, ACPTTP+122
$$FUTTMDIS^SCRPM21U	ACPTTP+59, ACPTTP+122
$$GETPOSTM^SCRPM21U	ACPTTP+76, INITVARS+5, POSEXIST+14
$$PCPCASN^SCRPM21U	ACPTTP+51, ACPTTP+101, ACPTTP+138
$$TMEXIST^SCRPM21U	ACPTTP+99
CREATETM^SCRPM21U	ACPTTP+86, ACPTTP+108, ACPTTP+142, ACPTTP+158
CREATPOS^SCRPM21U	ACPTTP+88, ACPTTP+110, ACPTTP+128, ACPTTP+144, ACPTTP+160
DISPOS^SCRPM21U	ACPTTP+65, ACPTTP+132, ACPTTP+164
DISTEAM^SCRPM21U	ACPTTP+94, ACPTTP+116, ACPTTP+150
TMACTIV^SCRPM21U	ACPTTP+60, ACPTTP+123
UPDATPOS^SCRPM21U	ACPTTP+55
XALLPOS^SCRPM21U	ACPTTP+92, ACPTTP+114, ACPTTP+148

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4
^SCPT(404.42 - [#404.42]	ACPTTP+80, POSEXIST+15
^SCPT(404.43 - [#404.43]	ACPTTP+77
^SCTM(404.57 - [#404.57]	OKDATA+4, INITVARS+1, POSEXIST+4
^TMP("PDR"	SAVPARMS+5, SAVPARMS+6, SAVPARMS+9, SAVPARMS+12, SAVPARMS+13
^XTMP("SCMC POS REASGN"	ACPTTP+26, ACPTTP+27*

Label References

Name	Line Occurrences
$$DSTTEAM	ACPTTP+86, ACPTTP+108, ACPTTP+142, ACPTTP+158
$$GETPLST	ACPTTP+39
$$OKDATA	ACPTTP+24
$$PCPOS	ACPTTP+60, ACPTTP+123
$$POSEXIST	ACPTTP+49
$$SRCTEAM	ACPTTP+94, ACPTTP+116, ACPTTP+150
APTTPQ	ACPTTP+24, ACPTTP+32, ACPTTP+39, ACPTTP+43, ACPTTP+49, ACPTTP+99, ACPTTP+138, ACPTTP+159, ACPTTP+161
ERROR	ACPTTP+24, ACPTTP+32, ACPTTP+39, ACPTTP+43, ACPTTP+56, ACPTTP+61, ACPTTP+66, ACPTTP+87, ACPTTP+89, ACPTTP+93 , ACPTTP+95, ACPTTP+109, ACPTTP+111, ACPTTP+115, ACPTTP+117, ACPTTP+124, ACPTTP+129, ACPTTP+133, ACPTTP+143, ACPTTP+145 , ACPTTP+149, ACPTTP+151, ACPTTP+159, ACPTTP+161, ACPTTP+165
INITVARS	ACPTTP+38
SAVPARMS	APTTPQ+1
SETP	ACPTTP+49, ACPTTP+51, ACPTTP+99, ACPTTP+101, ACPTTP+138, ACPTTP+154

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BR	SETP~, SETP+3
DFN	ACPTTP~, ACPTTP+86, ACPTTP+99, ACPTTP+108, ACPTTP+142, ACPTTP+158, OKDATA+4, OKDATA+5, GETPLST+1, SAVPARMS+6
DISDT	POSEXIST+2~, POSEXIST+12, POSEXIST+13, POSEXIST+15, POSEXIST+16
DT	ACPTTP+27, OKDATA+8
ENUM	ERROR~, ERROR+2
F	SAVPARMS+3~, SAVPARMS+7, SAVPARMS+8, SAVPARMS+10, SAVPARMS+11
FASIEN	ACPTTP~, ACPTTP+24, ACPTTP+32, ACPTTP+39, ACPTTP+43, ACPTTP+51, ACPTTP+65, ACPTTP+92, ACPTTP+101, ACPTTP+114 , ACPTTP+132, ACPTTP+138, ACPTTP+148, ACPTTP+164, INITVARS+5, SAVPARMS+6
HISTPTTP	ACPTTP+19~
IEN	ERROR~
NVP	SAVPARMS+3~, SAVPARMS+7, SAVPARMS+8, SAVPARMS+9, SAVPARMS+10, SAVPARMS+11, SAVPARMS+12
PATH	ACPTTP+19~, SAVPARMS+13, SETP+3*
POSAIEN	POSEXIST~, POSEXIST+7, POSEXIST+18, POSEXIST+21
S	SAVPARMS+3~, SAVPARMS+4, SAVPARMS+5, SAVPARMS+6, SAVPARMS+9, SAVPARMS+12, SAVPARMS+13
SC	ACPTTP+19~
SCACT	ACPTTP~, ACPTTP+42, ACPTTP+59, ACPTTP+78, ACPTTP+81, ACPTTP+86, ACPTTP+99, ACPTTP+105, ACPTTP+108, ACPTTP+122 , ACPTTP+142, ACPTTP+158, OKDATA+8*, INITVARS+2, POSEXIST+13, POSEXIST+16, SAVPARMS+6
SCAPTDT	ACPTTP+20~
SCAPTDT("BEGIN"	INITVARS+2*
SCAPTDT("END"	INITVARS+3*
SCAPTDT("INCL"	INITVARS+4*
SCAPTTPE	ACPTTP+20~
SCAPTTPO	ACPTTP+20~
SCAPTTPO(	POSEXIST+12
SCAPTTPO("SCTP"	ACPTTP+74, POSEXIST+10, POSEXIST+11, POSEXIST+22
SCERR	ACPTTP~, ACPTTP+55, OKDATA+7, INITVARS+8
SCESEQ	ACPTTP+19~, OKDATA+7
SCFIELDA	ACPTTP~, SAVPARMS+8, SAVPARMS+11, PCPOS+1
SCFLAG	ACPTTP+70~, ACPTTP+71, ACPTTP+74, ACPTTP+78, ACPTTP+79, ACPTTP+81, ACPTTP+83, POSEXIST+2~, POSEXIST+6, POSEXIST+10 , POSEXIST+17*, POSEXIST+21
SCFLD	ACPTTP+19~
SCIEN	ACPTTP+19~
SCLOCK	ACPTTP+21~, ACPTTP+31*, ACPTTP+32, ACPTTP+33, APTTPQ+2
SCMAINA	ACPTTP~, OKDATA+9*, SAVPARMS+11
SCMESS	ACPTTP+20~, APTTPQ+3, INITVARS+7, ERROR+2, SAVPARMS+13
SCNEWTM	ACPTTP+20~
SCNEWTP	ACPTTP+20~, APTTPQ+3
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+10
SCPARM	ACPTTP+19~, OKDATA+7
SCPARM("PATIENT"	OKDATA+5*
SCPARM("POSITION"	OKDATA+6*
SCPTTMA	ACPTTP+19~, ACPTTP+49, ACPTTP+59, ACPTTP+60, ACPTTP+61, ACPTTP+76, ACPTTP+80, ACPTTP+81, ACPTTP+86, ACPTTP+87 , ACPTTP+88, ACPTTP+93, ACPTTP+99, ACPTTP+105, ACPTTP+108, ACPTTP+109, ACPTTP+110, ACPTTP+115, ACPTTP+122, ACPTTP+123 , ACPTTP+124, ACPTTP+128, ACPTTP+142, ACPTTP+143, ACPTTP+144, ACPTTP+149, ACPTTP+158, ACPTTP+159, ACPTTP+160, APTTPQ+3 , INITVARS+6, SAVPARMS+13
SCPTTPA	ACPTTP+20~, ACPTTP+49, ACPTTP+55, ACPTTP+56, ACPTTP+65, ACPTTP+66, ACPTTP+75*, ACPTTP+76, ACPTTP+77, ACPTTP+78 , ACPTTP+88, ACPTTP+89, ACPTTP+92, ACPTTP+95, ACPTTP+110, ACPTTP+111, ACPTTP+114, ACPTTP+117, ACPTTP+128, ACPTTP+129 , ACPTTP+132, ACPTTP+133, ACPTTP+144, ACPTTP+145, ACPTTP+148, ACPTTP+149, ACPTTP+151, ACPTTP+160, ACPTTP+161, ACPTTP+164 , ACPTTP+165, APTTPQ+3, SAVPARMS+13
SCST	ACPTTP+19~, ACPTTP+95, ACPTTP+117, ACPTTP+151, INITVARS+5*, SRCTEAM+2
SCTM	ACPTTP+19~, ACPTTP+49, ACPTTP+74, ACPTTP+99, INITVARS+1, POSEXIST~, POSEXIST+4, POSEXIST+10, POSEXIST+11, POSEXIST+22 , DSTTEAM+1
SCTMFLDA	ACPTTP+20~
SCTP	ACPTTP~, ACPTTP+42, ACPTTP+49, ACPTTP+51, ACPTTP+74, ACPTTP+101, ACPTTP+138, INITVARS+1, POSEXIST~, POSEXIST+4 , POSEXIST+10, POSEXIST+11, POSEXIST+22, SAVPARMS+6
>> SCTPTO	OKDATA+4, OKDATA+6
SCX	ACPTTP+21~, ACPTTP+42, ACPTTP+43, POSEXIST+2~, POSEXIST+9, POSEXIST+10*, POSEXIST+11, POSEXIST+14, POSEXIST+18
SCXLOCK	ACPTTP+21~, ACPTTP+30, ACPTTP+34, APTTPQ+2
SCY	ACPTTP+72~, ACPTTP+73, ACPTTP+74, ACPTTP+75, POSEXIST+2~, POSEXIST+11*, POSEXIST+12
SCYESTM	ACPTTP~, SAVPARMS+6
TMIEN	POSEXIST~, POSEXIST+3, POSEXIST+14, POSEXIST+15
TXT	ERROR~, ERROR+1*, ERROR+2
U	ACPTTP+27, ACPTTP+43, APTTPQ+3, INITVARS+1, POSEXIST+4, POSEXIST+12, POSEXIST+15, POSEXIST+22, SAVPARMS+6, SAVPARMS+8 , SAVPARMS+11, SAVPARMS+13

Customize PDF page

Package: Scheduling

Routine: SCRPMPSP

Information

Source Information