Routine: BARUFSUP

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS Accounts Receivable	5	^BARBAN DISPLAYT^BARUFLOG ($$IHS,$$SETSESS,ASKFORRT,TRANSMIT)^BARUFUT ($$GETDAY0,$$GETDISLM,$$RANGE,$$RTCOUNT,$$STILPOST,CNTSTATS,EXCLLST,RESENDF)^BARUFUT1 $$UPC^BARUTL
VA Fileman	4	^%DT NOW^%DTC $$GET1^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	1	EN^XBVIDEO

Package	Total	Caller Graph
IHS Accounts Receivable	9	BAR UFMS CLOSE ALL SESSION BAR UFMS LIST UFMS DIRECTORY BAR UFMS MAIN SUPER SCREEN BAR UFMS RECONCILE ALL SESSION BAR UFMS RESEND A SESSION BAR UFMS RESEND A UFMS FILE BAR UFMS VIEW ONE SESSION BAR UFMS VIEW SESSIONS BARUFUT

Package

Total

Caller Graph

IHS Accounts Receivable

BAR UFMS CLOSE ALL SESSION BAR UFMS LIST UFMS DIRECTORY BAR UFMS MAIN SUPER SCREEN BAR UFMS RECONCILE ALL SESSION BAR UFMS RESEND A SESSION BAR UFMS RESEND A UFMS FILE BAR UFMS VIEW ONE SESSION BAR UFMS VIEW SESSIONS
BARUFUT

Entry Points

Name	Comments	DBIA/ICR reference
SHOW(STATUS)	;EP - GENERIC SESSION LISTER
AGAIN	;EP -
LISTDIR	;EP - LIST UFMS DIRECTORY
GETTOTS(UDUZ,SESSID)	;EP - DISPLAY EXPORT SUMMARIES
FOOTER	;EP -PRINT GRAND TOTS
VIEW	;EP - VIEW UFMS SESSIONS
ALLSTAT(LIST,STATUS)	;EP - CHANGE STATUS OF ALL SESSIONS IN ARRAY 'LIST' TO STATUS
LIST(TOTALS)	;EP - DISPLAY CALCULATED TOTS
PRINT	;
INIT	;EP - INIT COMMON VARIABLES
EXPORTSM(LIST,PRINT)
GETDTLIM()	;GET 'UFMS DISPLAY DATE LIMIT'
ASKSTAT	;EP - ASK STATUS TO VIEW
EXPHDR	;EP -DISPLAY HDR
ASK	;EP - ASK FOR ACTION
QUE	; EP - QUE 'NOT SENT' OR 'DELAY SEND' REPORT
RESEND	;EP - RESEND A FILE
LOOP(UDUZ,STAT,LINE,LIST,PRTSTAT)	;EP - GET DATA FROM SESSION LEVEL
TOT(CAT,AMT,TOTALS)	;
VIEWHDR(STATUS)	;EP - HEADER FOR VIEWING SESSIONS

External References

Name	Field # of Occurrence
^%DT	GETDTLIM+3
NOW^%DTC	PRINT+14
^%ZIS	EXPORTSM+12
HOME^%ZIS	QUE+9
^%ZISC	EXPORTSM+17
^%ZTLOAD	QUE+6
^BARBAN	AGAIN+1
DISPLAYT^BARUFLOG	ASK+29
$$IHS^BARUFUT	LOOP+9
$$SETSESS^BARUFUT	ALLSTAT+33
ASKFORRT^BARUFUT	ALLSTAT+14, ALLSTAT+18, ALLSTAT+24, AGAIN+9, AGAIN+12
TRANSMIT^BARUFUT	ALLSTAT+4
$$GETDAY0^BARUFUT1	LOOP+3
$$GETDISLM^BARUFUT1	AGAIN+3, LOOP+2, LOOP+25
$$RANGE^BARUFUT1	ASK+38
$$RTCOUNT^BARUFUT1	LOOP+23
$$STILPOST^BARUFUT1	ALLSTAT+20, LOOP+20
CNTSTATS^BARUFUT1	ASKSTAT+3
EXCLLST^BARUFUT1	ASK+39
RESENDF^BARUFUT1	RESEND+3, LISTDIR+3
$$UPC^BARUTL	ASK+31
$$GET1^DIQ	AGAIN+4, GETDTLIM+2, LOOP+15, LOOP+17, LOOP+18, LOOP+19, GETTOTS+32, GETTOTS+34, GETTOTS+35, GETTOTS+37 , GETTOTS+38, LIST+20, LIST+21, LIST+22
^DIR	ALLSTAT+32, ASK+19, ASKSTAT+14, EXPORTSM+8
EN^XBVIDEO	LOOP+25, LOOP+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,"SESSION ID",?20,"CASHIER" Line Location: VIEWHDR+1
Function Call: WRITE	Prompt: ?36,"DATE "_$S(STATUS="ALL STATUSES":"STATUS CHANGED",STATUS="OPEN":"OPENED",1:STATUS) Line Location: VIEWHDR+2
Function Call: WRITE	Prompt: ?62,$S(STATUS="ALL STATUSES":"STATUS",1:""),?73,"ERA\PST" Line Location: VIEWHDR+3
Function Call: WRITE	Prompt: !,DASH Line Location: VIEWHDR+4
Function Call: WRITE	Prompt: " ("_$$GET1^DIQ(90052.06,DUZ(2)_",",1504,"I")_")" Line Location: AGAIN+4
Function Call: WRITE	Prompt: !!,"The following SESSIONS are currently ",STATUS," =>" Line Location: AGAIN+5
Function Call: WRITE	Prompt: !,$G(DASH) Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Press <RETURN> to change statuses being displayed or," Line Location: ASK+18
Function Call: WRITE	Prompt: !,"Invalid choice!" Line Location: ASK+25
Function Call: WRITE	Prompt: !,"INVALID CHOICE!" Line Location: ASK+35
Function Call: WRITE	Prompt: !,"INVALID CHOICE!" Line Location: ASK+36
Function Call: WRITE	Prompt: !! Line Location: EXPORTSM+4
Function Call: WRITE	Prompt: !! Line Location: EXPORTSM+11
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: QUE+7
Function Call: WRITE	Prompt: !!?5,"Report task #: ",$G(ZTSK) Line Location: QUE+8
Function Call: WRITE	Prompt: !,SESSID Line Location: LIST+2
Function Call: WRITE	Prompt: ?16,$E($P(^VA(200,UDUZ,0),U),1,7) Line Location: LIST+3
Function Call: WRITE	Prompt: ?28,TOTALS("AAA PAYMENT","CNT") Line Location: LIST+4
Function Call: WRITE	Prompt: ?29,$J(TOTALS("AAA PAYMENT"),10,2) Line Location: LIST+5
Function Call: WRITE	Prompt: ?41,TOTALS("CREDITS","CNT") Line Location: LIST+6
Function Call: WRITE	Prompt: ?42,$J(TOTALS("CREDITS"),10,2) Line Location: LIST+7
Function Call: WRITE	Prompt: ?54,TOTALS("DEBITS","CNT") Line Location: LIST+8
Function Call: WRITE	Prompt: ?56,$J(-TOTALS("DEBITS"),10,2) Line Location: LIST+9
Function Call: WRITE	Prompt: ?68,TOTALS("ZZZ REFUND","CNT") Line Location: LIST+10
Function Call: WRITE	Prompt: ?70,$J(TOTALS("ZZZ REFUND"),10,2) Line Location: LIST+11
Function Call: WRITE	Prompt: @IOF Line Location: EXPHDR+1
Function Call: WRITE	Prompt: !,EQUALS Line Location: EXPHDR+2
Function Call: WRITE	Prompt: !,"Export Summary Print",?45,EXPDATE,?70,"Page ",PAGE Line Location: EXPHDR+3
Function Call: WRITE	Prompt: !,"A/R Location: ",$P(^DIC(4,DUZ(2),0),U) Line Location: EXPHDR+4
Function Call: WRITE	Prompt: !,EQUALS Line Location: EXPHDR+5
Function Call: WRITE	Prompt: !,"Please ensure the following information is correct:" Line Location: EXPHDR+6
Function Call: WRITE	Prompt: !! Line Location: EXPHDR+7
Function Call: WRITE	Prompt: !,"SESSION ID",?16,"CASHIER",?30,"PAYMENTS",?50,"ADJUSTMENTS",?70,"REFUNDS" Line Location: EXPHDR+8
Function Call: WRITE	Prompt: !,?45,"CREDITS DEBITS" Line Location: EXPHDR+9
Function Call: WRITE	Prompt: !,DASHES Line Location: FOOTER+1
Function Call: WRITE	Prompt: !,"TOTALS:" Line Location: FOOTER+2
Function Call: WRITE	Prompt: ?28,GTOTALS("PAYMENT","CNT") Line Location: FOOTER+3
Function Call: WRITE	Prompt: ?29,$J(GTOTALS("PAYMENT"),10,2) Line Location: FOOTER+4
Function Call: WRITE	Prompt: ?41,GTOTALS("CREDITS","CNT") Line Location: FOOTER+5
Function Call: WRITE	Prompt: ?42,$J(GTOTALS("CREDITS"),10,2) Line Location: FOOTER+6
Function Call: WRITE	Prompt: ?54,GTOTALS("DEBITS","CNT") Line Location: FOOTER+7
Function Call: WRITE	Prompt: ?56,$J(-GTOTALS("DEBITS"),10,2) Line Location: FOOTER+8
Function Call: WRITE	Prompt: ?68,GTOTALS("REFUND","CNT") Line Location: FOOTER+9
Function Call: WRITE	Prompt: ?70,$J(GTOTALS("REFUND"),10,2) Line Location: FOOTER+10
Routine Call	%ZIS Line Location: QUE+9
Routine Call	DIR Line Location: ALLSTAT+32 ASK+19 ASKSTAT+14 EXPORTSM+8
Routine Call	%ZIS Line Location: EXPORTSM+12

FileNo	Call Tags
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BAR(90052.06,7819,0) - [#90052.06]	GET1^DIQ
90057.11	GET1^DIQ
90057.210101	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARSESS(	ALLSTAT+11, AGAIN+7, AGAIN+10, AGAIN+18, AGAIN+19, AGAIN+20, LOOP+13, GETTOTS+29, LIST+14, LIST+18
^DD("DD"	LOOP+21, PRINT+14
^DIC(4 - [#4]	EXPHDR+4
^VA(200 - [#200]	LOOP+22, LIST+3

Label References

Name	Line Occurrences
$$GETDTLIM	LOOP+7
AGAIN	ASK+23, ASK+32, ASK+34, ASKSTAT+15, ASKSTAT+19
ALLSTAT	ASK+41
ASK	AGAIN+15
ASKSTAT	AGAIN+7, AGAIN+10, AGAIN+22, ASK+22
EXPHDR	PRINT+15
EXPORTSM	ALLSTAT+3, ALLSTAT+5
FOOTER	PRINT+22
GETTOTS	PRINT+21
INIT	VIEW+1
LIST	GETTOTS+44
LOOP	AGAIN+19, AGAIN+20
PRINT	EXPORTSM+2, EXPORTSM+16
QUE	EXPORTSM+14
SHOW	VIEW+2
TOT	GETTOTS+39, GETTOTS+41, GETTOTS+42, GETTOTS+43
VIEWHDR	AGAIN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT+14
>> %DT	GETDTLIM+3*
>> %ZIS	EXPORTSM+10*
ADJAMT	LIST+1~
ADJCAT	GETTOTS+38*, GETTOTS+40, LIST+1~
ADJCNT	LIST+1~
AMT	GETTOTS+2~, GETTOTS+36*, GETTOTS+39, GETTOTS+41, GETTOTS+42, GETTOTS+43, TOT~, TOT+1
>> ARBILL	GETTOTS+32*, GETTOTS+33
ARCREDIT	GETTOTS+2~, GETTOTS+30, GETTOTS+34, GETTOTS+36, TOT+5, TOT+7
ARDEBIT	GETTOTS+2~, GETTOTS+30, GETTOTS+35, GETTOTS+36, TOT+6
BARTMP	LOOP+1~, LOOP+7*, LOOP+9
BARTR	GETTOTS+2~, GETTOTS+28, GETTOTS+29, GETTOTS+31
>> CASHIER	LOOP+22*, LOOP+27
CAT	GETTOTS+2~, GETTOTS+39, GETTOTS+40, GETTOTS+41, GETTOTS+42, GETTOTS+43*, TOT~, TOT+1, TOT+2, TOT+3 , TOT+4
CATEGORY	LIST+1~
>> CHOICE	ASK+24, ASK+25, ASK+26, ASK+27, ASK+28, ASK+31, ASK+32, ASK+34, ASK+35, ASK+37 , ASK+40*, ASK+41
CNT	LOOP+1~, LOOP+13, LIST+16~, LIST+18, LIST+23
CNTS	ASKSTAT+1~
CURSTAT	LOOP+1~, LOOP+17*, LOOP+25, LOOP+30
>> DASH	VIEWHDR+4, INIT+1*, ASK+1
>> DASHES	PRINT+3*, FOOTER+1
DAYDISP	LOOP+1~, LOOP+2*, LOOP+5
DAYZERO	LOOP+1~, LOOP+3*, LOOP+5
DIR	ALLSTAT+28!, ASK+3!, ASKSTAT+4!, EXPORTSM+3!
DIR("?"	ASK+5, ASK+9, ASK+14, ASK+16
DIR("A"	ALLSTAT+31, ASK+13, ASK+17, ASKSTAT+5, EXPORTSM+6*
DIR("B"	ALLSTAT+30, EXPORTSM+7
DIR(0	ALLSTAT+29, ASK+15, ASKSTAT+6, ASKSTAT+7, ASKSTAT+8, ASKSTAT+9, ASKSTAT+10, ASKSTAT+11, ASKSTAT+12, EXPORTSM+5
>> DIROUT	EXPORTSM+9
>> DIRUT	ASKSTAT+16
DISLIM	GETDTLIM+1~, GETDTLIM+2, GETDTLIM+3, GETDTLIM+4
>> DTOUT	ALLSTAT+25, ASK+20, ASKSTAT+16, EXPORTSM+9
>> DUOUT	ALLSTAT+25, ASK+20, EXPORTSM+9
DUZ(2	ALLSTAT+11, AGAIN+4, AGAIN+7, AGAIN+10, AGAIN+18, AGAIN+19, AGAIN+20, GETDTLIM+2, LOOP+9, LOOP+13 , GETTOTS+29, LIST+14, LIST+18, EXPHDR+4
EQUALS	PRINT+1~, PRINT+2*, EXPHDR+2, EXPHDR+5
ERASTAT	ALLSTAT+1~, ALLSTAT+10, ALLSTAT+15, ASK+28, ASK+29, LOOP+1~, LOOP+19*, LOOP+24, LOOP+30
>> ESC	GETTOTS+29
EXPDATE	PRINT+1~, PRINT+14*, EXPHDR+3
GTOTALS	PRINT+5~
GTOTALS("CREDITS"	PRINT+8, PRINT+9, GETTOTS+47, GETTOTS+48, FOOTER+5, FOOTER+6
GTOTALS("DEBITS"	PRINT+10, PRINT+11, GETTOTS+49, GETTOTS+50, FOOTER+7, FOOTER+8
GTOTALS("PAYMENT"	PRINT+6, PRINT+7, GETTOTS+45, GETTOTS+46, FOOTER+3, FOOTER+4
GTOTALS("REFUND"	PRINT+12, PRINT+13, GETTOTS+51, GETTOTS+52, FOOTER+9, FOOTER+10
IENS	LOOP+14, LOOP+15, LOOP+17, LOOP+18, LOOP+19, GETTOTS+2~, GETTOTS+31, GETTOTS+32, GETTOTS+34, GETTOTS+35 , GETTOTS+37, GETTOTS+38, LIST+16~, LIST+19*, LIST+20, LIST+21, LIST+22
IO	EXPORTSM+15
IO("Q"	EXPORTSM+14
IOF	EXPHDR+1
LINE	AGAIN+16, AGAIN+19, AGAIN+20, AGAIN+22, LOOP~, LOOP+16*, LOOP+24, LOOP+26
LIST	ALLSTAT~, ALLSTAT+3, ALLSTAT+4, ALLSTAT+5, AGAIN+14!, AGAIN+19, AGAIN+20, ASK+39, ASK+41, LOOP~ , EXPORTSM~, EXPORTSM+1, QUE+4~, PRINT+16~
LIST(	ALLSTAT+7, ALLSTAT+8, ALLSTAT+9, ALLSTAT+10, ASK+25, ASK+26, ASK+27, ASK+28, LOOP+24*, QUE+5 , PRINT+18, PRINT+19, PRINT+20
LIST(1	QUE+4, PRINT+16
NOSEND	RESEND+1~, RESEND+2, RESEND+3, LISTDIR+1~, LISTDIR+2, LISTDIR+3
>> OPTIONST	ASK+4, ASK+7, ASK+8*, ASK+13
PAGE	PRINT+1~, PRINT+4, EXPHDR+3, EXPHDR+10
>> POP	EXPORTSM+13
POSTING	ALLSTAT+1~, ALLSTAT+20, ALLSTAT+21, ALLSTAT+23, ALLSTAT+25, ALLSTAT+27, LOOP+20, LOOP+30
PRINT	EXPORTSM~, EXPORTSM+2
PRTSTAT	LOOP~, LOOP+30
>> RANGE	ASK+37, ASK+38, ASK+39
RC	ALLSTAT+1~, ALLSTAT+33*
REC	ALLSTAT+6, ALLSTAT+7, ALLSTAT+8, ALLSTAT+9, ALLSTAT+10, QUE+5, PRINT+1~, PRINT+17, PRINT+18*, PRINT+19 , PRINT+20
RTCOUNT	LOOP+1~, LOOP+23*, LOOP+29
SESSID	ALLSTAT+1~, ALLSTAT+9, ALLSTAT+11, ALLSTAT+12, ALLSTAT+16, ALLSTAT+22, ALLSTAT+26, ALLSTAT+33, ASK+27, ASK+29 , LOOP+1~, LOOP+5, LOOP+9, LOOP+11, LOOP+13, LOOP+14, LOOP+23, LOOP+24, LOOP+25, LOOP+27 , PRINT+1~, PRINT+20*, PRINT+21, GETTOTS~, GETTOTS+29, LIST+2, LIST+14, LIST+18, LIST+19
STAT	LOOP~, LOOP+13, LOOP+23, LOOP+29, LOOP+30
STATCNTS	ASKSTAT+2!, ASKSTAT+3, ASKSTAT+13!
STATCNTS("ALL	STATUSES" , ASKSTAT+11
STATCNTS("OPEN"	ASKSTAT+6
STATCNTS("RECONCILED"	ASKSTAT+7
STATCNTS("RETRANSMITTED"	ASKSTAT+10
STATCNTS("REVIEWED/APPROVED"	ASKSTAT+8
STATCNTS("TRANSMITTED"	ASKSTAT+9
>> STATDATE	LOOP+18, LOOP+21, LOOP+27
STATUS	VIEWHDR~, VIEWHDR+2, VIEWHDR+3, ALLSTAT~, ALLSTAT+2, ALLSTAT+4, ALLSTAT+11, ALLSTAT+15, ALLSTAT+21, ALLSTAT+25 , ALLSTAT+33, SHOW~, AGAIN+2, AGAIN+5, AGAIN+6, AGAIN+7, AGAIN+8, AGAIN+10, AGAIN+15, AGAIN+19 , AGAIN+20, AGAIN+23, ASK+6, ASK+7, ASK+8, ASK+10, ASK+11, ASK+12, ASK+32, ASK+34 , ASKSTAT+17, ASKSTAT+18*
>> TMP	QUE+4, PRINT+16
>> TOTALCNT	GETTOTS+26, TOT+3
TOTALS	PRINT+5~, GETTOTS+39, GETTOTS+41, GETTOTS+42, GETTOTS+43, GETTOTS+44, TOT~, LIST~
TOTALS(	TOT+1, TOT+2, TOT+3
TOTALS("AAA P	AYMENT" , GETTOTS+4, GETTOTS+5, GETTOTS+45, GETTOTS+46, LIST+4, LIST+5
TOTALS("ADJ C	O-PAY" , GETTOTS+6, GETTOTS+7
TOTALS("ADJ D	EDUCTIBLE" , GETTOTS+8, GETTOTS+9
TOTALS("ADJ G	ROUPER ALLOWANCE" , GETTOTS+16, GETTOTS+17
TOTALS("ADJ N	ON PAYMENT" , GETTOTS+10, GETTOTS+11
TOTALS("ADJ P	AYMENT CREDIT" , GETTOTS+18, GETTOTS+19, ENALTY" , GETTOTS+14, GETTOTS+15
TOTALS("ADJ W	RITE OFF" , GETTOTS+12, GETTOTS+13
TOTALS("CREDITS"	GETTOTS+22, GETTOTS+23, GETTOTS+47, GETTOTS+48, TOT+5, TOT+7, LIST+6, LIST+7
TOTALS("DEBITS"	GETTOTS+24, GETTOTS+25, GETTOTS+49, GETTOTS+50, TOT+6, TOT+8, LIST+8, LIST+9
TOTALS("ZZZ R	EFUND" , GETTOTS+20, GETTOTS+21, GETTOTS+51, GETTOTS+52, LIST+10, LIST+11
TRANBY	LIST+16~, LIST+22*, LIST+24
TRANFILE	LIST+16~, LIST+21*, LIST+25
TRANREC	LIST+16~, LIST+17, LIST+18, LIST+19
TRANTIME	LIST+16~, LIST+20*, LIST+24
TRANTYPE	GETTOTS+2~, GETTOTS+37*, GETTOTS+39
>> TSTATUS	AGAIN+17, AGAIN+18, AGAIN+19
U	ALLSTAT+8, ALLSTAT+9, ALLSTAT+10, ALLSTAT+23, ALLSTAT+27, ASK+21, ASK+26, ASK+27, ASK+28, LOOP+22 , LOOP+24, PRINT+19, PRINT+20, LIST+3, EXPHDR+4
UDUZ	ALLSTAT+1~, ALLSTAT+4, ALLSTAT+8, ALLSTAT+11, ALLSTAT+20, ALLSTAT+33, AGAIN+13, AGAIN+19, AGAIN+20, ASK+26 , ASK+29, LOOP~, LOOP+13, LOOP+14, LOOP+20, LOOP+22, LOOP+23, LOOP+24, PRINT+1~, PRINT+19* , PRINT+21, GETTOTS~, GETTOTS+29, LIST+3, LIST+14, LIST+18, LIST+19
>> VALIDCHK	ASK+4, ASK+10, ASK+11, ASK+12, ASK+36
>> X	GETDTLIM+3*
>> Y	ALLSTAT+25, ASK+21, ASK+22, ASK+23, ASK+24, ASK+31, ASKSTAT+15, ASKSTAT+16, GETDTLIM+3, LOOP+21* , EXPORTSM+9, PRINT+14*
>> Y(0	ASKSTAT+17, ASKSTAT+18
>> ZTDESC	QUE+3*
>> ZTRTN	QUE+2*
>> ZTSAVE("LIST("	QUE+5*
>> ZTSK	QUE+7, QUE+8

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARUFSUP

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: