IB20P279 ;ISP/TDP - IB*2*279 PRE-INIT ROUTINE ;07/21/2004
Source file <IB20P279.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ; environment check
|
|
| PRE | ; set up check points for pre-init
|
|
| PROVID | ;Search files 355.9 and 355.91 for invalid Care Unit pointers to file
|
|
| 35591 | ;Search file 355.91 for invalid Care Unit pointers to file 355.96.
|
|
| 3559 | ;Search file 355.9 for invalid Care Unit pointers to file 355.96.
|
|
| TOTALS | ; Print cleanup totals.
|
|
| OUTPUT | ; Failed conversion message.
|
|
| FILE | ; Save change and display success message.
|
|
| VALIDCU | ;Checks for valid Care Unit combination.
|
|
| CUCHK | ;Checks for existing Care Unit combination.
|
|
| MESSAGE | ;Send message to user if unable to change Care Unit pointer(s).
|
|
| COMPLETE | ; display message that step has completed
|
|
| END | ; display message that pre-init has completed successfully
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.9 - [#355.9] | Classic Fileman Calls |
| ^IBA(355.91 - [#355.91] | Classic Fileman Calls |
