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 |