Routine: BARMPAS

Package	Total	Call Graph
IHS Accounts Receivable	6	^BARDBQUE $$DATE^BARDUTL GETHDR^BARMPAS3 PAZ^BARRUTL INIT^BARUTL BARPSAT^BARUTL0
VA Fileman	6	DD^%DT (C,NOW)^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$DIR^XBDIR MAIL^XBMAIL
Kernel	1	$$SCH^XLFDT

Package	Total	Caller Graph
IHS Accounts Receivable	7	BAR ACCOUNT STATEMENT BAR PAS FLAG ACCT FOR STMT BAR PAS PRNT ONE PAT ACCT STMT BAR PAS PURGE ACCT STMT BAR PAS REBUILD BARMPAS3 ^BAR(90052.06,7819,0)

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;
MANUAL	; EP ; Called from Print Adhoc Patient Account Statement AR Menu Option ; Ask user to select AR Account marked for Patient Account Statement
REBUILD	;EP P.OTT
MARKACC	; EP ; Called from Patient Accounts for Statements AR Menu option
PURGE	;
GETMSG	; ; ASK USER TO INCLUDE A MESSAGE WITH REPORTS
CLEANUP
ACCOUNT(BARACDA)	; ; Find Bills where the AR Account is marked for ; Patient Account Statement
TASK	; EP ; Called from SCHEDULED OPTION BAR MAN ACCOUNT STATEMENT ; Start with last run date and go to Today. ; Find BAR ACCOUNT STATEMENT in Option Scheduling File
INITXTMP(X,BARDTB,BARDTE,BARSRTBY,BARRUNDT)	;P.OTT
DATE(BARMODE)	; ; Select date range
RBLD
GETX()	;
ASKACCT	; ; Ask user to select AR Account marked for Patient Account Statement
LISTALL
ASKMODE()	;
CLNUP	;
ABAL(BARBL)	;P.OTT COLLECT BILLS WITH NONZERO BALANCE
PATNAME(BARACDA)	;P.OTT
GETSRTBY()	;P.OTT
LIST
LISTRUNS	;
MAIL	; EP - MAIL MESSAGE TEXT
DT1	;
LOOP	; EP ; Part of manual process ; IHS/SD/PKD 1.8*20 2/24/11 Set XTMP date headers ; If Device definition calls for Start Time, this will capture ; Run Dates rather than having them blank

External References

Name	Field # of Occurrence
DD^%DT	LISTRUNS+8
C^%DTC	GETX+11, GETX+18, DT1+14
NOW^%DTC	GETX+14, DT1+10, RBLD
^BARDBQUE	MANUAL+15
$$DATE^BARDUTL	DT1+1, DT1+3
GETHDR^BARMPAS3	MANUAL+8, RBLD+24
PAZ^BARRUTL	MANUAL+17, RBLD+37, PURGE+19
INIT^BARUTL	TASK+5
BARPSAT^BARUTL0	TASK+10, ACCOUNT+5
^DIC	GETX+5, ASKACCT+8, MARKACC+10
^DIE	MARKACC+16
$$GET1^DIQ	GETX+8, ACCOUNT+9, ACCOUNT+11, ACCOUNT+28, ACCOUNT+31, ACCOUNT+40, ACCOUNT+44, ACCOUNT+58, ACCOUNT+62, PATNAME+2 , PATNAME+3, ABAL+2
^DIR	GETMSG+9, RBLD+10, RBLD+34, PURGE+11
$$DIR^XBDIR	ASKMODE+2
MAIL^XBMAIL	TASK+15, RBLD+36
$$SCH^XLFDT	GETX+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETMSG+4
Function Call: WRITE	Prompt: !! Line Location: ASKACCT+2
Function Call: WRITE	Prompt: ! Line Location: DT1+4
Function Call: WRITE	Prompt: *7 Line Location: DT1+6
Function Call: WRITE	Prompt: !!,"The END date must not be before the START date.",! Line Location: DT1+7
Function Call: WRITE	Prompt: ! Line Location: MARKACC+2
Function Call: WRITE	Prompt: ! Line Location: MARKACC+4
Function Call: WRITE	Prompt: !!!,"NOTE: This procedure will collect statements for printing." Line Location: REBUILD+2
Function Call: WRITE	Prompt: !,"Statements will be sorted by ",$P("Billing location, Account Number;Billing location, Patient name",";",BARSRTBY+1) Line Location: REBUILD+3
Function Call: WRITE	Prompt: !,"When done use the PAS>PRA menu option to print the collected statements." Line Location: REBUILD+4
Function Call: WRITE	Prompt: ! Line Location: REBUILD+5
Function Call: WRITE	Prompt: !!,"END date cannot be a future day",! Line Location: RBLD+5
Function Call: WRITE	Prompt: ! Line Location: RBLD+6
Function Call: WRITE	Prompt: !,"**WARNING: The Option Scheduling File for BAR ACCOUNT STATEMENT has not been set up." Line Location: RBLD+17
Function Call: WRITE	Prompt: !,"Cannot proceed." Line Location: RBLD+18
Function Call: WRITE	Prompt: !! Line Location: RBLD+19
Function Call: WRITE	Prompt: !,"--- Statements collected." Line Location: RBLD+30
Function Call: WRITE	Prompt: !!,"NO ENTRIES TO PURGE",!! Line Location: PURGE+3
Function Call: WRITE	Prompt: !!,"CANNOT PURGE THE ONLY PAS RUN ON FILE.",!! Line Location: PURGE+5
Function Call: WRITE	Prompt: !,"Entries 1-",BARCNT-1," can be purged." Line Location: PURGE+6
Function Call: WRITE	Prompt: !,"Entry 1 can be purged." Line Location: PURGE+7
Function Call: WRITE	Prompt: !,"PURGING ",BARARR(I) Line Location: PURGE+15
Function Call: WRITE	Prompt: !,"LAST ENTRY ",BARARR(BARCNT)," NOT PURGED." Line Location: PURGE+18
Function Call: WRITE	Prompt: !,X Line Location: LIST+0
Function Call: WRITE	Prompt: !,$J(BARCNT,2),?5,Y Line Location: LISTRUNS+9
Function Call: WRITE	Prompt: " (",$G(^XTMP(BAR1,0,"SCOPE")),") " Line Location: LISTRUNS+10
Function Call: WRITE	Prompt: " sorted by ",$P("Billing location, Account Number;Billing location, Patient name",";",BARSRTBY) Line Location: LISTRUNS+12
Function Call: WRITE	Prompt: !,"This parameter will allow you to choose how patient statements" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"are sorted for printing. Statements will first be sorted by " Line Location: HELP+2
Function Call: WRITE	Prompt: !,"(1) billing location and then by account number, or by" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"(2) billing location and then alphabetically by the patient's last name" Line Location: HELP+4
Function Call: WRITE	Prompt: !,"based on which option is selected." Line Location: HELP+5
Function Call: WRITE	Prompt: !,"If nothing is selected, the print order will default to option 1." Line Location: HELP+6
Function Call: WRITE	Prompt: !,BARCNT,".",?10,BARTMP," ",$G(^XTMP(BARTMP,0)) Line Location: LISTALL+2
Function Call: WRITE	Prompt: !?10,X,": ",$G(^XTMP(BARTMP,0,X)) Line Location: LISTALL+3
Routine Call	DIE Line Location: MARKACC+16
Routine Call	DIC Line Location: GETX+5 ASKACCT+8 MARKACC+10
Routine Call	DIR Line Location: GETMSG+9 RBLD+10 RBLD+34 PURGE+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19.2 - [#19.2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARAC(2906 - [#90050.02]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	GETSRTBY+7
^BARAC(	TASK+12, TASK+13, RBLD+27, RBLD+28
^BARBL(	ACCOUNT+8, ACCOUNT+13, ACCOUNT+29, ACCOUNT+33, ACCOUNT+39, ACCOUNT+46, ACCOUNT+64, ABAL+4
^BARTR(	ACCOUNT+57
^XTMP(	PURGE+2, PURGE+16!, LIST, LISTRUNS+3, LISTRUNS+10, LISTALL, LISTALL+2, LISTALL+3
^XTMP("BARPAS"	ACCOUNT+17, ACCOUNT+18, ACCOUNT+19, ACCOUNT+21, ACCOUNT+24!, ACCOUNT+34, ACCOUNT+50, ACCOUNT+68, CLEANUP!, DT1+15! , DT1+16, DT1+17, DT1+19, DT1+20, INITXTMP+1!, INITXTMP+2, INITXTMP+3, INITXTMP+4, INITXTMP+5, LISTRUNS+11 , ABAL+5

Label References

Name	Line Occurrences
$$GETSRTBY	TASK+8, DT1+18, REBUILD+1, RBLD+20
$$GETX	TASK+6, RBLD+16
$$PATNAME	ACCOUNT+6
ABAL	ACCOUNT+51, ACCOUNT+69
ACCOUNT	TASK+13, LOOP+6, RBLD+28
ASKACCT	MANUAL+3
DATE	MANUAL+6, RBLD+2
DT1	DT1+4, DT1+5
GETMSG	MANUAL+14
INITXTMP	TASK+9, RBLD+23
LISTRUNS	PURGE+4
RBLD	RBLD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETX+15, DT1+11, RBLD+1
>> BAR1	LISTRUNS+2, LISTRUNS+3, LISTRUNS+5, LISTRUNS+10
>> BARAC	MARKACC+3, MARKACC+11*
BARACDA	TASK+13, ACCOUNT~, ACCOUNT+6, ACCOUNT+8, ACCOUNT+17, ACCOUNT+18, ACCOUNT+19, ACCOUNT+21, ACCOUNT+24, ACCOUNT+28 , ACCOUNT+34, ACCOUNT+50, ACCOUNT+57, ACCOUNT+68, MANUAL+5, ASKACCT+10, LOOP+6, RBLD+28*, PATNAME~, PATNAME+2 , ABAL+4, ABAL+5
BARARR	PURGE+1~
BARARR(	PURGE+2*, PURGE+15, PURGE+16, PURGE+18
BARBAL	ACCOUNT+9, ACCOUNT+10, ACCOUNT+16, ACCOUNT+40, ACCOUNT+41, ABAL+1~, ABAL+2*, ABAL+3
BARBL	ACCOUNT+4, ACCOUNT+8, ACCOUNT+9, ACCOUNT+11, ACCOUNT+13, ACCOUNT+17, ACCOUNT+18, ACCOUNT+19, ACCOUNT+29, ACCOUNT+31 , ACCOUNT+33, ACCOUNT+34, ACCOUNT+39, ACCOUNT+40, ACCOUNT+44, ACCOUNT+46, ACCOUNT+50, ACCOUNT+51, ACCOUNT+58*, ACCOUNT+59 , ACCOUNT+62, ACCOUNT+64, ACCOUNT+68, ACCOUNT+69, ABAL~, ABAL+2, ABAL+4, ABAL+5
>> BARCNT	PURGE+2, PURGE+3, PURGE+5, PURGE+6, PURGE+7, PURGE+14, PURGE+18, LISTRUNS+1, LISTRUNS+4, LISTRUNS+6 , LISTRUNS+9, LISTALL, LISTALL+1*, LISTALL+2
BARDFN	PATNAME+1~, PATNAME+2*, PATNAME+3, PATNAME+5
>> BARDOSV	ACCOUNT+4, ACCOUNT+13, ACCOUNT+15, ACCOUNT+18, ACCOUNT+19, ACCOUNT+33, ACCOUNT+34, ACCOUNT+46, ACCOUNT+49, ACCOUNT+50 , ACCOUNT+64, ACCOUNT+67, ACCOUNT+68
>> BARDT	LISTRUNS+5*, LISTRUNS+6, LISTRUNS+7, LISTRUNS+11
BARDTB	TASK+9, GETX+12, ACCOUNT+56, MANUAL+7, DT1+1, DT1+2, DT1+5, DT1+17, LOOP+5, RBLD+3 , RBLD+14, RBLD+21*, RBLD+23, INITXTMP~, INITXTMP+2
BARDTE	TASK+9, GETX+13, ACCOUNT+57, DT1+3, DT1+4, DT1+5, DT1+17, LOOP+5, RBLD+4, RBLD+15 , RBLD+22*, RBLD+23, INITXTMP~, INITXTMP+2, INITXTMP+3
>> BARFREQ	GETX+8*, GETX+12
>> BARHDRDA	MANUAL+9, RBLD+25
>> BARHOLD	TASK+11, TASK+14, RBLD+26, RBLD+29
BARMODE	DATE~, DT1+8
BARNAM	PATNAME+1~, PATNAME+3, PATNAME+4, PATNAME+5
>> BARPAT	ACCOUNT+28*, ACCOUNT+29, ACCOUNT+39
>> BARPATNM	ACCOUNT+6, ACCOUNT+7, ACCOUNT+17, ACCOUNT+18, ACCOUNT+19, ACCOUNT+21, ACCOUNT+24, ACCOUNT+34, ACCOUNT+50, ACCOUNT+68
>> BARPSAT(	ACCOUNT+12, ACCOUNT+32, ACCOUNT+45, ACCOUNT+63
BARPTMSG	GETMSG+2!, GETMSG+3, GETMSG+11
>> BARQ("NS"	MANUAL+12*
>> BARQ("RC"	MANUAL+10*
>> BARQ("RP"	MANUAL+11*
>> BARQ("RX"	MANUAL+13*
BARRET	PATNAME+1~
>> BARRUN(	LISTRUNS+6*
BARRUNDT	TASK+9, GETX+15, ACCOUNT+17, ACCOUNT+18, ACCOUNT+19, ACCOUNT+21, ACCOUNT+24, ACCOUNT+34, ACCOUNT+50, ACCOUNT+68 , CLEANUP, DT1+11, DT1+15, DT1+16, DT1+17, DT1+19, DT1+20, RBLD+1*, RBLD+4, RBLD+23 , INITXTMP~, INITXTMP+1, INITXTMP+2, INITXTMP+3, INITXTMP+4, INITXTMP+5, ABAL+5
>> BARSCHED	GETX+7*, GETX+8
BARSRT	GETSRTBY+1~, GETSRTBY+7, GETSRTBY+8, GETSRTBY+9, GETSRTBY+10
BARSRTBY	TASK+8, TASK+9, ACCOUNT+7, DT1+18, DT1+19, REBUILD+1, REBUILD+3, RBLD+20, RBLD+23, INITXTMP~ , INITXTMP+4, LISTRUNS+11*, LISTRUNS+12
BARTMP	PURGE+1~, PURGE+2, LISTALL, LISTALL+2, LISTALL+3
BARTMP0	PURGE+1~, PURGE+2, LISTALL
>> BARTMPD1	RBLD+14*, RBLD+21
>> BARTMPD2	RBLD+15*, RBLD+22
>> BARTOT	ACCOUNT+4, ACCOUNT+16, ACCOUNT+21, ACCOUNT+24
>> BARTR	ACCOUNT+56, ACCOUNT+57, ACCOUNT+58
>> BARVISL	ACCOUNT+4, ACCOUNT+11, ACCOUNT+12, ACCOUNT+14, ACCOUNT+18, ACCOUNT+19, ACCOUNT+31, ACCOUNT+32, ACCOUNT+34, ACCOUNT+44* , ACCOUNT+45, ACCOUNT+48, ACCOUNT+50, ACCOUNT+62, ACCOUNT+63, ACCOUNT+66*, ACCOUNT+68
BARXXX	TASK+4~, TASK+6, TASK+7, TASK+9, RBLD+16, RBLD+23
DA	GETX+1!, MARKACC+5!, MARKACC+14*, ASKMODE+3!
DIC	GETX+1!, GETX+2, ASKACCT+3!, ASKACCT+5, MARKACC+5!, MARKACC+6*, MARKACC+13
DIC("A"	ASKACCT+4*
DIC("S"	ASKACCT+7, MARKACC+8
DIC("W"	MARKACC+9*
DIC(0	GETX+4, ASKACCT+6, MARKACC+7*
DIE	GETX+1!, MARKACC+5!, MARKACC+13*
DIR	GETMSG+5!, RBLD+11!, RBLD+35!, ASKMODE+1!, PURGE+12!
DIR("?"	GETMSG+7*
DIR("A"	GETMSG+6, RBLD+7, RBLD+31, PURGE+8
DIR("B"	RBLD+8, RBLD+32, PURGE+9*
DIR(0	GETMSG+8, RBLD+9, RBLD+33, PURGE+10
DIRUT	ASKMODE+1!
DR	GETX+1!, MARKACC+5!, MARKACC+15*
DT	GETX+9, GETX+12, GETX+13, GETX+16, DT1+12, DT1+16
DUZ(2	TASK+11, TASK+12, TASK+13, TASK+14, ACCOUNT+8, ACCOUNT+12, ACCOUNT+13, ACCOUNT+17, ACCOUNT+18, ACCOUNT+19 , ACCOUNT+21, ACCOUNT+24, ACCOUNT+29, ACCOUNT+32, ACCOUNT+33, ACCOUNT+34, ACCOUNT+39, ACCOUNT+45, ACCOUNT+46, ACCOUNT+50 , ACCOUNT+57, ACCOUNT+63, ACCOUNT+64, ACCOUNT+68, RBLD+26, RBLD+27, RBLD+28, RBLD+29, GETSRTBY+7, ABAL+4 , ABAL+5
>> I	PURGE+14*, PURGE+15, PURGE+16
U	ACCOUNT+13, ACCOUNT+33, ACCOUNT+46, ACCOUNT+64, GETSRTBY+7, INITXTMP+2
X	GETX+3, GETX+12, GETX+19, GETMSG+11, DT1+16, MARKACC+5!, LIST, GETSRTBY+1~, INITXTMP~, INITXTMP+3 , LISTALL+3
>> X1	GETX+9, GETX+16, DT1+12*
>> X2	GETX+10, GETX+17, DT1+13*
Y	GETX+6, GETX+7, MANUAL+4, GETMSG+10, ASKACCT+9, ASKACCT+10, MARKACC+5!, MARKACC+11, MARKACC+12, MARKACC+14 , RBLD+12, RBLD+36, ASKMODE+1!, ASKMODE+2, ASKMODE+4, PURGE+13, LISTRUNS+7, LISTRUNS+9

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMPAS

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: