Routine: BARPADJ

Package	Total	Call Graph
IHS Accounts Receivable	6	^BARDBQUE WP^BARDUTL WHD^BARRHD PAZ^BARRUTL INIT^BARUTL $$EN^BARVDF
VA Fileman	2	^DIC $$GET1^DIQ
Kernel	1	$$VERSION^XPDUTL

Package

Total

Call Graph

IHS Accounts Receivable

^BARDBQUE WP^BARDUTL WHD^BARRHD PAZ^BARRUTL INIT^BARUTL $$EN^BARVDF

VA Fileman

^DIC $$GET1^DIQ

Kernel

$$VERSION^XPDUTL

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR PST STND ADJ

Package

Total

Caller Graph

IHS Accounts Receivable

BAR PST STND ADJ

Name	Comments	DBIA/ICR reference
EN	; EP
COMPUTE	;
PRINT	; ; Print data of inquiry
INIT	;
LOOKUP	; ; Ask for code user wants to see
MSG	; ; Display message informing user that a complete listing of codes may be ; found in the user manual.

External References

Name	Field # of Occurrence
^BARDBQUE	EN+9
WP^BARDUTL	COMPUTE+2, COMPUTE+3
WHD^BARRHD	PRINT+5
PAZ^BARRUTL	EN+10
INIT^BARUTL	INIT+1
$$EN^BARVDF	MSG+4, PRINT+7, PRINT+8, PRINT+12, PRINT+14, PRINT+19, PRINT+21, PRINT+23, PRINT+25, PRINT+28
^DIC	LOOKUP+7
$$GET1^DIQ	COMPUTE+1, PRINT+24, PRINT+26
$$VERSION^XPDUTL	MSG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF") Line Location: MSG+4
Function Call: WRITE	Prompt: ?7,"For a complete hardcopy listing of Standard Adjustment Reason Codes," Line Location: MSG+5
Function Call: WRITE	Prompt: !?7,"please refer to the User Manual Addendum for A/R V1.7 Patch 4." Line Location: MSG+6
Function Call: WRITE	Prompt: !?7,"please refer to the User Manual." Line Location: MSG+7
Function Call: WRITE	Prompt: !! Line Location: MSG+8
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("ULN"),"STANDARD",$$EN^BARVDF("ULF") Line Location: PRINT+7
Function Call: WRITE	Prompt: ?30,$$EN^BARVDF("ULN"),"SHORT",$$EN^BARVDF("ULF") Line Location: PRINT+8
Function Call: WRITE	Prompt: ?36,BARSD($J,1) Line Location: PRINT+10
Function Call: WRITE	Prompt: !?4,$$EN^BARVDF("ULN"),"CODE:",$$EN^BARVDF("ULF") Line Location: PRINT+12
Function Call: WRITE	Prompt: ?10,$P(BARADJ,U) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?30,$$EN^BARVDF("ULN"),"DESC:",$$EN^BARVDF("ULF") Line Location: PRINT+14
Function Call: WRITE	Prompt: ?36,BARSD($J,I),! Line Location: PRINT+17
Function Call: WRITE	Prompt: !!?4,$$EN^BARVDF("ULN"),"RPMS",$$EN^BARVDF("ULF") Line Location: PRINT+19
Function Call: WRITE	Prompt: ?10,$P(BARADJ,U,3) Line Location: PRINT+20
Function Call: WRITE	Prompt: ?30,$$EN^BARVDF("ULN"),"RPMS",$$EN^BARVDF("ULF") Line Location: PRINT+21
Function Call: WRITE	Prompt: ?38,$P(BARADJ,U,4) Line Location: PRINT+22
Function Call: WRITE	Prompt: !,$$EN^BARVDF("ULN"),"CATEGORY:",$$EN^BARVDF("ULF") Line Location: PRINT+23
Function Call: WRITE	Prompt: ?10,$$GET1^DIQ(90052.01,$P(BARADJ,U,3),.01) Line Location: PRINT+24
Function Call: WRITE	Prompt: ?30,$$EN^BARVDF("ULN"),"REASON:",$$EN^BARVDF("ULF") Line Location: PRINT+25
Function Call: WRITE	Prompt: ?38,$$GET1^DIQ(90052.02,$P(BARADJ,U,4),.01) Line Location: PRINT+26
Function Call: WRITE	Prompt: !!!,$$EN^BARVDF("ULN"),"FULL STANDARD CODE DESCRIPTION:",$$EN^BARVDF("ULF"),! Line Location: PRINT+28
Function Call: WRITE	Prompt: !?5,BARLD($J,I) Line Location: PRINT+31
Routine Call	DIC Line Location: LOOKUP+7

FileNo	Call Tags
^BAR(90052.01 - [#90052.01]	GET1^DIQ
^BARTBL - [#90052.02]	GET1^DIQ
^BARADJ - [#90056.06]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences
INIT	EN+1
LOOKUP	EN+3
MSG	EN+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR("F1"	INIT+4*
>> BAR("HD"	PRINT+2*
>> BAR("LVL"	PRINT+4*
>> BAR("PG"	INIT+3, PRINT+3
>> BARADJ	LOOKUP+10*, COMPUTE+2, PRINT+13, PRINT+20, PRINT+22, PRINT+24, PRINT+26
>> BARAJIEN	EN+4, INIT+2, LOOKUP+9, COMPUTE+1
>> BARDESC	COMPUTE+1*, COMPUTE+3
>> BARLD(	PRINT+30, PRINT+31
>> BARQ("NS"	EN+7*
>> BARQ("RC"	EN+5*
>> BARQ("RP"	EN+6*
>> BARQ("RX"	EN+8*
>> BARSD(	PRINT+9, PRINT+10, PRINT+11!, PRINT+16, PRINT+17
>> BARUSR	INIT+1
>> BARV	MSG+3*, MSG+6
DA	LOOKUP+2!
DD	LOOKUP+6!
DIC	LOOKUP+2!, LOOKUP+3*
DIC("A"	LOOKUP+5*
DIC(0	LOOKUP+4*
DO	LOOKUP+6!
DR	LOOKUP+2!
>> I	PRINT+15, PRINT+16, PRINT+17, PRINT+29, PRINT+30, PRINT+31
U	COMPUTE+2, PRINT+13, PRINT+20, PRINT+22, PRINT+24, PRINT+26
X	LOOKUP+2!
Y	LOOKUP+2!, LOOKUP+8, LOOKUP+9
Y(0	LOOKUP+10

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPADJ

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: