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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BAREDPZ1

Package: IHS Accounts Receivable

Routine: BAREDPZ1


Information

BAREDPZ1 ; IHS/SD/LSL - AHCCCS IMPORT ROUTINE ;

Source Information

Source file <BAREDPZ1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 (,DD)^%DT  ^DIC  FILE^DICN  ^DIE  
IHS Accounts Receivable 1 CLMCODE^BAREDP02  
IHS VA Utilities 1 $$DIC^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
ECHECK ;
FILE ;
DT ;EP Conversion of date to readable format
SET ;
SEP ;EP Set seperators
PN ;
ADJREA ;EP Process reason and amount into claim impda,clmda
LOAD ;EP Scan all AHCCCS imports loaded for new reason codes and stuff them
; into the Claim Level Reason Codes table for mapping.
EN ;
END ;
CHKNUM ;EP Enter Check mumber into Import
AHCCCS ;EP enter new table entries for AHCCCS
REASON ;
MAP ;EP repoint the distributed tabled reason pointers to the new ones installed
PAYAMT ;Load Claim data
SET1ADJ ; set one adjustment X|reason, AMT
1007 ;;MISSING FIELD^4^NONPAY
1008 ;;DOCUMENTATION REQUIRED^4^NONPAY
PUT ; FILE NEW INTO CLAIM LEVEL MULTIPLE
1006 ;;INCORRECT PROVIDER TYPE^4^NONPAY
1005 ;;MISSING DATA^4^NONPAY
1004 ;;OTHER TPL^4^NONPAY
1003 ;;RX PROCESSING FEE^3^WO^123
1002 ;;CODING ERROR^4^NONPAY
1001 ;;BAD DEBT/COLLECTION AGENCY^3^WO

External References

Name Field # of Occurrence
^%DT DT+3
DD^%DT DT+3
CLMCODE^BAREDP02 ADJREA+12, ADJREA+17
^DIC SET1ADJ+10
FILE^DICN PAYAMT+15
^DIE PAYAMT+22, PAYAMT+25, CHKNUM+5
$$DIC^XBDIQ1 PAYAMT+5, SET1ADJ+6, CHKNUM+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,X,?15,VBILNM
  • Line Location: PAYAMT+9
Function Call: WRITE
  • Prompt: "NO BILL NUMBER IN FILE"
  • Line Location: PAYAMT+11
Function Call: WRITE
  • Prompt: !,FDA0
  • Line Location: FILE+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: REASON+2
Function Call: WRITE
  • Prompt: !,CODE,?10,REA
  • Line Location: PN+4
Function Call: WRITE
  • Prompt: !,CODE,?10,REA
  • Line Location: SET+5
Routine Call
  • DIE
  • Line Location:
    • PAYAMT+22
    • PAYAMT+25
    • CHKNUM+5
Routine Call
  • DIC
  • Line Location:
    • SET1ADJ+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAREDI("1T" - [#90056.01] PN+3
^BAREDI("I" EN+2, FILE+1, REASON+1
^PWTMP("AHC" PN+5*, PUT+2, SET+3

Label References

Name Line Occurrences
FILE EN+2
PN REASON+3
REASON FILE+4
SET PUT+2
SET1ADJ ADJREA+7, ADJREA+14, ADJREA+19

Naked Globals

Name Field # of Occurrence
^( REASON+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DT+2*
>> ADJDA PAYAMT+26*, SET1ADJ+1*, SET1ADJ+5
>> CLMDA PAYAMT+16*, SET1ADJ+4
>> CODE PN+1*, PN+3, PN+4, PN+5, PUT+1*, PUT+2*, SET+2, SET+3, SET+5
>> COUNT PAYAMT+1, PAYAMT+2, PAYAMT+3*
D0 PAYAMT+14!
DA PAYAMT+4!, PAYAMT+17*, SET1ADJ+2!, CHKNUM+1!, CHKNUM+3*, SET+1!
DA(1 PAYAMT+13*, SET1ADJ+4*, SET+4*
DA(2 SET1ADJ+3*
DD PAYAMT+14!
DIC PAYAMT+4!, PAYAMT+5*, PAYAMT+18, PAYAMT+19!, SET1ADJ+2!, SET1ADJ+6*, SET+1!
DIC("DR" SET1ADJ+9*
DIC("P" PAYAMT+7*, SET1ADJ+7*
DIC(0 PAYAMT+6*, SET1ADJ+8*
DIE PAYAMT+4!, PAYAMT+18*, SET1ADJ+2!, CHKNUM+1!, CHKNUM+2*
DO PAYAMT+14!
DR PAYAMT+4!, PAYAMT+20!, PAYAMT+21*, PAYAMT+24*, SET1ADJ+2!, CHKNUM+1!, CHKNUM+4*, SET+1!
>> E SEP+1*
>> FDA EN+1*, EN+2*, FILE+1, REASON+1
>> FDA0 FILE+1*, FILE+2, FILE+3
>> I ADJREA+15*, ADJREA+16
>> IMPDA PAYAMT+13, SET1ADJ+3, CHKNUM+3
>> L REASON+1*, REASON+2
>> PAT PAYAMT+23*
>> REA PN+2*, PN+4, PN+5, SET+3*, SET+5
>> S SEP+1*
>> SE SEP+1*, ADJREA+6, ADJREA+10, ADJREA+15
U FILE+2
>> VADJAMT ADJREA+1*, ADJREA+16*
>> VADJCAT ADJREA+3*, ADJREA+4, ADJREA+5, ADJREA+6
>> VADJREA ADJREA+2, ADJREA+6*, ADJREA+9, ADJREA+13*, ADJREA+18*
>> VBILAMT ADJREA+1
>> VBILNM PAYAMT+8, PAYAMT+9
>> VPATFN PAYAMT+23
>> VPATLN PAYAMT+23
>> VPATMN PAYAMT+23
>> VPAYAMT ADJREA+1
X DT+1*, DT+4*, PAYAMT+8*, PAYAMT+9, PAYAMT+10, PAYAMT+12*, ADJREA+11*, ADJREA+13, ADJREA+15*, ADJREA+18
, SET1ADJ+2!, SET1ADJ+5*, REASON+1*, REASON+3, PN+1, PN+2, SET+2*
>> XXX ADJREA+9*, ADJREA+10, ADJREA+11, ADJREA+15
>> Y DT+4, PAYAMT+16, PAYAMT+17
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All