FBAAIAR1 ;ALB/FA - FEE IPAC Vendor DoD Invoice Number Inquiry Report ;1/16/2014
Source file <FBAAIAR1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EP
; Main report entry point |
|
DODISEL(FBDODINV) | ; Ask for the DoD Invoice
; Input: None ; Output: FBDODINV - Selected DoD Invoice Number ; Returns: 1 - User quit out, 0 otherwise ; Called From: EN |
|
FORMAT(FBFORMAT) | ; Capture the report format from the user (normal or CSV output)
; Input: None ; Output: FBFORMAT - 1 - CSV Format, 0 otherwise ; Returns: 0 - User quit out, 1 otherwise ; Called From: EN |
|
DEVICE(FBDODINV,FBFORMAT) | ; Device Selection and Report compilation
; Input: FBDODINV - DoD invoice number to compile VistA invoices for ; FBFORMAT - 1 - CSV Format, 0 otherwise ; Output: Report is compiled if a device is selected ; Returns: 1 - User quit out, 0 otherwise ; Called From: EN |
|
COMPILE | ; Entry point for the compile to build the scratch global
; may be background task if job queued ; Input: FBDODINV - DoD Invoice number to use for selection ; FBFORMAT - 1 - CSV format, 0 otherwise ; Output: Report is compiled and output ; Called From: Report processing |
|
COMPOUT(FBDODINV) | ||
ROWDATAO(VNAME,PATIEN,VENIEN,IDTIEN,SVCIEN) | ||
GETTYPEO(PATIEN,VENIEN,IDTIEN,SVCIEN,INV0,INV2) | ; Determines if the invoice has been
; cancelled, rejected, purged or voided or some combination ; Input: PATIEN - Patient IEN ; VENIEN - Vendor IEN ; IDTIEN - Initial Treatment Date IEN ; SVCIEN - Service Provided IEN ; INV0 - 0 node of the outpatient invoice ; INV2 - 2 node of the outpatient invoice ; Returns: V - Voided ; C - Cancelled ; R - Rejected ; P - Purged ; "" - Otherwise ; or any combination of C/V/R/P ; Called From: ROWDATAO |
|
COMPIN(FBDODINV) | ||
GETTYPEI(INVIEN,INV0,INV2) | ; Determines if the inpatient invoice has been
; cancelled, rejected or voided or some combination ; Input: INVIEN - IEN of the inpatient invoice ; INV0 - 0 node of the inpatient invoice ; INV2 - 2 node of the inpatient invoice ; INV5 - 5 node of the inpatient invoice ; Returns: V - Voided ; C - Cancelled ; R - Rejected ; "" - Otherwise ; or any combination of C/V/R ; Called From: COMPIN |
|
COMPRX(FBDODINV) | ||
GETTYPEP(PHIEN,RXIEN,INV2,ITYPE) | ; Determines if the pharmacy invoice has any
; cancelled, rejected or voided prescriptions. ; Input: PHIEN - IEN of the pharmacy invoice ; RXIEN - Prescription IEN ; INV2 - 2 node of the pharmacy prescription invoice ; ITYPE - Current value for the pharmacy invoice ; Output: ITYPE - Updated value for the pharmacy invoice ; Called From: COMPRX |
|
TOTS(VNAME,TYPE,INVNUM,DATA) | ; Gather totals and other data for all invoices for
; the specified DoD invoice#. Update the scratch global with information ; Input: VNAME - Vendor Name ; TYPE - "OUT" - Outpatient Invoice ; "ANC" - Inpatient Ancillary Invoice ; "INP" - Inpatient Invoice ; "RX" - Pharmacy Invoice ; INVNUM - VistA Invoice Number ; DATA - ^TMP("FBAAIAR1",$J,VNAME,TYPE,INVNUM) ; ^TMP("FBAAIAR1",$J,VNAME) - Current DoD Invoice Vendor totals ; ^TMP("FBAAIAR1",$J,VNAME,TYPE) - Current Type totals ; Output: ^TMP("FBAAIAR1",$J,VNAME) - Updated DoD Invoice Vendor totals ; ^TMP("FBAAIAR1",$J,VNAME,TYPE) - Updated Type totals ; Called From: COMPIN, COMPOUT, COMPRX |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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) |
---|---|
^FBAA(162.1 - [#162.1] | COMPRX+10, COMPRX+13, COMPRX+19, COMPRX+21, COMPRX+22, GETTYPEP+8 |
^FBAAC - [#162] | ROWDATAO+13, ROWDATAO+14, ROWDATAO+15, GETTYPEO+17, GETTYPEO+18 |
^FBAAC("DODI" | COMPOUT+9, COMPOUT+13, COMPOUT+18, COMPOUT+22 |
^FBAAI - [#162.5] | COMPIN+11, COMPIN+12, COMPIN+13, GETTYPEI+14 |
^FBAAI("DODI" | COMPIN+9 |
^FBAAV - [#161.2] | COMPOUT+15, COMPIN+15, COMPRX+15 |
^TMP("FBAAIAR1" | COMPILE+7!, COMPILE+15!, ROWDATAO+26*, COMPIN+22*, COMPRX+34*, TOTS+16, TOTS+21*, TOTS+22, TOTS+27* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AMTA | COMPRX+6~, COMPRX+12*, COMPRX+28*, COMPRX+33 |
AMTC | COMPRX+6~, COMPRX+12*, COMPRX+26*, COMPRX+31 |
AMTP | COMPRX+6~, COMPRX+12*, COMPRX+27*, COMPRX+32 |
CURTOT | TOTS+15~, TOTS+16*, TOTS+17*, TOTS+18*, TOTS+19*, TOTS+20*, TOTS+21, TOTS+22*, TOTS+23*, TOTS+24* , TOTS+25*, TOTS+26*, TOTS+27 |
DATA | COMPOUT+6~, ROWDATAO+12~, ROWDATAO+20*, ROWDATAO+21*, ROWDATAO+22*, ROWDATAO+23*, ROWDATAO+24*, ROWDATAO+26, ROWDATAO+27, COMPIN+6~ , COMPIN+17*, COMPIN+18*, COMPIN+19*, COMPIN+20*, COMPIN+21*, COMPIN+22, COMPIN+23, COMPRX+6~, COMPRX+29*, COMPRX+30* , COMPRX+31*, COMPRX+32*, COMPRX+33*, COMPRX+34, COMPRX+35, TOTS~, TOTS+17, TOTS+18, TOTS+19, TOTS+23 , TOTS+24, TOTS+25 |
DATEP | COMPRX+6~, COMPRX+8*, COMPRX+25*, COMPRX+30 |
DIR | DODISEL+6~, DODISEL+16!, FORMAT+6~, FORMAT+16!, DEVICE+6~ |
DIR("?" | DODISEL+14*, DODISEL+15*, FORMAT+11*, FORMAT+12*, FORMAT+13*, FORMAT+14*, FORMAT+15* |
DIR("A" | DODISEL+13*, FORMAT+9* |
DIR("B" | FORMAT+10* |
DIR(0 | DODISEL+12*, FORMAT+8*, DEVICE+23* |
DIROUT | DODISEL+6~, FORMAT+6~ |
DIRUT | DODISEL+6~, DODISEL+17, FORMAT+6~, FORMAT+17 |
DTOUT | DODISEL+6~, FORMAT+6~ |
DUOUT | DODISEL+6~, FORMAT+6~ |
FBDODINV | EN+2~, EN+3, EN+5, DODISEL~, DODISEL+20*, DEVICE~, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+13 , COMPOUT~, COMPOUT+9, COMPOUT+13, COMPOUT+18, COMPOUT+22, COMPIN~, COMPIN+9, COMPRX~, COMPRX+10, COMPRX+19 |
FBFORMAT | EN+2~, EN+4, EN+5, FORMAT~, FORMAT+20*, DEVICE~, DEVICE+8, COMPILE+13 |
IDTIEN | COMPOUT+6~, COMPOUT+16*, COMPOUT+17, COMPOUT+18*, COMPOUT+19, COMPOUT+22, COMPOUT+26, ROWDATAO~, ROWDATAO+13, ROWDATAO+14 , ROWDATAO+15, ROWDATAO+20, ROWDATAO+25, GETTYPEO~, GETTYPEO+17 |
INIEN | COMPIN+6~, COMPIN+7*, COMPIN+8, COMPIN+9*, COMPIN+10, COMPIN+11, COMPIN+12, COMPIN+13, COMPIN+17 |
INV0 | ROWDATAO+12~, ROWDATAO+13*, ROWDATAO+16, ROWDATAO+17, ROWDATAO+20, ROWDATAO+21, ROWDATAO+22, ROWDATAO+23, ROWDATAO+24, GETTYPEO~ , GETTYPEO+20, COMPIN+6~, COMPIN+11*, COMPIN+14, COMPIN+16, COMPIN+17, COMPIN+19, COMPIN+20, COMPIN+21, GETTYPEI~ , GETTYPEI+16, COMPRX+6~, COMPRX+21*, COMPRX+26, COMPRX+27, COMPRX+28 |
INV2 | ROWDATAO+12~, ROWDATAO+14*, ROWDATAO+20, GETTYPEO~, GETTYPEO+19, COMPIN+6~, COMPIN+12*, COMPIN+17, COMPIN+18, GETTYPEI~ , GETTYPEI+15, COMPRX+6~, COMPRX+22*, COMPRX+23, COMPRX+24, GETTYPEP~, GETTYPEP+10, GETTYPEP+12 |
INV3 | ROWDATAO+12~, ROWDATAO+15* |
INV5 | COMPIN+6~, COMPIN+13* |
INVIEN | GETTYPEI~, GETTYPEI+14 |
INVNUM | ROWDATAO+12~, ROWDATAO+16*, ROWDATAO+26, ROWDATAO+27, COMPIN+6~, COMPIN+16*, COMPIN+22, COMPIN+23, COMPRX+6~, COMPRX+16* , COMPRX+34, COMPRX+35, TOTS~ |
IOF | DODISEL+8 |
ITYPE | ROWDATAO+17*, ROWDATAO+18*, ROWDATAO+19, COMPIN+6~, COMPRX+6~, GETTYPEP~, GETTYPEP+9*, GETTYPEP+11*, GETTYPEP+13* |
ITYPE2 | COMPRX+6~, COMPRX+8*, COMPRX+23, COMPRX+29 |
PATIEN | COMPOUT+6~, COMPOUT+7*, COMPOUT+8, COMPOUT+9*, COMPOUT+10, COMPOUT+13, COMPOUT+18, COMPOUT+22, COMPOUT+26, ROWDATAO~ , ROWDATAO+13, ROWDATAO+14, ROWDATAO+15, ROWDATAO+20, GETTYPEO~, GETTYPEO+17, GETTYPEO+18 |
PHIEN | COMPRX+7~, COMPRX+8*, COMPRX+9, COMPRX+10*, COMPRX+11, COMPRX+13, COMPRX+19, COMPRX+21, COMPRX+22, COMPRX+23 , GETTYPEP~, GETTYPEP+8 |
POP | DEVICE+6~, DEVICE+20 |
RET | DODISEL+6~, DODISEL+7*, DODISEL+18*, DODISEL+21, FORMAT+6~, FORMAT+7*, FORMAT+18*, FORMAT+21, DEVICE+6~, DEVICE+7* , DEVICE+20*, DEVICE+25 |
RXIEN | COMPRX+7~, COMPRX+17*, COMPRX+18, COMPRX+19*, COMPRX+20, COMPRX+21, COMPRX+22, COMPRX+23, GETTYPEP~, GETTYPEP+8 |
RXINV | COMPRX+7~, COMPRX+13*, COMPRX+14, COMPRX+16 |
SVCIEN | COMPOUT+6~, COMPOUT+20*, COMPOUT+21, COMPOUT+22*, COMPOUT+23, COMPOUT+26, ROWDATAO~, ROWDATAO+13, ROWDATAO+14, ROWDATAO+15 , ROWDATAO+20, ROWDATAO+25, GETTYPEO~, GETTYPEO+17 |
TYPE | ROWDATAO+12~, ROWDATAO+19*, ROWDATAO+26, ROWDATAO+27, TOTS~, TOTS+22, TOTS+27 |
U | COMPOUT+15, ROWDATAO+16, ROWDATAO+17, ROWDATAO+21, ROWDATAO+22, ROWDATAO+23, ROWDATAO+24, GETTYPEO+19, GETTYPEO+20, COMPIN+14 , COMPIN+15, COMPIN+16, COMPIN+18, COMPIN+19, COMPIN+20, COMPIN+21, GETTYPEI+15, GETTYPEI+16, COMPRX+14, COMPRX+15 , COMPRX+16, COMPRX+24, COMPRX+26, COMPRX+27, COMPRX+28, COMPRX+30, COMPRX+31, COMPRX+32, COMPRX+33, GETTYPEP+10 , GETTYPEP+12, TOTS+17, TOTS+18, TOTS+19, TOTS+20, TOTS+23, TOTS+24, TOTS+25, TOTS+26 |
VAL | GETTYPEO+15~, GETTYPEO+16*, GETTYPEO+17*, GETTYPEO+18*, GETTYPEO+19*, GETTYPEO+20*, GETTYPEO+21, GETTYPEI+12~, GETTYPEI+13*, GETTYPEI+14* , GETTYPEI+15*, GETTYPEI+16*, GETTYPEI+17 |
VENIEN | COMPOUT+6~, COMPOUT+11*, COMPOUT+12, COMPOUT+13*, COMPOUT+14, COMPOUT+15, COMPOUT+18, COMPOUT+22, COMPOUT+26, ROWDATAO~ , ROWDATAO+13, ROWDATAO+14, ROWDATAO+15, ROWDATAO+20, GETTYPEO~, GETTYPEO+17, GETTYPEO+18 |
VNAME | COMPOUT+6~, COMPOUT+15*, COMPOUT+26, ROWDATAO~, ROWDATAO+26, ROWDATAO+27, COMPIN+6~, COMPIN+15*, COMPIN+22, COMPIN+23 , COMPRX+7~, COMPRX+15*, COMPRX+34, COMPRX+35, TOTS~, TOTS+16, TOTS+21, TOTS+22, TOTS+27 |
X | DODISEL+6~, FORMAT+6~, DEVICE+6~ |
XX | ROWDATAO+12~, ROWDATAO+25*, ROWDATAO+26, COMPIN+6~, COMPIN+14*, COMPIN+15, COMPRX+7~, COMPRX+14*, COMPRX+15, COMPRX+24* , COMPRX+25 |
Y | DODISEL+6~, DODISEL+17, DODISEL+20, FORMAT+6~, FORMAT+20, DEVICE+6~ |
ZTDESC | DEVICE+6~, DEVICE+16*, DEVICE+19 |
>> ZTQUEUED | COMPILE+8, COMPILE+16 |
>> ZTREQ | COMPILE+16* |
ZTRTN | DEVICE+6~, DEVICE+15*, DEVICE+19 |
ZTSAVE | DEVICE+6~, DEVICE+19 |
ZTSAVE("FBDODINV" | DEVICE+17* |
ZTSAVE("FBFORMAT" | DEVICE+18* |
ZTSK | DEVICE+6~, DEVICE+21, DEVICE+22 |