Routine: BARMPAS3

Package	Total	Call Graph
IHS Accounts Receivable	9	^BARDBQUE $$SDT^BARDUTL GETMSG^BARMPAS PRINT^BARMPAS2 GETHDR^BARMPAS3 REINDEX^BARMPAS5 PAZ^BARRUTL EOP^BARUTL $$EN^BARVDF
VA Fileman	4	DD^%DT ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	ENP^XBDIQ1
Kernel	1	$$CJ^XLFSTR

Package	Total	Caller Graph
IHS Accounts Receivable	4	BARMPAS BARMPAS2 BARMPAS3 BARMPAS4

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; EP ; Write Billing Office Address
PAZ	; Add extra line feeds to force alignment ; IHS/SD/PKD copied from PAZ^BARRUTL but for printers ; BARRUTL quits if not terminal
GETHDR
PG(L)	; EP
PRTASK	; EP ; Called from Print Patient Accounts' Statements AR Menu Option
EXIT	; EP
SELECT	;
PRINT
RETAIN	;
PGHDR	; EP ; Print Patient Account header and demographics ; Write Billing Office Address

External References

Name	Field # of Occurrence
DD^%DT	SELECT+16
^BARDBQUE	PRTASK+19
$$SDT^BARDUTL	PGHDR+30, HDR+2
GETMSG^BARMPAS	PRTASK+18
PRINT^BARMPAS2	PRINT+8
GETHDR^BARMPAS3	PRTASK+12
REINDEX^BARMPAS5	PRTASK+8
PAZ^BARRUTL	PG+3, PRTASK+20
EOP^BARUTL	GETHDR+12, PRTASK+9, SELECT+6, SELECT+28
$$EN^BARVDF	PGHDR+7
^DIC	GETHDR+6
$$GET1^DIQ	PGHDR+14, PGHDR+15, PGHDR+16, PGHDR+17, PGHDR+18, PGHDR+19, PGHDR+20, PGHDR+21, PGHDR+23
^DIR	SELECT+25, RETAIN+5
ENP^XBDIQ1	GETHDR+16
$$CJ^XLFSTR	GETHDR+10, GETHDR+11, SELECT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ACCOUNT STATEMENT HEADER entry not found in A/R LETTERS & TEXT File",IOM) Line Location: GETHDR+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Please create the entry before proceeding with this print.",IOM) Line Location: GETHDR+11
Function Call: WRITE	Prompt: ! Line Location: PGHDR+5
Function Call: WRITE	Prompt: # Line Location: PGHDR+6
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: PGHDR+7
Function Call: WRITE	Prompt: !,?5,"TO THE PARENTS OF" Line Location: PGHDR+26
Function Call: WRITE	Prompt: !?5,BARPTNM Line Location: PGHDR+27
Function Call: WRITE	Prompt: ?55,"STATEMENT PERIOD" Line Location: PGHDR+28
Function Call: WRITE	Prompt: !?5,BARADDR Line Location: PGHDR+29
Function Call: WRITE	Prompt: ?55,$$SDT^BARDUTL(BARDTB)," - ",$$SDT^BARDUTL(BARDTE) Line Location: PGHDR+30
Function Call: WRITE	Prompt: !?5,BARCITY,", ",BARSTATE,", ",BARZIP Line Location: PGHDR+31
Function Call: WRITE	Prompt: !!!,BAREQUAL Line Location: PGHDR+32
Function Call: WRITE	Prompt: !,HL1 Line Location: PGHDR+33
Function Call: WRITE	Prompt: !,HL2 Line Location: PGHDR+34
Function Call: WRITE	Prompt: !,BAREQUAL Line Location: PGHDR+35
Function Call: WRITE	Prompt: !,?2,"Statement Date: ",$$SDT^BARDUTL(DT),?70,"Page: ",BARPG,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,^(I) Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"THIS BATCH OF STATEMENTS IS NOT COMPATIBLE WITH THE NEW FILE STRUCTURE." Line Location: PRTASK+6
Function Call: WRITE	Prompt: !,"WILL RUN REIDEXING FIRST, THEN TRY AGAIN",!! Line Location: PRTASK+7
Function Call: WRITE	Prompt: !!!,$$CJ^XLFSTR("NO PATIENT ACCOUNT STATEMENT RUNS TO CHOOSE FROM",IOM) Line Location: SELECT+5
Function Call: WRITE	Prompt: !,"Select Account Run time: ",! Line Location: SELECT+9
Function Call: WRITE	Prompt: !,$J(BARCNT,2),?5,Y Line Location: SELECT+17
Function Call: WRITE	Prompt: " not compatible" Line Location: SELECT+18
Function Call: WRITE	Prompt: " sorted by ",$P("Billing location, Account Number;Billing location, Patient name",";",BARSRTBY) Line Location: SELECT+20
Function Call: WRITE	Prompt: !,"NONE SELECTED",! Line Location: SELECT+27
Function Call: WRITE	Prompt: !,"DO YOU WISH TO RETAIN THE RUN TO PRINT AGAIN ?" Line Location: RETAIN+1
Function Call: WRITE	Prompt: ! Line Location: PAZ+5
Routine Call	DIC Line Location: GETHDR+6
Routine Call	DIR Line Location: SELECT+25 RETAIN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
9000001.41	GET1^DIQ
^BARAC(2906 - [#90050.02]	GET1^DIQ
^BAR(90052.03 - [#90052.03]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	SELECT+11
^XTMP("AZLKPS"	EXIT+1!
^XTMP("BARPAS"	GETHDR+18!, GETHDR+19*, HDR+3, PRTASK+4, SELECT+3, SELECT+18, SELECT+19, PRINT+2, PRINT+3

Label References

Name	Line Occurrences
GETHDR	PRINT+1
HDR	PGHDR+11
PGHDR	PG+1, PG+5
SELECT	PRTASK+2

Naked Globals

Name	Field # of Occurrence
^(	HDR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AZJB	EXIT+1, EXIT+2!
AZKILL	EXIT+1, EXIT+2!
>> BAR1	SELECT+3, SELECT+4, SELECT+11, SELECT+13
>> BARACDA	PGHDR+14
>> BARADDR	PGHDR+17*, PGHDR+29
>> BARCITY	PGHDR+18*, PGHDR+31
>> BARCNT	SELECT+10, SELECT+12, SELECT+14, SELECT+17, SELECT+24
>> BARDASH	PGHDR+10*
>> BARDFN	PGHDR+14*, PGHDR+15, PGHDR+16, PGHDR+17, PGHDR+18, PGHDR+19, PGHDR+21, PGHDR+22
>> BARDT	SELECT+13*, SELECT+14, SELECT+15, SELECT+18, SELECT+19
>> BARDTB	PGHDR+30, PRINT+4*
>> BARDTE	PGHDR+30, PRINT+5*
>> BAREQUAL	PGHDR+9*, PGHDR+32, PGHDR+35
>> BARF1	PG+4*
BARHDR	GETHDR+20!
BARHDR("ID"	GETHDR+17!
BARHDR(100	GETHDR+19
>> BARHDRDA	GETHDR+15*, GETHDR+16, PRTASK+13
BARHRN	PGHDR+3!, PGHDR+23*
>> BARIENS	PGHDR+22*, PGHDR+23
>> BARKILL	RETAIN+6*
>> BARPG	PGHDR+4*, HDR+2
BARPT	PGHDR+3!
>> BARPTAGE	PGHDR+16*, PGHDR+26
>> BARPTNM	PGHDR+15*, PGHDR+27
>> BARQ("NS"	PRTASK+16*
>> BARQ("RC"	PRTASK+14*
>> BARQ("RP"	PRTASK+15*
>> BARQ("RX"	PRTASK+17*
BARRUN	SELECT+30!
BARRUN(	SELECT+14*, SELECT+29
BARRUNDT	GETHDR+18, GETHDR+19, HDR+3, PRTASK+3, PRTASK+4, PRTASK+8, SELECT+1!, SELECT+29*, PRINT+2, PRINT+3
>> BARSRTBY	PRTASK+4, PRTASK+5, SELECT+19, PRINT+3*
>> BARSTATE	PGHDR+19, PGHDR+20, PGHDR+31
>> BARTMP	PRINT+2*, PRINT+4, PRINT+5
>> BARZIP	PGHDR+21*, PGHDR+31
DA	GETHDR+2!
DIC	GETHDR+2!, GETHDR+3*
DIC(0	GETHDR+4*
DIR	SELECT+23!, RETAIN+2!
DIR("B"	RETAIN+4*
DIR(0	SELECT+24, RETAIN+3
>> DIROUT	PG+4
DR	GETHDR+2!
DT	HDR+2
>> DTOUT	PG+4
>> DUOUT	PG+4
DUZ(2	PGHDR+22
>> HL1	PGHDR+33, PRINT+6*
>> HL2	PGHDR+34, PRINT+7*
>> I	HDR+3*
IO("Q"	PAZ+4
IOM	GETHDR+10, GETHDR+11, PGHDR+9, PGHDR+10, SELECT+5
IOSL	PG+1, PG+2, PAZ+5
IOST	PG+1
L	PG~, PG+1
U	PRINT+4, PRINT+5
>> X	GETHDR+5*
>> Y	GETHDR+9, GETHDR+15, SELECT+15*, SELECT+17, SELECT+26, SELECT+29, RETAIN+6

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMPAS3

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: