Routine: ABMDVST8

Information

ABMDVST8 ; IHS/ASDST/DMJ - PCC VISIT STUFF - IMMUNIZ ;

Source file <ABMDVST8.m>

Package	Total	Call Graph
Third Party Billing	2	$$IHSCPT^ABMCVAPI $$ONE^ABMFEAPI
VA Fileman	1	FILE^DICN

Name	Comments	DBIA/ICR reference
CPT
1	;;90749
3	;;90701
2	;;90718
5	;;90714
4	;;90703
7	;;90713
6	;;90712
9	;;90749
8	;;90749
CPTCHK
39	;;90737
38	;;90737
11	;;90705
10	;;90731; This code has been replaced by 90744-90747
13	;;90725
12	;;90724
15	;;90704
14	;;90706
17	;;90707
16	;;90728
19	;;90732
18	;;90708
31	;;90717
37	;;90737
36	;;90737
35	;;90737
34	;;90702
33	;;90726
32	;;90749

Name	Line Occurrences (* Changed, ! Killed)
^ABMNINS(	CPTCHK+4
^AUPNVIMM - [#9000010.11]	CPTCHK
^AUTTIMM - [#9999999.14]	CPTCHK
^DD(9002274.3	CPTCHK+10

Name	Line Occurrences
CPTCHK	CPT+2

Name	Field # of Occurrence
^(0	CPTCHK

Name	Field # of Occurrence
>> ABM	CPT+1, CPT+2
>> ABM("CPT"	CPTCHK+1*, CPTCHK+4, CPTCHK+6, CPTCHK+7
>> ABMP("CDFN"	CPT
>> ABMP("FEE"	CPTCHK+4, CPTCHK+6
>> ABMP("INS"	CPTCHK+4
>> ABMP("LDFN"	CPTCHK+4
>> ABMP("VDT"	CPTCHK+4, CPTCHK+6, CPTCHK+11
>> ABMP("VTYP"	CPTCHK+4
ABMR	ABMDVST8+10!
ABMR(	CPTCHK+8, CPTCHK+9, CPTCHK+11
ABMR("FEE"	CPTCHK+6*, CPTCHK+11
ABMR("X"	CPTCHK*, CPTCHK+1
>> ABMVDFN	CPT+1, CPT+2
>> DA(1	CPT*
DD	CPT+2!, CPTCHK+12!, CPTCHK+13!
>> DIC	CPT*
>> DIC("DR"	CPT+2!, CPTCHK+11*
>> DIC("P"	CPTCHK+10*
>> DIC(0	CPT*
DO	CPT+2!, CPTCHK+12!, CPTCHK+13!
U	CPTCHK, CPTCHK+4, CPTCHK+6, CPTCHK+10, CPTCHK+11
>> X	CPT+2, CPTCHK, CPTCHK+7, CPTCHK+8, CPTCHK+9, CPTCHK+11

Name	Field # of Occurrence
$T(@ABMR(1)	CPTCHK+1