SCMCTPU3 ;ALB/MJK - Team Position Utility ; 1 SEP 98
Source file <SCMCTPU3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point to find pat position assignments w/o team assignment
|
|
ENQ | ||
MODE() | ; -- get mode from user (1 - diagnostic 2 - fix 0 - abort)
|
|
TEAM() | ; -- get teams from user
|
|
QUE() | ; -- setup task and queue job to run
|
|
START | ; -- entry point for queued job
|
|
CNT(TYPE) | ; -- set counter
|
|
ERR(NUMBER) | ; -- set error array
|
|
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) |
|
PAUSE | ; -- pause
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^SCTM(404.51 - [#404.51] | Classic Fileman Calls |