©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
BARUFEX5 ; IHS/SD/TPF - CONTINUATION OF EXPORT -- BUILD BOB FILE ; 09/17/2008
Source file <BARUFEX5.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Accounts Receivable | 5 | $$IPAC^BARUFEX4 ($$GETBACC,$$PARENT)^BARUFEXU $$IHS^BARUFUT $$PRELIVE^BARUFUT1 $$VALI^BARVPM |
| VA Fileman | 3 | NOW^%DTC ^DIE $$GET1^DIQ |
| Third Party Billing | 1 | ($$APPRDTTM,$$BILL,$$TRANSMIT)^ABMUEAPI |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Accounts Receivable | 2 | BARUFEX BARUFPRP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETZZ(BARDUZ) | ;CHECK FOR AT LEAST ONE PAYMENT IN DATE RANGE
|
|
| AGAIN | ||
| CODE(X,Z) | ;FLAG ALL TRANSACTIONS FOR BILL WITH CODE -7 AND -4
; ENTERS WITH X = BARBILL DA ; Z = CODE = -7 = MULTIPLE MAN TX W/IN BILL ; -6 = CANNOT FIND ORIG TX W/IN BILL ; -3 = SAME AS -6 FOR ERA TX ; -4 = SAME AS -7 FOR ERA TX |
|
| PAIR(Z) | ;FOUND A MATCH -- FLAG TRANSACTIONS AS GOOD TO GO OR CODE "-I"
|
|
| COLCK | ; NOW BEGIN PAIRS CHECK IN COLLECTION BATCH/ITEM
|
|
| TX | ||
| I | ||
| PRE(BARBG,BARDUZ) | ;EP;
|
|
| FINDTRAN(BARBLIEN,AMOUNT) | ;EP -HEAVILY MODIFIED FOR NEW MATCHING;MRS:BAR*1.8*6 IM29571
|
|
| J | ||
| BARBEG(X) | ;SET BEGINING DATE FROM NOT SET CROSS-REFERENCE
|
|
| REV(BARBDA,BARPAY,TIPAC) | ; FIND SIMPLE REVERSAL SCHEDULE NUMBER ;HEAVILY MODIFIED FOR BAR*1.8*5 IM29449
|
|
| FNDD | ;
|
|
| GETPLOC() | ;
|
|
| CLEAN | ;CHECK FOR AND CLEAN POSSIBLE BAD DATA
|
|
| PRELIVE(ABMDUZ2,ABMIEN,BARITYP,BARPLOC) | ;
|
|
| DEPOP | ;EP - DE POPULATE IF REVERSAL DATES NOT FOUND
|
|
| PAIRS(BAR,BAR7) | ;LOOK FOR OK PAIRS OF PAYMENTS AND REVERSALS
|
|
| SETORIG(TRDT,BARFLG) | ;FLAG ORIGINAL PAYMENT WHEN SIMPLE REVERSAL IS FOUND
|
|
| DUP(ZZ) | ;EP-CHECK FOR DUPLICATE BILLS
; ENTERS WITH BILL NUMBER |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | PRE+8, TX+28 |
| $$APPRDTTM^ABMUEAPI | PRELIVE+4 |
| $$BILL^ABMUEAPI | PRE+27 |
| $$TRANSMIT^ABMUEAPI | PRELIVE+18 |
| $$IPAC^BARUFEX4 | TX+13 |
| $$GETBACC^BARUFEXU | PRE+30 |
| $$PARENT^BARUFEXU | GETPLOC+6 |
| $$IHS^BARUFUT | PRE+28, SETZZ+3 |
| $$PRELIVE^BARUFUT1 | PRELIVE+15 |
| $$VALI^BARVPM | PRE+33 |
| ^DIE | DEPOP+6 |
| $$GET1^DIQ | TX+4, REV+11, PRELIVE+14, SETZZ+15, SETZZ+17, FINDTRAN+17, FINDTRAN+18, FINDTRAN+20, FINDTRAN+21, FINDTRAN+22 , FINDTRAN+23 |
| FileNo | Call Tags |
|---|---|
| ^BARTR(2906 - [#90050.03] | GET1^DIQ |
| 90051.1101 | GET1^DIQ |
| ^AUTTLOC - [#9999999.06] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | FNDD+7, FNDD+13 |
| ^BAR(90052.06 | PRELIVE+12 |
| ^BARBL( | PRE+22, GETPLOC+5, DUP+4, DUP+6, FNDD+2, FNDD+3, FNDD+4, FNDD+8, FNDD+9, FNDD+10 |
| ^BARBOB("BARZ" | PRE+5!, PRE+10*, TX+26*, TX+29*, SETORIG+8*, COLCK+4, COLCK+6, COLCK+8, COLCK+11, COLCK+12 , COLCK+18*, COLCK+26*, PAIRS+10*, PAIR+3*, PAIR+6* |
| ^BARBOB("BARZZ" | PRE+6!, PRE+17, PRE+19, PRE+20, TX+2, TX+10, TX+24*, SETORIG+10*, COLCK+15, SETZZ+13* , SETZZ+19*, SETZZ+20*, CODE+8, CODE+9, CODE+10, CODE+11*, DUP+7, FINDTRAN+4, FINDTRAN+14, FINDTRAN+15 |
| ^BARSESS( | BARBEG+4 |
| ^BARTR( | TX+6, SETORIG+2, REV+3, REV+10, REV+19, SETZZ+2, SETZZ+7, SETZZ+8, SETZZ+11, SETZZ+12 , FINDTRAN+6, CLEAN+2, CLEAN+5 |
| ^BARZZZ("BARZ" | PRE+7! |
| Name | Line Occurrences |
|---|---|
| $$BARBEG | SETZZ+5 |
| $$DUP | SETZZ+18 |
| $$FINDTRAN | REV+16 |
| $$GETPLOC | PRE+36 |
| $$REV | TX+16 |
| AGAIN | J+11 |
| CLEAN | TX+14 |
| CODE | TX+25 |
| COLCK | TX+27 |
| DEPOP | CLEAN+2, CLEAN+6 |
| I | I+4, I+5, J+1, J+4 |
| J | J+3, J+5, J+9, J+16 |
| PAIR | J+14, J+15 |
| PAIRS | COLCK+24 |
| SETORIG | TX+23 |
| SETZZ | PRE+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | PRE+10, TX+29 |
| ABMDUZ2 | PRE+23*, PRE+24, PRE+27, PRE+28, PRELIVE~, PRELIVE+4, PRELIVE+18 |
| ABMIEN | PRE+25*, PRE+26, PRE+27, PRELIVE~, PRELIVE+4, PRELIVE+18 |
| AMOUNT | FINDTRAN~, FINDTRAN+9*, FINDTRAN+18, FINDTRAN+19 |
| BAR | PRE+11~, COLCK+2~, COLCK+10!, COLCK+24, PAIRS~ |
| BAR( | COLCK+23*, I, I+3, I+4!, I+5!, J, J+2, J+3!, J+4!, J+5 , J+7, J+8, J+11, J+12, J+13, PAIR+4!, PAIR+7! |
| >> BAR0 | COLCK+12*, COLCK+13, COLCK+14, COLCK+19*, COLCK+21, COLCK+23 |
| >> BAR08DT | PRELIVE+12*, PRELIVE+13 |
| BAR3PEIN | FNDD+1~, FNDD+3*, FNDD+5, FNDD+7, FNDD+9*, FNDD+11, FNDD+13 |
| BAR7 | COLCK+2~, COLCK+9*, COLCK+20*, COLCK+24, COLCK+25, PAIRS~, PAIRS+10 |
| >> BARACCT | PRE+30*, PRE+31, PRE+32 |
| >> BARAMT | COLCK+21*, COLCK+22 |
| >> BARAREA | PRELIVE+14*, PRELIVE+15 |
| BARBDA | PRE+11~, PRE+18*, PRE+19*, PRE+20, PRE+22, PRE+30, TX+2, TX+10, TX+16, TX+24 , TX+25, TX+26, SETORIG+10, REV~, REV+16, GETPLOC+5 |
| >> BARBEG | SETZZ+5*, SETZZ+9 |
| BARBG | PRE~, BARBEG+3*, BARBEG+5 |
| BARBILL | PRE+20*, PRE+21, TX+26, SETZZ+1~, SETZZ+17*, SETZZ+18, SETZZ+19 |
| >> BARBL0 | PRE+22*, PRE+23, PRE+25, GETPLOC+2 |
| BARBLIEN | FINDTRAN~, FINDTRAN+2, FINDTRAN+4, FINDTRAN+14, FINDTRAN+15 |
| BARCB | TX+7*, TX+9, TX+13, TX+26, SETORIG+7, COLCK+2~, COLCK+5*, COLCK+6*, COLCK+8, COLCK+11 , COLCK+12, COLCK+18, COLCK+26, PAIRS+10, PAIR+2, PAIR+3, PAIR+5, PAIR+6 |
| BARCI | TX+8*, TX+9, TX+13, TX+26, SETORIG+7, COLCK+2~, COLCK+7*, COLCK+8*, COLCK+11, COLCK+12 , COLCK+18, COLCK+26, PAIRS+10, PAIR+2, PAIR+3, PAIR+5, PAIR+6 |
| BARCNT | PAIRS+9~, PAIRS+11*, I+2*, J+12 |
| >> BARDA | COLCK+13*, COLCK+15 |
| BARDUZ | PRE~, PRE+5, PRE+6, PRE+10, PRE+15, PRE+17, PRE+19, PRE+20, TX+2, TX+10 , TX+24, TX+26, TX+29, SETORIG+8, SETORIG+10, COLCK+4, COLCK+6, COLCK+8, COLCK+11, COLCK+12 , COLCK+15, COLCK+18, COLCK+26, PAIRS+10, PAIR+3, PAIR+6, SETZZ~, SETZZ+13, SETZZ+19, SETZZ+20 , CODE+8, CODE+9, CODE+10, CODE+11, DUP+7 |
| BARDUZ3P | FNDD+1~, FNDD+4*, FNDD+6, FNDD+7, FNDD+10*, FNDD+12, FNDD+13 |
| BARFLG | PRE+11~, TX+11*, TX+15, TX+18*, TX+20, TX+23, TX+25, TX+26, SETORIG~, SETORIG+7* , SETORIG+8, SETORIG+9*, COLCK+14*, COLCK+16*, COLCK+17, COLCK+18, COLCK+19, COLCK+25*, COLCK+26, FINDTRAN+3~ , FINDTRAN+4*, FINDTRAN+5, FINDTRAN+15*, FINDTRAN+16 |
| >> BARFLGZ | COLCK+15*, COLCK+16 |
| BARI | PAIRS+9~, AGAIN*, I*, I+1, I+3, I+4, I+5, J+4, J+5, J+7 , J+11, J+12, J+13, PAIR+3, PAIR+4, PAIR+5 |
| >> BARIAMT | J+7*, J+9, J+14 |
| BARIDT | PRE+11~ |
| >> BARIFLG | I+3*, I+4, I+5 |
| >> BARIPAC | TX+13*, TX+16, TX+19*, TX+26 |
| BARITYP | PRE+33*, PRE+34, PRELIVE~, PRELIVE+15 |
| BARJ | PAIRS+9~, I+6*, J*, J+1, J+2, J+3, J+5, J+8, J+11, J+13 , PAIR+2, PAIR+6, PAIR+7 |
| >> BARJAMT | J+8*, J+9, J+14 |
| >> BARJFLG | J+2*, J+3, J+4 |
| BARNEG | COLCK+2~, COLCK+9*, COLCK+22*, COLCK+24 |
| BARNUM | SETZZ+1~ |
| BARO0 | SETORIG+1~, SETORIG+2*, SETORIG+3, SETORIG+5 |
| BAROCB | SETORIG+1~, SETORIG+3*, SETORIG+4, SETORIG+8, SETORIG+9 |
| BAROCI | SETORIG+1~, SETORIG+5*, SETORIG+6, SETORIG+8, SETORIG+9 |
| >> BAROTX | TX+12*, TX+21*, TX+22, TX+23 |
| BARPAY | TX+4*, TX+5, TX+15, TX+16, TX+26, COLCK+2~, REV~, REV+12, REV+16, CLEAN+5 |
| BARPLOC | PRE+36*, PRE+37, PRELIVE~, PRELIVE+14, GETPLOC+1~, GETPLOC+2*, GETPLOC+3, GETPLOC+4, GETPLOC+6*, GETPLOC+7 |
| BARR1 | REV+1~, REV+3*, REV+4, REV+5, REV+8 |
| BARRDT | REV+1~, REV+5*, REV+6, REV+7*, REV+10, REV+11, REV+13, REV+15 |
| BARREV | PRE+11~, TX+12* |
| BARRTDN | REV+1~, REV+8*, REV+13 |
| BART | PRE+11~ |
| >> BARTOTX | PRE+13* |
| >> BARTR0 | FINDTRAN+6*, FINDTRAN+7, FINDTRAN+8 |
| BARTX | PRE+11~ |
| >> BARTX0 | TX+6*, TX+7, TX+8 |
| BARVLOC | GETPLOC+1~, GETPLOC+5* |
| BARX | PRE+11~ |
| >> BARXPAC | TX+16*, TX+18, TX+19, TX+21 |
| BARY | PRE+11~ |
| BARZ | PRE+11~ |
| >> BARZZ0 | TX+10*, TX+11 |
| CNT | DUP+3~, DUP+5*, DUP+8*, DUP+14 |
| CODE | REV+1~, REV+21, REV+22*, REV+23, REV+24* |
| COLDA | FINDTRAN+3~, FINDTRAN+21*, FINDTRAN+23 |
| >> D0 | PRE+32* |
| DA | DEPOP+2!, DEPOP+3*, DEPOP+7! |
| DIC | DEPOP+2!, DEPOP+7! |
| DIE | DEPOP+2!, DEPOP+5*, DEPOP+7! |
| DIR | DEPOP+2!, DEPOP+7! |
| DR | DEPOP+2!, DEPOP+4*, DEPOP+7! |
| DUP | SETZZ+1~, SETZZ+18*, SETZZ+20 |
| DUZ | FINDTRAN+4, FINDTRAN+14, FINDTRAN+15 |
| DUZ(2 | PRE+12, PRE+16*, PRE+17*, PRE+19, PRE+20, PRE+22, TX+2, TX+6, TX+10, TX+24 , TX+26, TX+30*, SETORIG+2, SETORIG+8, SETORIG+10, COLCK+3*, COLCK+4*, COLCK+6, COLCK+8, COLCK+11 , COLCK+12, COLCK+15, COLCK+18, COLCK+26, PAIRS+10, PAIR+3, PAIR+6, REV+3, REV+10, REV+19 , PRELIVE+12, GETPLOC+5, SETZZ+2*, SETZZ+3, SETZZ+5, SETZZ+7, SETZZ+8, SETZZ+11, SETZZ+12, SETZZ+13 , SETZZ+19, SETZZ+20, CODE+8, CODE+9, CODE+10, CODE+11, DUP+4, DUP+6, DUP+7, FNDD+2 , FNDD+3, FNDD+4, FNDD+8, FNDD+9, FNDD+10, FINDTRAN+4, FINDTRAN+6, FINDTRAN+14, FINDTRAN+15, CLEAN+2 , CLEAN+5, DEPOP+5 |
| FLG | PAIR+1~, PAIR+2*, PAIR+3, PAIR+5*, PAIR+6 |
| FOUND | FINDTRAN+3~, FINDTRAN+10*, FINDTRAN+19*, FINDTRAN+26*, FINDTRAN+27, FINDTRAN+28 |
| >> IENS | TX+3*, TX+4, TX+13, SETZZ+14*, SETZZ+15, SETZZ+17 |
| ITEMDA | FINDTRAN+3~, FINDTRAN+22*, FINDTRAN+23 |
| >> PRELIV | PRELIVE+15*, PRELIVE+16 |
| >> PRELIVLM | PRE+9*, PRELIVE+13 |
| QVAL | FNDD+1~, FNDD+5*, FNDD+6*, FNDD+7*, FNDD+11*, FNDD+12*, FNDD+13*, FNDD+14* |
| >> REV | REV+10*, REV+12*, REV+13*, REV+16*, REV+18, REV+21, REV+23, REV+25 |
| REVDATE | FINDTRAN+3~, FINDTRAN+5, FINDTRAN+7*, FINDTRAN+20*, FINDTRAN+27 |
| REVERSAL | FINDTRAN+3~, FINDTRAN+11*, FINDTRAN+18*, FINDTRAN+26 |
| REVSCHED | FINDTRAN+3~, FINDTRAN+5, FINDTRAN+8*, FINDTRAN+23*, FINDTRAN+24*, FINDTRAN+25*, FINDTRAN+27 |
| >> SAFEDUZ | PRE+12*, TX+30 |
| SCHED | REV+1~, REV+18* |
| TAMOUNT | FINDTRAN+3~, FINDTRAN+17*, FINDTRAN+18, FINDTRAN+19 |
| >> TAMT | REV+11*, REV+12 |
| TIPAC | REV~, REV+21, REV+23 |
| TPBAPDT | PRELIVE+2~, PRELIVE+4*, PRELIVE+5, PRELIVE+13 |
| TPBEXDT | PRELIVE+2~ |
| TRANS | FINDTRAN+3~, FINDTRAN+12*, FINDTRAN+14*, FINDTRAN+15, FINDTRAN+17, FINDTRAN+18, FINDTRAN+20, FINDTRAN+21, FINDTRAN+22, FINDTRAN+25 |
| TRANTYPE | SETZZ+1~, SETZZ+15*, SETZZ+16 |
| TRDATE | PRE+11~, TX+1*, TX+2*, TX+3, TX+6, TX+10, TX+24, TX+26, SETORIG+7, COLCK+2~ , COLCK+9*, COLCK+11*, COLCK+12, COLCK+15, COLCK+18, COLCK+23, REV+3, REV+19, FINDTRAN+4, FINDTRAN+6 , FINDTRAN+12, CLEAN+2, CLEAN+5, DEPOP+3 |
| TRDT | SETORIG~, SETORIG+2, SETORIG+8, SETORIG+9, SETORIG+10 |
| U | PRE+23, PRE+25, TX+7, TX+8, TX+18, TX+19, TX+21, TX+26, SETORIG+3, SETORIG+5 , SETORIG+7, SETORIG+8, SETORIG+9, COLCK+13, COLCK+14, COLCK+18, COLCK+19, COLCK+21, I+3, J+2 , J+5, J+7, J+8, J+11, J+13, PAIR+2, PAIR+3, PAIR+5, PAIR+6, REV+4 , REV+5, REV+8, REV+13, REV+18, REV+19, REV+21, REV+23, REV+25, PRELIVE+12, GETPLOC+2 , GETPLOC+5, SETZZ+12, FINDTRAN+5, FINDTRAN+7, FINDTRAN+8, FINDTRAN+25, FINDTRAN+27, CLEAN+2, CLEAN+5 |
| >> UFMSSUFC | PRELIVE+3*, PRELIVE+5, PRELIVE+13, PRELIVE+16*, PRELIVE+18*, PRELIVE+19*, PRELIVE+20 |
| X | SETZZ+1~, SETZZ+6*, SETZZ+7*, SETZZ+8, SETZZ+11, SETZZ+13, SETZZ+19, SETZZ+20, CODE~, CODE+8 , CODE+9, CODE+10, CODE+11, BARBEG~, BARBEG+4 |
| Y | REV+1~, REV+2*, REV+19*, REV+22, REV+24, SETZZ+1~, SETZZ+8*, SETZZ+9, SETZZ+10*, SETZZ+11* , SETZZ+12, SETZZ+14, SETZZ+20, CODE+6~, CODE+7*, CODE+8*, CODE+9, CODE+10, CODE+11 |
| YY | DUP+3~, DUP+5*, DUP+6*, DUP+7 |
| YY1 | FNDD+1~, FNDD+2*, FNDD+3, FNDD+4, FNDD+8 |
| YY2 | FNDD+1~, FNDD+8*, FNDD+9, FNDD+10 |
| Z | PAIR~, PAIR+2, PAIR+5, REV+1~, SETZZ+1~, CODE~, CODE+9, CODE+11, BARBEG+2~, BARBEG+4* , BARBEG+5*, BARBEG+6 |
| ZZ | DUP~, DUP+2, DUP+4, DUP+6, FNDD+2, FNDD+8 |