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

Package: Scheduling

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All