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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABMTPYMT

Package: Third Party Billing

Routine: ABMTPYMT


Information

ABMTPYMT ; IHS/SD/SDR - Tribal Payment Report ;

Source Information

Source file <ABMTPYMT.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Third Party Billing 5 ^ABMDRDBQ  PAZ^ABMDRUTL  $$SDT^ABMDUTL  GETFACS^ABMMUMUP  EN^ABMVDF  
VA Fileman 4 NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
INSTYPE ;
VTYP ;SELECT VISIT TYPES
TSUB ;
PRINT ;
CLIN ;SELECT CLINICS
DT ;
DATA ;
HD ;
HDR ;
SEL ;
C ;;CHAMPUS
COMPUTE ;EP - Entry Point for Setting up Data
D ;;MEDICAID FI
G ;;GUARANTOR
F ;;FRATERNAL ORG
I ;;BENEFICIARY
H ;;HMO
K ;;KIDSCARE (CHIP)
M ;;MEDICARE SUPPL.
N ;;NON-BENEFICIARY
P ;;PRIVATE
R ;;MEDICARE FI
T ;;THIRD PARTY LIABILITY
W ;;WORKMEN'S COMP
V ;;VETERANS ADMINISTRATION
MD ;;MEDICARE PART D
INSURER ;
BILL ;EP for checking Bill File data parameters
MH ;;MEDICARE HMO
INS ;
VIS ;
VSUB ;
TRIBE ;

External References

Name Field # of Occurrence
NOW^%DTC HDR+4
^ABMDRDBQ DT+42
PAZ^ABMDRUTL HD+1
$$SDT^ABMDUTL PRINT+22, HDR+6
GETFACS^ABMMUMUP SEL+2
EN^ABMVDF HDR+1
^DIC SEL+45, INSURER+8, CLIN+7, VTYP+7
$$GET1^DIQ SEL+5, SEL+6, DATA+5, BILL+20, PRINT+20
^DIR SEL+18, SEL+31, DT+6, DT+11, DT+21, DT+31, INSTYPE+9
^XBFMK SEL+14, SEL+41, INSURER+4, INSTYPE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+39
Function Call: WRITE
  • Prompt: !!," ============ Entry of Visit Date Range =============",!
  • Line Location: DT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+9
Function Call: WRITE
  • Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!!
  • Line Location: DT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: INSURER+2
Function Call: WRITE
  • Prompt: " (cont)"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!?48,"============",?62,"============"
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !?30,"Report Totals",?48,$J($FN(ABMBILLT,",",2),12),?62,$J($FN(ABMPAIDT,",",2),12)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ABM("HD",0),?$S($D(ABM(132)):103,1:48)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: Y," Page ",ABM("PG")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"for Visit Dates from ",$$SDT^ABMDUTL(ABMY("DT",1))," to ",$$SDT^ABMDUTL(ABMY("DT",2))
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Billing Location: ",$P($G(^AUTTLOC(DUZ(2),0)),U,2)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"PATIENT",?28,"CLAIM",?37,"DOS",?48,"AMOUNT BILLED",?62,"AMOUNT PAID",!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Location: ",$P(ABM("TXT"),U)
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: VIS+1
Function Call: WRITE
  • Prompt: ?5,"Clinic: ",$P(^DIC(40.7,$P(ABM("TXT"),U,3),0),U)
  • Line Location: VIS+2
Function Call: WRITE
  • Prompt: ?5,"Visit Type: ",$P(^ABMDVTYP($P(ABM("TXT"),U,3),0),U)
  • Line Location: VIS+3
Function Call: WRITE
  • Prompt: !?48,"============",?62,"============"
  • Line Location: VSUB+1
Function Call: WRITE
  • Prompt: !?30
  • Line Location: VSUB+2
Function Call: WRITE
  • Prompt: ?5,"Clinic"
  • Line Location: VSUB+3
Function Call: WRITE
  • Prompt: ?5,"Visit Type"
  • Line Location: VSUB+4
Function Call: WRITE
  • Prompt: " Totals",?48,$J($FN(ABMBILLV,",",2),12),?62,$J($FN(ABMPAIDV,",",2),12)
  • Line Location: VSUB+5
Function Call: WRITE
  • Prompt: !?7,"Insurer: "
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: !?7,"Insurer Type: "
  • Line Location: INS+2
Function Call: WRITE
  • Prompt: $P(ABM("TXT"),U,4)
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!?3,"Tribe: ",$P(ABM("TXT"),U,2)
  • Line Location: TRIBE+1
Function Call: WRITE
  • Prompt: !?48,"============",?62,"============"
  • Line Location: TSUB+1
Function Call: WRITE
  • Prompt: !?30,"Tribe Totals",?48,$J($FN(ABMBILLS,",",2),12),?62,$J($FN(ABMPAIDS,",",2),12)
  • Line Location: TSUB+2
Routine Call
  • DIC
  • Line Location:
    • SEL+45
    • INSURER+8
    • CLIN+7
    • VTYP+7
Routine Call
  • DIR
  • Line Location:
    • SEL+18
    • SEL+31
    • DT+6
    • DT+11
    • DT+21
    • DT+31
    • INSTYPE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(40.7 - [#40.7] Classic Fileman Calls
^ABMDVTYP - [#9002274.8] Classic Fileman Calls
^AUTTTRI - [#9999999.03] Classic Fileman Calls
^AUTTLOC - [#9999999.06] GET1^DIQ
^AUTNINS - [#9999999.18] Classic Fileman Calls,  GET1^DIQ
^AUTTINTY - [#9999999.181] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( COMPUTE+3, COMPUTE+5, BILL+1, BILL+2, BILL+4, BILL+5, BILL+8, BILL+9, BILL+10, BILL+11
, BILL+12, BILL+14, BILL+25, BILL+27, BILL+29, BILL+30, PRINT+21, PRINT+23, PRINT+25, PRINT+26
, PRINT+27
^ABMDVTYP - [#9002274.8] VIS+3
^ABMMUPRM(1 SEL+7
^AUPNPAT - [#9000001] BILL+13
^AUTNINS - [#9999999.18] DATA+7, BILL+16
^AUTTLOC - [#9999999.06] HDR+7
^AUTTTRI - [#9999999.03] DATA+8
^DD("DD" HDR+5
^DIC(4 - [#4] DATA+2
^DIC(40.7 - [#40.7] VIS+2
^TMP("ABM-TPYMT" COMPUTE+1!, DATA+10*, PRINT+7, PRINT+35!

Label References

Name Line Occurrences
BILL DATA+1
CLIN DT+34
DATA COMPUTE+5
DT DT+7, DT+13, DT+15
HD PRINT+8
HDR PRINT+2
INS PRINT+15
INSTYPE SEL+35
INSURER SEL+34
LOC PRINT+9
TRIBE PRINT+10, PRINT+11
TSUB PRINT+10, PRINT+32
VIS PRINT+13, PRINT+14
VSUB PRINT+10, PRINT+13, PRINT+31
VTYP DT+35

Naked Globals

Name Field # of Occurrence
^(1 BILL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+5
ABM ABMTPYMT+4!, COMPUTE+4*, COMPUTE+5*, DATA+10, BILL+1, BILL+2, BILL+4, BILL+5, BILL+8, BILL+9
, BILL+10, BILL+11, BILL+12, BILL+14, BILL+25, BILL+27, BILL+29, BILL+30, HDR+9*, HDR+11*
ABM("C" DATA+9, BILL+5*, BILL+7
ABM("D" DATA+10, BILL+14*, BILL+15
ABM("HD" DT+37*, HDR+3*, HDR+5
ABM("I" DATA+5*, DATA+6*, DATA+7*, DATA+10, BILL+11*, BILL+15, BILL+16, BILL+18, BILL+20, PRINT+3*
, PRINT+9*, PRINT+10*, PRINT+13*, PRINT+15*, PRINT+19*
ABM("L" DATA+2*, DATA+10, BILL+10*, BILL+15, BILL+17, PRINT+3*, PRINT+9, PRINT+10*, PRINT+16*
ABM("P" DATA+10, BILL+12*, BILL+13, BILL+15
ABM("PD" DATA+10, BILL+24*, BILL+30*, BILL+31
ABM("PG" PRINT+1*, HD+2*, HDR+5
ABM("QUIT" BILL+22!
ABM("S" DATA+9*, DATA+10, PRINT+9*, PRINT+10*, PRINT+13, PRINT+14, PRINT+18*
ABM("SD" COMPUTE+2*, COMPUTE+3*, COMPUTE+5
ABM("SUBR" COMPUTE+1*
ABM("T" PRINT+3*, PRINT+9*, PRINT+10, PRINT+11, PRINT+17*
ABM("TRIBE" DATA+8*, DATA+10, BILL+13*, BILL+21
ABM("TXT" PRINT+3*, PRINT+7*, PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19
, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29
, PRINT+30, LOC+1, VIS+2, VIS+3, INS+3, TRIBE+1
ABM("V" DATA+9, BILL+4*, BILL+6, PRINT+3*
ABM(132 HDR+5
>> ABMBILLS PRINT+4*, PRINT+25*, TSUB+2, TSUB+3*
>> ABMBILLT PRINT+5*, PRINT+27*, PRINT+34
>> ABMBILLV PRINT+6*, PRINT+26*, VSUB+5, VSUB+6*
>> ABMCNT SEL+3*, SEL+4*, SEL+5, SEL+6, SEL+7, SEL+8*, SEL+9*, SEL+10, SEL+23*, SEL+24*
>> ABMDIR SEL+3*, SEL+5*, SEL+6*, SEL+10*, SEL+15, SEL+16
ABMF SEL+12!, SEL+16
ABMF( SEL+21*, SEL+24*
ABMFANS SEL+12!, SEL+20*, SEL+21, SEL+22
>> ABMFLIST( SEL+4, SEL+5, SEL+6, SEL+7, SEL+21, SEL+24
>> ABMFLIST(99999 SEL+8
ABMFQHC SEL+3*, SEL+7*, SEL+10, SEL+25!
>> ABMP("HIT" DATA+1*, BILL+23*, BILL+25*, BILL+31*
>> ABMPAIDS PRINT+4*, PRINT+28*, TSUB+2, TSUB+3*
>> ABMPAIDT PRINT+5*, PRINT+30*, PRINT+34
>> ABMPAIDV PRINT+6*, PRINT+29*, VSUB+5, VSUB+6*
>> ABMPIEN BILL+26*, BILL+27*, BILL+29, BILL+30
>> ABMQ("NS" DT+40*
>> ABMQ("RC" DT+38*
>> ABMQ("RP" DT+41*
>> ABMQ("RX" DT+39*
>> ABMTOT SEL+9*, SEL+13, SEL+21, SEL+22
ABMY ABMTPYMT+4!
ABMY("ALL" DT+22*
ABMY("CLIN" CLIN+1!, CLIN+6, CLIN+9*, CLIN+10, BILL+7, BILL+8
ABMY("DT" DT+2*, DT+8*, DT+14*, DT+15, COMPUTE+2, COMPUTE+3, HDR+6
ABMY("INS" SEL+28!, SEL+34*, INSURER+7, INSURER+10*, INSURER+11*, DATA+7, BILL+18, INS+1
ABMY("ITYP" SEL+28!, SEL+35*, INSTYPE+8, INSTYPE+12*, INSTYPE+14*, DATA+3, BILL+20, INS+2
ABMY("LOC" BILL+17
ABMY("POST" DT+23*, BILL+25, BILL+31
ABMY("SORT" DT+33*, DT+34, CLIN+11!, VTYP+11!, DATA+9, VIS+2, VIS+3, VSUB+3, VSUB+4
ABMY("TRIBE" SEL+38!, SEL+44, SEL+47*, SEL+48*, BILL+21
ABMY("VTYP" VTYP+1!, VTYP+6, VTYP+9*, VTYP+10, BILL+6, BILL+9
DIC SEL+42*, INSURER+5*, CLIN+2*, CLIN+13!, VTYP+2*, VTYP+13!
DIC("A" SEL+44*, INSURER+7*, CLIN+4*, CLIN+6*, VTYP+4*, VTYP+6*
DIC(0 SEL+43*, INSURER+6*, CLIN+3*, VTYP+3*
DIR SEL+18!, SEL+28!, SEL+32!, DT+12!, DT+17!, DT+26!, INSTYPE+10!
DIR("?" DT+30*
DIR("A" SEL+17*, SEL+30*, DT+4*, DT+10*, DT+19*, DT+28*, INSTYPE+7*
DIR("B" DT+20*, DT+29*, INSTYPE+8*
DIR(0 SEL+15*, SEL+16*, SEL+29*, DT+5*, DT+18*, DT+27*, INSTYPE+4*, INSTYPE+6*
>> DIROUT SEL+13, SEL+19, SEL+33, SEL+40, DT+32, INSURER+3, INSTYPE+2, INSTYPE+11, PRINT+7, PRINT+8
, HD+1
>> DIRUT SEL+13, SEL+19, SEL+33, SEL+40, DT+1, DT+7, DT+13, DT+32, INSURER+3, INSTYPE+2
, INSTYPE+11
>> DTOUT SEL+13, SEL+19, SEL+40, INSURER+3, INSTYPE+2, PRINT+7, PRINT+8, HD+1
>> DUOUT SEL+13, SEL+19, SEL+40, INSURER+3, INSTYPE+2, CLIN+11, VTYP+11, PRINT+7, PRINT+8, HD+1
DUZ(2 COMPUTE+3, COMPUTE+5, BILL+1, BILL+2, BILL+4, BILL+5, BILL+8, BILL+9, BILL+10, BILL+11
, BILL+12, BILL+14, BILL+25, BILL+27, BILL+29, BILL+30, PRINT+21, PRINT+23, PRINT+25, PRINT+26
, PRINT+27, HDR+7
IOSL PRINT+8
U DATA+2, DATA+7, DATA+8, DATA+10, BILL+4, BILL+5, BILL+8, BILL+9, BILL+10, BILL+11
, BILL+12, BILL+13, BILL+14, BILL+29, BILL+30, PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+16
, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26
, PRINT+27, PRINT+28, PRINT+29, PRINT+30, HDR+7, LOC+1, VIS+2, VIS+3, INS+3, TRIBE+1
>> Y SEL+13, SEL+20, SEL+34, SEL+35, SEL+40, SEL+46, SEL+48, DT+8, DT+14, DT+22
, DT+23, DT+33, INSURER+3, INSURER+9, INSURER+11, INSTYPE+2, INSTYPE+13*, INSTYPE+14, CLIN+5, CLIN+8
, CLIN+9, VTYP+5, VTYP+8, VTYP+9, HDR+5*

Marked Items

Name Field # of Occurrence
$T(@ABM(1) DATA+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All