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

Package: Integrated Billing

Routine: IBACCWLUTIL4


Information

IBACCWLUTIL4 ;EDE/TPF - ACC (Automated Community Care) Encounters utility APIs (Cont.) ; 12-SEP-2023

Source Information

Source file <IBACCWLUTIL4.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 4 EDITPREVACT^IBACCWLUTIL  ($$PREVACT,$$REASCODE)^IBACCWLUTIL1  $$VAL^IBCE837ACCU  EN^IBCEP6  
VA FileMan 4 UPDATE^DIE  $$IENS^DILF  $$GET1^DIQ  ^DIR  
List Manager 2 (FULL,PAUSE)^VALM1  FLDTEXT^VALM10  

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

Package Total Caller Graph
Integrated Billing 1 IBACCWLAIVIEW  

Entry Points

Name Comments DBIA/ICR reference
NEWPROVMAIN ;EP - PROVIDER MAINTENCE - HAD TO MOVE BECAUSE OF SIZE FROM IBACCWLAIVIEW
NPIUPDATE(IBACCNEWNPI) ;EP - RESUBMIT NPI IF USER ADDED AN NPI AND IT IS ALSO LISTED IN THE "ANPI" X-REF
NPIUPDATEQ ;EP - TASKMAN ENTRY POINT?
ORDERBYENC(ORDERBYENC,IBACCNEWNPI) ;EP - GET REDORDER FOR USE IN PREV ACT, COMMENTS
RESUBMIT(IBENCIFN,ORDERBYENC,NEWNPI) ;EP - RESUBMIT
UPDATEWL(IBENCIFN,ASSIGNTOGRP,SUCCESS) ;EP - UPDATE ACTIVE WORK LISTS
NOTINWLDISP(IBENCIFN) ;EP -DISPLAY FOR THOSE NOT FOUD IN WL
NPIVALMDDF(WLGRP,ABORT,NPIVALMDDF) ;EP - CREATE VALMDFF GIVEN WORK GROUP
NOTSUCCESS(IBENCIFN,IBDAIEN,VALMDDF,PREASSIGNTOGRP,CNT) ;EP - UPDATE DISPLAY FIELDS ONLY PERTINENT TO A FAILED RESUBMISSION
SUCCESS(IBENCIFN,IBDAIEN,VALMDDF,CNT) ;EP - UPDATE DISPLAY FIELDS ONLY PERTINENT TO A SUCCSESSFUL RESUBMISSION
EDITPREVACT(DA,DEFSTATUS,ASSIGNTOGRP,ORDERBYENC) ;EP- EDIT PREVIOUS ACTIVITY

External References

Name Field # of Occurrence
UPDATE^DIE RESUBMIT+15
$$IENS^DILF EDITPREVACT+5
$$GET1^DIQ NPIUPDATEQ+14, ORDERBYENC+8, ORDERBYENC+9, ORDERBYENC+10, ORDERBYENC+13, RESUBMIT+6, RESUBMIT+28, RESUBMIT+29, NOTINWLDISP+3, NOTINWLDISP+4
, NOTINWLDISP+5, NOTINWLDISP+6, NOTSUCCESS+6, NOTSUCCESS+7, NOTSUCCESS+8, NOTSUCCESS+13
^DIR NEWPROVMAIN+26, NEWPROVMAIN+45, NEWPROVMAIN+55, EDITPREVACT+30
EDITPREVACT^IBACCWLUTIL EDITPREVACT+23
$$PREVACT^IBACCWLUTIL1 NOTSUCCESS+17, SUCCESS+8
$$REASCODE^IBACCWLUTIL1 NOTSUCCESS+16
$$VAL^IBCE837ACCU RESUBMIT+31
EN^IBCEP6 NEWPROVMAIN+10
FULL^VALM1 NEWPROVMAIN+7, NEWPROVMAIN+12
PAUSE^VALM1 RESUBMIT+21
FLDTEXT^VALM10 NOTSUCCESS+11, NOTSUCCESS+15, NOTSUCCESS+16, NOTSUCCESS+17, NOTSUCCESS+19, SUCCESS+7, SUCCESS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following NPIs were added to the VistA database."
  • Line Location: NEWPROVMAIN+28
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWPROVMAIN+29
Function Call: WRITE
  • Prompt: !,""
  • Line Location: NEWPROVMAIN+33
Function Call: WRITE
  • Prompt: !,"Encounters requiring these NPIs will be re-submitted."
  • Line Location: NEWPROVMAIN+34
Function Call: WRITE
  • Prompt: !,"If an encounter successfully transmits it will be closed."
  • Line Location: NEWPROVMAIN+35
Function Call: WRITE
  • Prompt: !,"Active work list displays will be updated appropriately."
  • Line Location: NEWPROVMAIN+36
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWPROVMAIN+43
Function Call: WRITE
  • Prompt: !!,"Re-submissions completed!"
  • Line Location: NEWPROVMAIN+50
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWPROVMAIN+53
Function Call: WRITE
  • Prompt: !!!,"New NPI "_NEWNPI_" was not found in Missing NPI error list - no encounters to resubmit."
  • Line Location: NPIUPDATEQ+10
Function Call: WRITE
  • Prompt: !,"New NPI entered "_$G(NEWNPI)
  • Line Location: RESUBMIT+33
Function Call: WRITE
  • Prompt: !,"Bill/Enc # "_$G(BILLNUM)_" has been assigned to "_$G(ASSIGNTOGRP)
  • Line Location: NOTINWLDISP+7
Function Call: WRITE
  • Prompt: !,"Status is "_$G(STATUS)
  • Line Location: NOTINWLDISP+8
Function Call: WRITE
  • Prompt: !!,"'"_LISTNAME_"' LIST TEMPLATE CAN NOT BE FOUND!!"
  • Line Location: NPIVALMDDF+5
Routine Call
  • DIE
  • Line Location:
    • RESUBMIT+15
Routine Call
  • DIR
  • Line Location:
    • NEWPROVMAIN+26
    • NEWPROVMAIN+45
    • NEWPROVMAIN+55
    • EDITPREVACT+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.9 - [#364.9] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(364.9 - [#364.9] NPIUPDATEQ+10, NPIUPDATEQ+12, ORDERBYENC+4, ORDERBYENC+7
^SD(409.61 - [#409.61] NPIVALMDDF+4, NPIVALMDDF+7, NPIVALMDDF+10
^TMP( UPDATEWL+7, UPDATEWL+10, UPDATEWL+11

Label References

Name Line Occurrences
EDITPREVACT RESUBMIT+26
NOTINWLDISP UPDATEWL+20
NOTSUCCESS UPDATEWL+19
NPIUPDATE NEWPROVMAIN+48
NPIVALMDDF UPDATEWL+14
ORDERBYENC NPIUPDATEQ+6
RESUBMIT NPIUPDATEQ+15
SUCCESS UPDATEWL+18
UPDATEWL RESUBMIT+36

Naked Globals

Name Field # of Occurrence
^( NPIVALMDDF+10
^(0 NPIVALMDDF+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT UPDATEWL+2~, UPDATEWL+3*, UPDATEWL+14, UPDATEWL+15, NPIVALMDDF~, NPIVALMDDF+5*
ADDERR RESUBMIT+2~, RESUBMIT+17
ADDERR("DIERR" RESUBMIT+19
ADDFDA RESUBMIT+2~
ADDFDA( RESUBMIT+9*, RESUBMIT+10*, RESUBMIT+12*, RESUBMIT+13*
ADDIENS RESUBMIT+2~, RESUBMIT+8*, RESUBMIT+9, RESUBMIT+10, RESUBMIT+12, RESUBMIT+13
ADDIENS(1 RESUBMIT+23
>> ASSIGNGRP RESUBMIT+6*, RESUBMIT+12
ASSIGNTOGRP RESUBMIT+6*, RESUBMIT+13, RESUBMIT+26, RESUBMIT+36, UPDATEWL~, UPDATEWL+19, NOTINWLDISP+2~, NOTINWLDISP+5*, NOTINWLDISP+7, EDITPREVACT~
BILLNUM RESUBMIT+2~, RESUBMIT+29*, RESUBMIT+32, NOTINWLDISP+2~, NOTINWLDISP+3*, NOTINWLDISP+4*, NOTINWLDISP+7, NOTSUCCESS+2~, NOTSUCCESS+6*, NOTSUCCESS+7*
, NOTSUCCESS+11, NOTSUCCESS+20
CNR UPDATEWL+2~
CNT UPDATEWL+6*, UPDATEWL+16*, UPDATEWL+18, UPDATEWL+19, NOTSUCCESS~, NOTSUCCESS+20, NOTSUCCESS+21, SUCCESS~
COMMENT EDITPREVACT+2~, EDITPREVACT+23
COMMENT( EDITPREVACT+17*, EDITPREVACT+19*, EDITPREVACT+20*
COMMENT(1 EDITPREVACT+8*
COMMENT(2 EDITPREVACT+9*
COMMENT(3 EDITPREVACT+10*
COMMENT(4 EDITPREVACT+11*
COMMENT(5 EDITPREVACT+12*
COMMENT(6 EDITPREVACT+13*
COMMENT(7 EDITPREVACT+14*
DA RESUBMIT+23*, RESUBMIT+26, EDITPREVACT~, EDITPREVACT+5
DA(1 RESUBMIT+24*, EDITPREVACT+4
DEFSTATUS RESUBMIT+25*, RESUBMIT+26, EDITPREVACT~
DIE EDITPREVACT+2~
DIR NEWPROVMAIN+24~, NEWPROVMAIN+42~, NEWPROVMAIN+52~, RESUBMIT+20~, EDITPREVACT+28~
DIR(0 NEWPROVMAIN+25*, NEWPROVMAIN+44*, NEWPROVMAIN+54*, EDITPREVACT+29*
DIRUT RESUBMIT+20~
DTOUT NEWPROVMAIN+2~, NEWPROVMAIN+46, RESUBMIT+20~
DUOUT NEWPROVMAIN+2~, NEWPROVMAIN+46, RESUBMIT+20~
DUROUT NEWPROVMAIN+2~, NEWPROVMAIN+46
DUZ RESUBMIT+10
ENC ORDERBYENC+2~, ORDERBYENC+6*, ORDERBYENC+7*, ORDERBYENC+8, ORDERBYENC+9, ORDERBYENC+10, ORDERBYENC+12, ORDERBYENC+13, ORDERBYENC+14, EDITPREVACT+2~
, EDITPREVACT+4*, EDITPREVACT+16
ERROR EDITPREVACT+2~
>> I NPIVALMDDF+9*, NPIVALMDDF+10*
IBACCNEWNPI NEWPROVMAIN+2~, NEWPROVMAIN+48, NPIUPDATE~, NPIUPDATEQ+2, NPIUPDATEQ+6, ORDERBYENC~
IBACCNEWNPI("CALLER" NEWPROVMAIN+5*
IBACCNEWNPI("NEWNPI" NEWPROVMAIN+22, NEWPROVMAIN+31, NPIUPDATEQ+9, ORDERBYENC+5
IBDAIEN UPDATEWL+2~, UPDATEWL+11*, UPDATEWL+12, UPDATEWL+18, UPDATEWL+19, NOTSUCCESS~, NOTSUCCESS+11, NOTSUCCESS+15, NOTSUCCESS+16, NOTSUCCESS+17
, NOTSUCCESS+19, NOTSUCCESS+22, SUCCESS~, SUCCESS+7, SUCCESS+8, SUCCESS+9
IBENCIENS RESUBMIT+2~, RESUBMIT+4*, RESUBMIT+6
IBENCIFN NPIUPDATEQ+4~, NPIUPDATEQ+11*, NPIUPDATEQ+12*, NPIUPDATEQ+13, NPIUPDATEQ+14, NPIUPDATEQ+15, NPIUPDATEQ+16, RESUBMIT~, RESUBMIT+4, RESUBMIT+8
, RESUBMIT+18, RESUBMIT+24, RESUBMIT+28, RESUBMIT+29, RESUBMIT+31, RESUBMIT+36, UPDATEWL~, UPDATEWL+11, UPDATEWL+13, UPDATEWL+18
, UPDATEWL+19, UPDATEWL+20, NOTINWLDISP~, NOTINWLDISP+3, NOTINWLDISP+4, NOTINWLDISP+5, NOTINWLDISP+6, NOTSUCCESS~, NOTSUCCESS+6, NOTSUCCESS+7
, NOTSUCCESS+8, NOTSUCCESS+13, NOTSUCCESS+16, NOTSUCCESS+17, SUCCESS~, SUCCESS+8
IBNVPMIF NEWPROVMAIN+8!
IBWLGRP UPDATEWL+2~, UPDATEWL+5*, UPDATEWL+7*, UPDATEWL+8, UPDATEWL+10, UPDATEWL+11, UPDATEWL+14
JOB UPDATEWL+2~, UPDATEWL+9*, UPDATEWL+10*, UPDATEWL+11, NOTSUCCESS+3, SUCCESS+3
LINE EDITPREVACT+2~, EDITPREVACT+16*, EDITPREVACT+17, EDITPREVACT+19, EDITPREVACT+20
LINENUM NOTSUCCESS+2~
LISTIEN NPIVALMDDF+2~, NPIVALMDDF+4*, NPIVALMDDF+5, NPIVALMDDF+7, NPIVALMDDF+10
LISTNAME NPIVALMDDF+2~, NPIVALMDDF+3*, NPIVALMDDF+4, NPIVALMDDF+5
NEWNPI NEWPROVMAIN+2~, NEWPROVMAIN+30*, NEWPROVMAIN+31*, NEWPROVMAIN+32, NPIUPDATEQ+4~, NPIUPDATEQ+8*, NPIUPDATEQ+9*, NPIUPDATEQ+10, NPIUPDATEQ+12, NPIUPDATEQ+15
, RESUBMIT~, RESUBMIT+33
NEWORDER NPIUPDATEQ+4~
NPI ORDERBYENC+2~, ORDERBYENC+3*, ORDERBYENC+4*, ORDERBYENC+5, ORDERBYENC+7, ORDERBYENC+12, EDITPREVACT+2~, EDITPREVACT+16*, EDITPREVACT+17
NPIVALMDDF UPDATEWL+14, UPDATEWL+18, UPDATEWL+19, NPIVALMDDF~
NPIVALMDDF( NPIVALMDDF+10*
NPIVALMDDF("VALMAR" NPIVALMDDF+7*
ORDERBYENC NPIUPDATEQ+4~, NPIUPDATEQ+6, NPIUPDATEQ+15, ORDERBYENC~, RESUBMIT~, RESUBMIT+26, EDITPREVACT~
ORDERBYENC( ORDERBYENC+12*, EDITPREVACT+16
ORDERBYENC("WL" ORDERBYENC+14*, UPDATEWL+13!, UPDATEWL+20!
POSTASSIGNGRP NOTSUCCESS+2~, NOTSUCCESS+13*, NOTSUCCESS+20
PREASSIGNTOGRP RESUBMIT+6*, NOTSUCCESS~
PREVACTIENS EDITPREVACT+2~, EDITPREVACT+5*, EDITPREVACT+23
PREVACTRET EDITPREVACT+2~
RESUBMITTED NPIUPDATEQ+4~
RESUBMITTED( NPIUPDATEQ+13, NPIUPDATEQ+16*
RETURN EDITPREVACT+2~
STATUS NOTINWLDISP+2~, NOTINWLDISP+6*, NOTINWLDISP+7, NOTINWLDISP+8, NOTSUCCESS+2~, NOTSUCCESS+8*, NOTSUCCESS+21, SUCCESS+2~
SUCCESS RESUBMIT+2~, RESUBMIT+31*, RESUBMIT+34, RESUBMIT+36, UPDATEWL~, UPDATEWL+18
U NPIUPDATEQ+14, NPIVALMDDF+10
VALMAR NOTSUCCESS+2~, NOTSUCCESS+3*, NOTSUCCESS+4, NOTSUCCESS+22, SUCCESS+2~, SUCCESS+3*, SUCCESS+4, SUCCESS+9
VALMDDF UPDATEWL+2~, NOTSUCCESS~, SUCCESS~
VALMDDF("BILLNUM" NOTSUCCESS+10
VALMDDF("INDICATOR" NOTSUCCESS+15, NOTSUCCESS+19, SUCCESS+7
VALMDDF("PREVACT" NOTSUCCESS+17, SUCCESS+8
VALMDDF("REASCODE" NOTSUCCESS+16
VALMDDF("VALMAR" NOTSUCCESS+3, SUCCESS+3
WL ORDERBYENC+2~, ORDERBYENC+13*, ORDERBYENC+14
WLFOUND UPDATEWL+2~
WLGRP NPIVALMDDF~, NPIVALMDDF+3
WPERR EDITPREVACT+22!, EDITPREVACT+23, EDITPREVACT+25
WPERR("DIERR" EDITPREVACT+27
X NEWPROVMAIN+2~
X12CLAIM RESUBMIT+2~, RESUBMIT+28*, RESUBMIT+32
Y NEWPROVMAIN+2~
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 |  Naked Globals |  Local Variables  | All