FBAAIAR ;ALB/ESG - FEE IPAC Vendor DoD Invoice (Summary) Report ;1/16/2014
Source file <FBAAIAR.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 | ; main report entry point
|
|
P1 | ||
P2 | ||
P3 | ||
P4 | ||
P5 | ||
EX | ; main report exit point
|
|
STOP() | ; Determine if user wants to exit out of the option entirely
; 1=yes, get out entirely ; 0=no, just go back to the previous question |
|
VENDSEL(FBIAVEN) | ; user selection function for IPAC vendors
; FBIAVEN is an output array, pass by reference ; FBIAVEN(vendor ien) = vendor name selected ; Function value is 1 if at least 1 vendor was selected, 0 otherwise |
|
DATES(FBIABEG,FBIAEND) | ; capture the start date and end date from the user
; both are output parameters, pass by reference ; function value is 0/1 indicating if valid dates were selected |
|
DATEX | ;
|
|
TYPESEL(FBIATYPE) | ; function for user selection of the types of invoices to search
; FBIATYPE is an output array, pass by reference ; FBIATYPE(type)="" where type can be OUT,RX,INP,ANC ; Function value is 1 if at least 1 invoice type was selected, 0 otherwise |
|
FORMAT(FBIAEXCEL) | ; capture the report format from the user (normal or CSV output)
; FBIAEXCEL=0 for normal output ; FBIAEXCEL=1 for CSV (comma separated values) for Excel output ; pass parameter by reference |
|
DEVICE() | ; Device Selection
|
|
COMPILE | ; entry point for the compile to build the scratch global
; may be background task if job queued |
|
COMPILX | ;
|
|
COMPOUT | ; compile Outpatient and Ancillary data
|
|
COMPOUTX | ;
|
|
COMPIN | ; compile Inpatient data
|
|
COMPINX | ;
|
|
GET(FBVENAME,FBDODINV) | ; gather totals and other data for all Fee line items for the given vendor and DoD invoice#
; update the established scratch global with information |
|
GETX | ;
|
|
CKMLT(VAL,VALPCE,MLTPCE,NOVPCE) | ; check for multiple/missing data values
; Variable FBDISGD is assumed to contain the contents of the scratch global ; VAL - value from the payment file to check ; VALPCE - piece# from the scratch global to check for multiple values ; MLTPCE - piece# of the scratch global to set if multiple values found ; NOVPCE - piece# of the scratch global to set if no data exists in VAL (optional) |
Name | Field # of Occurrence |
---|---|
^%ZISC | COMPILE+10 |
^DIR | STOP+11, DATES+14, DATES+24, TYPESEL+20, FORMAT+15, DEVICE+18 |
COMPRX^FBAAIARA | COMPILE+7 |
PRINT^FBAAIARA | COMPILE+9 |
FIRST^VAUTOMA | VENDSEL+18 |
$$FMADD^XLFDT | DATES+10 |
$$FMTE^XLFDT | DATES+10, DATES+20 |
$$LJ^XLFSTR | TYPESEL+11, TYPESEL+12, TYPESEL+13, TYPESEL+14 |
EN^XUTMDEVQ | DEVICE+16 |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^FBAAV - [#161.2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^FBAA(161.7 - [#161.7] | COMPOUT+27, COMPOUT+28, COMPIN+21, COMPIN+22, GET+28, GET+29, GET+50, GET+51, GET+72, GET+73 |
^FBAA(161.95 - [#161.95] | VENDSEL+19 |
^FBAA(162.1 - [#162.1] | GET+57, GET+58, GET+59, GET+60, GET+67 |
^FBAAC - [#162] | COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18, GET+14, GET+15, GET+16, GET+23 |
^FBAAC("AK" | COMPOUT+3, COMPOUT+4, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11 |
^FBAAC("DODI" | GET+13 |
^FBAAI - [#162.5] | COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8, GET+36, GET+37, GET+38, GET+45 |
^FBAAI("AD" | COMPIN+3, COMPIN+4 |
^FBAAI("DODI" | GET+35 |
^FBAAV - [#161.2] | VENDSEL+19, COMPOUT+8, COMPOUT+9, COMPIN+12, COMPIN+13 |
^TMP("FBAAIAR" | COMPILE+3!, COMPILE+11!, COMPOUT+20, COMPOUT+31*, COMPIN+14, COMPIN+25*, GET+9, GET+10, GET+83*, GET+91* |
Name | Line Occurrences |
---|---|
$$DATES | P2 |
$$DEVICE | P5 |
$$FORMAT | P4 |
$$STOP | P2, P3, P4, P5 |
$$TYPESEL | P3 |
$$VENDSEL | P1 |
CKMLT | GET+27, GET+28, GET+29, GET+30, GET+31, GET+49, GET+50, GET+51, GET+52, GET+53 , GET+71, GET+72, GET+73, GET+74, GET+75 |
COMPIN | COMPILE+6 |
COMPOUT | COMPILE+5 |
DATEX | DATES+15, DATES+25 |
EX | P1, P2, P3, P4, P5 |
GET | COMPOUT+32, COMPIN+26 |
GETX | GET+5, GET+6 |
P1 | P2 |
P2 | P3 |
P3 | P4 |
P4 | P5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADJTOT | GET+3~, GET+8*, GET+23*, GET+45*, GET+67*, GET+81, GET+89 |
CLAIMED | GET+3~, GET+8*, GET+20*, GET+42*, GET+64*, GET+79, GET+87 |
DATA | COMPOUT+2~, COMPOUT+25*, COMPOUT+26*, COMPOUT+27*, COMPOUT+28*, COMPOUT+29*, COMPOUT+30*, COMPOUT+31, COMPIN+2~, COMPIN+19* , COMPIN+20*, COMPIN+21*, COMPIN+22*, COMPIN+23*, COMPIN+24*, COMPIN+25 |
DIC | VENDSEL+5~, VENDSEL+15* |
DIC("S" | VENDSEL+16* |
DIR | STOP+4~, STOP+11!, DATES+4~, DATES+14!, DATES+24!, TYPESEL+5~, TYPESEL+20!, FORMAT+5~, FORMAT+15!, DEVICE+1~ |
DIR("?" | STOP+9*, STOP+10*, DATES+11*, DATES+12*, DATES+13*, DATES+21*, DATES+22*, DATES+23*, FORMAT+10*, FORMAT+11* , FORMAT+12*, FORMAT+13*, FORMAT+14* |
DIR("A" | STOP+7*, DATES+9*, DATES+19*, TYPESEL+18*, TYPESEL+19*, FORMAT+8* |
DIR("B" | STOP+8*, DATES+10*, DATES+20*, TYPESEL+18*, TYPESEL+19!, FORMAT+9* |
DIR(0 | STOP+6*, DATES+8*, DATES+18*, TYPESEL+10*, TYPESEL+16*, FORMAT+7*, DEVICE+18* |
DIROUT | STOP+4~, DATES+4~, TYPESEL+5~, FORMAT+5~ |
DIRUT | STOP+4~, STOP+12, DATES+4~, DATES+15, DATES+25, TYPESEL+5~, TYPESEL+9, TYPESEL+25, FORMAT+5~, FORMAT+16 |
DISBURSED | GET+3~, GET+8*, GET+22*, GET+44*, GET+66*, GET+82, GET+90 |
DT | DATES+10, DATES+20 |
DTOUT | STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, FORMAT+5~ |
DUOUT | STOP+4~, DATES+4~, TYPESEL+5~, TYPESEL+30, FORMAT+5~ |
FBDISGD | GET+3~, GET+9*, GET+79*, GET+80*, GET+81*, GET+82*, GET+83, CKMLT+7*, CKMLT+8* |
FBDODINV | COMPOUT+2~, COMPOUT+19*, COMPOUT+20, COMPOUT+31, COMPOUT+32, COMPIN+2~, COMPIN+9*, COMPIN+14, COMPIN+25, COMPIN+26 , GET~, GET+6, GET+9, GET+13, GET+35, GET+57, GET+83 |
FBDT | COMPOUT+2~, COMPOUT+3*, COMPOUT+4*, COMPOUT+5, COMPOUT+6, COMPOUT+10, COMPOUT+11, COMPOUT+25, COMPIN+2~, COMPIN+3* , COMPIN+4*, COMPIN+19 |
FBG0 | GET+3~, GET+14*, GET+18, GET+20, GET+21, GET+27, GET+28, GET+29, GET+30, GET+36* , GET+40, GET+42, GET+43, GET+49, GET+50, GET+51, GET+58*, GET+64, GET+65, GET+72 , GET+73 |
FBG2 | GET+3~, GET+15*, GET+17, GET+22, GET+31, GET+37*, GET+39, GET+44, GET+52, GET+53 , GET+59*, GET+61, GET+62, GET+66, GET+74, GET+75 |
FBGREJ | GET+3~, GET+16*, GET+19, GET+38*, GET+41, GET+60*, GET+63 |
FBIABEG | EN+2~, P2, DATES~, DATES+6*, DATES+16*, DATES+18, COMPOUT+3, COMPIN+3 |
FBIAEND | EN+2~, P2, DATES~, DATES+6*, DATES+26*, COMPOUT+4, COMPIN+4 |
FBIAEXCEL | EN+2~, P4, FORMAT~, FORMAT+6*, FORMAT+17*, DEVICE+3, DEVICE+4 |
FBIATYPE | EN+2~, P3, TYPESEL~, TYPESEL+6!, TYPESEL+18, TYPESEL+31 |
FBIATYPE( | TYPESEL+23*, TYPESEL+26!, TYPESEL+27* |
FBIATYPE("ANC" | TYPESEL+14, COMPILE+5, COMPOUT+15 |
FBIATYPE("INP" | TYPESEL+13, COMPILE+6 |
FBIATYPE("OUT" | TYPESEL+11, COMPILE+5, COMPOUT+14 |
FBIATYPE("RX" | TYPESEL+12, COMPILE+7 |
FBIAVEN | EN+2~, P1, VENDSEL~, VENDSEL+6!, VENDSEL+19 |
FBIAVEN( | VENDSEL+19*, COMPOUT+7, COMPIN+11 |
FBIAVEN(0 | VENDSEL+20 |
FBJ | COMPOUT+2~, COMPOUT+5*, COMPOUT+6, COMPOUT+10, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18, COMPIN+2~ , COMPIN+4*, COMPIN+5, COMPIN+6, COMPIN+7, COMPIN+8 |
FBK | COMPOUT+2~, COMPOUT+6*, COMPOUT+7, COMPOUT+8, COMPOUT+9, COMPOUT+10, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17 , COMPOUT+18, COMPOUT+25 |
FBL | COMPOUT+2~, COMPOUT+10*, COMPOUT+11, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18 |
FBM | COMPOUT+2~, COMPOUT+11*, COMPOUT+12, COMPOUT+16, COMPOUT+17, COMPOUT+18 |
FBTT | GET+3~, GET+10*, GET+86*, GET+87*, GET+88*, GET+89*, GET+90*, GET+91 |
FBV | COMPIN+2~, COMPIN+10*, COMPIN+11, COMPIN+12, COMPIN+13, COMPIN+19 |
FBVENAME | COMPOUT+2~, COMPOUT+8*, COMPOUT+20, COMPOUT+31, COMPOUT+32, COMPIN+2~, COMPIN+12*, COMPIN+14, COMPIN+25, COMPIN+26 , GET~, GET+5, GET+9, GET+10, GET+83, GET+91 |
FBVENID | COMPOUT+2~, COMPOUT+9*, COMPOUT+25, COMPIN+2~, COMPIN+13*, COMPIN+19 |
FBY0 | COMPOUT+2~, COMPOUT+12*, COMPOUT+13, COMPOUT+22, COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPIN+2~, COMPIN+5* , COMPIN+10, COMPIN+16, COMPIN+20, COMPIN+21, COMPIN+22 |
FBY2 | COMPOUT+2~, COMPOUT+16*, COMPOUT+21, COMPOUT+30, COMPIN+2~, COMPIN+6*, COMPIN+15, COMPIN+23, COMPIN+24 |
FBY3 | COMPOUT+2~, COMPOUT+17*, COMPOUT+19 |
FBY5 | COMPIN+2~, COMPIN+7*, COMPIN+9 |
FBYREJ | COMPOUT+2~, COMPOUT+18*, COMPOUT+23, COMPIN+2~, COMPIN+8*, COMPIN+17 |
FD | TYPESEL+5~, TYPESEL+11*, TYPESEL+12*, TYPESEL+13*, TYPESEL+14*, TYPESEL+15*, TYPESEL+16 |
FEEPROG | COMPOUT+2~, COMPOUT+13*, COMPOUT+14, COMPOUT+15 |
G | TYPESEL+5~, TYPESEL+23* |
IOF | VENDSEL+9 |
K | GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23, GET+35*, GET+36, GET+37, GET+38 , GET+45, GET+57*, GET+58, GET+59, GET+60, GET+67, GET+71 |
L | GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23, GET+57*, GET+58, GET+59, GET+60 , GET+67 |
M | GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23 |
MLTPCE | CKMLT~, CKMLT+7 |
N | GET+3~, GET+13*, GET+14, GET+15, GET+16, GET+23 |
NOVPCE | CKMLT~, CKMLT+8 |
P | GET+3~, GET+23*, GET+45*, GET+67* |
PAID | GET+3~, GET+8*, GET+21*, GET+43*, GET+65*, GET+80, GET+88 |
POP | DEVICE+1~, DEVICE+17 |
RET | VENDSEL+5~, VENDSEL+7*, VENDSEL+20*, VENDSEL+21, DATES+4~, DATES+5*, DATES+15*, DATES+25*, DATEX+1, TYPESEL+5~ , TYPESEL+7*, TYPESEL+30*, TYPESEL+31*, TYPESEL+32, FORMAT+5~, FORMAT+6*, FORMAT+16*, FORMAT+18, DEVICE+1~, DEVICE+2* , DEVICE+17*, DEVICE+19 |
U | VENDSEL+19, TYPESEL+16, COMPOUT+8, COMPOUT+9, COMPOUT+13, COMPOUT+19, COMPOUT+21, COMPOUT+22, COMPOUT+23, COMPOUT+25 , COMPOUT+26, COMPOUT+27, COMPOUT+28, COMPOUT+29, COMPOUT+30, COMPIN+9, COMPIN+10, COMPIN+12, COMPIN+13, COMPIN+15 , COMPIN+16, COMPIN+17, COMPIN+19, COMPIN+20, COMPIN+21, COMPIN+22, COMPIN+23, COMPIN+24, GET+17, GET+18 , GET+19, GET+20, GET+21, GET+22, GET+23, GET+27, GET+28, GET+29, GET+30, GET+31 , GET+39, GET+40, GET+41, GET+42, GET+43, GET+44, GET+45, GET+49, GET+50, GET+51 , GET+52, GET+53, GET+61, GET+62, GET+63, GET+64, GET+65, GET+66, GET+67, GET+72 , GET+73, GET+74, GET+75, GET+79, GET+80, GET+81, GET+82, GET+86, GET+87, GET+88 , GET+89, GET+90, CKMLT+7, CKMLT+8 |
V | VENDSEL+5~, VENDSEL+19* |
VAL | CKMLT~, CKMLT+7, CKMLT+8 |
VALPCE | CKMLT~, CKMLT+7 |
VAUTNI | VENDSEL+5~, VENDSEL+17* |
VAUTSTR | VENDSEL+5~, VENDSEL+17* |
VAUTVB | VENDSEL+5~, VENDSEL+17* |
X | STOP+4~, VENDSEL+5~, DATES+4~, TYPESEL+5~, FORMAT+5~, DEVICE+1~ |
Y | STOP+4~, STOP+12*, STOP+13, VENDSEL+5~, DATES+4~, DATES+15, DATES+16, DATES+25, DATES+26, TYPESEL+5~ , TYPESEL+9, TYPESEL+22, TYPESEL+25, TYPESEL+26, TYPESEL+27, FORMAT+5~, FORMAT+17, DEVICE+1~ |
ZTDESC | DEVICE+1~, DEVICE+10*, DEVICE+16 |
>> ZTQUEUED | COMPILE+4, COMPILE+12 |
>> ZTREQ | COMPILE+12* |
ZTRTN | DEVICE+1~, DEVICE+9*, DEVICE+16 |
ZTSAVE | DEVICE+1~, DEVICE+16 |
ZTSAVE("FBIABEG" | DEVICE+12* |
ZTSAVE("FBIAEND" | DEVICE+13* |
ZTSAVE("FBIAEXCEL" | DEVICE+15* |
ZTSAVE("FBIATYPE(" | DEVICE+14* |
ZTSAVE("FBIAVEN(" | DEVICE+11* |
ZTSK | DEVICE+1~, DEVICE+18 |