Routine: ABMDE8G

Information

ABMDE8G ; IHS/ASDST/DMJ - Page 8 - ANESTHESIA ;

Package	Total	Call Graph
Third Party Billing	6	($$CPT,IHSCPTD)^ABMCVAPI (PAUSE,SUM)^ABMDE1 (G,MODE)^ABMDE8X ^ABMDERR ($$GETREV,$$MDT,$$TM)^ABMDUTL ^ABMDWRAP

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"REVN",?72,"TOTAL" Line Location: HD+2
Function Call: WRITE	Prompt: !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?66,"MIN",?72,"CHARGE" Line Location: HD+3
Function Call: WRITE	Prompt: !?5,"====",?10,"======================================================",?66,"===",?71,"========" Line Location: HD+4
Function Call: WRITE	Prompt: !?69,"==========",!?69,$J("$"_($FN(ABMZ("TOTL"),",",2)),10) Line Location: LOOP+4
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]",?5,$$GETREV^ABMDUTL($P(ABM("X0"),U,2)) Line Location: PC1+3
Function Call: WRITE	Prompt: ?10,$P(ABMZ(ABM("I")),U) Line Location: PC1+4
Function Call: WRITE	Prompt: " " Line Location: PC1+8
Function Call: WRITE	Prompt: "("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" Line Location: PC1+45
Function Call: WRITE	Prompt: !?11,"("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" Line Location: PC1+46
Function Call: WRITE	Prompt: !?11,"("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" Line Location: PC1+47
Function Call: WRITE	Prompt: !,?11,"Start Date/Time: ",$$MDT^ABMDUTL($P(ABM("X0"),"^",7)),!,?12,"Stop Date/Time: ",$$MDT^ABMDUTL($P(ABM("X0"),"^",8)) Line Location: PC1+48

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP, PC1, PC1+41, PC1+42, PC1+44
^ABMDEXP - [#9002274.08]	FEE+7, FEE+19
^ABMDPARM(	PC1+29
^AUTNINS - [#9999999.18]	FEE+2
^VA(200 - [#200]	PC1+44

Name	Field # of Occurrence
ABM	LOOP*, LOOP+1, PC1+41, PC1+42, PC1+44, XIT!
ABM("CP"	PC1+35, PC1+36, PC1+37, PC1+38
ABM("I"	LOOP*, LOOP+2, PC1+1, PC1+3, PC1+4
ABM("X"	LOOP+1*, PC1, PC1+1
ABM("X0"	PC1*, PC1+1, PC1+3, PC1+5, PC1+6, PC1+7, PC1+11, PC1+12, PC1+13, PC1+29 , PC1+34, PC1+48
>> ABME("CONT"	LOOP+5*!
>> ABME(0	LOOP+5
ABMMODE	XIT!
ABMMODE(7	FEE+7, FEE+19
>> ABMP("CDFN"	LOOP, PC1, PC1+41, PC1+42, PC1+44
>> ABMP("DDL"	DISP+1
>> ABMP("FEE"	DICS
>> ABMP("INS"	FEE+2
>> ABMP("ITYP"	FEE+2*
>> ABMP("VDT"	PC1+1, PC1+29, PC1+34
>> ABMRPRV	PC1+41, PC1+42, PC1+43, PC1+44
ABMU	PC1+10!
ABMU("LM"	PC1+40*
ABMU("RM"	PC1+40*
ABMU("TAB"	PC1+40*
ABMU("TXT"	PC1+29, PC1+32, PC1+38*
ABMU(1	PC1+11*
ABMU(2	PC1+12*
ABMZ	DISP!
ABMZ(	PC1+1*, PC1+4
ABMZ("ADD1"	DISP*
ABMZ("ANTH"	FEE+18*
ABMZ("CAT"	FEE*
ABMZ("CHRG"	FEE+15*
ABMZ("DIAG"	FEE+7*
ABMZ("DIC"	FEE+18*
ABMZ("DICS"	FEE+4*
ABMZ("DR"	FEE+8, FEE+19
ABMZ("ITEM"	FEE+17*
ABMZ("LNUM"	LOOP*
ABMZ("MOD"	FEE+16, PC1+40, PC1+49
ABMZ("NUM"	LOOP, LOOP+2, LOOP+4
ABMZ("PG"	DISP*
ABMZ("SUB"	FEE+5*
ABMZ("TITL"	DISP*
ABMZ("TOTL"	FEE+18, LOOP+4, PC1+13
ABMZ("X"	FEE+18*
ABMZ(1	LOOP*
ABMZCPTD	PC1+33!
ABMZCPTD(	PC1+36, PC1+37, PC1+38
>> D1	LOOP+1*
>> DIROUT	DISP+1
>> DTOUT	DISP+1
>> DUOUT	DISP+1
DUZ(2	LOOP, PC1, PC1+29, PC1+41, PC1+42, PC1+44
IOSL	DISP+1, PC1+2
U	FEE+2, FEE+16, PC1+1, PC1+3, PC1+4, PC1+5, PC1+6, PC1+7, PC1+11, PC1+12 , PC1+13, PC1+29, PC1+34, PC1+44, PC1+49