Routine: ABMDTASC

Package

Total

Call Graph

NOW^%DTC ^DIC ^DIE ^DIR

$$IHSCPT^ABMCVAPI $$EN^ABMVDF

Name	Comments	DBIA/ICR reference
CURRATE	;
EFFDT	;
START	;START
RATE	;ENTER RATES FOR THE ASC PAYMENT GROUPS
NEW	;NEW ENTRY IN FEE TABLE
LOOP	;LOOP THROUGH CPT SURGERY

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF") Line Location: START+1
Function Call: WRITE	Prompt: " We recommend doing a global save of global ^ABMDFEE before proceeding.",!! Line Location: START+2
Function Call: WRITE	Prompt: !!,ABMEQ,! Line Location: START+12
Function Call: WRITE	Prompt: !,"Rate for ASC Payment Group ",ABMI,": $",ABM(ABMI) Line Location: START+13
Function Call: WRITE	Prompt: !!,"Finished.",!! Line Location: START+41
Function Call: WRITE	Prompt: !!,"CURRENT RATES" Line Location: CURRATE+8
Function Call: WRITE	Prompt: !,?3,"Rate for ASC Payment Group ",ABMI,":$",+$G(ABMRATE(ABMI)) Line Location: CURRATE+9
Function Call: WRITE	Prompt: ! Line Location: CURRATE+10
Function Call: WRITE	Prompt: !,"NEW RATES" Line Location: RATE+3
Routine Call	DIE Line Location: EFFDT+17
Routine Call	DIC Line Location: START+6 START+39 EFFDT+8
Routine Call	DIR Line Location: START+17 START+24 START+42 RATE+6

FileNo	Call Tags
^ABMDFEE - [#9002274.01]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABMDFEE - [#9002274.01]	CURRATE+6, CURRATE+7, LOOP+7, LOOP+8, NEW+1, NEW+2*
^DD(9002274.01	START+35
^DD(9002274.0111	EFFDT+6
^ICPT - [#81]	CURRATE+2, LOOP+2

Name	Field # of Occurrence
>> %	START+37
>> ABM(	START+13, RATE+8*, LOOP+8, EFFDT+15
>> ABMEDT	START+26*, EFFDT+7
>> ABMENTRY	EFFDT+9*, EFFDT+14
ABMEQ	START+11*, START+12, START+29!
>> ABMI	START+13, CURRATE+1, CURRATE+2, CURRATE+3, CURRATE+6, CURRATE+7, CURRATE+9, RATE+4, RATE+5, RATE+8 , LOOP+1, LOOP+2*, LOOP+3, LOOP+7, LOOP+8, NEW+1, NEW+2, EFFDT+3, EFFDT+12
>> ABMJ	START+7*, START+32, CURRATE+6, CURRATE+7, LOOP+7, LOOP+8, NEW+1, NEW+2, EFFDT+2, EFFDT+11
ABMPG	START+29!, CURRATE+3, CURRATE+4, CURRATE+5, CURRATE+7, LOOP+3, LOOP+4, LOOP+5, LOOP+8, EFFDT+15
ABMRATE	CURRATE+11!
ABMRATE(	CURRATE+7*, CURRATE+9
>> DA	EFFDT+14*
>> DA(1	START+32, START+33, EFFDT+3, EFFDT+4, EFFDT+12*, EFFDT+13
>> DA(2	EFFDT+2, EFFDT+4, EFFDT+11, EFFDT+13
DIC	START+3, START+6!, START+33, EFFDT+4*
DIC("A"	START+4*
DIC("B"	START+5*
DIC("DR"	START+38*
DIC("P"	START+35, EFFDT+6
DIC(0	START+3, START+34, EFFDT+5*
>> DIE	EFFDT+13*
DIR	START+17!, START+24!, START+42!, RATE+9!
DIR("A"	START+15, START+22, RATE+5*
DIR("B"	START+16, START+23
DIR(0	START+14, START+21, START+42, RATE+2
>> DIRUT	START+25
>> DR	EFFDT+15, EFFDT+16
DT	EFFDT+16
DTOUT	START+10, RATE+1!, RATE+4, RATE+7
DUOUT	START+10, RATE+1!, RATE+4, RATE+7
DUZ	START+38, EFFDT+16
U	START+35, CURRATE+3, CURRATE+7, LOOP+3, LOOP+8, EFFDT+6
>> X	START+37, EFFDT+7
>> Y	START+7, START+18, START+26, RATE+8, EFFDT+9

Information