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 |  Local Variables |  All
Print Page as PDF
Routine: ABMPPAD1

Package: Third Party Billing

Routine: ABMPPAD1


Information

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

Source Information

Source file <ABMPPAD1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Third Party Billing 1 EN^ABMPPFLR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Third Party Billing 3 ABMMUFC3  ABMPPAD2  ABMPPADJ  

Entry Points

Name Comments DBIA/ICR reference
DISPCK ;EP
EDIT ;EP
ADD ;EP
EDIT2 ;EP
XIT ;EP
SETVAR ;EP

External References

Name Field # of Occurrence
EN^ABMPPFLR XIT+1
^DIE EDIT+28
^DIR ADD+4, ADD+12, EDIT+5, EDIT+45, EDIT2+4, EDIT2+31, EDIT2+60, EDIT2+67, EDIT2+76
^XBFMK EDIT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,"No insurer at that entry"
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !,"Cannot add/edit the active insurer!"
  • Line Location: ADD+8
Function Call: WRITE
  • Prompt: !,"Ok, let's edit ",$P($G(^AUTNINS(ABMIIEN,0)),U),!
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"No insurer at that entry"
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"Cannot add/edit the active/pending insurer!"
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !,"Ok, let's edit ",$P($G(^AUTNINS(ABMIIEN,0)),U),!
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: "PAYMENT ",$J(ABMPP(ABMIIEN,ABMCAT,ABMLN),10,2)
  • Line Location: EDIT+36
Function Call: WRITE
  • Prompt: ?30,"[",$P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,2),"]",$E($P($G(^BAR(90052.01,$P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,2),0)),U),1,18)
  • Line Location: EDIT+39
Function Call: WRITE
  • Prompt: ?50,"[",$P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,3),"]",$E($P($G(^BARTBL($P($G(ABMPP(ABMIIEN,ABMCAT,ABMLN)),U,3),0)),U),1,18)
  • Line Location: EDIT+40
Function Call: WRITE
  • Prompt: ?75,"[",$P(^BARADJ($P(ABMPP(ABMIIEN,ABMCAT,ABMLN),U,4),0),U),"]"
  • Line Location: EDIT+41
Function Call: WRITE
  • Prompt: !,"Must use Add because there are no transactions to edit!"
  • Line Location: EDIT+42
Routine Call
  • DIE
  • Line Location:
    • EDIT+28
Routine Call
  • DIR
  • Line Location:
    • ADD+4
    • ADD+12
    • EDIT+5
    • EDIT+45
    • EDIT2+4
    • EDIT2+31
    • EDIT2+60
    • EDIT2+67
    • EDIT2+76

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( DISPCK+12, DISPCK+13, DISPCK+14, DISPCK+15, EDIT+15, EDIT+18, EDIT+19, EDIT+21
^AUTNINS - [#9999999.18] ADD+9, EDIT+10
^BAR(90052.01 - [#90052.01] EDIT+39
^BARADJ - [#90056.06] EDIT+41, EDIT2+66
^BARTBL - [#90052.02] EDIT+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM DISPCK+13*, DISPCK+14, DISPCK+15, XIT+3!
ABM("A" DISPCK+11*, DISPCK+12*, DISPCK+13
ABM("CLM" DISPCK+10*, DISPCK+12, DISPCK+13
>> ABMADJC EDIT2+13*, EDIT2+14, EDIT2+15, EDIT2+16, EDIT2+17, EDIT2+18, EDIT2+19, EDIT2+20, EDIT2+21, EDIT2+35*
, EDIT2+36, EDIT2+37, EDIT2+38, EDIT2+39, EDIT2+40, EDIT2+41, EDIT2+42, EDIT2+43, EDIT2+54*
>> ABMAMT EDIT2+5*, EDIT2+6, EDIT2+12, EDIT2+45, EDIT2+46, EDIT2+47, EDIT2+48, EDIT2+49, EDIT2+50, EDIT2+51
, EDIT2+52
>> ABMBFIEN EDIT+17*, EDIT+18*, EDIT+19, EDIT+21, EDIT+22
>> ABMBINS EDIT+21*, EDIT+22
>> ABMBNUM EDIT+19*
>> ABMBSTA EDIT+15*, EDIT+16, EDIT+18
ABMCAT ADD+14*, ADD+16, EDIT+30*, EDIT+31*, EDIT+33, EDIT+34, EDIT+36, EDIT+37, EDIT+38, EDIT+39
, EDIT+40, EDIT+41, EDIT+49*, EDIT+51*, EDIT+53, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+9
, EDIT2+11, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30, EDIT2+32, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61
, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70, EDIT2+71, EDIT2+77, EDIT2+78, EDIT2+79, XIT+4!
>> ABMCHK DISPCK+3*, DISPCK+4*, DISPCK+9*, DISPCK+16*
>> ABMDCLM( XIT+2
ABMDIF EDIT+50!, EDIT2+6*, EDIT2+10
ABME XIT+3!
ABMEFLG ADD+5*, ADD+6*, ADD+8*, ADD+13*, EDIT+2!, EDIT+6*, EDIT+7*, EDIT+9*, EDIT+42*, EDIT+46*
>> ABMEXPM DISPCK+5*, DISPCK+7*, DISPCK+8, DISPCK+9
ABMEXPMS DISPCK+6!, DISPCK+8*, DISPCK+9
ABMIIEN ADD+7*, ADD+8, ADD+9, ADD+16, EDIT+8*, EDIT+9, EDIT+10, EDIT+14, EDIT+24, EDIT+26
, EDIT+31, EDIT+33, EDIT+34, EDIT+36, EDIT+38, EDIT+39, EDIT+40, EDIT+41, EDIT+48, EDIT+51
, EDIT+53, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30, EDIT2+32
, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70, EDIT2+71
, EDIT2+77, EDIT2+78, EDIT2+79, XIT+4!
>> ABMILST( EDIT+14, EDIT+22*, EDIT+24
ABMINS XIT+4!
ABMLAMT XIT+5!
ABMLFLG EDIT+50!, EDIT+51, EDIT+53, EDIT+54*
ABMLN ADD+15*, ADD+16, EDIT+20*, EDIT+32*, EDIT+33*, EDIT+34, EDIT+35, EDIT+36, EDIT+38, EDIT+39
, EDIT+40, EDIT+41, EDIT+52*, EDIT+53*, EDIT+54, EDIT2+13, EDIT2+22, EDIT2+23, EDIT2+30, EDIT2+32
, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69, EDIT2+70, EDIT2+71
, EDIT2+77, EDIT2+78, EDIT2+79, XIT+4!
ABMLNPK EDIT+45!
ABMLNSV ADD+15*, EDIT+42, EDIT+43, XIT+5!
>> ABMOAMT EDIT2+7*, EDIT2+14, EDIT2+15, EDIT2+16, EDIT2+17, EDIT2+18, EDIT2+19, EDIT2+20, EDIT2+21, EDIT2+36
, EDIT2+37, EDIT2+38, EDIT2+39, EDIT2+40, EDIT2+41, EDIT2+42, EDIT2+43
ABMOFLG EDIT2+24*, EDIT2+25!
ABMOPDT XIT+5!
>> ABMP("C0" XIT+2*
>> ABMP("CDFN" DISPCK+10, EDIT+15, EDIT+18, XIT+2
>> ABMP("EXP" DISPCK+3, DISPCK+7, XIT+9*
>> ABMP("OBAMT" DISPCK+6!, DISPCK+15*, DISPCK+16
>> ABMP("PDFN" DISPCK+14
>> ABMP("SCRN" XIT+7*
>> ABMP("TOT" XIT+8*
ABMPL XIT+3!
ABMPL( ADD+6, ADD+7, ADD+8, EDIT+7, EDIT+8, EDIT+9
>> ABMPM("COI" SETVAR+2*, EDIT2+17*, EDIT2+39*, EDIT2+48*
>> ABMPM("DED" SETVAR+1*, EDIT2+16*, EDIT2+38*, EDIT2+47*
>> ABMPM("GRP" SETVAR+3*, EDIT2+19*, EDIT2+41*, EDIT2+50*
>> ABMPM("NONC" SETVAR+2*, EDIT2+15*, EDIT2+37*, EDIT2+46*
>> ABMPM("PCR" SETVAR+4*, EDIT2+21*, EDIT2+43*, EDIT2+52*
>> ABMPM("PD" SETVAR+1*, EDIT2+10*
>> ABMPM("PENS" SETVAR+3*, EDIT2+18*, EDIT2+40*, EDIT2+49*
>> ABMPM("REF" SETVAR+3*, EDIT2+20*, EDIT2+42*, EDIT2+51*
>> ABMPM("TOT" SETVAR+1*, XIT+8, XIT+9
>> ABMPM("WO" SETVAR+2*, EDIT2+14*, EDIT2+36*, EDIT2+45*
>> ABMPP( ADD+16*, EDIT+31, EDIT+33, EDIT+34!, EDIT+36, EDIT+38, EDIT+39, EDIT+40, EDIT+41, EDIT+48
, EDIT+51, EDIT+53, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8*, EDIT2+13, EDIT2+22*, EDIT2+23*, EDIT2+30
, EDIT2+32*, EDIT2+35, EDIT2+54*, EDIT2+59, EDIT2+61*, EDIT2+62*, EDIT2+66, EDIT2+68*, EDIT2+69*, EDIT2+70*
, EDIT2+71, EDIT2+77*, EDIT2+78*, EDIT2+79*
>> ABMPPIEN ADD+15*, EDIT+47*, EDIT+48, EDIT+54, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8
ABMPR XIT+4!
ABMPREC XIT+6!
ABMPRIS ADD+2, EDIT+3, XIT+3!
>> ABMS("TOT" XIT+8*
ABMSFLG DISPCK+6!, XIT+1
ABMSTAT XIT+4!
ABMTTYP XIT+4!
ABMV XIT+3!
>> DA EDIT+26*
>> DA(1 EDIT+24*, EDIT+25
DIC XIT+5!
DIE EDIT+25*, XIT+5!
DIR ADD+4!, ADD+12!, EDIT+5!, EDIT+45!, EDIT2+4!, EDIT2+26!, EDIT2+31!, EDIT2+55!, EDIT2+60!, EDIT2+63!
, EDIT2+67!, EDIT2+72!, EDIT2+76!
DIR("A" ADD+3*, ADD+11*, EDIT+4*, EDIT+44*, EDIT2+2*, EDIT2+29*, EDIT2+58*, EDIT2+65*, EDIT2+75*
DIR("B" EDIT2+3*, EDIT2+30*, EDIT2+59*, EDIT2+66*, EDIT2+74*
DIR("S" EDIT2+28*, EDIT2+57*
DIR(0 ADD+2*, ADD+10*, EDIT+3*, EDIT+43*, EDIT2+1*, EDIT2+27*, EDIT2+56*, EDIT2+64*, EDIT2+73*
>> DIROUT ADD+5, ADD+13, EDIT+6, EDIT+46
>> DIRUT ADD+5, ADD+13, EDIT+6, EDIT+46
DR EDIT+27*, XIT+5!
>> DTOUT ADD+5, ADD+13, EDIT+6, EDIT+46
>> DUOUT ADD+5, ADD+13, EDIT+6, EDIT+46
DUZ(2 DISPCK+12, DISPCK+13, DISPCK+14, DISPCK+15, EDIT+15, EDIT+18, EDIT+19, EDIT+21, XIT+2
U DISPCK+14, DISPCK+15, ADD+8, ADD+9, EDIT+9, EDIT+10, EDIT+19, EDIT+21, EDIT+34, EDIT+38
, EDIT+39, EDIT+40, EDIT+41, EDIT2+3, EDIT2+6, EDIT2+7, EDIT2+8, EDIT2+13, EDIT2+22, EDIT2+23
, EDIT2+30, EDIT2+32, EDIT2+35, EDIT2+54, EDIT2+59, EDIT2+61, EDIT2+62, EDIT2+66, EDIT2+68, EDIT2+69
, EDIT2+70, EDIT2+71, EDIT2+77, EDIT2+78, EDIT2+79
X EDIT2+26!, EDIT2+32, EDIT2+55!, EDIT2+61, EDIT2+63!, EDIT2+68, EDIT2+72!
Y ADD+6, ADD+7, ADD+8, ADD+14, EDIT+7, EDIT+8, EDIT+9, EDIT+47, EDIT2+5, EDIT2+8
, EDIT2+26!, EDIT2+32, EDIT2+34, EDIT2+45, EDIT2+46, EDIT2+47, EDIT2+48, EDIT2+49, EDIT2+50, EDIT2+51
, EDIT2+52, EDIT2+54, EDIT2+55!, EDIT2+61, EDIT2+62, EDIT2+63!, EDIT2+68, EDIT2+69, EDIT2+72!, EDIT2+77
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All