IBCRHRS ;ALB/ARH - RATES: UPLOAD (RC) CHANGE SITE TYPE OPTION ; 25-JAN-13
Source file <IBCRHRS.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 |
|---|---|---|
| OPTION | ; Option entry Change Reasonable Charge Facility Type
|
|
| OPTIONQ | ;
|
|
| XTMPKL | ; delete any existing RC Upload Files in XTMP
|
|
| XTMPHL(VERS) | ; load version of RC Host Files IBCR RC into XTMP (IBCRHBS1)
|
|
| XTMPHLQ | ||
| XTMPDT(VSDT,NWDT) | ; update calculated charges IBCR UPLOAD effective date in XTMP, returns count changed
|
|
| XTMPDTQ | ||
| CMINDT(CMRG,VSDT,NWDT) | ; inactivate existing charges for selected Billing Region in Charge Master (#363.2)
|
|
| CMINDTQ | ||
| CMRGFT(CMRG,NWFT) | ; change the Billing Regions Facility Type in the Charge Master (#363.31,.03)
|
|
| CMLOAD | ; load charges into Charge Master
; queuing is not allowed to ensure the modified files are used and ; process completes fully. |
|
| ASKCMRG() | ; ask user for Billing Region (#363.31), return Billing Region ifn ^ name ^ div/site ^ id/zip ^ chg type
|
|
| GETHFRG(CMRG) | ; get the Host File Site of Region selection, return IBCR RC SITE ifn ^ div/site ^ site name ^ id/zip ^ chg type
|
|
| ASKNWFT(HFRG) | ; determine/confirm from user the Facility Type Change based on the current Host File setting
|
|
| ASKNWDT() | ; ask the user for the effective date of the change, return date or 0
|
|
| ASKFNL(CMRG,NWDT,NWFT) | ; ask user if they really want to make the change, return true if yes
|
|
| CHECK(VERS,VSDT,NWDT,CMRG,HFRG,NWFT) | ; check the inputs to determine if change is ok
|
|
| CHECKQ |
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | CMLOAD+8 |
| ^DIC | ASKCMRG+4 |
| ^DIE | CMINDT+19, CMRGFT+5 |
| ^DIR | OPTION+17, ASKNWFT+9, ASKNWFT+18, ASKNWDT+7, ASKFNL+14 |
| $$VERSDT^IBCRHBRV | OPTION+21 |
| $$VERSION^IBCRHBRV | CHECK+3 |
| $$VERSITE^IBCRHBRV | CHECK+32 |
| $$VERSTR^IBCRHBRV | OPTION+20 |
| FILES^IBCRHBRV | XTMPHL+5 |
| $$FNDHOST^IBCRHBS1 | XTMPHL+6 |
| $$PATH^IBCRHBS1 | XTMPHL+4 |
| $$LOAD^IBCRHBS2 | XTMPHL+11 |
| CALCRC^IBCRHBS5 | OPTION+39 |
| RPT^IBCRHO | CMLOAD+10 |
| $$FMADD^XLFDT | CMINDT+5, ASKFNL+9 |
| $$FMTE^XLFDT | XTMPDT+6, CMINDT+7, ASKFNL+9, ASKFNL+10, CHECK+27, CHECK+30 |
| 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 |
|
| 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 |
|
| 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 |
|
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(363.2 - [#363.2] | Classic Fileman Calls |
| ^IBE(363.31 - [#363.31] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | ASKCMRG+10, ASKFNL+7 |
| ^IBA(363.2 - [#363.2] | CMINDT+14, CMINDT+15, CMINDT+16 |
| ^IBE(363.1 - [#363.1] | CMINDT+9, CMINDT+10 |
| ^IBE(363.3 - [#363.3] | CMINDT+11 |
| ^IBE(363.31 - [#363.31] | CMINDT+3, CMRGFT+2, ASKCMRG+9, ASKCMRG+10, ASKFNL+6, ASKFNL+7, CHECK+39 |
| ^XTMP( | XTMPKL+3!, XTMPKL+4!, XTMPDT+4, XTMPDT+7, XTMPDT+10, XTMPDT+11, XTMPDT+12, XTMPDT+15*, XTMPDTQ |
| ^XTMP("IBCR RC SITE" | GETHFRG+3 |
| Name | Line Occurrences |
|---|---|
| $$ASKCMRG | OPTION+30 |
| $$ASKFNL | OPTION+44 |
| $$ASKNWDT | OPTION+33 |
| $$ASKNWFT | OPTION+32 |
| $$CHECK | OPTION+34 |
| $$CMINDT | OPTION+48 |
| $$GETHFRG | OPTION+31 |
| $$XTMPDT | OPTION+40 |
| $$XTMPHL | OPTION+26 |
| CHECKQ | CHECK+3, CHECK+6, CHECK+10, CHECK+14, CHECK+18, CHECK+22, CHECK+26, CHECK+33, CHECK+40 |
| CMINDTQ | CMINDT+2, CMINDT+3 |
| CMLOAD | OPTION+51 |
| CMRGFT | OPTION+50 |
| OPTIONQ | OPTION+20, OPTION+21, OPTION+26, OPTION+30, OPTION+31, OPTION+32, OPTION+33, OPTION+34, OPTION+40, OPTION+44 , OPTION+48 |
| XTMPDTQ | XTMPDT+2, XTMPDT+4 |
| XTMPHLQ | XTMPHL+1, XTMPHL+4, XTMPHL+6 |
| XTMPKL | OPTION+25, OPTIONQ+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | CMLOAD+8* |
| >> %ZIS("A" | CMLOAD+8* |
| ADD | CMLOAD+4~, CMLOAD+10* |
| CMRG | CMINDT~, CMINDT+3, CMINDT+7, CMINDT+10, CMRGFT~, CMRGFT+2, CMRGFT+5, CMRGFT+7, GETHFRG~, GETHFRG+2 , GETHFRG+6, ASKFNL~, ASKFNL+5, ASKFNL+6, CHECK~, CHECK+6, CHECK+10, CHECK+14, CHECK+34, CHECK+39 , CHECK+41 |
| DA | CMINDT+1~, CMINDT+19*, CMRGFT+1~, CMRGFT+5* |
| DD | CMINDT+1~, CMRGFT+1~ |
| DIC | CMINDT+1~, CMINDT+19!, CMRGFT+1~, ASKCMRG+1~, ASKCMRG+4* |
| DIC("A" | ASKCMRG+4* |
| DIC("S" | ASKCMRG+3* |
| DIC(0 | ASKCMRG+4* |
| DIE | CMINDT+1~, CMINDT+19*, CMRGFT+1~, CMRGFT+5* |
| DIR | OPTION+17!, ASKNWFT+1~, ASKNWDT+1~, ASKFNL+1~ |
| DIR("?" | ASKNWFT+7*, ASKNWFT+14*, ASKNWFT+15*, ASKNWFT+16*, ASKNWDT+2*, ASKNWDT+3*, ASKNWDT+4*, ASKNWDT+5*, ASKFNL+12* |
| DIR("A" | OPTION+17*, ASKNWFT+8*, ASKNWFT+17*, ASKNWDT+6*, ASKFNL+13* |
| DIR(0 | OPTION+17*, ASKNWFT+9*, ASKNWFT+18*, ASKNWDT+7*, ASKFNL+14* |
| DLAYGO | CMINDT+1~, CMRGFT+1~ |
| DO | CMINDT+1~, CMRGFT+1~ |
| DR | CMINDT+1~, CMINDT+19*, CMRGFT+1~, CMRGFT+5* |
| HFRG | ASKNWFT~, ASKNWFT+1*, ASKNWFT+2, CHECK~, CHECK+6, CHECK+10, CHECK+14, CHECK+18, CHECK+22, CHECK+32 |
| IBBR0 | CMINDT+1~, CMINDT+11* |
| IBC | CHECK+1~, CHECK+32*, CHECK+33, CHECK+39*, CHECK+40 |
| IBCHG | CMINDT+1~, CMINDT+13*, CMINDT+19*, CMINDT+20 |
| IBCI | CMINDT+1~, CMINDT+15*, CMINDT+16, CMINDT+19 |
| IBCI0 | CMINDT+1~, CMINDT+16*, CMINDT+17 |
| IBCMRG | OPTION+1~, OPTION+30*, OPTION+31, OPTION+34, OPTION+44, OPTION+48, OPTION+50 |
| IBCNT | XTMPDT+1~*, XTMPDT+15*, XTMPDT+16, XTMPDTQ*, XTMPDTQ+1, CMINDT+1~*, CMINDT+19*, CMINDT+20, CMINDTQ, CMINDTQ+1 |
| IBCS | CMINDT+1~, CMINDT+9*, CMINDT+10, CMINDT+13 |
| IBCS0 | CMINDT+1~, CMINDT+10*, CMINDT+11, CMINDT+20 |
| IBDONE | OPTION+1~*, OPTION+49*, OPTIONQ+3, OPTIONQ+4 |
| IBDS | OPTION+1~*, OPTION+23, OPTION+28, OPTION+36, OPTION+42, OPTION+46, OPTIONQ+3, OPTIONQ+4, CHECK+1~* |
| IBDV | ASKCMRG+1~, ASKCMRG+10*, ASKFNL+1~, ASKFNL+7* |
| IBFILE | XTMPHL+1~, XTMPHL+9*, XTMPHL+10, XTMPHL+11 |
| IBFILES | XTMPHL+1~, XTMPHL+5, XTMPHL+6 |
| IBFILES( | XTMPHL+9, XTMPHL+10 |
| IBHFRG | OPTION+1~, OPTION+31*, OPTION+32, OPTION+34, OPTION+38*, OPTION+39 |
| IBINACT | CMINDT+1~, CMINDT+5*, CMINDT+7, CMINDT+17, CMINDT+19 |
| IBITM | CMINDT+1~, CMINDT+14*, CMINDT+15 |
| IBLN | XTMPDT+1~, XTMPDT+12*, XTMPDT+13, XTMPDT+15* |
| IBN | ASKNWFT+1~, ASKNWFT+2*, ASKNWFT+6, ASKNWFT+13 |
| IBNODE | XTMPHL+1~, XTMPHL+10*, XTMPHL+11 |
| IBNWDT | OPTION+1~, OPTION+33*, OPTION+34, OPTION+40, OPTION+44, OPTION+48 |
| IBNWFT | OPTION+1~, OPTION+32*, OPTION+34, OPTION+38, OPTION+44, OPTION+50 |
| IBOK | XTMPHL+1~*, XTMPHL+9*, XTMPHL+12*, XTMPHL+13, XTMPHLQ, ASKFNL+1~*, ASKFNL+14*, ASKFNL+16, CHECK+1~*, CHECK+3* , CHECK+6*, CHECK+10*, CHECK+14*, CHECK+18*, CHECK+22*, CHECK+26*, CHECK+33*, CHECK+40*, CHECKQ |
| IBPATH | XTMPHL+1~, XTMPHL+4*, XTMPHL+6, XTMPHL+11 |
| IBRG | ASKCMRG+1~, ASKCMRG+9*, ASKCMRG+10, ASKFNL+1~, ASKFNL+6*, ASKFNL+7, CHECK+1~, CHECK+39* |
| IBS | GETHFRG+1~, GETHFRG+2*, GETHFRG+3*, GETHFRG+4 |
| IBSUB | XTMPDT+1~, XTMPDT+4*, XTMPDT+10*, XTMPDT+11, XTMPDT+12, XTMPDT+15, XTMPDT+16 |
| IBT | ASKNWFT+1~, ASKNWFT+2*, ASKNWFT+5, ASKNWFT+6, ASKNWFT+12 |
| IBVERS | OPTION+1~, OPTION+20*, OPTION+21, OPTION+26, OPTION+34 |
| IBVERSDT | OPTION+1~, OPTION+21*, OPTION+34, OPTION+40, OPTION+48 |
| IBX | XTMPKL+1~, XTMPKL+3*, XTMPKL+4*, XTMPDT+1~, XTMPDT+11*, XTMPDT+12, XTMPDT+15, CMRGFT+1~, CMRGFT+2*, CMRGFT+5 , CMRGFT+7, ASKCMRG+1~, ASKCMRG+10*, GETHFRG+1~*, GETHFRG+4*, GETHFRG+6, GETHFRG+7, ASKNWFT+1~*, ASKNWFT+9*, ASKNWFT+18* , ASKNWFT+20, ASKFNL+1~, ASKFNL+7*, CHECK+1~, CHECK+32*, CHECK+33, CHECK+39* |
| IBXRF | CMINDT+1~, CMINDT+13*, CMINDT+14, CMINDT+15 |
| IBXRF1 | OPTION+1~, XTMPDT+1~*, XTMPDT+4*, XTMPDT+7, XTMPDT+10, XTMPDT+11, XTMPDT+12, XTMPDT+15, XTMPDTQ |
| IBY | ASKCMRG+1~, ASKCMRG+9*, ASKCMRG+10, GETHFRG+1~, GETHFRG+3*, GETHFRG+4, ASKFNL+1~, ASKFNL+6*, ASKFNL+7 |
| IOM | OPTION+1, CHECK+1 |
| NWDT | XTMPDT~, XTMPDT+2, XTMPDT+6, XTMPDT+13, XTMPDT+15, CMINDT~, CMINDT+2, CMINDT+5, ASKFNL~, ASKFNL+9 , ASKFNL+10, CHECK~, CHECK+26, CHECK+27 |
| NWFT | CMRGFT~, CMRGFT+1*, CMRGFT+5, CMRGFT+7, ASKFNL~, ASKFNL+3, ASKFNL+9, ASKFNL+10, CHECK~, CHECK+18 , CHECK+22 |
| >> POP | CMLOAD+8 |
| U | OPTION+38, XTMPHL+11, XTMPDT+7, XTMPDT+13, XTMPDT+15, XTMPDTQ, CMINDT+7, CMINDT+10, CMINDT+11, CMINDT+17 , CMINDT+20, CMRGFT+2, CMRGFT+7, ASKCMRG+5, ASKCMRG+8, ASKCMRG+10, GETHFRG+4, ASKNWFT+2, ASKFNL+5, ASKFNL+7 , CHECK+6, CHECK+10, CHECK+14, CHECK+18, CHECK+22, CHECK+32, CHECK+34, CHECK+41 |
| VERS | XTMPHL~, XTMPHL+1, XTMPHL+3, XTMPHL+5, XTMPHL+8, XTMPHL+11, XTMPHL+13, CHECK~, CHECK+3, CHECK+4 , CHECK+27, CHECK+32, CHECK+35 |
| VSDT | XTMPDT~, XTMPDT+2, XTMPDT+6, XTMPDT+15, CMINDT~, CMINDT+2, CMINDT+15, CHECK~, CHECK+26, CHECK+27 , CHECK+30 |
| X | OPTION+17!, CMINDT+1~, CMINDT+19!, CMRGFT+1~, ASKCMRG+1~, ASKNWFT+1~, ASKNWDT+1~, ASKFNL+1~ |
| Y | OPTION+17, CMINDT+1~, CMINDT+19!, CMRGFT+1~, ASKCMRG+1~, ASKCMRG+4*, ASKCMRG+5*, ASKCMRG+7, ASKCMRG+8, ASKCMRG+9 , ASKCMRG+11, ASKNWFT+1~, ASKNWFT+9, ASKNWFT+18, ASKNWDT+1~, ASKNWDT+7*, ASKNWDT+8, ASKFNL+1~, ASKFNL+14 |
| Y(0 | ASKCMRG+5 |