Routine: BAR50IUT

Information

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

Source Information

Source file <BAR50IUT.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: 2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR50P00 BAR50P01

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
PRTVARS(TRDA)	; EP ; PRINT POSTING VARIABLES BY SEGMENT ORDER

External References

Name	Field # of Occurrence
$$LIST^%ZISH	FNAME1+14
^DIC	DELIMP+7
^DIE	DELIMP+31
$$GET1^DIQ	VIEW+2, VIEW+5, PRINT+4
^DIR	DELIMP+13, DELIMP+23, FNAME1+5
$$DIC^XBDIQ1	DELIMP+28
$$VAL^XBDIQ1	PRTVARA+6, RECPRT+22
ENP^XBDIQ1	PRTVARA+10, PRTVARS+11, RECPRT+9, PRINT+9, CLAIMS+5, DELIMP+16
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+15
Function Call: WRITE	Prompt: !,$E(X,1,25),?27,REC(10,SEQ) Line Location: RECPRT+23
Function Call: WRITE	Prompt: !!,"This is to delete ERA Imports",! Line Location: DELIMP+3
Function Call: WRITE	Prompt: !!,"None Chosen",! Line Location: DELIMP+9
Function Call: WRITE	Prompt: !!,"IMPORT:",?15,IMP(.01) Line Location: DELIMP+17
Function Call: WRITE	Prompt: !,"EDI:",?15,IMP(.03),?40,"ERA:",?55,IMP(.05) Line Location: DELIMP+18
Function Call: WRITE	Prompt: !,"BATCH:",?15,IMP(.06),?40,"ITEM:",?55,IMP(.07),!! Line Location: DELIMP+19
Function Call: WRITE	Prompt: !!,IMP(.01)," NOT DELETED ",! Line Location: DELIMP+25
Function Call: WRITE	Prompt: !!,IMP(.01)," DELETED",! Line Location: DELIMP+32
Function Call: READ	Timeout: DTIME Variable: X Line Location: FNAME1+16
Routine Call	DIE Line Location: DELIMP+31
Routine Call	DIC Line Location: DELIMP+7
Routine Call	DIR Line Location: DELIMP+13 DELIMP+23 FNAME1+5

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
^TMP($J	PRINT+6!, PRINT+16
^XUSEC("XUPROG"	RECPRT+7

Label References

Name	Line Occurrences
$$ELMSEQDA	RECPRT+21
DELIMP	DELIMP+25, DELIMP+33
FNAME	FNAME1+12
FNAME1	FNAME1+11
RECPRT	PRINT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADJ	CLAIMS+6!
>> ALL	RECPRT+7*, RECPRT+10, RECPRT+11, RECPRT+12, RECPRT+13
>> BARIMP	VIEW+5*, VIEW+6
>> BARQUIT	RECPRT+10, RECPRT+11, RECPRT+12, RECPRT+13, RECPRT+14, PRINT+13*
CLM	CLAIMS+4!
>> CLMDA	CLAIMS+2, CLAIMS+3
DA	DELIMP+2!, DELIMP+26!, DELIMP+30*
DIC	DELIMP+2!, DELIMP+4*
DIC("W"	DELIMP+6*
DIC(0	DELIMP+5*
>> DIDEL	DELIMP+27*
DIE	DELIMP+26!, DELIMP+28*
DIR	DELIMP+10!, DELIMP+20!, DELIMP+24!, FNAME+2!, FNAME1+6!
DIR("A"	DELIMP+11, FNAME1+4
DIR("B"	DELIMP+22, FNAME1+11
DIR(0	DELIMP+12, DELIMP+21, FNAME1+3*
DR	DELIMP+2!, DELIMP+26!, DELIMP+29*
DTIME	FNAME1+16
>> DTOUT	FNAME1+7
DUZ	RECPRT+7
DUZ(2	CLAIMS+3
ELM	PRTVARA+9!, PRTVARS+10!
ELM(	PRTVARA+11, PRTVARS+12, PRTVARS+15
>> ELMDA	PRTVARA+7, PRTVARA+8, PRTVARS+9, RECPRT+21
>> I	STRIP+3*
IMP	DELIMP+15!
IMP(	DELIMP+17, DELIMP+18, DELIMP+19, DELIMP+25, DELIMP+32
IMPDA	VIEW~, VIEW+2, VIEW+4, VIEW+5, PRINT~, PRINT+3, PRINT+4, CLAIMS~, CLAIMS+3, DELIMP+14* , DELIMP+16, DELIMP+30
L	STRIP+2~*, STRIP+3
>> PATH	RECPRT+18*, RECPRT+19, RECPRT+20
>> PRVB	RECPRT+10, PRINT+10*
>> PRVE	RECPRT+11, PRINT+11*
REC	RECPRT+8!
REC(	RECPRT+10, RECPRT+11, RECPRT+12, RECPRT+13, RECPRT+15, RECPRT+18
REC(10	RECPRT+16, RECPRT+17, RECPRT+23
RECDA	RECPRT~, PRINT+15, PRINT+16
SEGDA	PRTVARA+4, PRTVARA+5, PRTVARA+8, PRTVARS+4, PRTVARS+5, PRTVARS+6, PRTVARS+8, PRTVARS+9, RECPRT+20, RECPRT+21 , 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+16*, RECPRT+17, RECPRT+21, RECPRT+23, ELMSEQDA~, ELMSEQDA+3
>> SEQDA	PRTVARS+7, PRTVARS+8, PRTVARS+9
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+19, RECPRT+21, PRINT~, PRINT+2, PRINT+4*, PRINT+5, PRINT+9 , ELMSEQDA~, ELMSEQDA+3
>> TRLB	RECPRT+12, PRINT+12*
U	FNAME1+16
>> VAR	PRTVARA+2, PRTVARA+3, PRTVARA+5, PRTVARA+8, PRTVARA+11
X	RECPRT+22, RECPRT+23, ELMSEQDA+2~, ELMSEQDA+3, END+1, STRIP+3, FNAME1+14, FNAME1+16*
>> XBDIR	FNAME1+14
XBFL	FNAME1+13!, FNAME1+14
XBFL(	FNAME1+11, FNAME1+16
>> XBFN	FNAME1+1, FNAME1+17
>> XBI	FNAME1+16*
XX	STRIP~, STRIP+2, STRIP+3*, STRIP+4
>> Y	DELIMP+8, DELIMP+14, DELIMP+25, FNAME1+8, FNAME1+9, FNAME1+10, FNAME1+11, FNAME1+12, FNAME1+14, FNAME1+17

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50IUT

Call Graph Total: 7

Caller Graph Total: 2