Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABMDUTL

Package: Third Party Billing

Routine: ABMDUTL


Information

ABMDUTL ; IHS/SD/SDR - UTILITY FOR 3P BILLING PACKAGE ;

Source Information

Source file <ABMDUTL.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 232

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

External References

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

Label References

Name Line Occurrences
$$SDT POSDT+2

Naked Globals

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

Marked Items

Name Field # of Occurrence
$T(MTHS+1 MDT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All