BAR50P10 ; IHS/SD/LSL - NEW REPORT ERA CLAIMS ;
Source file <BAR50P10.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS Accounts Receivable | 5 | ^BARDBQUE PAZ^BARRUTL $$UPC^BARUTL $$EN^BARVDF ^BARVKL0 | 
| IHS VA Utilities | 3 | ENP^XBDIQ1 $$DIR^XBDIR VIEWR^XBLM | 
| VA Fileman | 2 | $$GET1^DIQ ^DIR | 
| Registration | 1 | (CLEAR,FULL)^VALM1 | 
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Accounts Receivable | 2 | BAR50P00 BAR50PCS | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DISP | ; ; Display File and Check Choices for report | |
| STATUS | ; ; Select claim status for reports | |
| EN | ; EP | |
| XIT | ; | |
| BROWSE | ; ; Browse report to screen ; GET DEVICE (QUEUEING ALLOWED) | |
| ; ; Print report to device. Queuing allowed. | ||
| INIT | ; | |
| RPTYP | ; ; Select Report Type | |
| ASK | ; ; Ask Browse or Print | |
| PAD | ; ; Fixed undefined error in detail report. ; (Reported previously in IM17021.) | |
| SETHDR | ; ; Set up Report Header lines | 
| 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 | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^BARECHK - [#90056.22] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUTNINS - [#9999999.18] | SETHDR+15, SETHDR+17 | 
| ^BARAC( | SETHDR+13 | 
| ^BARCOL( | SETHDR+11 | 
| ^BARECHK - [#90056.22] | INIT+6, SETHDR+6, SETHDR+7 | 
| Name | Line Occurrences | 
|---|---|
| ASK | EN+10 | 
| BROWSE | EN+15 | 
| DISP | EN+1 | 
| INIT | EN+2 | 
| PAD | SETHDR+21, SETHDR+26, SETHDR+35, SETHDR+40, SETHDR+43, SETHDR+49, SETHDR+54, SETHDR+73 | 
| EN+16 | |
| RPTYP | EN+7 | 
| SETHDR | EN+14 | 
| STATUS | EN+4 | 
| XIT | EN+13, EN+18 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> BAR("HD" | SETHDR+19*, SETHDR+23*, SETHDR+28*, SETHDR+29*, SETHDR+31*, SETHDR+32*, SETHDR+36*, SETHDR+37*, SETHDR+41*, SETHDR+44* , SETHDR+50*, SETHDR+55*, SETHDR+59*, SETHDR+71, SETHDR+74*, SETHDR+75* | 
| >> BAR("LVL" | SETHDR+56*, SETHDR+76* | 
| >> BAR("PRIVACY" | INIT+3* | 
| BARAIEN | SETHDR+2!, SETHDR+11*, SETHDR+12, SETHDR+13 | 
| >> BARBAD | STATUS+8*, STATUS+26*, STATUS+27 | 
| >> BARCHK | DISP+5, SETHDR+23 | 
| >> BARCHK( | INIT+6* | 
| >> BARCHK(0 | SETHDR+9, SETHDR+10, SETHDR+11, SETHDR+27, SETHDR+28, SETHDR+29, SETHDR+31, SETHDR+36 | 
| >> BARCHK(2 | SETHDR+39, SETHDR+42, SETHDR+46, SETHDR+48, SETHDR+52*, SETHDR+53 | 
| >> BARCKIEN | INIT+6, SETHDR+6, SETHDR+7, SETHDR+33 | 
| >> BARCTYP | SETHDR+65*, SETHDR+68, SETHDR+75 | 
| >> BARDASH | INIT+4*, SETHDR+32, SETHDR+37 | 
| >> BARDONE | EN+3, INIT+2*, STATUS+17*, STATUS+18* | 
| BARIIEN | SETHDR+2!, SETHDR+13*, SETHDR+14, SETHDR+15, SETHDR+17 | 
| BARINDX | EN+3, EN+5, EN+11, STATUS+9!, STATUS+28* | 
| >> BARIOSL | BROWSE+4*, BROWSE+13 | 
| >> BARLCNT | SETHDR+45*, SETHDR+47*, SETHDR+50, SETHDR+51*, SETHDR+55, SETHDR+56, SETHDR+62*, SETHDR+63, SETHDR+64*, SETHDR+71 , SETHDR+74, SETHDR+75, SETHDR+76 | 
| >> BARMEDIA | EN+3, EN+6, EN+9, EN+11, EN+15, ASK+6* | 
| >> BARMEDIA("NAME" | ASK+7* | 
| BARPC | SETHDR+2!, SETHDR+8 | 
| BARPC( | SETHDR+7*, SETHDR+58, SETHDR+59, SETHDR+63, SETHDR+65, SETHDR+66*, SETHDR+67, SETHDR+69*, SETHDR+70*, SETHDR+75 | 
| BARPC(0 | SETHDR+57 | 
| BARPC(1 | SETHDR+9*, SETHDR+10*, SETHDR+12*, SETHDR+14*, SETHDR+15*, SETHDR+16*, SETHDR+17* | 
| BARPCIEN | SETHDR+2!, SETHDR+5*, SETHDR+6*, SETHDR+7 | 
| >> BARQ("NS" | PRINT+4* | 
| >> BARQ("RC" | PRINT+2* | 
| >> BARQ("RP" | PRINT+3* | 
| >> BARQ("RX" | PRINT+6* | 
| >> BARSTAR | INIT+5* | 
| >> BARTMP | SETHDR+20*, SETHDR+23, SETHDR+25*, SETHDR+28, SETHDR+29, SETHDR+33*, SETHDR+34*, SETHDR+36, SETHDR+39*, SETHDR+41 , SETHDR+42*, SETHDR+44, SETHDR+48*, SETHDR+50, SETHDR+53*, SETHDR+55, SETHDR+67*, SETHDR+69, SETHDR+70, SETHDR+72* , SETHDR+74, PAD+5, PAD+7* | 
| BARTYP | EN+3, EN+6, EN+8, EN+11, RPTYP+3!, RPTYP+10* | 
| BARTYP("NAME" | RPTYP+11*, SETHDR+19 | 
| >> BARZ("C" | INIT+7*, INIT+8* | 
| >> BARZ("E" | INIT+20*, INIT+21* | 
| >> BARZ("M" | INIT+11*, INIT+12* | 
| >> BARZ("N" | INIT+13*, INIT+14* | 
| >> BARZ("P" | INIT+9*, INIT+10* | 
| >> BARZ("R" | INIT+17*, INIT+18* | 
| >> BARZ("W" | INIT+24*, INIT+25* | 
| >> BARZ("X" | INIT+15*, INIT+16* | 
| DA | ASK+4! | 
| DIR | STATUS+9!, STATUS+13!, RPTYP+3!, RPTYP+7!, ASK+2! | 
| DIR("A" | RPTYP+5* | 
| DIR(0 | STATUS+11*, RPTYP+4* | 
| DIRUT | EN+9, ASK+2!, ASK+5 | 
| >> DTOUT | RPTYP+8 | 
| >> DUOUT | RPTYP+8 | 
| DUZ(2 | SETHDR+11, SETHDR+13 | 
| I | INIT+6*, STATUS+24*, SETHDR+57*, SETHDR+58, SETHDR+59, SETHDR+60!, SETHDR+61*, SETHDR+63*, SETHDR+65, SETHDR+66 , SETHDR+67, SETHDR+69, SETHDR+70, SETHDR+75, PAD+4~, PAD+7* | 
| IMP | DISP+2! | 
| IMP( | DISP+4, DISP+5, SETHDR+20, SETHDR+31 | 
| >> IMPDA | DISP+3 | 
| IOF | DISP+4 | 
| IOSL | BROWSE+4, BROWSE+5*, BROWSE+13* | 
| J | SETHDR+60! | 
| K | SETHDR+60! | 
| L | PAD+4~, PAD+5*, PAD+7 | 
| U | SETHDR+9, SETHDR+10, SETHDR+11, SETHDR+13, SETHDR+15, SETHDR+17, SETHDR+27, SETHDR+28, SETHDR+29, SETHDR+31 , SETHDR+36, SETHDR+39, SETHDR+42, SETHDR+46, SETHDR+48, SETHDR+52, SETHDR+53, SETHDR+59, SETHDR+65, SETHDR+66 , SETHDR+67, SETHDR+69, SETHDR+70, SETHDR+75 | 
| VALM | BROWSE+10! | 
| VALMAR | BROWSE+10! | 
| VALMBCK | BROWSE+10! | 
| VALMBG | BROWSE+10! | 
| VALMCAP | BROWSE+10! | 
| VALMCNT | BROWSE+10! | 
| VALMCOFF | BROWSE+12! | 
| VALMCON | BROWSE+11! | 
| VALMDN | BROWSE+11! | 
| VALMEVL | BROWSE+11! | 
| VALMIOXY | BROWSE+11! | 
| VALMKEY | BROWSE+10! | 
| VALMLFT | BROWSE+11! | 
| VALMLST | BROWSE+11! | 
| VALMMENU | BROWSE+11! | 
| VALMOFF | BROWSE+10! | 
| VALMSGR | BROWSE+11! | 
| VALMUP | BROWSE+11! | 
| VALMY | BROWSE+12! | 
| >> XBFLD("BROWSE" | BROWSE+3* | 
| XQORNEST | BROWSE+10! | 
| XQORS | BROWSE+12! | 
| XQORSPEW | BROWSE+12! | 
| Y | STATUS+14*, STATUS+15, STATUS+18, STATUS+21*, STATUS+24, STATUS+25, STATUS+28, RPTYP+9, RPTYP+10, ASK+2! , ASK+3*, ASK+6 | 
| Y(0 | RPTYP+11, ASK+7 | 
| >> Z | STATUS+20*, STATUS+21, STATUS+23*, STATUS+24 | 
| >> ZTSAVE("IMPDA" | PRINT+5* |