Routine: BAREDIUT

Information

BAREDIUT ; IHS/SD/LSL - UTILITY FOR TANSPORT FILE ;

Source Information

Source file <BAREDIUT.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	2	($$DIC,$$VAL,ENP,ENPM)^XBDIQ1 VIEWR^XBLM
Kernel	1	$$LIST^%ZISH

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Accounts Receivable	3	BAR ERA IMPORT DELETE BAREDP00 BAREDP01

Entry Points

Name	Comments	DBIA/ICR reference
END	;
PRINT(TRDA,IMPDA)	; EP ; Print records of import IMPDA
ELMSEQDA(TRDA,SEGDA,SEQ)	; EP ; return ELMDA given TRDA,SEGDA, SEQ
PRTVARA(TRDA)	; EP ; PRINT POSTING VARIABLES BY VARIABLE NAME ALPHABETICAL
CLAIMS(IMPDA)	; EP ; Print the Claims in a transport for posting
DELIMP	; EP ; Delete an Import
VIEW(TRDA,IMPDA)	; EP ; Browse an Import
RECPRT(RECDA)	; ; print an import record and its elements ; note SEQ in elements 1,2,3,4 .. may not be the ; the same as ELMDA , as SEQ=ELMDA(.03) ; use 'ac' index to look up element by sequence
FNAME1	;
FNAME	; EP ; Select a file (directory can be pre-loaded into XBDIR)
STRIP(XX)	; EP ; Strip training spaces
STATUS()	;PREPARE STRING OF STATUSES OF CLAIMS P.OTT
PRTVARS(TRDA)	; EP ; PRINT POSTING VARIABLES BY SEGMENT ORDER

External References

Name	Field # of Occurrence
$$LIST^%ZISH	FNAME1+13
^DIC	DELIMP+7
^DIE	DELIMP+42
$$GET1^DIQ	VIEW+2, VIEW+5, PRINT+4
^DIR	DELIMP+13, DELIMP+20, DELIMP+34, FNAME1+4, FNAME1+21
$$DIC^XBDIQ1	DELIMP+39
$$VAL^XBDIQ1	PRTVARA+6, RECPRT+21
ENP^XBDIQ1	PRTVARA+10, PRTVARS+11, RECPRT+8, PRINT+9, CLAIMS+5, DELIMP+23
ENPM^XBDIQ1	PRINT+14, CLAIMS+7
VIEWR^XBLM	VIEW+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,VAR,?12,SEGNM,?25,ELM(.01),?35,ELM(.02) Line Location: PRTVARA+11
Function Call: WRITE	Prompt: ! Line Location: PRTVARS+13
Function Call: WRITE	Prompt: ?20,ELM(.01),?30,ELM(.02),?65,ELM(.08) Line Location: PRTVARS+15
Function Call: WRITE	Prompt: !!,"*",REC(.02),?10,REC(.03) Line Location: RECPRT+14
Function Call: WRITE	Prompt: !,$E(X,1,25),?27,REC(10,SEQ) Line Location: RECPRT+22
Function Call: WRITE	Prompt: !!,"This is to delete ERA Import file",! Line Location: DELIMP+3
Function Call: WRITE	Prompt: !!,"None Chosen",! Line Location: DELIMP+9
Function Call: WRITE	Prompt: !,"This file has one or more posted claims. Cannot delete." Line Location: DELIMP+16
Function Call: WRITE	Prompt: !,"No posted claims for this file. " Line Location: DELIMP+21
Function Call: WRITE	Prompt: ! Line Location: DELIMP+24
Function Call: WRITE	Prompt: ! Line Location: DELIMP+24
Function Call: WRITE	Prompt: ! Line Location: DELIMP+25
Function Call: WRITE	Prompt: !,"IMPORT: ",IMP(.01) Line Location: DELIMP+26
Function Call: WRITE	Prompt: !,"EDI : ",IMP(.03) Line Location: DELIMP+27
Function Call: WRITE	Prompt: !,"ERA : ",IMP(.05) Line Location: DELIMP+28
Function Call: WRITE	Prompt: !!,IMP(.01)," NOT DELETED ",! Line Location: DELIMP+36
Function Call: WRITE	Prompt: !!,IMP(.01)," DELETED",! Line Location: DELIMP+43
Function Call: WRITE	Prompt: !?5,XBI,?10,XBFL(XBI) Line Location: FNAME1+15
Routine Call	DIE Line Location: DELIMP+42
Routine Call	DIC Line Location: DELIMP+7
Routine Call	DIR Line Location: DELIMP+13 DELIMP+20 DELIMP+34 FNAME1+4 FNAME1+21

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BAREDI("I",7819,0) - [#90056.02]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("1T" - [#90056.01]	PRTVARA+3, PRTVARA+5, PRTVARA+8, PRTVARS+3, PRTVARS+4, PRTVARS+6, PRTVARS+8, PRTVARS+9, ELMSEQDA+3
^BAREDI("I"	CLAIMS+3, STATUS+3, DELIMP+15
^TMP($J	PRINT+6!, PRINT+16

Label References

Name	Line Occurrences
$$ELMSEQDA	RECPRT+20
DELIMP	DELIMP+36, DELIMP+44
FNAME	FNAME1+11
FNAME1	FNAME1+10
RECPRT	PRINT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADJ	CLAIMS+6!
>> ALL	RECPRT+9, RECPRT+10, RECPRT+11, RECPRT+12
>> BARIMP	VIEW+5*, VIEW+6
>> BARQUIT	RECPRT+9, RECPRT+10, RECPRT+11, RECPRT+12, RECPRT+13, PRINT+13*
CLM	CLAIMS+4!
>> CLMDA	CLAIMS+2, CLAIMS+3
DA	DELIMP+2!, DELIMP+37!, DELIMP+41*
DIC	DELIMP+2!, DELIMP+4*
DIC("W"	DELIMP+6*
DIC(0	DELIMP+5*
>> DIDEL	DELIMP+38*
DIE	DELIMP+37!, DELIMP+39*
DIR	DELIMP+10!, DELIMP+17!, DELIMP+30!, DELIMP+35!, FNAME+2!, FNAME1+5!, FNAME1+18!, FNAME1+22!
DIR("A"	DELIMP+11, DELIMP+18, DELIMP+31, FNAME1+3, FNAME1+20*
DIR("B"	DELIMP+33, FNAME1+10
DIR(0	DELIMP+12, DELIMP+19, DELIMP+32, FNAME1+2, FNAME1+19*
DR	DELIMP+2!, DELIMP+37!, DELIMP+40*
>> DTOUT	FNAME1+6
DUZ(2	CLAIMS+3, STATUS+3, DELIMP+15
ELM	PRTVARA+9!, PRTVARS+10!
ELM(	PRTVARA+11, PRTVARS+12, PRTVARS+15
>> ELMDA	PRTVARA+7, PRTVARA+8, PRTVARS+9, RECPRT+20
>> I	STRIP+3*
IMP	DELIMP+22!
IMP(	DELIMP+26, DELIMP+27, DELIMP+28, DELIMP+36, DELIMP+43
IMPDA	VIEW~, VIEW+2, VIEW+4, VIEW+5, PRINT~, PRINT+3, PRINT+4, CLAIMS~, CLAIMS+3, DELIMP+14* , DELIMP+15, DELIMP+23, DELIMP+41
L	STRIP+2~*, STRIP+3
>> PATH	RECPRT+17*, RECPRT+18, RECPRT+19
>> PRVB	RECPRT+9, PRINT+10*
>> PRVE	RECPRT+10, PRINT+11*
REC	RECPRT+7!
REC(	RECPRT+9, RECPRT+10, RECPRT+11, RECPRT+12, RECPRT+14, RECPRT+17
REC(10	RECPRT+15, RECPRT+16, RECPRT+22
RECDA	RECPRT~, PRINT+15, PRINT+16
SEGDA	PRTVARA+4, PRTVARA+5, PRTVARA+8, PRTVARS+4, PRTVARS+5, PRTVARS+6, PRTVARS+8, PRTVARS+9, RECPRT+19, RECPRT+20 , ELMSEQDA~, ELMSEQDA+3
>> SEGLNM	PRTVARS+2, PRTVARS+14, PRTVARS+16
>> SEGNM	PRTVARA+6, PRTVARA+11, PRTVARS+2, PRTVARS+3*, PRTVARS+4, PRTVARS+14, PRTVARS+16
SEQ	RECPRT+15*, RECPRT+16, RECPRT+20, RECPRT+22, ELMSEQDA~, ELMSEQDA+3
>> SEQDA	PRTVARS+7, PRTVARS+8, PRTVARS+9
STA	STATUS+1~, STATUS+3*
STR	STATUS+1~, STATUS+2, STATUS+3, STATUS+4
TR	PRINT+8!
TR(	PRINT+10, PRINT+11, PRINT+12
TRDA	PRTVARA~, PRTVARA+3, PRTVARA+5, PRTVARA+8, PRTVARS~, PRTVARS+3, PRTVARS+4, PRTVARS+6, PRTVARS+8, PRTVARS+9 , VIEW~, VIEW+2, VIEW+3, RECPRT+18, RECPRT+20, PRINT~, PRINT+2, PRINT+4*, PRINT+5, PRINT+9 , ELMSEQDA~, ELMSEQDA+3
>> TRLB	RECPRT+11, PRINT+12*
U	FNAME1+14
>> VAR	PRTVARA+2, PRTVARA+3, PRTVARA+5, PRTVARA+8, PRTVARA+11
X	RECPRT+21, RECPRT+22, ELMSEQDA+2~, ELMSEQDA+3, END+1, STRIP+3, FNAME1+13, FNAME1+14, FNAME1+18*
>> XBDIR	FNAME1+13
XBFL	FNAME1+12!, FNAME1+13
XBFL(	FNAME1+10, FNAME1+14, FNAME1+15
>> XBFN	FNAME1+1, FNAME1+24
>> XBI	FNAME1+14*, FNAME1+15, FNAME1+16
XX	STRIP~, STRIP+2, STRIP+3*, STRIP+4
>> Y	STATUS+3, DELIMP+8, DELIMP+14, DELIMP+36, FNAME1+7, FNAME1+8, FNAME1+9, FNAME1+10, FNAME1+11, FNAME1+13 , FNAME1+18*, FNAME1+24

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREDIUT

Call Graph Total: 7

Caller Graph Total: 3