©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
IB20PT6 ;ALB/AAS - Insurance post init stuff ; 2/22/93
Source file <IB20PT6.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | (399,BULL1,BULL3,MANUAL)^IB20PT61 $$CHIP^IBCNSU INP^IBTRKR |
| VA Fileman | 3 | NOW^%DTC ^DIE DT^DIQ |
| Kernel | 1 | ^%ZTLOAD |
| Registration | 1 | INP^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INPTDQ | ||
| 15() | ; -- Add 15 minutes to now and return in $h format
|
|
| PAT | ; -- create AB x-ref on patient file for all insurance co. pointers
|
|
| INPT | ; -- load current inpatients into claims tracking
|
|
| PATDQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | INPTDQ+5 |
| ^DGPM("CN" | INPTDQ+3 |
| ^DPT - [#2] | PATDQ+6, PATDQ+8, PATDQ+10*, INPTDQ+9 |
| ^DPT("AB" | PATDQ+9* |
| ^IBA(355.3 - [#355.3] | %+1, PATDQ+14 |
| ^IBE(350.9 - [#350.9] | PAT+6, PATDQ+20*, INPT+5, INPTDQ+14* |
| Name | Line Occurrences |
|---|---|
| $$15 | PAT+3, INPT+2 |
| INPT | %+4 |
| PAT | %+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | PATDQ, PATDQ+21, INPTDQ, INPTDQ+12 |
| DA | PATDQ+4~, PATDQ+16*, PATDQ+18! |
| DA(1 | PATDQ+16* |
| DFN | PATDQ+4~, PATDQ+5*, PATDQ+6*, PATDQ+8, PATDQ+9, PATDQ+10, PATDQ+16, INPTDQ+6*, INPTDQ+9 |
| >> DGPDMA | INPTDQ+2* |
| >> DGPMA | INPTDQ+5*, INPTDQ+6 |
| DGPMDA | INPTDQ+1~, INPTDQ+3*, INPTDQ+5 |
| >> DGPMP | INPTDQ+4* |
| DIC | PATDQ+4~, PATDQ+18! |
| DIE | PATDQ+4~, PATDQ+16*, PATDQ+18! |
| DR | PATDQ+4~, PATDQ+17*, PATDQ+18! |
| DT | PATDQ+20, INPTDQ+14 |
| IB20 | INPTDQ+1~, INPTDQ+2* |
| IBCDFND | PATDQ+4~, PATDQ+8*, PATDQ+9, PATDQ+10, PATDQ+11, PATDQ+12, PATDQ+14 |
| IBCNT | PATDQ+4~, PATDQ+5*, PATDQ+6*, PATDQ+25, INPTDQ+1~, INPTDQ+2*, INPTDQ+9*, INPTDQ+11 |
| IBCNTI | PATDQ+4~, PATDQ+5*, PATDQ+6* |
| IBCNTP | PATDQ+4~, PATDQ+5*, PATDQ+26 |
| IBCNTPP | PATDQ+4~, PATDQ+5*, PATDQ+7, PATDQ+15*, PATDQ+25 |
| IBCPOL | PATDQ+4~, PATDQ+12*, PATDQ+13, PATDQ+14, PATDQ+17 |
| >> IBEPDT | PATDQ+21*, PATDQ+27 |
| >> IBETDT | INPTDQ+12* |
| IBFORCE | %*, %+6!, PAT+3, INPT+2 |
| IBI | PATDQ+4~, PATDQ+6*, PATDQ+8, PATDQ+9, PATDQ+10, PATDQ+16 |
| IBNEW | INPTDQ+8!, INPTDQ+9 |
| >> IBOK | PAT+4, PAT+6, INPT+3, INPT+5 |
| >> IBSPDT | PATDQ*, PATDQ+3 |
| >> IBSTDT | INPTDQ* |
| U | PATDQ+11, INPTDQ+9 |
| WARD | INPTDQ+1~, INPTDQ+2*, INPTDQ+3* |
| >> Y | PATDQ+3*, PATDQ+27* |
| >> ZTDESC | PAT+3*, INPT+2* |
| >> ZTDTH | PAT+3*, INPT+2* |
| >> ZTIO | PAT+3*, INPT+2* |
| >> ZTQUEUED | PATDQ+1, PATDQ+7, PATDQ+23, INPTDQ+9, INPTDQ+11 |
| >> ZTRTN | PAT+3*, INPT+2* |
| ZTSK | PAT+4, PAT+7!, INPT+3, INPT+6! |