©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBCU64 ;ALB/ARH - AUTOMATED BILLER (INPT CONT) ; 8/6/93
Source file <IBCU64.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
| Registration | 1 | PLASIH^DGUTL2 |
| VA Fileman | 1 | NOW^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOS1Q | ||
| LOSQ | ||
| ADQ | ||
| ADME | ||
| ADM(DFN,IBDT) | ; -- send back adm dt for dfn on vaindt (or now) if any, 0 otherwise
|
|
| AD(DGPMCA) | ; returns inpatient admit and discharge date, DFN, PTF, Facility Treating Specialty, if one/both don't exist "0^0"
|
|
| DUPCHKI(DT1,DT2,PTF,RTG,DISP,IFN) | ;Check for duplicate billing of inpt admission - checks for overlapping date range on other
|
|
| LOS1(IFN) | ; returns length of stay for a bill's date range
|
|
| DCIQ | ||
| LOS(DGBDT,DGEDT,BTF,DGPMCA) | ; calculate the inpatient length of stay for a given time period
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | LOS1+1, LOS1+5, DUPCHKI+11, DUPCHKI+14, DUPCHKI+15, DUPCHKI+16, DUPCHKI+18 |
| ^DGCR(399.3 - [#399.3] | DUPCHKI+19 |
| ^DGPM - [#405] | AD+2, AD+3, ADM+6, ADM+7 |
| ^DGPM("AMV1" | LOS1+4 |
| ^DGPM("ATID1" | ADM+5, ADM+6 |
| ^DGPT - [#45] | LOS1+3 |
| ^DPT - [#2] | ADM+3 |
| Name | Line Occurrences |
|---|---|
| $$AD | LOS+9 |
| $$LOS | LOS1+6 |
| ADME | ADM+3 |
| ADQ | AD+1 |
| DCIQ | DUPCHKI+12, DUPCHKI+13, DUPCHKI+14 |
| LOS1Q | LOS1+1 |
| LOSQ | LOS+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ADM+2~ |
| BTF | LOS~, LOS+7 |
| DFN | LOS1+1~, LOS1+3*, LOS1+4, LOS+6~, LOS+9*, ADM~, ADM+3, ADM+5, ADM+6 |
| DGA | LOS+6~ |
| DGADM | LOS1+1~, LOS1+3*, LOS1+4*, LOS+6~, LOS+9*, LOS+11 |
| DGBDT | LOS~, LOS+6, LOS+7, LOS+8, LOS+11*, LOS+12 |
| DGEDT | LOS~, LOS+6, LOS+7*, LOS+8, LOS+11*, LOS+12 |
| DGMVTP | LOS+6~ |
| DGPMCA | LOS1+1~*, LOS1+4*, LOS1+6, AD~, AD+1, AD+2, LOS~, LOS+9 |
| DGREC | LOS+6~, LOS+13 |
| DISP | DUPCHKI~, DCIQ |
| DT1 | DUPCHKI~, DUPCHKI+13*, DUPCHKI+14*, DUPCHKI+18 |
| DT2 | DUPCHKI~, DUPCHKI+13*, DUPCHKI+14*, DUPCHKI+18 |
| IBADM | ADM+2~, ADM+6* |
| IBADT1 | ADM+2~, ADM+6*, ADM+7, ADM+9 |
| IBADT2 | ADM+2~, ADM+4*, ADM+7*, ADM+8*, ADM+9 |
| IBDIS | ADM+2~, ADM+7* |
| IBDISDT | LOS+6~, LOS+9*, LOS+11 |
| IBDT | ADM~, ADM+3*, ADM+4, ADM+9 |
| IBINPT | ADM+2~, ADM+3*, ADM+5, ADM+9*, ADME |
| IBNDT | ADM+2~, ADM+4*, ADM+5*, ADM+6 |
| IBNOW | ADM+2~*, ADM+3, ADM+4 |
| IBX | LOS+6~*, LOS+8*, LOS+12*, LOS+13*, LOSQ |
| IBY | LOS+6~, LOS+9* |
| IFN | LOS1~, LOS1+1, LOS1+5, DUPCHKI~, DUPCHKI+11*, DUPCHKI+15 |
| IFN2 | DUPCHKI+11~, DUPCHKI+15*, DUPCHKI+16, DUPCHKI+18, DUPCHKI+19 |
| PTF | DUPCHKI~, DUPCHKI+12*, DUPCHKI+14, DUPCHKI+15 |
| RTG | DUPCHKI~, DUPCHKI+12*, DUPCHKI+17 |
| U | LOS1+1, LOS1+3, LOS1+6, AD+3, LOS+9, DUPCHKI+12, DUPCHKI+13, DUPCHKI+16, DUPCHKI+17, DUPCHKI+18 , DUPCHKI+19, DCIQ, ADM+7 |
| X | LOS1+1~*, LOS1+5*, LOS1+6*, LOS1Q, AD+1~*, AD+3*, ADQ, LOS+6~, DUPCHKI+11~*, DUPCHKI+12 , DUPCHKI+18*, ADM+2~ |
| X1 | DUPCHKI+11~*, DUPCHKI+13, DUPCHKI+16*, DUPCHKI+17, DUPCHKI+19 |
| Y | LOS1+1~*, LOS1+3, LOS1+6, AD+1~, AD+2*, AD+3, DUPCHKI+11~*, DUPCHKI+15, DUPCHKI+19*, DCIQ , DCIQ+1, ADM+2~ |