IBCU6 ;ALB/AAS - UTILITY ROUTINE TO SET BEDSECTIONS/REVENUE CODES FROM PTF DATA ;25 MAY 90
Source file <IBCU6.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPT | ;I IBIDS(.05)>2 S DGBILLBS="OUTPATIENT VISIT",DGVISCNT=$S($D(^DGCR(399,IBIFN,"OP",0)):$P(^(0),U,4),1:""),^UTILITY($J,"IB-BS",DGBILLBS)=DGVISCNT G END:DGVISCNT<1 D G END:IBQUIT,3
|
|
| 1 | ;build array of movement dates, billable bedsections
|
|
| 2 | ;build array of billable bedsections = los in bedsection
|
|
| 3 | ;find revenue codes and set up in file.
|
|
| SETU | ;utility array of all movements by date, billing bedsection
|
|
| SETU1 | ;determine los - set utility=los
|
|
| END |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | %+2, %+11, %+12, %+13, %+15, OPT+4, OPT+5, 3+1* |
| ^DGCR(399.1 - [#399.1] | 3+2 |
| ^DGPM("AMV1" | %+14 |
| ^DGPT - [#45] | %+13, 1+1, SETU+2 |
| ^DIC(42.4 - [#42.4] | SETU+3 |
| ^UTILITY($J | %+11!, OPT+4*, 2+8, 3+2, SETU+5*, SETU1+1, SETU1+7, SETU1+8*, END+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | END+1! |
| >> DFN | %+12*, %+14 |
| DGACTDT | END+1! |
| DGADM | %+14*, END+2! |
| DGAMNT | END+1! |
| DGBDT | SETU1+2*, SETU1+4, END+2! |
| DGBILLBS | OPT+4*, SETU+3*, SETU+5, END+1! |
| DGBR | END+1! |
| DGBRN | END+1! |
| DGBS | 2+2*, 3+1*, 3+2*, SETU1+1*, SETU1+5, SETU1+6, SETU1+7, SETU1+8, END+1! |
| DGBS1 | 2+2*, SETU1+1*, SETU1+5, SETU1+6, END+1! |
| DGBSI | 3+2*, END+1! |
| DGBSLOS | 3+2*, END+1! |
| DGDC | END+2! |
| DGEDT | SETU1+2*, SETU1+4, END+2! |
| DGFND | END+2! |
| DGFUNC | END+1! |
| DGIFN | END+2! |
| DGII | 1+1*, 2+6*, 2+8*, 3+2*, END+1! |
| DGINPAR | SETU1+5, END+1! |
| DGJJ | END+1! |
| DGKK | END+1! |
| DGLL | END+2! |
| DGMOVE | 1+1*, SETU+2, END+1! |
| DGMVDT | 2+2*, 2+4*, 2+5*, 2+6*, 2+8*, SETU1+1, SETU1+2, SETU1+3, SETU1+7, END+1! |
| DGMVDTP | 2+2*, 2+8*, SETU1+2, END+1! |
| DGMVT | END+2! |
| DGMVTP | END+2! |
| DGNEXT | END+2! |
| DGPMCA | %+14*, 2+6, SETU1+4, END+2! |
| >> DGPTUPDT | %+13* |
| DGREC | END+1! |
| DGREV | END+1! |
| DGREV00 | END+1! |
| DGREVHDR | END+1! |
| DGRVRCAL | END+1! |
| DGVISCNT | OPT+3, OPT+4*, OPT+5, END+1! |
| DGX | END+2! |
| DIK | END+1! |
| DR | END+1! |
| DT | SETU+5 |
| IBCHK | END+2! |
| IBCNT | OPT+6*, END+2! |
| IBIDS | END+1! |
| IBIDS( | %+13, %+14, OPT+3, 2+2, 2+5, SETU1+3, SETU1+6, END* |
| IBIDS(151 | 2+2, 2+5, 2+6, SETU1+2 |
| IBIDS(152 | 2+4, 2+5, 2+6, 2+8, SETU1+2, SETU1+3 |
| >> IBIFN | %+2, %+3, %+4, %+6, %+8, %+11, %+12, %+13, %+15, OPT+4 , OPT+5, OPT+6, 3+1 |
| IBMVDTE | 2+4*, 2+5*, 2+6*, 2+8, END+2! |
| IBND0 | END+2! |
| IBNDU | END+2! |
| IBQUIT | %+11~*, OPT+3, 3+2 |
| IBTF | SETU1+3*, SETU1+4, END+2! |
| IBX | OPT+6! |
| >> PTF | %+13*, 1+1, SETU+2 |
| U | %+2, %+3, %+4, OPT+4, OPT+6, 2+6, SETU+3, SETU+5, SETU1+7 |
| X | %+3~*, %+4*, SETU+2*, SETU+3, SETU+5, SETU1+4*, SETU1+8, END+1! |
| X1 | END+1! |
| X2 | END+1! |
| Y | END+1! |
| Z | END+1! |
| >> ZTQUEUED | %+3, %+4 |
