©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
IBCORC1 ;ALB/CPM - RANK INSURANCE CARRIERS (COMPILE/PRINT) ; 30-JUN-93
Source file <IBCORC1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | BULL^IBCORC2 $$DAT1^IBOUTL |
| VA Fileman | 2 | (C,COMMA)^%DTC ^DIR |
| IFCAP | 1 | $$ORI^PRCAFN |
| Kernel | 1 | ^%ZISC |
| Registration | 1 | $$SITE^VASITE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EVALQ | ||
| ENQ1 | ||
| HDR | ; Display report header.
|
|
| ENQ | ||
| DASH() | ; Write dashed line.
|
|
| PAUSE | ; Pause for screen output.
|
|
| EVAL | ; Accumulate amount billed for the carrier if the bill type is correct.
|
|
| INSDIS(X) | ; Display Insurance Company name and address.
|
|
| START(X1,X2) | ; Return the Start Date for the search, less one day.
|
|
| DQ | ; Tasked entry point to generate and print the rankings.
|
| Name | Line Occurrences |
|---|---|
| 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) |
|---|---|
| ^DGCR(399 - [#399] | DQ+4, DQ+5, EVAL+1 |
| ^DIC(36 - [#36] | DQ+16 |
| ^DIC(5 - [#5] | INSDIS+7 |
| ^TMP("IBORIC" | DQ+8*, DQ+12, DQ+13, ENQ!, EVAL+7 |
| Name | Line Occurrences |
|---|---|
| $$DASH | HDR+9 |
| $$START | DQ+3 |
| ENQ | DQ+21, DQ+24 |
| ENQ1 | DQ+3 |
| EVAL | DQ+5 |
| EVALQ | EVAL+2, EVAL+3, EVAL+4, EVAL+5, EVAL+6 |
| HDR | DQ+11, DQ+17, DQ+24 |
| INSDIS | DQ+20 |
| PAUSE | DQ+17, DQ+24, DQ+26 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DQ+8, DQ+16, EVAL+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %H | START+1~ |
| DIR | ENQ+3!, PAUSE+2~ |
| DIR(0 | PAUSE+4* |
| DIROUT | ENQ+3!, PAUSE+2~ |
| DIRUT | ENQ+3!, PAUSE+2~, PAUSE+4 |
| DT | HDR+7 |
| DTOUT | ENQ+3!, PAUSE+2~ |
| DUOUT | ENQ+3!, PAUSE+2~, PAUSE+4 |
| >> IBABEG | DQ+3, HDR+8 |
| >> IBAEND | DQ+4, HDR+8 |
| IBAMT | DQ+11*, DQ+12*, DQ+13, DQ+15, ENQ+3!, EVAL+6*, EVAL+7 |
| IBAMTP | DQ+15*, DQ+19, ENQ+3! |
| IBCNT | DQ+11*, DQ+12, DQ+13, DQ+14*, DQ+18, ENQ+4! |
| IBDT | DQ+3*, DQ+4*, DQ+5, ENQ+4! |
| >> IBFLG | DQ+27 |
| IBI | ENQ+3!, EVAL+1*, PAUSE+2~, PAUSE+3* |
| IBINS | DQ+8*, DQ+13*, DQ+16, ENQ+4!, EVAL+4*, EVAL+7 |
| IBINS0 | DQ+16*, DQ+18, ENQ+3! |
| IBINSA | DQ+16*, DQ+20, ENQ+3! |
| IBN | DQ+5*, ENQ+4!, EVAL+1, EVAL+6 |
| IBND | ENQ+4! |
| IBND( | EVAL+1* |
| IBND("M" | EVAL+4 |
| IBND("S" | EVAL+5 |
| IBND(0 | EVAL+2, EVAL+3 |
| IBNR | DQ+12, DQ+13, DQ+14, ENQ+4!, HDR+2 |
| IBPAG | DQ+11*, ENQ+4!, HDR+4, HDR+5*, HDR+8 |
| IBQ | DQ+11*, DQ+12, DQ+13, DQ+17, DQ+21, DQ+24, ENQ+4!, PAUSE+4* |
| IBTAMT | DQ+11*, DQ+15*, DQ+25, ENQ+4! |
| IOF | HDR+4 |
| IOSL | DQ+17, DQ+24, PAUSE+3 |
| IOST | PAUSE+1, HDR+4 |
| X | DQ+19*, DQ+25*, ENQ+4!, HDR+1~, HDR+2*, HDR+6, INSDIS~, INSDIS+2, INSDIS+3, INSDIS+4 , INSDIS+5, INSDIS+6, INSDIS+7, INSDIS+8, INSDIS+9, START+1~, START+2 |
| X1 | ENQ+4!, START~ |
| X2 | DQ+19*, DQ+25*, ENQ+4!, START~ |
| X3 | DQ+19*, DQ+25*, ENQ+4! |
| Y | ENQ+4!, HDR+1~, HDR+3*, HDR+7 |
| >> ZTQUEUED | ENQ+1 |
| >> ZTREQ | ENQ+1* |