©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
IBCD4 ;ALB/ARH - AUTOMATED BILLER (ADD NEW BILL - GATHER DX AND PROCEDURES) ; 9/5/93
Source file <IBCD4.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | $$FMTE^XLFDT |
| Registration | 1 | $$SITE^VASITE |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 3 | IBCD2 IBCD3 IBCD5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IPRC(PTF,DT1,DT2) | ;find 401 and 601 procedures for a PTF record
|
|
| GVARSE | ||
| IDX(PTF,DT1,DT2) | ;find all 501 movement Diagnosis' for PTF record, check for billable bedsection and SC treatement
|
|
| CHKSYS() | ;various checks to determine if bill can be created, returns true if passes XXXXXX
|
|
| GVARS(IFN) | ;get data on bill IFN
|
|
| IPRCE | ||
| CHKSYSE | ||
| IDXE | ||
| RXRF(PIFN,RIFN,IBDT) | ; returns data on refill on date for rx (RX # ^ DRUG ^ DAYS SUPPLY ^ REFILL DATE ^ QTY ^ NDC #)
|
|
| CHK() | ;other checks
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | GVARS+1, GVARS+2 |
| ^DGPT - [#45] | IDX+4, IDX+6, IDX+7, IDX+9, IDX+11, IDX+12, IPRC+3, IPRC+5, IPRC+8 |
| ^DIC(36 - [#36] | GVARS+3 |
| ^DIC(42.4 - [#42.4] | IDX+14 |
| ^DPT - [#2] | CHK+1 |
| ^IBE(350.9 - [#350.9] | CHKSYS+4 |
| ^PSDRUG - [#50] | RXRF+3 |
| ^PSRX - [#52] | RXRF+1, RXRF+2 |
| ^TMP("IBDX" | IDX+4!, IDX+10*, IDX+15* |
| ^TMP("IBIPRC" | IPRC+3!, IPRC+4*, IPRC+7*, IPRC+10* |
| Name | Line Occurrences |
|---|---|
| CHKSYSE | CHKSYS+4, CHKSYS+5 |
| GVARSE | GVARS+1 |
| IDXE | IDX+4 |
| IPRCE | IPRC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DGINPAR | GVARS+3* |
| DT | IDX+9, IDX+12 |
| DT1 | IDX~, IDX+6*, IDX+7*, IDX+12, IPRC~, IPRC+4*, IPRC+5, IPRC+8 |
| DT2 | IDX~, IDX+9*, IDX+12, IPRC~, IPRC+4*, IPRC+5, IPRC+8 |
| I | CHKSYS+3~, GVARS+1~, GVARS+2* |
| >> IB( | GVARS+2* |
| >> IB("M" | GVARS+3 |
| >> IBBS | IDX+11*, IDX+14*, IDX+17, IDX+18 |
| >> IBCNT | IDX+11*, IDX+13*, IDX+14*, IDX+16*, IDX+17*, IDX+18 |
| IBDA | IDX+4~, IDX+11*, IDX+12 |
| >> IBDFN | CHK+1 |
| IBDT | RXRF~, RXRF+2 |
| IBI | IDX+4~, IDX+15*, IPRC+3~, IPRC+6*, IPRC+9* |
| IBMDT | IDX+4~, IDX+12*, IDX+13, IDX+14 |
| IBMSG | IDX+4! |
| IBMSG( | IDX+13*, IDX+14*, IDX+16*, IDX+17*, IDX+18* |
| >> IBSC | IDX+11*, IDX+13*, IDX+16, IDX+18 |
| IBT | IDX+4!, IDX+11*, IDX+13*, IDX+16, IDX+17, IDX+18* |
| IBX | IDX+4~, IDX+6*, IDX+7*, IDX+9*, IDX+12*, IDX+13, IDX+14, IDX+15, IPRC+3~, IPRC+5* , IPRC+8* |
| IBY | IDX+4~, IDX+15*, IPRC+3~, IPRC+5*, IPRC+6, IPRC+7, IPRC+8*, IPRC+9, IPRC+10 |
| IBZ | IDX+4~, IDX+15*, IPRC+3~, IPRC+6*, IPRC+7, IPRC+9*, IPRC+10 |
| IFN | GVARS~, GVARS+1, GVARS+2 |
| PIFN | RXRF~, RXRF+1, RXRF+2 |
| PLN | RXRF+1~*, RXRF+3 |
| PTF | IDX~, IDX+4, IDX+6, IDX+7, IDX+9, IDX+10, IDX+11, IDX+12, IPRC~, IPRC+3 , IPRC+4, IPRC+5, IPRC+8 |
| RIFN | RXRF~, RXRF+2* |
| >> RLN | RXRF+2*, RXRF+3 |
| U | IDX+6, IDX+12, IDX+13, IDX+14, IDX+15, IPRC+6, IPRC+9, RXRF+3, CHKSYS+4, CHKSYS+5 , GVARS+3 |
| X | RXRF+1~*, RXRF+3*, RXRF+4, CHK+1~*, CHK+2, CHKSYS+3~*, CHKSYS+4*, CHKSYS+5*, CHKSYSE, GVARS+1* , GVARSE |
| Y | RXRF+1~, CHKSYS+3~ |