Routine: SCMCTPU3

Information

SCMCTPU3 ;ALB/MJK - Team Position Utility ; 1 SEP 98

Source Information

Source file <SCMCTPU3.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Registration	2	PID^VADPT6 FIRST^VAUTOMA
Kernel	1	(,$$S)^%ZTLOAD
Scheduling	1	BULL^SCMCTPU4
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCMCTPU4

Entry Points

Name	Comments	DBIA/ICR reference
ERR(NUMBER)	; -- set error array
EN	; -- main entry point to find pat position assignments w/o team assignment
START	; -- entry point for queued job
CNT(TYPE)	; -- set counter
QUE()	; -- setup task and queue job to run
PAUSE	; -- pause
ENQ
SET	; -- set tmp for report
DATA(SCTPA)	; -- get team, position, tm pos assign, tm assignment & patient data ; input: SCPTA := ien to patient team position assignment (404.43)
TEAM()	; -- get teams from user
MODE()	; -- get mode from user (1 - diagnostic 2 - fix 0 - abort)

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+8
$$S^%ZTLOAD	START+20
^DIR	PAUSE+4
BULL^SCMCTPU4	START+57
PID^VADPT6	DATA+29
FIRST^VAUTOMA	TEAM+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Task#: ",SCTSK Line Location: EN+13
Function Call: WRITE	Prompt: !!," This task will send a MailMan message to you containing" Line Location: EN+14
Function Call: WRITE	Prompt: !," the results of the position assignment review.",! Line Location: EN+15
Routine Call	DIR Line Location: PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SCTM(404.51 - [#404.51]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DATA+26
^SCPT(404.42 - [#404.42]	DATA+15
^SCPT(404.43 - [#404.43]	START+19, DATA+4
^SCTM(404.51 - [#404.51]	START+15, DATA+21
^SCTM(404.57 - [#404.57]	DATA+10
^TMP("SCTP DANGLERS"	START+9

Label References

Name	Line Occurrences
$$MODE	EN+4
$$QUE	EN+11
$$TEAM	EN+8
CNT	START+29, START+41, START+53
DATA	START+24
ENQ	EN+5, EN+8
ERR	START+45, START+50
PAUSE	EN+16
SET	START+53

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	DATA+28~, DATA+29*
DIC	TEAM+1~, TEAM+5*
DIR	PAUSE+1~
DIR("A"	PAUSE+3*
DIR(0	PAUSE+2*
NUMBER	ERR~, ERR+1
SCER	START+2~, SET+1~, SET+2, SET+3, SET+4
SCERAR	START+21~
SCERAR(	ERR+1*, SET+3
SCERAR(0	START+53
SCERTMP	START+2~, START+9*, START+10, START+59, SET+4
SCMODE	EN+1~, EN+4*, EN+5
SCNT	START+2~
SCNT(	CNT+1*
SCPT	START+5~, SET+4, DATA+25*, DATA+26, DATA+29
SCPT0	START+5~, DATA+26*, DATA+27
SCPTID	START+5~, DATA+30*
SCPTNM	START+5~, SET+4, DATA+27*
SCSTOP	START+2~, START+18, START+19, START+20, START+57
SCTM	START+4~, START+14, START+15, START+27, SET+4, DATA+20*, DATA+21
SCTM0	START+4~, DATA+21*, DATA+22
SCTMA	START+7~, DATA+14*, DATA+15
SCTMA0	START+7~, DATA+15*, DATA+16, DATA+17, DATA+20, DATA+25
SCTMASDT	START+7~, START+39, DATA+16*
SCTMLST	EN+1~, START+13
SCTMLST(	START+15*, START+27
SCTMNM	START+4~, SET+4, DATA+22*
SCTMUNDT	START+7~, START+40, DATA+17*
SCTP	START+3~, SET+4, DATA+9*, DATA+10
SCTP0	START+3~, DATA+10*, DATA+11
SCTPA	START+6~, START+18, START+19, START+24, SET+4, DATA~, DATA+4
SCTPA0	START+6~, DATA+4*, DATA+5, DATA+6, DATA+9, DATA+14
SCTPASDT	START+6~, START+39, SET+4, DATA+5*
SCTPNM	START+3~, SET+4, DATA+11*
SCTPUNDT	START+6~, START+40, DATA+6*
SCTSK	EN+1~, EN+11*, EN+12, EN+13
TYPE	CNT~, CNT+1
U	START+15, DATA+5, DATA+6, DATA+9, DATA+11, DATA+16, DATA+17, DATA+20, DATA+22, DATA+27
VA	DATA+28~
VA("BID"	DATA+30
VAUTINI	TEAM+1~
>> VAUTNI	TEAM+4*
VAUTSTR	TEAM+1~, TEAM+3*
VAUTVB	TEAM+1~, TEAM+2*
>> X	QUE+7, START+15
Y	TEAM+1~, TEAM+7, PAUSE+1~
ZTDESC	QUE+2~, QUE+4*
ZTDTH	QUE+2~, QUE+5*
ZTIO	QUE+2~, QUE+6*
ZTRTN	QUE+2~, QUE+3*
ZTSAVE	QUE+2~
ZTSAVE(	QUE+7*
ZTSK	QUE+2~, QUE+9
>> ZTSTOP	START+20*

Customize PDF page

Package: Scheduling

Routine: SCMCTPU3

Call Graph Total: 5

Caller Graph Total: 1