©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
BARTR ; IHS/SD/LSL - ENTER NEW TRANSACTION DEC 4,1996 ;
Source file <BARTR.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 5 | NOW^%DTC %XY^%RCR ^DIC FILE^DICN $$GET1^DIQ |
| IHS Accounts Receivable | 1 | EOP^BARUTL |
| IHS VA Utilities | 1 | ($$VAL,$$VALI,ENP)^XBDIQ1 |
| Kernel | 1 | $$CJ^XLFSTR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DSP(DA) | ;EP display transaction (needs DA)
|
|
| ENODE | ;
|
|
| PRMBLAMT() | ;EP Extrinsic to return Prime Bill Amount
; if tran = 49:BILL NEW field 101 1:p1 ; if Bill Type = P'rimary field 16 0:p16 ; return debit field 3 0:p3 |
|
| NODE() | ;
|
|
| VALADJ(BARTYP) | ||
| ETOTAL | ||
| PAR() | ;EP - return 1 if transaction is a PAY!ADJ!REF
|
|
| PAY() | ;EP ** Extrensic for PAYMENT field of transaction file
|
|
| ADJ() | ;EP - ** Extrensic for ADJUSTMENT field of transaction file
|
|
| TOTAL(BARTRDA) | ;EP
; - **gather BARTOT(tran.cat.type) totals and ADJ in Ax & Tx |
|
| MSG(X) | ; EP - error message
; X = Bill IEN |
|
| UPLOAD() | ;
; EP - New transaction if bill Uploaded. |
|
| NEW() | ;EP - extrensic call to establish a new transaction
; returns 0-lock on file, fm-dt/sec -IEN ; -1 not added |
|
| EN(BART) | ;EP
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BARBL(2906 - [#90050.01] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BARTR( | NEW+3, NEW+6, NEW+15, EN+10*, PAR+3, PRMBLAMT+5, PRMBLAMT+6, PRMBLAMT+7, UPLOAD+3, UPLOAD+16 , UPLOAD+22 |
| ^DD(90050.03 | DSP+4 |
| Name | Line Occurrences |
|---|---|
| $$NODE | ETOTAL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NEW+2~, NEW+6, NEW+7 |
| >> %X | EN+11* |
| >> %Y | EN+12* |
| >> BAR3PUP | UPLOAD+15 |
| >> BARDONE | UPLOAD+9*, UPLOAD+10, UPLOAD+17*, UPLOAD+18 |
| >> BARHRS | UPLOAD+8*, UPLOAD+10, UPLOAD+11*, UPLOAD+12, UPLOAD+13*, UPLOAD+14*, UPLOAD+15 |
| BART | EN~, PAY+3~, PAY+6*, PAY+8, PAY+10, PAY+12, PAY+13!, ADJ+3~, ADJ+6*, ADJ+7* , ADJ+8 |
| BART( | EN+5, PAY+5*, PAY+6, ADJ+5*, ADJ+7 |
| BART("DA" | EN+8*, EN+10 |
| BART("WP" | EN+9 |
| BART(101 | TOTAL+5, NODE+2, PAY+8 |
| BART(102 | TOTAL+4, NODE+2, PAY+10, PAY+12, ADJ+7 |
| BART(103 | NODE+2 |
| BART(2 | TOTAL+4, TOTAL+5, ETOTAL+1 |
| BART(3 | TOTAL+4, TOTAL+5, ETOTAL+1 |
| BARTMP | DSP+1~ |
| BARTMP( | DSP+4 |
| >> BARTOT( | ETOTAL+1* |
| >> BARTOT("A" | TOTAL+4* |
| >> BARTOT("T" | TOTAL+5* |
| BARTR | VALADJ+2~, VALADJ+3*, VALADJ+4 |
| BARTRDA | TOTAL~, TOTAL+3 |
| >> BARTRIEN | MSG+4, UPLOAD+23*, UPLOAD+24 |
| BARTYP | VALADJ~, VALADJ+4 |
| D | NEW+2~ |
| >> D0 | PAY+4, ADJ+4, VALADJ+3, VALADJ+5, PAR+3, PRMBLAMT+5, PRMBLAMT+6, PRMBLAMT+7 |
| DA | NEW+2~, EN+2~, DSP~, DSP+2 |
| DD | NEW+12!, UPLOAD+19! |
| DIC | NEW+2~, NEW+8*, EN+2~, UPLOAD+2~, UPLOAD+5* |
| DIC(0 | NEW+9*, UPLOAD+6* |
| DIE | EN+2~ |
| DINUM | NEW+2~, NEW+11* |
| DLAYGO | NEW+10*, NEW+14!, UPLOAD+7*, UPLOAD+21! |
| DO | NEW+12!, UPLOAD+19! |
| DR | EN+2~, EN+3*, EN+5*, EN+6* |
| DUZ(2 | NEW+3, NEW+6, NEW+15, EN+10, PAR+3, PRMBLAMT+5, PRMBLAMT+6, PRMBLAMT+7, UPLOAD+3, UPLOAD+16 , UPLOAD+22 |
| I | NEW+3*, DSP+1~, DSP+3*, DSP+4*, PAY+5*, ADJ+5*, ADJ+7*, UPLOAD+3* |
| IOM | MSG+4, MSG+5 |
| U | DSP+4, PAR+3, PRMBLAMT+6, PRMBLAMT+7 |
| X | NEW+2~, NEW+3*, NEW+4, NEW+7*, NEW+11, EN+2~, EN+4*, EN+5*, NODE+1~, NODE+2* , ENODE+1, VALADJ+2~, VALADJ+5*, VALADJ+6, PAR+1~, PAR+2*, PAR+4*, PAR+5, PRMBLAMT+4*, PRMBLAMT+5 , PRMBLAMT+6, PRMBLAMT+7*, PRMBLAMT+8, MSG~, MSG+3, UPLOAD+2~, UPLOAD+3*, UPLOAD+4, UPLOAD+15*, UPLOAD+16 |
| XVAL | MSG+2~, MSG+3*, MSG+5 |
| Y | NEW+2~, NEW+16, EN+8, PAR+1~, PAR+3*, PAR+4, UPLOAD+2~, UPLOAD+23 |