Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BARPADJ

Package: IHS Accounts Receivable

Routine: BARPADJ


Information

BARPADJ ; IHS/SD/LSL - Standard Adjustment Reason Codes Inquiry ;

Source Information

Source file <BARPADJ.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

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

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All