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: IBACCWLAIBILL

Package: Integrated Billing

Routine: IBACCWLAIBILL


Information

IBACCWLAIBILL ;EDE/TPF - ACC (Automated Community Care) Claims - Action Items related to actions on a Bill; 12-SEP-2023

Source Information

Source file <IBACCWLAIBILL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 6 PULLLIST^IBACCWL1  (ADDPREVACT,EDITAS2GRP,EDITPREVACT,EDITSTATUS,PUBLISH,UPDAS2GRP,UPDSTATUS)^IBACCWLUTIL  ($$ASSIGNEDGRP,$$DATEASSNED,$$PREVACT,$$REASCODE,$$STATUS,$$TRANSMITTED,AVAILABLECHK,EEPUBLISH)^IBACCWLUTIL1  ^IBCB1  NOPTF^IBCC  $$VAL^IBCE837ACCU  
VA FileMan 4 (,FILE,UPDATE)^DIE  $$IENS^DILF  ($$GET1,GETS)^DIQ  ^DIR  
List Manager 3 (FULL,PAUSE)^VALM1  FLDTEXT^VALM10  EN^VALM2  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 1 IBACCWLAIREAS  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
CANCEL ;EP - CANCEL ACC CLAIM
BILLCOMP ;BILL COMPLETE
RESUBMIT ;EP - RESUBMIT
RESUBMITLOOP(IBDAIEN,BATCHITEM,BATCHCOMMENT,SUCCESS,LASTONEPUBLISHED) ;
SEL(IBDA,OPTION) ;EP -
EDITPREVACT(DA,DEFSTATUS,ASSIGNTOGRP,ESCAPE,BATCHITEM,BATCHCOMMENT) ;EP- EDIT PREV. ACT.

External References

Name Field # of Occurrence
^DIE EDITPREVACT+21
FILE^DIE RESUBMITLOOP+60, RESUBMITLOOP+107
UPDATE^DIE RESUBMITLOOP+74
$$IENS^DILF EDITPREVACT+11
$$GET1^DIQ CANCEL+49, CANCEL+50, CANCEL+76, BILLCOMP+51, BILLCOMP+52, BILLCOMP+77, RESUBMITLOOP+14, RESUBMITLOOP+15, RESUBMITLOOP+56, RESUBMITLOOP+70
, RESUBMITLOOP+95, RESUBMITLOOP+100, RESUBMITLOOP+103, EDITPREVACT+6, EDITPREVACT+9
GETS^DIQ EDITPREVACT+22
^DIR CANCEL+60, CANCEL+64, BILLCOMP+62, BILLCOMP+66, RESUBMITLOOP+52, RESUBMITLOOP+111
PULLLIST^IBACCWL1 BILLCOMP+79, RESUBMIT+28
ADDPREVACT^IBACCWLUTIL CANCEL+79
EDITAS2GRP^IBACCWLUTIL EDITPREVACT+8
EDITPREVACT^IBACCWLUTIL EDITPREVACT+28
EDITSTATUS^IBACCWLUTIL EDITPREVACT+5
PUBLISH^IBACCWLUTIL RESUBMITLOOP+130
UPDAS2GRP^IBACCWLUTIL RESUBMITLOOP+112, EDITPREVACT+9
UPDSTATUS^IBACCWLUTIL BILLCOMP+76, EDITPREVACT+6
$$ASSIGNEDGRP^IBACCWLUTIL1 RESUBMITLOOP+126
$$DATEASSNED^IBACCWLUTIL1 RESUBMITLOOP+127
$$PREVACT^IBACCWLUTIL1 RESUBMITLOOP+122, RESUBMITLOOP+125
$$REASCODE^IBACCWLUTIL1 RESUBMITLOOP+121
$$STATUS^IBACCWLUTIL1 CANCEL+31, BILLCOMP+31, RESUBMITLOOP+27, RESUBMITLOOP+97, RESUBMITLOOP+99
$$TRANSMITTED^IBACCWLUTIL1 BILLCOMP+73
AVAILABLECHK^IBACCWLUTIL1 RESUBMIT+14
EEPUBLISH^IBACCWLUTIL1 RESUBMITLOOP+118
^IBCB1 BILLCOMP+71
NOPTF^IBCC CANCEL+72
$$VAL^IBCE837ACCU RESUBMITLOOP+91
FULL^VALM1 CANCEL+66, BILLCOMP+38, RESUBMIT+12, RESUBMITLOOP+5, RESUBMITLOOP+45, RESUBMITLOOP+86, RESUBMITLOOP+89, SEL+2
PAUSE^VALM1 CANCEL+29, CANCEL+36, CANCEL+45, CANCEL+52, CANCEL+83, BILLCOMP+29, BILLCOMP+36, BILLCOMP+47, BILLCOMP+54, BILLCOMP+82
, RESUBMITLOOP+25, RESUBMITLOOP+32, RESUBMITLOOP+81, RESUBMITLOOP+116, EDITPREVACT+34
FLDTEXT^VALM10 RESUBMITLOOP+121, RESUBMITLOOP+122, RESUBMITLOOP+124, RESUBMITLOOP+125, RESUBMITLOOP+126, RESUBMITLOOP+127
EN^VALM2 SEL+3
$$FMTE^XLFDT BILLCOMP+77

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"VistA claim ",$$GET1^DIQ(399,IBIFN_",",.01)," with status of ",$$GET1^DIQ(399,IBIFN_",",.13)," can no longer be cancelled."
  • Line Location: CANCEL+50
Function Call: WRITE
  • Prompt: !,"VistA claim ",$$GET1^DIQ(399,IBIFN_",",.01)," with status of ",$$GET1^DIQ(399,IBIFN_",",.13)," can no longer be edited."
  • Line Location: BILLCOMP+52
Function Call: WRITE
  • Prompt: !!,"PROCESSING RECORD(S): "
  • Line Location: RESUBMIT+18
Function Call: WRITE
  • Prompt: !,"RESUBMITTING X12 ENCOUNTER NUMBER: ",$P($G(^IBA(364.9,IBENCIFN,0)),U,15)
  • Line Location: RESUBMITLOOP+43
Function Call: WRITE
  • Prompt: !!,"CAN NOT COMPLETE RESUBMIT FROM RU ACTION!"
  • Line Location: RESUBMITLOOP+58
Function Call: WRITE
  • Prompt: !!,"ERROR ATTEMPTING TO UPDATE FIELD #.31 OF FILE #364.9"
  • Line Location: RESUBMITLOOP+61
Function Call: WRITE
  • Prompt: !,"There was a problem updating field .05 for Encounter "_$G(IBENCIFN)
  • Line Location: RESUBMITLOOP+108
Routine Call
  • DIE
  • Line Location:
    • EDITPREVACT+21
Routine Call
  • DIE
  • Line Location:
    • RESUBMITLOOP+60
    • RESUBMITLOOP+107
Routine Call
  • DIE
  • Line Location:
    • RESUBMITLOOP+74
Routine Call
  • DIR
  • Line Location:
    • CANCEL+60
    • CANCEL+64
    • BILLCOMP+62
    • BILLCOMP+66
    • RESUBMITLOOP+52
    • RESUBMITLOOP+111

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364 - [#364] GET1^DIQ
^IBA(364.9 - [#364.9] GET1^DIQ
^IBA(364.92 - [#364.92] GET1^DIQ
364.94 GETS^DIQ
^DGCR(399 - [#399] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CANCEL+39, CANCEL+40, CANCEL+58, CANCEL+73, BILLCOMP+40, BILLCOMP+41, BILLCOMP+60, BILLCOMP+74, BILLCOMP+84, RESUBMITLOOP+35
, RESUBMITLOOP+36
^IBA(364.9 - [#364.9] CANCEL+21, CANCEL+62, CANCEL+74, BILLCOMP+21, BILLCOMP+64, BILLCOMP+75, BILLCOMP+85, RESUBMITLOOP+17, RESUBMITLOOP+43, RESUBMITLOOP+98
, RESUBMITLOOP+100

Label References

Name Line Occurrences
EDITPREVACT RESUBMITLOOP+87
RESUBMITLOOP RESUBMIT+25
SEL CANCEL+6, BILLCOMP+6, RESUBMIT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACTCODEIEN RESUBMITLOOP+56, RESUBMITLOOP+67, RESUBMITLOOP+70, RESUBMITLOOP+103, EDITPREVACT+6, EDITPREVACT+9
ADDERR RESUBMITLOOP+2~, RESUBMITLOOP+76
ADDERR("DIERR" RESUBMITLOOP+78
ADDFDA RESUBMITLOOP+2~
ADDFDA( RESUBMITLOOP+65*, RESUBMITLOOP+66*, RESUBMITLOOP+68*, RESUBMITLOOP+70*, RESUBMITLOOP+71*, RESUBMITLOOP+72*
ADDIENS RESUBMITLOOP+2~, RESUBMITLOOP+64*, RESUBMITLOOP+65, RESUBMITLOOP+66, RESUBMITLOOP+68, RESUBMITLOOP+70, RESUBMITLOOP+71, RESUBMITLOOP+72
ADDIENS(1 RESUBMITLOOP+83, RESUBMITLOOP+105
>> ASSIGNGRP RESUBMITLOOP+63*, RESUBMITLOOP+71, RESUBMITLOOP+130
ASSIGNTOGRP RESUBMITLOOP+63*, RESUBMITLOOP+72, RESUBMITLOOP+87, RESUBMITLOOP+130, EDITPREVACT~, EDITPREVACT+8, EDITPREVACT+9
BATCHCOMMENT RESUBMIT+2~, RESUBMIT+25, RESUBMITLOOP~, RESUBMITLOOP+87, EDITPREVACT~, EDITPREVACT+23*, EDITPREVACT+27, EDITPREVACT+28
BATCHCOMMENT("E" EDITPREVACT+24!
BATCHCOMMENT("I" EDITPREVACT+25!
BATCHITEM RESUBMIT+2~, RESUBMIT+23*, RESUBMIT+25, RESUBMITLOOP~, RESUBMITLOOP+48, RESUBMITLOOP+87, EDITPREVACT~, EDITPREVACT+12, EDITPREVACT+27
CNT RESUBMIT+18~*
CURASSIGGRP RESUBMITLOOP+2~, RESUBMITLOOP+14*
DA RESUBMITLOOP+83*, RESUBMITLOOP+87, EDITPREVACT~, EDITPREVACT+11
DA(1 RESUBMITLOOP+84*, EDITPREVACT+5, EDITPREVACT+6, EDITPREVACT+8, EDITPREVACT+9, EDITPREVACT+18
DEFSTATUS RESUBMITLOOP+85*, RESUBMITLOOP+87, EDITPREVACT~, EDITPREVACT+5, EDITPREVACT+6, EDITPREVACT+7
DFN CANCEL+2~, CANCEL+21*, CANCEL+22*, CANCEL+39*, BILLCOMP+2~, BILLCOMP+21*, BILLCOMP+22*, BILLCOMP+40*, BILLCOMP+45*, RESUBMIT+2~
, RESUBMITLOOP+2~, RESUBMITLOOP+17*, RESUBMITLOOP+18*, RESUBMITLOOP+35*
DIC RESUBMITLOOP+2~
DIE EDITPREVACT+1~, EDITPREVACT+18*
DIR CANCEL+28~, CANCEL+35~, CANCEL+44~, CANCEL+51~, CANCEL+60~, CANCEL+64~, CANCEL+82~, BILLCOMP+28~, BILLCOMP+35~, BILLCOMP+46~
, BILLCOMP+53~, BILLCOMP+62~, BILLCOMP+66~, BILLCOMP+81~, RESUBMITLOOP+24~, RESUBMITLOOP+31~, RESUBMITLOOP+47~, RESUBMITLOOP+80~, RESUBMITLOOP+109~, RESUBMITLOOP+115~
, EDITPREVACT+33~
DIR("A" RESUBMITLOOP+51*
DIR(0 CANCEL+60*, CANCEL+64*, BILLCOMP+62*, BILLCOMP+66*, RESUBMITLOOP+50*, RESUBMITLOOP+110*
DIROUT RESUBMITLOOP+109~
DIRUT CANCEL+82~, BILLCOMP+81~, RESUBMITLOOP+80~, EDITPREVACT+33~
>> DR EDITPREVACT+19*, EDITPREVACT+20*
DTOUT CANCEL+82~, BILLCOMP+81~, RESUBMITLOOP+48, RESUBMITLOOP+53, RESUBMITLOOP+80~, RESUBMITLOOP+109~, EDITPREVACT+33~
DUOUT CANCEL+82~, BILLCOMP+81~, RESUBMITLOOP+48, RESUBMITLOOP+53, RESUBMITLOOP+80~, RESUBMITLOOP+109~, EDITPREVACT+33~
DUZ CANCEL+79, RESUBMITLOOP+66
ERROR EDITPREVACT+1~
ESCAPE RESUBMIT+2~, RESUBMIT+21*, RESUBMIT+23, RESUBMITLOOP+48, RESUBMITLOOP+53*, RESUBMITLOOP+87, EDITPREVACT~, EDITPREVACT+3*
FROMSTATUS RESUBMITLOOP+2~, RESUBMITLOOP+15*
IBAC BILLCOMP+2~, BILLCOMP+70*
IBBILL CANCEL+2~, CANCEL+40*, CANCEL+56, BILLCOMP+2~, BILLCOMP+41*, BILLCOMP+58, RESUBMIT+2~, RESUBMITLOOP+3~, RESUBMITLOOP+36*, RESUBMITLOOP+41
, RESUBMITLOOP+42, RESUBMITLOOP+98, RESUBMITLOOP+100, RESUBMITLOOP+114
>> IBBILLER BILLCOMP+79, RESUBMIT+28
IBCAN CANCEL+2~, CANCEL+71*
IBDA CANCEL+6~, CANCEL+8, CANCEL+10, CANCEL+18, CANCEL+19, CANCEL+24, CANCEL+26, BILLCOMP+6~, BILLCOMP+8, BILLCOMP+10
, BILLCOMP+18, BILLCOMP+19, BILLCOMP+24, BILLCOMP+26, RESUBMIT+6~, RESUBMIT+8, RESUBMIT+10, RESUBMIT+14, RESUBMIT+15, RESUBMIT+16
, SEL~, SEL+1!, SEL+7*, SEL+8*, SEL+9, SEL+11*
IBDA( CANCEL+10, BILLCOMP+10, RESUBMIT+10, RESUBMIT+16, RESUBMIT+18, RESUBMIT+23, RESUBMIT+24, SEL+9*
IBDA("" SEL+11
IBDA("TOTAL" RESUBMIT+16, SEL+6*, SEL+10*, EDITPREVACT+15
IBDAIEN RESUBMIT+22*, RESUBMIT+23*, RESUBMIT+24, RESUBMIT+25, RESUBMITLOOP~, RESUBMITLOOP+11, RESUBMITLOOP+12, RESUBMITLOOP+20, RESUBMITLOOP+22, RESUBMITLOOP+118
, RESUBMITLOOP+121, RESUBMITLOOP+122, RESUBMITLOOP+124, RESUBMITLOOP+125, RESUBMITLOOP+126, RESUBMITLOOP+127, RESUBMITLOOP+128, RESUBMITLOOP+130
>> IBDAYSMAX BILLCOMP+79, RESUBMIT+28
>> IBDIV BILLCOMP+79, RESUBMIT+28
IBENCIFN CANCEL+2~, CANCEL+15*, CANCEL+19*, CANCEL+21, CANCEL+31, CANCEL+62, CANCEL+74, CANCEL+79, BILLCOMP+2~, BILLCOMP+15*
, BILLCOMP+19*, BILLCOMP+21, BILLCOMP+31, BILLCOMP+64, BILLCOMP+75, BILLCOMP+76, BILLCOMP+85, RESUBMIT+2~, RESUBMITLOOP+3~, RESUBMITLOOP+8*
, RESUBMITLOOP+12*, RESUBMITLOOP+14, RESUBMITLOOP+15, RESUBMITLOOP+17, RESUBMITLOOP+27, RESUBMITLOOP+43, RESUBMITLOOP+58, RESUBMITLOOP+59, RESUBMITLOOP+64, RESUBMITLOOP+77
, RESUBMITLOOP+84, RESUBMITLOOP+91, RESUBMITLOOP+95, RESUBMITLOOP+97, RESUBMITLOOP+98, RESUBMITLOOP+99, RESUBMITLOOP+100, RESUBMITLOOP+105, RESUBMITLOOP+108, RESUBMITLOOP+112
, RESUBMITLOOP+121, RESUBMITLOOP+122, RESUBMITLOOP+125, RESUBMITLOOP+126, RESUBMITLOOP+127, RESUBMITLOOP+130
IBER BILLCOMP+2~, BILLCOMP+69*
>> IBFROMVALMDDF RESUBMITLOOP+118
>> IBICAMEFROMEE RESUBMIT+29*
IBIFN CANCEL+2~, CANCEL+16*, CANCEL+18*, CANCEL+38, CANCEL+39, CANCEL+40, CANCEL+49, CANCEL+50, CANCEL+58, CANCEL+70
, CANCEL+73, CANCEL+76, BILLCOMP+2~, BILLCOMP+16*, BILLCOMP+18*, BILLCOMP+39, BILLCOMP+40, BILLCOMP+41, BILLCOMP+51, BILLCOMP+52
, BILLCOMP+60, BILLCOMP+73, BILLCOMP+74, BILLCOMP+77, BILLCOMP+84, RESUBMIT+2~, RESUBMITLOOP+3~, RESUBMITLOOP+9*, RESUBMITLOOP+11*, RESUBMITLOOP+34
, RESUBMITLOOP+35, RESUBMITLOOP+36
IBNOASK CANCEL+2~, CANCEL+69*
>> IBPARENT CANCEL+14, BILLCOMP+14, RESUBMIT+28, RESUBMITLOOP+7, RESUBMITLOOP+118
>> IBSORT BILLCOMP+79, RESUBMIT+28
IBVIEW BILLCOMP+2~, BILLCOMP+68*
IEN RESUBMIT+18~*
LASTONEPUBLISHED RESUBMIT+2~, RESUBMIT+20*, RESUBMIT+25, RESUBMITLOOP~, RESUBMITLOOP+118, RESUBMITLOOP+130
MODERR RESUBMITLOOP+57~, RESUBMITLOOP+61, RESUBMITLOOP+104~, RESUBMITLOOP+108
MODFDA RESUBMITLOOP+57~, RESUBMITLOOP+104~
MODFDA( RESUBMITLOOP+59*, RESUBMITLOOP+106*
MODIENS RESUBMITLOOP+104~, RESUBMITLOOP+105*, RESUBMITLOOP+106
NEWASSIGNTOGRP RESUBMITLOOP+94~, RESUBMITLOOP+95*, RESUBMITLOOP+106, RESUBMITLOOP+112
NOTE CANCEL+77~, CANCEL+79
NOTE(1 CANCEL+78*
NOTE(2 CANCEL+78*
NOW RESUBMITLOOP+3~
OPTION SEL~, SEL+3
PREVACTIENS EDITPREVACT+1~, EDITPREVACT+11*, EDITPREVACT+22, EDITPREVACT+23, EDITPREVACT+28
PREVACTRET EDITPREVACT+1~
PREVACTRET( EDITPREVACT+23
>> PUBLISHINGON RESUBMITLOOP+130
>> PUBSUCCESS RESUBMITLOOP+130
>> RET CANCEL+79
RETURN EDITPREVACT+1~
SUCCESS RESUBMIT+2~, RESUBMIT+25, RESUBMITLOOP~, RESUBMITLOOP+91*, RESUBMITLOOP+93, RESUBMITLOOP+118, RESUBMITLOOP+120
TRANSMITDATE BILLCOMP+2~, BILLCOMP+77*
TRANSMITTED BILLCOMP+2~
U CANCEL+21, CANCEL+39, CANCEL+40, BILLCOMP+21, BILLCOMP+40, BILLCOMP+41, RESUBMITLOOP+17, RESUBMITLOOP+35, RESUBMITLOOP+36, RESUBMITLOOP+43
, RESUBMITLOOP+56, RESUBMITLOOP+70, RESUBMITLOOP+98, RESUBMITLOOP+100, RESUBMITLOOP+103, EDITPREVACT+6, EDITPREVACT+9
>> USERGROUP RESUBMITLOOP+63
>> VALM("LINES" RESUBMIT+28
>> VALMAR CANCEL+15, CANCEL+16, CANCEL+18, CANCEL+19, CANCEL+24, CANCEL+26, BILLCOMP+15, BILLCOMP+16, BILLCOMP+18, BILLCOMP+19
, BILLCOMP+24, BILLCOMP+26, BILLCOMP+78, RESUBMIT+28, RESUBMITLOOP+8, RESUBMITLOOP+9, RESUBMITLOOP+11, RESUBMITLOOP+12, RESUBMITLOOP+20, RESUBMITLOOP+22
, RESUBMITLOOP+128, SEL+9
>> VALMBCK CANCEL+8*, CANCEL+10*, CANCEL+27*, CANCEL+34*, CANCEL+46*, CANCEL+53*, CANCEL+59*, CANCEL+63*, CANCEL+84*, BILLCOMP+8*
, BILLCOMP+10*, BILLCOMP+27*, BILLCOMP+34*, BILLCOMP+48*, BILLCOMP+55*, BILLCOMP+61*, BILLCOMP+65*, BILLCOMP+83*, RESUBMIT+8*, RESUBMIT+15*
, RESUBMIT+16*, RESUBMIT+28*, RESUBMIT+29*, RESUBMIT+31*, RESUBMITLOOP+23*, RESUBMITLOOP+30*, RESUBMITLOOP+54*, RESUBMITLOOP+79*, RESUBMITLOOP+118*, RESUBMITLOOP+132*
, EDITPREVACT+31*, EDITPREVACT+36*
>> VALMBG RESUBMIT+28*
>> VALMDDF RESUBMITLOOP+130
>> VALMDDF("ASSIGNEDGRP" RESUBMITLOOP+126
>> VALMDDF("DATEASSNED" RESUBMITLOOP+127
>> VALMDDF("INDICATOR" RESUBMITLOOP+124
>> VALMDDF("PREVACT" RESUBMITLOOP+122, RESUBMITLOOP+125
>> VALMDDF("REASCODE" RESUBMITLOOP+121
>> VALMLST RESUBMIT+28
>> VALMSG CANCEL+4*, BILLCOMP+4*, RESUBMIT+4*
VALMY SEL+1!, SEL+4
VALMY( SEL+8
WPERR EDITPREVACT+28!, EDITPREVACT+29
WPERR("DIERR" EDITPREVACT+32
X RESUBMITLOOP+3~, RESUBMITLOOP+47~
>> XQORNOD(0 SEL+3
Y CANCEL+70*, RESUBMITLOOP+3~, RESUBMITLOOP+47~, RESUBMITLOOP+48, RESUBMITLOOP+53
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