Routine: BARPT175

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

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!

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPT175

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items