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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABMPPADJ

Package: Third Party Billing

Routine: ABMPPADJ


Information

ABMPPADJ ; IHS/SD/SDR - Prior Payments/Adjustments page (CE);

Source Information

Source file <ABMPPADJ.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Third Party Billing 7 (PAUSE,SUM)^ABMDE1  PRTORD^ABMDEOK1  SEL^ABMDEOPT  (ADD,DISPCK,EDIT,EDIT2,SETVAR,XIT)^ABMPPAD1  ^ABMPPAD3  ^ABMPPFLR  $$EN^ABMVDF  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Third Party Billing 2 ABMDESM  ABMPPAD2  

Entry Points

Name Comments DBIA/ICR reference
DISPCK ; chk if no complete insurer OR if 2 export modes on claim; don't do if either is true
DISP
EDIT ;
GATHER
ADD ;
EDIT2 ;
XIT ;
DOLAMT(AMT) ;

External References

Name Field # of Occurrence
PAUSE^ABMDE1 DISP+7
SUM^ABMDE1 DISP+6
PRTORD^ABMDEOK1 DISPCK+3
SEL^ABMDEOPT DISP+104
ADD^ABMPPAD1 ADD+1
DISPCK^ABMPPAD1 DISPCK+16
EDIT^ABMPPAD1 EDIT+1
EDIT2^ABMPPAD1 EDIT2+1
SETVAR^ABMPPAD1 GATHER+2, DISP+1
XIT^ABMPPAD1 XIT+1
^ABMPPAD3 GATHER+111
^ABMPPFLR GATHER+112, EDIT2+2
$$EN^ABMVDF DISP+44, DISP+62
$$GET1^DIQ DISPCK+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Payment Amount....: "
  • Line Location: DISP+39
Function Call: WRITE
  • Prompt: $$DOLAMT(ABMPM("PD"))
  • Line Location: DISP+39
Function Call: WRITE
  • Prompt: ?40,"ORIGINAL BILL AMOUNT: ",$J(+$G(ABMP("OBAMT")),10,2)
  • Line Location: DISP+40
Function Call: WRITE
  • Prompt: !,"Deductible Amount.: ",$$DOLAMT(ABMPM("DED"))
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: ?40,"Current Charges.....: ",$J(+$G(ABMPM("TOT")),10,2)
  • Line Location: DISP+42
Function Call: WRITE
  • Prompt: !,"Co-pay/ins Amount.: ",$$DOLAMT(ABMPM("COI"))
  • Line Location: DISP+43
Function Call: WRITE
  • Prompt: ?40,"Current Bill Amount.: ",$$EN^ABMVDF("HIN"),$J(+$G(ABMP("CBAMT")),10,2),$$EN^ABMVDF("HIF")
  • Line Location: DISP+44
Function Call: WRITE
  • Prompt: !,"Write Off.........: ",$$DOLAMT(ABMPM("WO"))
  • Line Location: DISP+45
Function Call: WRITE
  • Prompt: !,"Non-Covered Amount: ",$$DOLAMT(ABMPM("NONC"))
  • Line Location: DISP+46
Function Call: WRITE
  • Prompt: !,"Penalty Amount....: ",$$DOLAMT(ABMPM("PENS"))
  • Line Location: DISP+47
Function Call: WRITE
  • Prompt: !,"Grouper Allowance.: ",$$DOLAMT(ABMPM("GRP"))
  • Line Location: DISP+48
Function Call: WRITE
  • Prompt: !,"Refund............: ",$$DOLAMT(ABMPM("REF"))
  • Line Location: DISP+49
Function Call: WRITE
  • Prompt: !,"Payment Credits...: ",$$DOLAMT(ABMPM("PCR"))
  • Line Location: DISP+50
Function Call: WRITE
  • Prompt: ", ",$P($G(^AUTTPIC(ABMCOV,0)),U)
  • Line Location: DISP+68
Function Call: WRITE
  • Prompt: !?14,"COVERAGE TYPE: ",$P($G(^AUTTPIC(ABMCOV,0)),U)
  • Line Location: DISP+69
Function Call: WRITE
  • Prompt: !?6,"PAYMENT: ",ABMDAMT
  • Line Location: DISP+80
Function Call: WRITE
  • Prompt: ?28,"[",$P(ABMPREC,U,2),"] ",$E($P($G(^BAR(90052.01,$P(ABMPREC,U,2),0)),U),1,18)
  • Line Location: DISP+84
Function Call: WRITE
  • Prompt: ?48,"[",$P(ABMPREC,U,3),"] ",$E($P($G(^BARTBL($P(ABMPREC,U,3),0)),U),1,18)
  • Line Location: DISP+85
Function Call: WRITE
  • Prompt: !,ABMDASH,!
  • Line Location: DISP+91
Function Call: WRITE
  • Prompt: "ERROR: STANDARD ADJUSTMENT CODE NOT ENTERED FOR ADJUSTMENT",!
  • Line Location: DISP+95
Function Call: WRITE
  • Prompt: "ERROR: STANDARD ADJUSTMENT REASON DOESN'T MATCH ADJUSTMENT CATEGORY/REASON",!
  • Line Location: DISP+96
Function Call: WRITE
  • Prompt: "ERROR: NEGATIVE BALANCE ON BILL NOT ALLOWED",!
  • Line Location: DISP+97
Function Call: WRITE
  • Prompt: ABMDASH,!
  • Line Location: DISP+98
Function Call: WRITE
  • Prompt: "**Use the EDIT option to populate the Standard Adjustment Reason Code**",!
  • Line Location: DISP+99

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTNINS - [#9999999.18] GET1^DIQ
^AUTTINTY - [#9999999.181] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( GATHER+7, GATHER+10, GATHER+11, GATHER+14, GATHER+16, GATHER+19, GATHER+20, GATHER+37, GATHER+39, GATHER+41
, GATHER+42, GATHER+43, GATHER+54, GATHER+55, GATHER+56!, GATHER+83, GATHER+85, GATHER+86, GATHER+87
^ABMDCLM - [#9002274.3] DISPCK+9, DISPCK+10, DISPCK+12, DISPCK+13, DISP+10, DISP+11, DISP+12, DISP+13, DISP+64, DISP+67
^ABMDPARM( GATHER+4, GATHER+59, GATHER+60
^ABMNINS( DISPCK+3, DISPCK+12
^AUPNPAT - [#9000001] GATHER+3
^AUTNINS - [#9999999.18] DISP+60, DISP+65
^AUTTPIC - [#9999999.65] DISP+66, DISP+68, DISP+69
^BAR(90052.01 - [#90052.01] DISP+84
^BAR(90052.05 GATHER+69, GATHER+70, GATHER+72, GATHER+74, GATHER+75
^BAR(90052.06 GATHER+67, GATHER+68
^BARAC( GATHER+80, GATHER+81
^BARADJ - [#90056.06] DISP+87, DISP+88, DISP+89
^BARADJ("C" GATHER+107
^BARBL( GATHER+78, GATHER+80, GATHER+81
^BARTBL - [#90052.02] DISP+85
^BARTR( GATHER+93, GATHER+94, GATHER+100, GATHER+101, GATHER+104

Label References

Name Line Occurrences
$$DOLAMT DISP+39, DISP+41, DISP+43, DISP+45, DISP+46, DISP+47, DISP+48, DISP+49, DISP+50, DISP+78
@( DISP+107
DISP DISP+107
EDIT2 ADD+3
XIT DISP+7, DISP+105, DISP+106

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABM("DO" DISP+107*
>> ABMA DISPCK+7*, DISPCK+9*, DISPCK+10, DISPCK+12
>> ABMADJC GATHER+26*, GATHER+29, GATHER+30, GATHER+31, GATHER+32, GATHER+33, GATHER+34, GATHER+35, GATHER+36, GATHER+47
, GATHER+48, GATHER+50, GATHER+51, GATHER+101*, GATHER+104, GATHER+106, GATHER+107
>> ABMADJT GATHER+27*, GATHER+48
ABMAFLG DISPCK+8!, DISPCK+12*, DISPCK+14, DISPCK+15!
>> ABMAI DISPCK+10*, DISPCK+11, DISPCK+12, DISPCK+13
>> ABMAIEN GATHER+78*, GATHER+79, GATHER+80, GATHER+81, GATHER+93
>> ABMAMT GATHER+23*, GATHER+29*, GATHER+30*, GATHER+31*, GATHER+32*, GATHER+33*, GATHER+34*, GATHER+35*, GATHER+36*, GATHER+47
, GATHER+48
>> ABMBFIEN GATHER+9*, GATHER+10*, GATHER+11, GATHER+14, GATHER+16, GATHER+19, GATHER+20, GATHER+37, GATHER+39, GATHER+41
, GATHER+42, GATHER+43, GATHER+53, GATHER+54, GATHER+55, GATHER+56, GATHER+83, GATHER+85, GATHER+86, GATHER+87
, GATHER+90
>> ABMBINS GATHER+19*, GATHER+37*, GATHER+39, GATHER+42, GATHER+43*, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52
, GATHER+53, GATHER+81*, GATHER+83, GATHER+86, GATHER+87*, GATHER+90, GATHER+106, GATHER+107, GATHER+108, GATHER+109
>> ABMBNUM GATHER+11*, GATHER+59*, GATHER+60*, GATHER+78
>> ABMBSTA GATHER+6*, GATHER+7*, GATHER+8, GATHER+10
>> ABMBSUF GATHER+4*, GATHER+59
>> ABMC("CONT" DISP+7*
>> ABMCAT GATHER+23*, GATHER+25*, GATHER+47, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+102*, GATHER+103*
, GATHER+104*, GATHER+105, GATHER+106, GATHER+107, GATHER+108, GATHER+109, DISP+23*, DISP+24*, DISP+26, DISP+27
, DISP+28, DISP+29, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37
, DISP+70*, DISP+71*, DISP+73, DISP+74, DISP+76, DISP+77, DISP+80, DISP+83
>> ABMCHK GATHER
>> ABMCOV DISP+63*, DISP+64*, DISP+66, DISP+67*, DISP+68, DISP+69
>> ABMDAMT DISP+76*, DISP+78*, DISP+80, DISP+82
>> ABMDASH DISP+2*, DISP+91, DISP+98
>> ABMEFLG ADD+2, EDIT+2
ABMHOLD GATHER+62*, GATHER+79!, GATHER+110!
>> ABMIIEN DISP+11*, DISP+15, DISP+21*, DISP+22*, DISP+24, DISP+26, DISP+27, DISP+28, DISP+30, DISP+31
, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+54*, DISP+56*, DISP+57, DISP+58
, DISP+60, DISP+65, DISP+71, DISP+73, DISP+74, DISP+76, DISP+83
>> ABMILST( GATHER+53*, GATHER+90*
>> ABMINS DISP+9*, DISP+10*, DISP+11, DISP+12, DISP+13, DISP+15, DISP+58*, DISP+64, DISP+67
>> ABMIPRI DISP+19*, DISP+20*, DISP+22
>> ABMLN GATHER+15*, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+92*, GATHER+106, GATHER+107, GATHER+108*
, GATHER+109*, DISP+25*, DISP+26*, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34
, DISP+35, DISP+36, DISP+37, DISP+72*, DISP+73*, DISP+74, DISP+75, DISP+76, DISP+83
>> ABMLNSV DISP+75*
ABMMFLG DISPCK+4!, DISPCK+8!, DISPCK+13*, DISPCK+14, DISPCK+15!, DISP!, DISP+88*, DISP+89*, DISP+96, DISP+98
, DISP+100!
ABMNFLG DISP+39*!, DISP+77*, DISP+79!, DOLAMT+1
>> ABMOPDT GATHER+22*, GATHER+55*, GATHER+95*
>> ABMP("CBAMT" DISP+18*, DISP+27*, DISP+44, DISP+97
>> ABMP("CDFN" DISPCK+9, DISPCK+10, DISPCK+12, DISPCK+13, GATHER+7, GATHER+10, DISP+10, DISP+11, DISP+12, DISP+13
, DISP+64, DISP+67
>> ABMP("DDL" DISP+6
>> ABMP("DFLT" DISP+103*
>> ABMP("EXP" DISPCK+3, DISP+94
>> ABMP("INS" DISPCK+3
>> ABMP("ITYP" DISPCK+3
>> ABMP("LDFN" DISPCK+3, DISPCK+12, GATHER+4, GATHER+59, GATHER+60, GATHER+63
>> ABMP("NC" DISP+17
>> ABMP("OBAMT" DISP+40
>> ABMP("OPT" DISP+102*
>> ABMP("PDFN" GATHER+3
>> ABMP("SCRN" DISP+4*
>> ABMP("TOT" DISP+17
>> ABMP("VDT" GATHER+72, GATHER+74
>> ABMP("VTYP" DISPCK+3
>> ABMPAR GATHER+64*, GATHER+67, GATHER+75*, GATHER+76, GATHER+77
>> ABMPHRN GATHER+3*, GATHER+60
>> ABMPIEN GATHER+13*, GATHER+14*, GATHER+16, GATHER+52, GATHER+55
>> ABMPL( DISP+15*, DISP+20, DISP+22, DISP+53, DISP+56, DISP+57, DISP+58
ABMPM DISPCK+5!, GATHER+1!
ABMPM("COI" DISP+33*, DISP+43
ABMPM("DED" DISP+32*, DISP+41
ABMPM("GRP" DISP+35*, DISP+48
ABMPM("NONC" DISP+31*, DISP+46
ABMPM("PCR" DISP+37*, DISP+50
ABMPM("PD" DISP+28*, DISP+39
ABMPM("PENS" DISP+34*, DISP+47
ABMPM("REF" DISP+36*, DISP+49
ABMPM("TOT" DISP+17*, DISP+42
ABMPM("WO" DISP+30*, DISP+45
ABMPP DISPCK+6~, GATHER+1!
ABMPP( GATHER+48*, GATHER+49*, GATHER+50*, GATHER+51*, GATHER+52*, GATHER+106*, GATHER+107*, GATHER+108*, GATHER+109*, DISP+24
, DISP+26, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36
, DISP+37, DISP+71, DISP+73, DISP+74, DISP+76, DISP+83
>> ABMPREC GATHER+16*, GATHER+20, GATHER+22, GATHER+23, GATHER+26, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+31
, GATHER+32, GATHER+33, GATHER+34, GATHER+35, GATHER+36, GATHER+54, DISP+83*, DISP+84, DISP+85, DISP+86
, DISP+87, DISP+88, DISP+89, DISP+90
>> ABMPRI DISP+12*, DISP+15, DISP+52*, DISP+53*, DISP+55, DISP+56, DISP+57, DISP+58, DISP+60, DISP+61
>> ABMPRIS DISP+55*
>> ABMREC GATHER+94*, GATHER+95, GATHER+96, GATHER+106
>> ABMSAR GATHER+28*, GATHER+48
>> ABMSAT GATHER+63*, GATHER+69, GATHER+70, GATHER+72, GATHER+74, GATHER+75
ABMSFLG DISPCK+4!, DISP!, DISP+90*, DISP+95, DISP+97*, DISP+98, DISP+100!
>> ABMSTAT DISP+13*, DISP+14, DISP+15, DISP+57*, DISP+59*, DISP+62
ABMTFLAG DISPCK+4!, GATHER+13*, GATHER+21*, GATHER+57, GATHER+112, GATHER+114*
ABMTFLG GATHER+40*, GATHER+41, GATHER+44*, GATHER+45!, GATHER+84*, GATHER+85, GATHER+88*, GATHER+89!
ABMTIEN GATHER+40*, GATHER+41*, GATHER+42, GATHER+43, GATHER+45!, GATHER+84*, GATHER+85*, GATHER+86, GATHER+87, GATHER+89!
>> ABMTRIEN GATHER+92*, GATHER+93*, GATHER+94, GATHER+100, GATHER+101, GATHER+104
>> ABMTTYP GATHER+100*, GATHER+103, GATHER+104*, GATHER+106, GATHER+107
>> ABMZ("PG" DISP+5*
>> ABMZ("TITL" DISP+3*
AMT DOLAMT~, DOLAMT+1
>> DA GATHER+66*, GATHER+67*, GATHER+68, GATHER+69, GATHER+70, GATHER+72, GATHER+74, GATHER+75
>> DIROUT DISP+7, DISP+106
>> DTOUT DISP+7, DISP+106
>> DUOUT DISP+7, DISP+106
DUZ(2 DISPCK+9, DISPCK+10, DISPCK+12, DISPCK+13, GATHER+3, GATHER+7, GATHER+10, GATHER+11, GATHER+14, GATHER+16
, GATHER+19, GATHER+20, GATHER+37, GATHER+39, GATHER+41, GATHER+42, GATHER+43, GATHER+54, GATHER+55, GATHER+56
, GATHER+62, GATHER+77*, GATHER+78, GATHER+79*, GATHER+80, GATHER+81, GATHER+83, GATHER+85, GATHER+86, GATHER+87
, GATHER+93, GATHER+94, GATHER+100, GATHER+101, GATHER+104, GATHER+110*, DISP+10, DISP+11, DISP+12, DISP+13
, DISP+64, DISP+67
U DISPCK+3, DISPCK+10, DISPCK+12, DISPCK+13, GATHER+3, GATHER+4, GATHER+11, GATHER+19, GATHER+20, GATHER+22
, GATHER+23, GATHER+26, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+32, GATHER+33, GATHER+34
, GATHER+35, GATHER+36, GATHER+37, GATHER+42, GATHER+43, GATHER+49, GATHER+50, GATHER+51, GATHER+52, GATHER+54
, GATHER+55, GATHER+59, GATHER+60, GATHER+70, GATHER+72, GATHER+74, GATHER+75, GATHER+80, GATHER+81, GATHER+86
, GATHER+87, GATHER+95, GATHER+96, GATHER+100, GATHER+101, GATHER+104, GATHER+106, GATHER+107, GATHER+108, GATHER+109
, DISP+11, DISP+12, DISP+13, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+33, DISP+34
, DISP+35, DISP+36, DISP+37, DISP+57, DISP+58, DISP+60, DISP+65, DISP+66, DISP+68, DISP+69
, DISP+74, DISP+76, DISP+84, DISP+85, DISP+86, DISP+87, DISP+88, DISP+89, DISP+90
>> Y DISP+105, DISP+107
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All