IBCEPA ;ALB/WCJ - Provider ID functions - Care Units ;21-OCT-2005
Source file <IBCEPA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBCE 2ND PRVID CARE UNIT MAINT
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| BLD | ;
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| NEW | ; Add care unit
; Assumes IBINS is defined as ins co ien (file 36) ; IB = 0 or null if called from list manager, 1 if not |
|
| ACU | ||
| NEWQ | ||
| CHANGE | ; Edit care unit
; Assumes IBINS is defined as ins co ien (file 36) |
|
| CHANGEQ | ||
| DEL | ; Delete a Care Unit
; Assumes IBINS is defined as ins co ien (file 36) ; |
|
| DELQ | ||
| DISPMESS(MESS) | ;
|
|
| SEL(DIV) | ; select care unit for a given division
; DIV - name of division ; returns ien of selected care unit, or 0 if nothing is selected |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.92 - [#355.92] | EXTERNAL^DILFD |
| ^IBA(355.95 - [#355.95] | Classic Fileman Calls, FIELD^DID, LIST^DIC |
