Routine: BARPTR

Information

BARPTR ; IHS/SD/LSL - TRANSACTION LISTER AND SELECTOR ; 09/12/2008

Source Information

Source file <BARPTR.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IHS Accounts Receivable	4	$$CKDATE^BARPST EOP^BARUTL $$EN^BARVDF $$VALI^BARVPM
VA Fileman	2	$$GET1^DIQ ^DIR
IHS VA Utilities	1	ENP^XBDIQ1
Kernel	1	HOME^%ZIS

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARPUC

Name	Comments	DBIA/ICR reference
TSI	;;OTHER;;TRIBAL SELF INSURED
TOP	; EP
SEP	;;OTHER;;STATE EXCHANGE PLAN
FPL	;;MEDICAID;;FPL 133 PERCENT
C	;;OTHER;;CHAMPUS
D	;;MEDICAID;;MEDICAID FI
G	;;OTHER;;GUARANTOR
F	;;PRIVATE INSURANCE;;FRATERNAL ORGANIZATION
I	;;OTHER;;INDIAN PATIENT
H	;;PRIVATE INSURANCE;;HMO
K	;;MEDICAID;;CHIP (KIDSCARE)
M	;;PRIVATE INSURANCE;;MEDICARE SUPPL.
N	;;OTHER;;NON-BENEFICIARY (NON-INDIAN)
P	;;PRIVATE INSURANCE;;PRIVATE INSURANCE
R	;;MEDICARE;;MEDICARE FI
T	;;OTHER;;THIRD PARTY LIABILITY
W	;;OTHER;;WORKMEN'S COMP
V	;;VETERAN;;VETERANS MEDICAL BENEFITS
MD	;;MEDICARE;;MCR PART D
MC	;;MEDICARE;;MCR PART C
MH	;;MEDICARE;;MEDICARE HMO
EN(BAR)
MMC	;;MEDICARE;;MCR MANAGED CARE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BARCNT_"." Line Location: EN+10
Function Call: WRITE	Prompt: ?3,$J(BARTX(2),8,2) Line Location: EN+11
Function Call: WRITE	Prompt: ?15,$E(BARTX(6),1,30),?47,BARTX(14) Line Location: EN+13
Function Call: WRITE	Prompt: ?76,BARTX(15) Line Location: EN+14
Function Call: WRITE	Prompt: !,"** ERROR--MISSING ALLOCATION INFO IN TRANSACTION # "_BARTR Line Location: EN+17
Function Call: WRITE	Prompt: ?51 Line Location: EN+21
Function Call: WRITE	Prompt: $S($G(BARTX(17))'="":BARTX(17),$$GET1^DIQ(90051.1101,BARTX(15,"I")_","_BARTX(14,"I")_",",20,"E")'="":$$GET1^DIQ(90051.1101,BARTX(15,"I")_","_BARTX(14,"I")_",",20,"E"),1:"<NO TDN>") Line Location: EN+22
Function Call: WRITE	Prompt: !! Line Location: EN+34
Function Call: WRITE	Prompt: *7,"No transactions found!",!! Line Location: EN+35
Function Call: WRITE	Prompt: !,"No transactions found! (2)",!! Line Location: EN+40
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: TOP+4
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X Line Location: TOP+6
Function Call: WRITE	Prompt: !?IOM-$L(X)\2 Line Location: TOP+7
Function Call: WRITE	Prompt: "-" Line Location: TOP+8
Function Call: WRITE	Prompt: !!,"#",?5,"Credit",?15,"Account",?47,"Batch",?76,"Item" Line Location: TOP+9
Function Call: WRITE	Prompt: !?13,"TRANS DATE",?37,"ALLOW CAT",?51,"TDN",?73,"STATUS" Line Location: TOP+10
Function Call: WRITE	Prompt: ! Line Location: TOP+11
Function Call: WRITE	Prompt: BARDSH Line Location: TOP+13
Function Call: WRITE	Prompt: --> Line Location: TOP+17
Routine Call	%ZIS Line Location: TOP+2
Routine Call	DIR Line Location: EN+29 EN+37

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052 - [#90052]	EN+23
^BARTR(	EN+12, EN+41
^TMP($J	EN+7, EN+24*, EN+39, TOP+3, TOP+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR	EN~
>> BARALLC	EN+19*, EN+20
BARC	EN+7*, EN+26, EN+33!
BARCNT	EN+2~, EN+6, EN+9, EN+10, EN+24, EN+35, EN+36
>> BARDSH	TOP+12, TOP+13
BARQUIT	EN+7, EN+31*, EN+33!
BARTR	EN+2~, EN+6, EN+7, EN+8, EN+12, EN+17, EN+24, EN+39*, EN+40, EN+41 , EN+42
BARTX	EN+2~, EN+25!
BARTX(	EN+20
BARTX(14	EN+13, EN+22, EN+23
BARTX(15	EN+14, EN+22
BARTX(17	EN+22
BARTX(2	EN+11
BARTX(6	EN+13, EN+15, EN+24
>> D0	EN+15*, EN+16
>> DIC	EN+4*, EN+8
DIR	EN+27!, EN+30!
DIR(0	EN+28, EN+36
>> DR	EN+5*, EN+8
>> DUOUT	EN+38
DUZ(2	EN+12, EN+41
IOM	TOP+6, TOP+7
J	TOP+1~, TOP+8*
U	EN+12, EN+24, EN+41
>> X	EN+31, TOP+5*, TOP+6, TOP+7, TOP+8
>> Y	EN+38, EN+39

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPTR

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
HOME^%ZIS	TOP+2
$$CKDATE^BARPST	EN+12, EN+41
EOP^BARUTL	EN+18, EN+35, EN+40
$$EN^BARVDF	TOP+4
$$VALI^BARVPM	EN+19
$$GET1^DIQ	EN+22
^DIR	EN+29, EN+37
ENP^XBDIQ1	EN+8