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 |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BARPT175

Package: IHS Accounts Receivable

Routine: BARPT175


Information

BARPT175 ; IHS/SD/LSL - Post init for V1.7 Patch 5 ;

Source Information

Source file <BARPT175.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Accounts Receivable 6 $$INSTALLD^BAREV17  EN^BARPT171  EN^BARPT172  EN^BARPT173  EN^BARPT174  $$EN^BARVDF  
VA Fileman 4 YX^%DTC  ^DIC  FILE^DICN  ^DIE  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BARPT18  

Entry Points

Name Comments DBIA/ICR reference
MAILTXT ;
; Determine body of e-mail
PRCRTN ;
; In the A/R EDI TABLES File, change the processing routine for
; Remittance Remark Code entry (IEN 34)
EN ; EP - Driver
TRNTYP ;
; Create New transaction type called Remark Code
MAILSET ;
; Set Mailman Variables
TRNSEG ;
; Find MIA and MOA segments of HIPAA transport
MAILMSG ;
PATCH5 ;
; Patch 5 post init
TRNELM ;
; Find Remark Code elements of MIA and MOA segments and
; edit posting element field (.08)
NCPDPTBL ;
; In the A/R EDI TABLES File, add entry for NCPDP Reject/Payment
; Codes (IEN 41)
1 ;;
MAILIST ;
; Find users who hold the BARZMENU key
PRVPATCH ;
; Check previous patch post inits
TRNLQ ;
; Update LQ02 element of HIPAA transport for processing
;
TRNSPT ;
; Update Remark Code elements of HIPAA transport with VRMKCD posting
; element
VPTRN ;
; Create VRMKCD in Variable Processing Multiple for HIPAA 835 v4010
; Transport (node 70). The routine populated here for VRMKCD is what
; is used to populate the REMARK CODE multiple in the CLAIM multiple
; in the A/R EDI IMPORT file.
MAIL ;
; Send a mail message to all holders of the BARZMENU key that a patch
; has been installed on the system.
VPNCPDP ;
; Create VLQCD in Variable Processing Multiple for HIPAA 835 v4010
; Transport (node 70). The routine populated here for VLQCD is what
; is used to populate the REMARK CODE multiple OR NCPDP REJ/PAY
; multiple in the CLAIM multiple of the A/R EDI IMPORT file dependent on
; the value of LQ01.

External References

Name Field # of Occurrence
YX^%DTC MAILMSG+3
$$INSTALLD^BAREV17 EN+3, PRVPATCH+3, PRVPATCH+4, PRVPATCH+5, PRVPATCH+6, PRVPATCH+7
EN^BARPT171 PRVPATCH+12
EN^BARPT172 PRVPATCH+11
EN^BARPT173 PRVPATCH+10
EN^BARPT174 PRVPATCH+9
$$EN^BARVDF TRNSPT+12, TRNSPT+17, TRNLQ+13, TRNLQ+18
^DIC TRNSPT+10, TRNSEG+8, TRNELM+10, TRNLQ+11, TRNLQ+28, TRNLQ+40, VPTRN+17, VPNCPDP+19, TRNTYP+13, TRNTYP+24
FILE^DICN NCPDPTBL+12
^DIE PRCRTN+8, TRNELM+16, TRNLQ+48
^XMD MAILMSG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Updating Remittance Remark Code A/R EDI TABLES entry... "
  • Line Location: PRCRTN+3
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: PRCRTN+10
Function Call: WRITE
  • Prompt: !!,"Creating NCPDP Reject/Payment Codes A/R EDI TABLES entry... "
  • Line Location: NCPDPTBL+3
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: NCPDPTBL+14
Function Call: WRITE
  • Prompt: !!,"Updating HIPAA transport with Remark Code posting element..."
  • Line Location: TRNSPT+3
Function Call: WRITE
  • Prompt: !!,$$EN^BARVDF("RVN")
  • Line Location: TRNSPT+12
Function Call: WRITE
  • Prompt: "An exact match for the HIPAA 835 v4010 transport in the A/R EDI TRANSPORT File"
  • Line Location: TRNSPT+13
Function Call: WRITE
  • Prompt: !,"WAS NOT FOUND! Remark code variables have not been added to the transport."
  • Line Location: TRNSPT+14
Function Call: WRITE
  • Prompt: !,"When the patch install has completed, resolve the above situation"
  • Line Location: TRNSPT+15
Function Call: WRITE
  • Prompt: !,"AND run TRNSPT^BARPT175 to populate Remark Code variables in Transport"
  • Line Location: TRNSPT+16
Function Call: WRITE
  • Prompt: $$EN^BARVDF("RVF")
  • Line Location: TRNSPT+17
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: TRNSPT+21
Function Call: WRITE
  • Prompt: !!,"Updating HIPAA transport with LQ Remark Code/NCPDP Reject/Payment"
  • Line Location: TRNLQ+3
Function Call: WRITE
  • Prompt: !,"data fields necessary for ERA processing..."
  • Line Location: TRNLQ+4
Function Call: WRITE
  • Prompt: !!,$$EN^BARVDF("RVN")
  • Line Location: TRNLQ+13
Function Call: WRITE
  • Prompt: "An exact match for the HIPAA 835 v4010 transport in the A/R EDI TRANSPORT File"
  • Line Location: TRNLQ+14
Function Call: WRITE
  • Prompt: !,"WAS NOT FOUND! Remark code variables have not been added to the transport."
  • Line Location: TRNLQ+15
Function Call: WRITE
  • Prompt: !,"When the patch install has completed, resolve the above situation"
  • Line Location: TRNLQ+16
Function Call: WRITE
  • Prompt: !,"AND run TRNLQ^BARPT175 to populate LQ Segment variables in Transport"
  • Line Location: TRNLQ+17
Function Call: WRITE
  • Prompt: $$EN^BARVDF("RVF")
  • Line Location: TRNLQ+18
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: TRNLQ+49
Function Call: WRITE
  • Prompt: !!,"Updating Variable Processing mult for Remark Code of HIPAA transport... "
  • Line Location: VPTRN+5
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: VPTRN+18
Function Call: WRITE
  • Prompt: !!,"Updating Variable Processing mult for NCPDP Reject/Payment Code"
  • Line Location: VPNCPDP+6
Function Call: WRITE
  • Prompt: !,"of HIPAA transport... "
  • Line Location: VPNCPDP+7
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: VPNCPDP+20
Function Call: WRITE
  • Prompt: !!,"Creating REMARK CODE and NCPDP REJ/PAY Transaction Types... "
  • Line Location: TRNTYP+2
Function Call: WRITE
  • Prompt: ?73,"DONE"
  • Line Location: TRNTYP+25
Function Call: WRITE
  • Prompt: !!,"Sending MailMan message to users..."
  • Line Location: MAIL+4
Function Call: WRITE
  • Prompt: " DONE"
  • Line Location: MAIL+8
Routine Call
  • DIE
  • Line Location:
    • PRCRTN+8
    • TRNELM+16
    • TRNLQ+48
Routine Call
  • DIC
  • Line Location:
    • TRNSPT+10
    • TRNSEG+8
    • TRNELM+10
    • TRNLQ+11
    • TRNLQ+28
    • TRNLQ+40
    • VPTRN+17
    • VPNCPDP+19
    • TRNTYP+13
    • TRNTYP+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAREDI("1T" - [#90056.01] VPTRN+8, VPNCPDP+10
^DD(90056.01 VPTRN+13, VPNCPDP+15
^VA(200 - [#200] MAILIST+5
^XUSEC("BARZMENU" MAILIST+4

Label References

Name Line Occurrences
MAIL PATCH5+9
MAILIST MAILSET+5
MAILMSG MAIL+7
MAILSET MAIL+5
MAILTXT MAIL+6
NCPDPTBL PATCH5+3
PATCH5 EN+3
PRCRTN PATCH5+2
PRVPATCH EN+1
TRNELM TRNSEG+11, TRNSEG+12
TRNLQ PATCH5+5
TRNSEG TRNSPT+20
TRNSPT PATCH5+4
TRNTYP PATCH5+8
VPNCPDP PATCH5+7
VPTRN PATCH5+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H MAILMSG+2*
>> BARELM TRNELM+12*, TRNLQ+42*
BARMSG MAILMSG+6!
BARMSG( MAILTXT+7*
>> BARNAME MAILIST+5*, MAILIST+6, MAILIST+7
BARP1 PRVPATCH+2~, PRVPATCH+7*, PRVPATCH+12
BARP2 PRVPATCH+2~, PRVPATCH+6*, PRVPATCH+11
BARP3 PRVPATCH+2~, PRVPATCH+5*, PRVPATCH+10
>> BARP4 PRVPATCH+4*, PRVPATCH+9
>> BARP5 PRVPATCH+3*, PRVPATCH+8
>> BARSEG TRNSEG+10*, TRNELM+5, TRNLQ+30*, TRNLQ+35
>> BARTP TRNSPT+18*, TRNSEG+3, TRNELM+4, TRNLQ+19*, TRNLQ+23, TRNLQ+34, VPTRN+7, VPTRN+8, VPTRN+9, VPNCPDP+9
, VPNCPDP+10, VPNCPDP+11
>> BARTXT MAILTXT+3, MAILTXT+5*, MAILTXT+6, MAILTXT+7
DA PRCRTN+4!, PRCRTN+6*, PRCRTN+9!, NCPDPTBL+4!, NCPDPTBL+13!, TRNSPT+5!, TRNSEG+2!, TRNELM+3!, TRNELM+14*, TRNLQ+6!
, TRNLQ+22!, TRNLQ+33!, TRNLQ+44*, VPTRN+6!, VPNCPDP+8!, TRNTYP+4!, TRNTYP+15!
DA(1 TRNSEG+3*, TRNSEG+4, TRNELM+5*, TRNELM+6, TRNLQ+23*, TRNLQ+24, TRNLQ+35*, TRNLQ+36, VPTRN+9*, VPTRN+10
, VPNCPDP+11*, VPNCPDP+12
DA(2 TRNELM+4*, TRNELM+6, TRNLQ+34*, TRNLQ+36
DD NCPDPTBL+11!, TRNSPT+9!, TRNSEG+7!, TRNELM+9!, TRNLQ+10!, TRNLQ+27!, TRNLQ+39!, VPTRN+16!, VPNCPDP+18!, TRNTYP+12!
, TRNTYP+23!
DIC NCPDPTBL+4!, NCPDPTBL+5*, TRNSPT+5!, TRNSPT+6*, TRNSEG+2!, TRNSEG+4*, TRNELM+3!, TRNELM+6*, TRNELM+13, TRNLQ+6!
, TRNLQ+7*, TRNLQ+22!, TRNLQ+24*, TRNLQ+33!, TRNLQ+36*, TRNLQ+43, VPTRN+6!, VPTRN+10*, VPNCPDP+8!, VPNCPDP+12*
, TRNTYP+4!, TRNTYP+5*, TRNTYP+15!, TRNTYP+16*
DIC("DR" NCPDPTBL+10*, VPTRN+14*, VPNCPDP+16*, TRNTYP+10*, TRNTYP+11*, TRNTYP+21*, TRNTYP+22*
DIC("P" VPTRN+13*, VPNCPDP+15*
DIC(0 NCPDPTBL+6*, TRNSPT+7*, TRNSEG+5*, TRNELM+7*, TRNLQ+8*, TRNLQ+25*, TRNLQ+37*, VPTRN+11*, VPNCPDP+13*, TRNTYP+6*
, TRNTYP+17*
DIE PRCRTN+4!, PRCRTN+5*, PRCRTN+9!, NCPDPTBL+4!, NCPDPTBL+13!, TRNELM+13*, TRNLQ+43*
DIFROM MAILMSG+4~
DINUM NCPDPTBL+4!, NCPDPTBL+8*, TRNTYP+7*, TRNTYP+18*
>> DLAYGO NCPDPTBL+7*, VPTRN+12*, VPNCPDP+14*, TRNTYP+9*, TRNTYP+20*
DO NCPDPTBL+11!, TRNSPT+9!, TRNSEG+7!, TRNELM+9!, TRNLQ+10!, TRNLQ+27!, TRNLQ+39!, VPTRN+16!, VPNCPDP+18!, TRNTYP+12!
, TRNTYP+23!
DR PRCRTN+4!, PRCRTN+7*, PRCRTN+9!, NCPDPTBL+4!, NCPDPTBL+13!, TRNSPT+5!, TRNSEG+2!, TRNELM+3!, TRNELM+15*, TRNLQ+6!
, TRNLQ+22!, TRNLQ+33!, TRNLQ+45*, TRNLQ+46*, TRNLQ+47*, VPTRN+6!, VPNCPDP+8!, TRNTYP+4!, TRNTYP+15!
>> I TRNSPT+20*, TRNSEG+6, TRNSEG+11, TRNSEG+12
>> J TRNSEG+11*, TRNSEG+12*, TRNELM+8, MAILIST+3*, MAILIST+4*, MAILIST+5
>> K MAILTXT+2*, MAILTXT+4*, MAILTXT+7
U VPTRN+13, VPNCPDP+15, MAILIST+5
X NCPDPTBL+4!, NCPDPTBL+9*, TRNSPT+5!, TRNSPT+8*, TRNSEG+2!, TRNSEG+6*, TRNELM+3!, TRNELM+8*, TRNLQ+6!, TRNLQ+9*
, TRNLQ+22!, TRNLQ+26*, TRNLQ+33!, TRNLQ+38*, VPTRN+6!, VPTRN+15*, VPNCPDP+8!, VPNCPDP+17*, TRNTYP+4!, TRNTYP+8*
, TRNTYP+15!, TRNTYP+19*
>> XMDUZ MAILSET+4*
>> XMSUB MAILSET+3*
>> XMTEXT MAILMSG+1*
XMY MAILSET+2!
XMY( MAILIST+7*
Y TRNSPT+5!, TRNSPT+11, TRNSPT+18, TRNSEG+2!, TRNSEG+9, TRNSEG+10, TRNELM+3!, TRNELM+11, TRNELM+12, TRNELM+14
, TRNLQ+6!, TRNLQ+12, TRNLQ+19, TRNLQ+22!, TRNLQ+29, TRNLQ+30, TRNLQ+33!, TRNLQ+41, TRNLQ+42, TRNLQ+44
, VPTRN+6!, VPNCPDP+8!, TRNTYP+4!, TRNTYP+15!

Marked Items

Name Field # of Occurrence
$T(@1+K MAILTXT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All