©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
IBCORC ;ALB/CPM - RANK INSURANCE CARRIERS ; 30-JUN-93
Source file <IBCORC.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | DQ^IBCORC1 ($$DAT1,$$DAT2)^IBOUTL |
| Kernel | 2 | ^%ZIS ^%ZTLOAD |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 1 | IB OUTPUT RANK CARRIERS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point to generate ranking of insurance carriers by amount billed
|
|
| END | ||
| ENQ | ; Cleanup
|
|
| HLPN | ; Help for number of carriers to rank.
|
|
| PROD() | ; Is this the production account? Output: 1 - YES, 0 - NO
|
|
| START | ||
| NUM | ||
| HLPD1 | ; Help for Start date.
|
|
| HLPD2 | ; Help for End date.
|
|
| DEVICE | ; Select device for queueing/printing report
|
|
| HLPCO | ; Help for sending report to Central Office.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XMB("NETNAME" | PROD+1 |
| Name | Line Occurrences |
|---|---|
| $$PROD | NUM+4 |
| DEVICE | NUM+4 |
| ENQ | START+1, END+1, NUM+1, NUM+7, DEVICE+1, DEVICE+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEVICE+1* |
| DIR | START+1!, END+1!, NUM+1!, NUM+7! |
| DIR("?" | START*, END*, NUM*, NUM+6* |
| DIR("A" | START*, END*, NUM*, NUM+6* |
| DIR("B" | END*, NUM*, NUM+6* |
| DIR(0 | START*, END*, NUM*, NUM+6* |
| >> DIRUT | NUM+7 |
| DT | END |
| >> DUOUT | NUM+7 |
| I | DEVICE+4*, ENQ+1! |
| IBABEG | START+1*, ENQ+1!, HLPD2+4 |
| IBAEND | END+1*, ENQ+1! |
| IBFLG | NUM+4*, NUM+7*, ENQ+1! |
| IBNR | NUM+1*, ENQ+1! |
| IO | DEVICE+8 |
| IO("Q" | DEVICE+2, DEVICE+5! |
| >> POP | DEVICE+1 |
| X | PROD+1~*, PROD+2 |
| >> Y | START+1, END, END+1, NUM+1, NUM+7 |
| >> ZTDESC | DEVICE+3* |
| >> ZTRTN | DEVICE+3* |
| >> ZTSAVE( | DEVICE+4* |
| ZTSK | DEVICE+6, DEVICE+7! |