Routine: ABMDUTL

Package	Total	Call Graph
Third Party Billing	2	($$CPT,$$IHSCPT)^ABMCVAPI $$EN^ABMVDF
VA Fileman	2	H^%DTC ^DIR

Package

Total

Call Graph

Third Party Billing

($$CPT,$$IHSCPT)^ABMCVAPI $$EN^ABMVDF

VA Fileman

H^%DTC ^DIR

Package	Total	Caller Graph
Third Party Billing	232	ABMASPLT ABMAUDRP ABMCPTT ABMCUFE ABMDANTC ABMDAST ABMDBACK ABMDBAD1 ABMDBADD ABMDBAN ABMDBDIC ABMDBLK ABMDCCL1 ABMDCCL2 ABMDE0X ABMDE1X ABMDE2A ABMDE2X1 ABMDE30 ABMDE301 ABMDE32 ABMDE3A ABMDE3C ABMDE5B ABMDE5C ABMDE5D ABMDE7A ABMDE8A ABMDE8B ABMDE8C ABMDE8CA ABMDE8D ABMDE8DA ABMDE8E ABMDE8F ABMDE8G ABMDE8H ABMDE8J ABMDE8K ABMDE9C ABMDEAD2 ABMDEDIC ABMDEMLB ABMDEMRG ABMDEOK1 ABMDES1 ABMDES24 ABMDES3 ABMDES4 ABMDESEL ABMDESM1 ABMDESMA ABMDESMB ABMDESMH ABMDESMU ABMDEVAR ABMDF11 ABMDF11Y ABMDF12A ABMDF14A ABMDF14B ABMDF1A ABMDF1E ABMDF24 ABMDF24T ABMDF27A ABMDF27B ABMDF28 ABMDF28Q ABMDF28R ABMDF28S ABMDF28Y ABMDF2B ABMDF2D ABMDF35A ABMDF35B ABMDF3A ABMDF3B ABMDF3D ABMDF4A ABMDF51 ABMDF51Y ABMDFAWP ABMDFOVR ABMDFRA ABMDIPS ABMDMDB2 ABMDPAY ABMDPAY1 ABMDPAYV ABMDPINQ ABMDPST1 ABMDRAL1 ABMDRAL2 ABMDRBR1 ABMDRBR2 ABMDRCO2 ABMDRDBQ ABMDREEX ABMDRHD ABMDRPER ABMDRPR1 ABMDRPR2 ABMDRPT1 ABMDRPT2 ABMDRSU1 ABMDRTX2 ABMDRUN1 ABMDRUN2 ABMDRXC1 ABMDRXC2 ABMDSPLB ABMDSPLT ABMDSS ABMDSTAT ABMDTFED ABMDTFPC ABMDTIN1 ABMDTIN2 ABMDTX0 ABMDVFEE ABMDVST ABME3AA0 ABME3DA0 ABME3EA0 ABME3FA0 ABME3GC0 ABME501 ABME520 ABME520A ABME540 ABME540A ABME561 ABME570 ABME5BHT ABME5DMG ABME5DTP ABME5GS ABME5ISA ABME5L6 ABME601 ABME661 ABME8BHT ABME8DMG ABME8DTP ABME8GS ABME8ISA ABME8L6 ABMEAA0 ABMEBDSP ABMEE01 ABMEE61 ABMEF15 ABMEF16 ABMEF20 ABMEF21 ABMEF22 ABMEF23 ABMEF31 ABMEF32 ABMEF33 ABMEFA0 ABMEFOVR ABMEH01 ABMEH20 ABMEH30 ABMEH40 ABMEH61 ABMEH62 ABMEHGR2 ABMELGCK ABMEMCRC ABMER20 ABMER20A ABMERSND ABMFECNV ABMFTED ABMKIDS ABMM2ELG ABMM2EP ABMM2P10 ABMM2PH1 ABMM2PP1 ABMM2PV3 ABMM2PV4 ABMM2PV5 ABMM2PV6 ABMMLTIT ABMMUEL1 ABMMUELG ABMMUEP ABMMUFAC ABMMUFC2 ABMMUFC4 ABMMUPH1 ABMMUPV3 ABMMUPV4 ABMMUPVP ABMPSAPI ABMPSTRD ABMPTPOP ABMPTSMT ABMPUEXT ABMRDNY1 ABMRDNY2 ABMRMCRD ABMRPVET ABMRSCIN ABMRSPIN ABMRSTI2 ABMRSTI3 ABMRSTIN ABMRSUBN ABMRSVIN ABMTALL2 ABMTALLY ABMTPYMT ABMUBLST ABMUCASH ABMUCUTL ABMUITIN ABMURCN1 ABMURCN2 ABMURHD ABMUROPN ABMUTL8A ABMUVBCH ABMUVCSH ABMUXCLD ABMVRQUE ABMZBDIC ABMZIPS

Package

Total

Caller Graph

Third Party Billing

232

ABMASPLT  ABMAUDRP  ABMCPTT  ABMCUFE  ABMDANTC  ABMDAST  ABMDBACK  ABMDBAD1
ABMDBADD  ABMDBAN  ABMDBDIC  ABMDBLK  ABMDCCL1  ABMDCCL2  ABMDE0X  ABMDE1X
ABMDE2A  ABMDE2X1  ABMDE30  ABMDE301  ABMDE32  ABMDE3A  ABMDE3C  ABMDE5B
ABMDE5C  ABMDE5D  ABMDE7A  ABMDE8A  ABMDE8B  ABMDE8C  ABMDE8CA  ABMDE8D
ABMDE8DA  ABMDE8E  ABMDE8F  ABMDE8G  ABMDE8H  ABMDE8J  ABMDE8K  ABMDE9C
ABMDEAD2  ABMDEDIC  ABMDEMLB  ABMDEMRG  ABMDEOK1  ABMDES1  ABMDES24  ABMDES3
ABMDES4  ABMDESEL  ABMDESM1  ABMDESMA  ABMDESMB  ABMDESMH  ABMDESMU  ABMDEVAR
ABMDF11  ABMDF11Y  ABMDF12A  ABMDF14A  ABMDF14B  ABMDF1A  ABMDF1E  ABMDF24
ABMDF24T  ABMDF27A  ABMDF27B  ABMDF28  ABMDF28Q  ABMDF28R  ABMDF28S  ABMDF28Y
ABMDF2B  ABMDF2D  ABMDF35A  ABMDF35B  ABMDF3A  ABMDF3B  ABMDF3D  ABMDF4A
ABMDF51  ABMDF51Y  ABMDFAWP  ABMDFOVR  ABMDFRA  ABMDIPS  ABMDMDB2  ABMDPAY
ABMDPAY1  ABMDPAYV  ABMDPINQ  ABMDPST1  ABMDRAL1  ABMDRAL2  ABMDRBR1  ABMDRBR2
ABMDRCO2  ABMDRDBQ  ABMDREEX  ABMDRHD  ABMDRPER  ABMDRPR1  ABMDRPR2  ABMDRPT1
ABMDRPT2  ABMDRSU1  ABMDRTX2  ABMDRUN1  ABMDRUN2  ABMDRXC1  ABMDRXC2  ABMDSPLB
ABMDSPLT  ABMDSS  ABMDSTAT  ABMDTFED  ABMDTFPC  ABMDTIN1  ABMDTIN2  ABMDTX0
ABMDVFEE  ABMDVST  ABME3AA0  ABME3DA0  ABME3EA0  ABME3FA0  ABME3GC0  ABME501
ABME520  ABME520A  ABME540  ABME540A  ABME561  ABME570  ABME5BHT  ABME5DMG
ABME5DTP  ABME5GS  ABME5ISA  ABME5L6  ABME601  ABME661  ABME8BHT  ABME8DMG
ABME8DTP  ABME8GS  ABME8ISA  ABME8L6  ABMEAA0  ABMEBDSP  ABMEE01  ABMEE61
ABMEF15  ABMEF16  ABMEF20  ABMEF21  ABMEF22  ABMEF23  ABMEF31  ABMEF32
ABMEF33  ABMEFA0  ABMEFOVR  ABMEH01  ABMEH20  ABMEH30  ABMEH40  ABMEH61
ABMEH62  ABMEHGR2  ABMELGCK  ABMEMCRC  ABMER20  ABMER20A  ABMERSND  ABMFECNV
ABMFTED  ABMKIDS  ABMM2ELG  ABMM2EP  ABMM2P10  ABMM2PH1  ABMM2PP1  ABMM2PV3
ABMM2PV4  ABMM2PV5  ABMM2PV6  ABMMLTIT  ABMMUEL1  ABMMUELG  ABMMUEP  ABMMUFAC
ABMMUFC2  ABMMUFC4  ABMMUPH1  ABMMUPV3  ABMMUPV4  ABMMUPVP  ABMPSAPI  ABMPSTRD
ABMPTPOP  ABMPTSMT  ABMPUEXT  ABMRDNY1  ABMRDNY2  ABMRMCRD  ABMRPVET  ABMRSCIN
ABMRSPIN  ABMRSTI2  ABMRSTI3  ABMRSTIN  ABMRSUBN  ABMRSVIN  ABMTALL2  ABMTALLY
ABMTPYMT  ABMUBLST  ABMUCASH  ABMUCUTL  ABMUITIN  ABMURCN1  ABMURCN2  ABMURHD
ABMUROPN  ABMUTL8A  ABMUVBCH  ABMUVCSH  ABMUXCLD  ABMVRQUE  ABMZBDIC  ABMZIPS

Entry Points

Name	Comments	DBIA/ICR reference
Y2KD2(X)	;EP - date from fileman to Y2K format Y=CCYYMMDD
EOP(X)	;EP - end of page
PAT(X)	;EP - DISPLAY PATIENT HEADER WITH IDENTIFIERS - X=DFN
KILLI03	;EP Kill logic for ACTIVE x-ref of ,03 field or 13 multiple of claim
NXNM(X)	;EP - GET NEXT CLAIM NUMBER
HDTO(X)	;EP - old HDT entry point, date from fileman to MM-DD-YY
SDTO(X)	;EP - date from fileman to MM/DD/YY
CHKCPT(Y)	; check CPT for valid date, inactive flag
FLAT(X,Y,Z)
UPRV(X,Y)
CSZ(X)	;EP - Y is set to the printable City, State ZIP CODE ; X incoming variable must = CITY^ST^ZIP
GETREV(X)	;PEP - get rev code and format for claim editor display
CDT(X)	;EP - Y= date/time ##/##/####@##:## from X (fm date) for display in claim editor
HDT(X)	;EP - Y is set to the printable date ##-##-#### from X (fileman date)
SETI03	;EP Set logic for ACTIVE x-ref of .03 field of 13 multiple of claim
HRN(X)	;EP - Y is set to the printable HRN ; for patient ABMP("PDFN") at location ABMP("LDFN")
MDT(X)	;EP - printable date and time in menu header format
MTHS	;MONTHS
BDT(X)	;EP - Y= date/time ##/##/####@##:##:## from X (fm date) for display in claim editor
POSDT(X)	;EP - Y is set to the printable date ## ## #### from X (fileman date)
Y2KDT(X)	;EP - date from fileman to Y2K format Y=MMDDCCYY
TM(X,Y)	;EP - FIGURE TOTAL MINUTES GIVEN FM DATE/TIMES IN X AND Y
SDT(X)	;EP - Y is set to the printable date ##/##/#### from X (fileman date)
MDY(X)	;EP - date from fileman to MMDDYY

Name	Field # of Occurrence
H^%DTC	TM+3, TM+4
$$CPT^ABMCVAPI	CHKCPT+10, CHKCPT+19
$$IHSCPT^ABMCVAPI	CHKCPT+15
$$EN^ABMVDF	PAT+3, PAT+4
^DIR	EOP+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: PAT+3
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("RVN"),"PATIENT:",$$EN^ABMVDF("RVF")," " Line Location: PAT+4
Function Call: WRITE	Prompt: $P(ABM("P0"),U)," ",$P(ABM("P0"),"^",2) Line Location: PAT+6
Function Call: WRITE	Prompt: " ",$E(ABM("DOB"),4,5),"/",$E(ABM("DOB"),6,7),"/",($E(ABM("DOB"),1,3)+1700) Line Location: PAT+7
Function Call: WRITE	Prompt: " ",$E(ABM("SSN"),1,3),"-",$E(ABM("SSN"),4,5),"-",$E(ABM("SSN"),6,9) Line Location: PAT+9
Function Call: WRITE	Prompt: " ","HRN: ",$P($G(^AUPNPAT(X,41,DUZ(2),0)),"^",2) Line Location: PAT+10
Function Call: WRITE	Prompt: !,ABM("=") Line Location: PAT+11
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIR Line Location: EOP+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	NXNM+12
^ABMDCLM - [#9002274.3]	NXNM+3, NXNM+4, NXNM+5, NXNM+12, SETI03+2*, UPRV+5, UPRV+9, UPRV+10
^ABMDCLM(0	NXNM+1, NXNM+2, NXNM+4, NXNM+5, NXNM+6, NXNM+13, NXNM+14*, NXNM+16
^ABMNINS(	FLAT+4, FLAT+10, FLAT+11
^AUPNPAT - [#9000001]	HRN+3, PAT+10
^AUTTPIC - [#9999999.65]	UPRV+12
^AUTTREVN - [#9999999.72]	GETREV+3, GETREV+4
^DIC(5 - [#5]	CSZ+3
^DPT - [#2]	PAT+1, PAT+5
^ICPT("B"	CHKCPT+5
^VA(200 - [#200]	UPRV+11

Name	Line Occurrences
$$SDT	POSDT+2

Name	Field # of Occurrence
^(0	HRN+3, CSZ+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	TM+3, TM+4
>> %T	TM+3, TM+4
A	BDT+2~, BDT+11, CHKCPT+1~, CHKCPT+11, CHKCPT+12, CHKCPT+13, CHKCPT+16
>> ABM("="	PAT+2*, PAT+11
>> ABM("AMPM"	MDT+6*, MDT+8, MDT+10!
>> ABM("D"	TM+5*, TM+7
>> ABM("DATE"	MDT+2*, MDT+9, MDT+10!
>> ABM("DOB"	PAT+7*
>> ABM("P0"	PAT+5*, PAT+6, PAT+7, PAT+8
>> ABM("SSN"	PAT+8*, PAT+9
>> ABM("T"	TM+6*, TM+7
>> ABM("TIME"	MDT+3, MDT+4, MDT+5, MDT+6, MDT+7, MDT+8*, MDT+9, MDT+10!
>> ABM("TS"	TM+7*, TM+8
>> ABM(1	TM+3*, TM+5, TM+6
>> ABM(2	TM+4*, TM+5, TM+6
ABMCLAS	UPRV+7~, UPRV+11*, UPRV+12
ABMDA	FLAT+10*, FLAT+11, FLAT+15!
ABMDT	FLAT+4*, FLAT+5!, FLAT+10, FLAT+15!
>> ABMP("LDFN"	HRN+3, FLAT+4, FLAT+10, FLAT+11
>> ABMP("PDFN"	HRN+3
>> ABMP("VDT"	CHKCPT+7*, CHKCPT+10, CHKCPT+15, CHKCPT+18, CHKCPT+19
ABMPRV	UPRV+7~, UPRV+10*, UPRV+11
>> ABMRVCD	GETREV+1, GETREV+2, GETREV+3, GETREV+4, GETREV+5
ABMTEST	BDT+2~, BDT+10*, BDT+11
>> ABMTIME	CDT+5, CDT+6, CDT+7, BDT+6, BDT+9, BDT+10, BDT+11, BDT+13, BDT+14
ABMY	CHKCPT+2~, CHKCPT+5*, CHKCPT+6, CHKCPT+10, CHKCPT+15, CHKCPT+19
ABMZCPT	CHKCPT+4~
ABMZERO	FLAT+11*, FLAT+13, FLAT+14, FLAT+15!
D	CHKCPT+1~
>> DA	SETI03+2
>> DA(1	SETI03+2
DIR	EOP+11!
DIR("A"	EOP+9*
DIR(0	EOP+8*
DT	CHKCPT+7
DUZ(2	PAT+10, NXNM+12, SETI03+2, UPRV+5, UPRV+9, UPRV+10
I	NXNM+3~, NXNM+4, NXNM+5, UPRV+7~, UPRV+8, UPRV+9, UPRV+10, CHKCPT+1~, CHKCPT+16, CHKCPT+18
IO("S"	EOP+4
IOSL	EOP+6
IOST	EOP+3
>> IOT	EOP+2
>> N	FLAT+2*, FLAT+4
U	HRN+3, CSZ+3, PAT+6, SETI03+2, UPRV+10, CHKCPT+12, CHKCPT+16, CHKCPT+19, GETREV+4
X	SDT~, SDT+2, POSDT~, POSDT+2, HDT~, HDT+2, CDT~, CDT+2, CDT+3, CDT+4 , CDT+5, BDT~, BDT+3, BDT+4, BDT+5, BDT+6, MDT~, MDT+2, MDT+3, MDT+5 , MDT+9, MDT+11, Y2KDT~, Y2KDT+2, Y2KDT+3, Y2KD2~, Y2KD2+2, Y2KD2+3, MDY~, MDY+2 , MDY+3, SDTO~, SDTO+2, SDTO+3, HDTO~, HDTO+2, HDTO+3, HRN~, CSZ~, CSZ+3 , TM~, TM+1, TM+2, TM+4, TM+8, TM+9, PAT~, PAT+1, PAT+5, PAT+10 , FLAT~, FLAT+4, FLAT+5, FLAT+10, FLAT+11, FLAT+13, FLAT+14, FLAT+16, NXNM~, NXNM+6 , NXNM+12, NXNM+13, NXNM+14, NXNM+17, EOP~, EOP+7, EOP+9, SETI03+1, UPRV~, UPRV+3 , UPRV+5, UPRV+9, UPRV+10, CHKCPT+3~, CHKCPT+10, CHKCPT+11, CHKCPT+12, CHKCPT+15*, CHKCPT+16, GETREV~ , GETREV+2, GETREV+3, GETREV+4
Y	SDT+1~, SDT+2, SDT+3, POSDT+1~, POSDT+2, POSDT+3, POSDT+4, HDT+1~, HDT+2, HDT+3 , CDT+1~, CDT+2, CDT+3, CDT+4, CDT+7, CDT+8, BDT+1~, BDT+3, BDT+4, BDT+5 , BDT+14, BDT+15, MDT+1~, Y2KDT+1~, Y2KDT+3, Y2KDT+4, Y2KD2+1~, Y2KD2+3, Y2KD2+4, MDY+1~ , MDY+3, MDY+4, SDTO+1~, SDTO+3, SDTO+4, HDTO+1~, HDTO+3, HDTO+4, HRN+2~, HRN+3 , HRN+4, CSZ+2~, CSZ+3*, CSZ+4, TM~, TM+2, TM+4, FLAT~, FLAT+4, FLAT+10 , FLAT+11, UPRV~, UPRV+4, UPRV+12, CHKCPT~, CHKCPT+5
Z	FLAT~, FLAT+2, FLAT+14, UPRV+6, UPRV+13, UPRV+14
>> ZTQUEUED	EOP+5

Customize PDF page

Package: Third Party Billing

Routine: ABMDUTL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 232

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items