IBYPSK ;ALB/ARH - IB*2.0*370 POST INIT: RC V3.0 DELETE PROVIDER DISCOUNTS ; 01-FEB-2007
Source file <IBYPSK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;
|
|
| PDDEL | ; delete all RC Provider Discounts (except Zero Charge)
|
|
| PDDELQ | ||
| MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Name is found and piece P is true
|
|
| MSG(X) | ;
|
| FileNo | Call Tags |
|---|---|
| ^IBE(363.34 - [#363.34] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.1 - [#399.1] | MCCRUTL+2 |
| ^IBE(363.32 - [#363.32] | PDDEL+4 |
| ^IBE(363.34 - [#363.34] | PDDEL+7, PDDEL+8, PDDELQ+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PDDEL+1~, PDDEL+13*! |
| DIC | PDDEL+1~ |
| DIE | PDDEL+1~ |
| DIK | PDDEL+1~, PDDEL+13*! |
| IBA | POST+1~, POST+2!, POST+6!, PDDEL+1~, PDDELQ+1!, PDDELQ+4 |
| IBA( | MSG+2* |
| IBA(1 | POST+2*, POST+6*, PDDELQ+4* |
| IBA(2 | POST+2*, POST+6*, PDDELQ+4* |
| IBA(3 | POST+2*, POST+6* |
| IBA(999999 | MSG+1 |
| IBC | PDDEL+1~, PDDEL+2*, PDDEL+5*, PDDEL+15*, PDDELQ*, PDDELQ+3*, PDDELQ+4 |
| IBCNT | PDDEL+1~*, PDDEL+13*, PDDELQ |
| IBPD0 | PDDEL+1~, PDDEL+8*, PDDEL+10, PDDEL+11, PDDEL+15, PDDELQ+3* |
| IBPDFN | PDDEL+1~, PDDEL+7*, PDDEL+8, PDDEL+13 |
| IBSG | PDDEL+1~, PDDEL+4*, PDDEL+5, PDDEL+10 |
| IBX | MCCRUTL+1~, MCCRUTL+2*, MSG+1~*, MSG+2 |
| IBY | MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3 |
| P | MCCRUTL~, MCCRUTL+2 |
| U | PDDEL+10, PDDEL+11, PDDEL+15, MCCRUTL+2 |
| X | PDDEL+1~, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2 |
| Y | PDDEL+1~ |
