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 |