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 |