Routine: SCRPMTA

Package	Total	Call Graph
Scheduling	4	($$INPTTM,$$INPTTP)^SCAPMC $$TMPT^SCAPMC3 (ERR,INIT)^SCAPMCU1 AFTERTM^SCMCDD1
VA Fileman	2	C^%DTC (FILE,UPDATE)^DIE

Package	Total	Caller Graph
Scheduling	2	SCAPMR6 SCMRBK

Entry Points

Name	Comments	DBIA/ICR reference
FUDISCHG(SCTMPAR,SCDT)	;IS THERE A FUTURE DISCHARGE?
GETTMPAR(DFN,SCTMTO,SCDT,SCERR,SCTMPAR,SCPTTM)	; RETURN team parameters ; SCTMPAR is returned as: ; Piece Description ; 1 IEN of TEAM file entry ; 2 Name of team ; 3 IEN of file #404.42 (Pt Tm Assignment) ; 4 current effective date ; 5 current inactivate date (if any) ; 6 pointer to 403.47 (purpose) ; 7 Name of Purpose ; 8 Is this the pt's PC Team? ; 9 IEN of PC team assignment - added to record -PDR
ERROR(TXT,ID,ERN)	; ERROR PROCESSOR
APTTMQ	;
MOVPATOK(DFN,SCACT,SCTMTO,SCFIELDA,SCTMPAR,SCPTTM,SCDUZ)	; DID MOVE GO OK?
PTTMACT(DFN,SCTMTO,SCDT,SCERR)	;what is patient/team assignment on a given date-time into the future? Return 404.42 ien or 0
PCASSGN()	; IS THE REASSIGNMENT DESTINATION TO BE PC?
ACPTTM(DFN,SCTMTO,SCFIELDA,SCACT,FASIEN,SCERR)	;add a patient to a team (pt tmassgn - #404.42) ; input: ; DFN = pointer to PATIENT file (#2) ; SCTMTO = pointer to TEAM file (#404.51) "TO" Team ; SCFIELDA= array of additional fields to be added for 404.42 ; SCACT = date to activate [default=DT] ; FASIEN = IEN of source team assignment ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
DISTMOK(DFN,TMIEN,SCACT,SCDUZ,SD)	; Discharge patient from Team Assignment ; DFN = pointer to patient ; TMIEN = Ptr to Team Assignment File 404.42 for Team being discharged ; SCAT = Discharge Date ; SCDUZ = DUZ of user making reassignment ; SD = text indicating "source" or "destination" team
FUASSN(SCDTPAR,SCDT)	; is there a future assignment?
INVALMOV(DTMIEN,STMIEN,TMPAR)	; IS THIS A VALID REASSIGNMENT? ; can't have a pc team reassignment if patient has an existing PC team assignment ; and it is not ; 1: the src team (move from src to dest discharges src, result only 1 pc team) OR ; 2: the destination team (already existing assignment)
PREVDAY(DAY)	; GET PREVIOUS DAY ; DAY = DATE IN FILEMAN FORMAT
OTHPCTM(DTMIEN,STMIEN,TMPAR)	; IS THERE ALREADY PC TEAM ASSIGNMENT?
DISCHPOS(DFN,TMASGN,SCAT,SCERR,SCTEC)	;Discharge positition assignments ; DFN = ptr to patient ; TMASGN = ptr to team assignment ; SCAT = discharge date
ACTIVDES(SCDTPAR,SCACT)	; IS THE DESTINATION ASSIGNMENT ACTIVE? ; SCDTPAR = Destination Team assignment parameter string
GETPCTM(TMLIST)	; FIND THE PC TEAM FOR THIS PATIENT
OKDATA()

Name	Field # of Occurrence
C^%DTC	PREVDAY+4
FILE^DIE	MOVPATOK+26
UPDATE^DIE	MOVPATOK+25
$$INPTTM^SCAPMC	DISTMOK+14
$$INPTTP^SCAPMC	DISCHPOS+10
$$TMPT^SCAPMC3	PTTMACT+4, GETTMPAR+16
ERR^SCAPMCU1	OKDATA+7
INIT^SCAPMCU1	OKDATA+3
AFTERTM^SCMCDD1	MOVPATOK+35

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4
^SCPT(404.42 - [#404.42]	DISTMOK+11
^SCPT(404.43 - [#404.43]	DISCHPOS+9
^SCTM(404.51 - [#404.51]	OKDATA+4

Name	Line Occurrences
$$ACTIVDES	ACPTTM+32
$$DISTMOK	ACPTTM+33, ACPTTM+37
$$FUASSN	MOVPATOK+5
$$FUDISCHG	MOVPATOK+6
$$GETPCTM	GETTMPAR+17
$$GETTMPAR	ACPTTM+25
$$INVALMOV	ACPTTM+28
$$MOVPATOK	ACPTTM+42
$$OKDATA	ACPTTM+20
$$OTHPCTM	INVALMOV+5
$$PCASSGN	INVALMOV+5
$$PREVDAY	DISTMOK+11
APTTMQ	ACPTTM+20, ACPTTM+25, ACPTTM+28, ACPTTM+32, ACPTTM+37, ACPTTM+42
DISCHPOS	DISTMOK+13
ERROR	ACPTTM+21, ACPTTM+26, ACPTTM+29, ACPTTM+34, ACPTTM+43, DISTMOK+15, DISCHPOS+16, DISCHPOS+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASNDT	ACTIVDES+2~, ACTIVDES+5*, ACTIVDES+8
DAY	PREVDAY~, PREVDAY+3
DFN	ACPTTM~, ACPTTM+25, ACPTTM+33, ACPTTM+37, ACPTTM+42, PTTMACT~, PTTMACT+4, OKDATA+4, OKDATA+5, DISTMOK~ , DISTMOK+13, DISTMOK+14, DISCHPOS~, DISCHPOS+10, GETTMPAR~, GETTMPAR+16, MOVPATOK~, MOVPATOK+21
DISDAT	DISTMOK+6~, DISTMOK+9, DISTMOK+11, DISTMOK+13, DISTMOK+14
DISDT	ACTIVDES+2~, ACTIVDES+3, ACTIVDES+4, ACTIVDES+8
DT	OKDATA+8
DTMIEN	INVALMOV~, INVALMOV+5, OTHPCTM~, OTHPCTM+2, OTHPCTM+3
DUZ	ACPTTM+33, ACPTTM+37, ACPTTM+42
EM	DISCHPOS+4~, DISCHPOS+5, DISCHPOS+13, DISCHPOS+16, DISCHPOS+17
ERN	ERROR~, ERROR+1
FASIEN	ACPTTM~, ACPTTM+26, ACPTTM+28, ACPTTM+29, ACPTTM+37, ACPTTM+43, DISTMOK+15
GD	DISCHPOS+4~, DISCHPOS+5, DISCHPOS+11, DISCHPOS+16
ID	ERROR~, ERROR+1
OK	DISCHPOS+4~, DISCHPOS+6, DISCHPOS+14, DISCHPOS+15
PCTM	GETTMPAR+12~, GETTMPAR+13, GETTMPAR+17, GETTMPAR+22
POSASGN	DISCHPOS+4~, DISCHPOS+8, DISCHPOS+9, DISCHPOS+10, DISCHPOS+11, DISCHPOS+13, DISCHPOS+16, DISCHPOS+17
PT	GETPCTM+1~, GETPCTM+2, GETPCTM+3, GETPCTM+4, GETPCTM+5
SC	ACPTTM+17~, DISTMOK+6~
SC(	MOVPATOK+8, MOVPATOK+10, MOVPATOK+11, MOVPATOK+19, MOVPATOK+21, MOVPATOK+22, MOVPATOK+23*
SCACT	ACPTTM~, ACPTTM+25, ACPTTM+32, ACPTTM+33, ACPTTM+37, ACPTTM+42, OKDATA+8*, DISTMOK~, DISTMOK+9, DISTMOK+11 , MOVPATOK~, MOVPATOK+5, MOVPATOK+6, MOVPATOK+22, ACTIVDES~, ACTIVDES+8
SCAT	DISCHPOS~, DISCHPOS+10
SCDT	PTTMACT~, PTTMACT+3, GETTMPAR~, GETTMPAR+15, FUASSN~, FUASSN+1, FUDISCHG~, FUDISCHG+1
SCDTPAR	ACPTTM+17~, ACPTTM+25, ACPTTM+28, ACPTTM+32, ACPTTM+42, FUASSN~, ACTIVDES~, ACTIVDES+3, ACTIVDES+5
SCDUZ	DISTMOK~, MOVPATOK~
SCED	MOVPATOK+1~, MOVPATOK+2, MOVPATOK+5, MOVPATOK+7*, MOVPATOK+9, MOVPATOK+25, MOVPATOK+26
SCERR	ACPTTM~, ACPTTM+25, PTTMACT~, PTTMACT+4, OKDATA+7, DISTMOK+13, DISTMOK+14, DISCHPOS~, DISCHPOS+10, GETTMPAR~ , GETTMPAR+16, GETTMPAR+23, MOVPATOK+28, MOVPATOK+36
SCESEQ	ACPTTM+17~, OKDATA+7
SCFIELDA	ACPTTM~, ACPTTM+42, MOVPATOK~, MOVPATOK+10, MOVPATOK+11, MOVPATOK+12, MOVPATOK+13, MOVPATOK+18, MOVPATOK+19, PCASSGN+1
SCFLD	ACPTTM+17~, MOVPATOK+1~, MOVPATOK+17, MOVPATOK+18, MOVPATOK+19
SCIEN	ACPTTM+17~, MOVPATOK+29!
SCIEN(1	MOVPATOK+33
SCMESS	ACPTTM+17~, APTTMQ+2, ERROR+1*
>> SCN	GETTMPAR+20*, GETTMPAR+21
SCNEWTM	ACPTTM+17~, APTTMQ+2, MOVPATOK+34*
SCOK	PTTMACT+1~, PTTMACT+2, PTTMACT+4, PTTMACT+5, OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+9
SCPARM	ACPTTM+17~, OKDATA+7
SCPARM("PATIENT"	OKDATA+5*
SCPARM("TEAM"	OKDATA+6*
SCPTTM	ACPTTM+17~, ACPTTM+25, ACPTTM+28, ACPTTM+32, ACPTTM+33, ACPTTM+34, ACPTTM+39, ACPTTM+42, APTTMQ+2, GETTMPAR~ , GETTMPAR+13, GETTMPAR+18, GETTMPAR+19, GETTMPAR+20, MOVPATOK~, MOVPATOK+3, MOVPATOK+4, MOVPATOK+8, MOVPATOK+10, MOVPATOK+11 , MOVPATOK+15, MOVPATOK+19, MOVPATOK+21, MOVPATOK+22, MOVPATOK+23, MOVPATOK+30, MOVPATOK+32, MOVPATOK+33, MOVPATOK+35, ERROR+2*
SCPTTMDT	PTTMACT+1~, GETTMPAR+12~
SCPTTMDT("BEGIN"	PTTMACT+3, GETTMPAR+15
SCPTTMDT("END"	PTTMACT+3, GETTMPAR+15
SCPTTMDT("INCL"	PTTMACT+3, GETTMPAR+15
SCTEC	DISTMOK+6~, DISTMOK+13, DISTMOK+14, DISTMOK+15, DISTMOK+16, DISCHPOS~, DISCHPOS+7, DISCHPOS+10*, DISCHPOS+11, DISCHPOS+12
SCTMLST	PTTMACT+1~, GETTMPAR+12~, GETTMPAR+17
SCTMLST(	GETTMPAR+21
SCTMLST("SCTM"	PTTMACT+4, GETTMPAR+18, GETTMPAR+20
SCTMPAR	GETTMPAR~, GETTMPAR+13, GETTMPAR+21, GETTMPAR+22*, FUASSN+1, FUDISCHG~, FUDISCHG+1, MOVPATOK~, MOVPATOK+5, MOVPATOK+6
SCTMTO	ACPTTM~, ACPTTM+25, ACPTTM+42, PTTMACT~, PTTMACT+4, OKDATA+4, OKDATA+6, GETTMPAR~, GETTMPAR+18, GETTMPAR+20 , MOVPATOK~, MOVPATOK+23
SD	DISTMOK~, DISTMOK+15
SN	GETPCTM+1~, GETPCTM+2, GETPCTM+3, GETPCTM+4
STMIEN	INVALMOV~, INVALMOV+5, OTHPCTM~, OTHPCTM+2
TMASGN	DISCHPOS~, DISCHPOS+9
TMIEN	DISTMOK~, DISTMOK+8, DISTMOK+11, DISTMOK+13, DISTMOK+14
TMLIST	GETPCTM~
TMLIST(	GETPCTM+3, GETPCTM+4
TMPAR	INVALMOV~, INVALMOV+5, OTHPCTM~, OTHPCTM+1, OTHPCTM+2, OTHPCTM+3
TXT	ERROR~, ERROR+1
U	APTTMQ+2, DISTMOK+11, GETTMPAR+22, GETPCTM+4, FUASSN+1, FUDISCHG+1, OTHPCTM+1, OTHPCTM+2, OTHPCTM+3, ACTIVDES+3 , ACTIVDES+5
X	PREVDAY+2~, PREVDAY+5
X1	PREVDAY+2~, PREVDAY+3*
X2	PREVDAY+2~, PREVDAY+3*

Customize PDF page

Package: Scheduling

Routine: SCRPMTA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: