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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BARRIDR

Package: IHS Accounts Receivable

Routine: BARRIDR


Information

BARRIDR ; IHS/SD/LSL - Inpatient Primary Diagnosis Report ;08/20/2008

Source Information

Source file <BARRIDR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Accounts Receivable 8 ^BARDBQUE  $$TRANS^BARDUTL  BILL^BARRCHK  (,WHD)^BARRHD  ^BARRSEL  $$CONVERT^BARRSL2  (LOOP,PAZ)^BARRUTL  ($$FIND3PB,INIT)^BARUTL  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR RPT FRM IPDR  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
; For each location do...
DSCH ;
; For each Discharge Service do...
TSI ;;OTHER;;TRIBAL SELF INSURED
MH ;;MEDICARE;;MEDICARE HMO
HDB ; EP
; Page and column header
DX ;
; For each Diagnosis do...
PRINT ; EP
; Print
DATA ; EP
; Called by BARRUTL
HD ; EP
SEP ;;OTHER;;STATE EXCHANGE PLAN
FPL ;;MEDICAID;;FPL 133 PERCENT
LOCTOT ;
; Location subtotal
TOTAL ;
; Report Total
C ;;OTHER;;CHAMPUS
EN ; EP
COMPUTE ;
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.
ALLBITOT ;
; Billing Entity / Allowance Category subtotal
P ;;PRIVATE INSURANCE;;PRIVATE INSURANCE
R ;;MEDICARE;;MEDICARE FI
T ;;OTHER;;THIRD PARTY LIABILITY
W ;;OTHER;;WORKMEN'S COMP
V ;;VETERAN;;VETERANS MEDICAL BENEFITS
N ;;OTHER;;NON-BENEFICIARY (NON-INDIAN)
MD ;;MEDICARE;;MCR PART D
MC ;;MEDICARE;;MCR PART C
DSCHTOT ;
; Discharge service subtotal
STNDLINE ;
; Write standard line
ALLBI ;
; For each Billing entity / Allowance Category do...
MMC ;;MEDICARE;;MCR MANAGED CARE

External References

Name Field # of Occurrence
^BARDBQUE EN+15
$$TRANS^BARDUTL DATA+43, DATA+44, DATA+45, DATA+46
BILL^BARRCHK DATA+8
^BARRHD EN+10
WHD^BARRHD HDB+4
^BARRSEL EN+6
$$CONVERT^BARRSL2 EN+7
LOOP^BARRUTL COMPUTE+7
PAZ^BARRUTL EN+16, HD+1
$$FIND3PB^BARUTL DATA+34
INIT^BARUTL EN+4
$$GET1^DIQ DATA+2, DATA+12, DATA+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"BILL IEN: ",BAR," ",$P($G(^BARBL(DUZ(2),BAR,0)),U,1)," exluded: missing discharge service"
  • Line Location: DATA+3
Function Call: WRITE
  • Prompt: !!!!!?25,"*** NO DATA TO PRINT ***"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"VISIT LOCATION: ",BARL
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !?3,"ALLOWANCE CATEGORY: "
  • Line Location: ALLBI+2
Function Call: WRITE
  • Prompt: !?3,"BILLING ENTITY: "
  • Line Location: ALLBI+3
Function Call: WRITE
  • Prompt: BAR2
  • Line Location: ALLBI+4
Function Call: WRITE
  • Prompt: !?6,"DISCHARGE SERVICE: ",BARDS,!
  • Line Location: DSCH+2
Function Call: WRITE
  • Prompt: !?1,$E(BARDX,1,6)
  • Line Location: DX+5
Function Call: WRITE
  • Prompt: !,$E(BARDX,1,8)
  • Line Location: DX+6
Function Call: WRITE
  • Prompt: ?9,$J($P(BARHOLD,U),5)
  • Line Location: STNDLINE+2
Function Call: WRITE
  • Prompt: ?16,$J($P(BARHOLD,U,2),7)
  • Line Location: STNDLINE+3
Function Call: WRITE
  • Prompt: ?25,$J($FN($P(BARHOLD,U,3),",",2),12)
  • Line Location: STNDLINE+4
Function Call: WRITE
  • Prompt: ?39,$J($FN($P(BARHOLD,U,4),",",2),12)
  • Line Location: STNDLINE+5
Function Call: WRITE
  • Prompt: ?53,$J($FN($P(BARHOLD,U,5),",",2),12)
  • Line Location: STNDLINE+6
Function Call: WRITE
  • Prompt: ?67,$J($FN($P(BARHOLD,U,6),",",2),12)
  • Line Location: STNDLINE+7
Function Call: WRITE
  • Prompt: !,BARDASH
  • Line Location: DSCHTOT+2
Function Call: WRITE
  • Prompt: !," *DSVC"
  • Line Location: DSCHTOT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DSCHTOT+6
Function Call: WRITE
  • Prompt: BARDASH
  • Line Location: ALLBITOT+2
Function Call: WRITE
  • Prompt: !," **ALLOW"
  • Line Location: ALLBITOT+3
Function Call: WRITE
  • Prompt: !," **BILL"
  • Line Location: ALLBITOT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ALLBITOT+7
Function Call: WRITE
  • Prompt: BARDASH
  • Line Location: LOCTOT+2
Function Call: WRITE
  • Prompt: !," ***V LOC"
  • Line Location: LOCTOT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCTOT+6
Function Call: WRITE
  • Prompt: BAREQUAL
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !,"****TOTAL"
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !,BAR("DASH"),!
  • Line Location: HDB+8
Function Call: WRITE
  • Prompt: -->
  • Line Location: HDB+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.7 - [#45.7] GET1^DIQ
^BARBL(2906 - [#90050.01] GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( DATA+38
^BARBL( COMPUTE+7, DATA+42
^TMP($J COMPUTE+3!, DATA+52, DATA+53*, DATA+54*, DATA+55*, DATA+56*, DATA+57*, DATA+58*, DATA+61, DATA+62*
, DATA+63*, DATA+64*, DATA+65*, DATA+66*, DATA+67*, DATA+70, DATA+71*, DATA+72*, DATA+73*, DATA+74*
, DATA+75*, DATA+76*, DATA+79, DATA+80*, DATA+81*, DATA+82*, DATA+83*, DATA+84*, DATA+85*, DATA+88
, DATA+89*, DATA+90*, DATA+91*, DATA+92*, DATA+93*, DATA+94*, PRINT+12, PRINT+16, LOC+4, ALLBI+6
, DSCH+4, DX+4, DSCHTOT+4, ALLBITOT+5, LOCTOT+4, TOTAL+4

Label References

Name Line Occurrences
ALLBI LOC+4
ALLBITOT ALLBI+7
DSCH ALLBI+6
DSCHTOT DSCH+5
DX DSCH+4
HD DX+3
HDB PRINT+11
LOC PRINT+16
LOCTOT LOC+5
STNDLINE DX+7, DSCHTOT+5, ALLBITOT+6, LOCTOT+5, TOTAL+5
TOTAL PRINT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAR EN+1!, DATA+2, DATA+34, DATA+42, DATA+43, DATA+44, DATA+45, DATA+46
BAR("ALL" DATA+17, DATA+18, DATA+19, DATA+20
BAR("BI" DATA+22, DATA+23
BAR("COL1" PRINT+5*, HDB+5
BAR("COL2" PRINT+6*, PRINT+7*, HDB+6
BAR("DASH" HDB+7*, HDB+8
BAR("DS" DATA+28, DATA+29
BAR("DX" DATA+51*, DATA+52, DATA+53, DATA+54, DATA+55, DATA+56, DATA+57, DATA+58
BAR("F1" PRINT+16, LOC+4, ALLBI+6, DSCH+4, DX+3, HD+2*
BAR("HD" EN+9*
BAR("I" HDB+3*
BAR("L" DATA+12
BAR("LOC" EN+5*
BAR("PG" PRINT+4*, HDB+2*
BAR("PRIVACY" EN+3*
BAR("SUBR" COMPUTE+2*
BAR(133 HDB+7
BAR1 DATA+12*, DATA+52, DATA+53, DATA+54, DATA+55, DATA+56, DATA+57, DATA+58, DATA+61, DATA+62
, DATA+63, DATA+64, DATA+65, DATA+66, DATA+67, DATA+70, DATA+71, DATA+72, DATA+73, DATA+74
, DATA+75, DATA+76, DATA+79, DATA+80, DATA+81, DATA+82, DATA+83, DATA+84, DATA+85, PRINT+2!
BAR2 DATA+16*, DATA+17*, DATA+18*, DATA+19*, DATA+20*, DATA+22*, DATA+23*, DATA+52, DATA+53, DATA+54
, DATA+55, DATA+56, DATA+57, DATA+58, DATA+61, DATA+62, DATA+63, DATA+64, DATA+65, DATA+66
, DATA+67, DATA+70, DATA+71, DATA+72, DATA+73, DATA+74, DATA+75, DATA+76, PRINT+2!, LOC+3*
, LOC+4*, ALLBI+4, ALLBI+6, DSCH+4, DX+4, DSCHTOT+4, ALLBITOT+5
BAR3 DATA+28*, DATA+29*, DATA+30*, DATA+52, DATA+53, DATA+54, DATA+55, DATA+56, DATA+57, DATA+58
, DATA+61, DATA+62, DATA+63, DATA+64, DATA+65, DATA+66, DATA+67, PRINT+2!
BAR3PDUZ DATA+36*, DATA+38, PRINT+3!
BAR3PIEN DATA+37*, DATA+38, PRINT+3!
BAR3PLOC DATA+34*, DATA+35, DATA+36, DATA+37, PRINT+3!
BARADJ DATA+41!, DATA+46*, DATA+48, PRINT+2!
BARADJ2 DATA+41!, DATA+48*, DATA+58, DATA+67, DATA+76, DATA+85, DATA+94, PRINT+3!
BARBAMT DATA+41!, DATA+42*, DATA+55, DATA+64, DATA+73, DATA+82, DATA+91, PRINT+2!
BARCDAY DATA+33*, DATA+38*, DATA+39*, DATA+54, DATA+63, DATA+72, DATA+81, DATA+90, PRINT+2!
BARCODED DATA+41!, DATA+47*, DATA+48, DATA+57, DATA+66, DATA+75, DATA+84, DATA+93, PRINT+2!
BARCOPAY DATA+41!, DATA+44*, DATA+47
>> BARDASH PRINT+8*, DSCHTOT+2, ALLBITOT+2, LOCTOT+2
BARDED DATA+41!, DATA+45*, DATA+47
>> BARDS ALLBI+5*, ALLBI+6*, DSCH+2, DSCH+4, DX+4, DSCHTOT+4
BARDSCHG DATA+2*, DATA+4, DATA+5!
>> BARDUZ2 COMPUTE+5*, COMPUTE+8
>> BARDX DSCH+3*, DSCH+4*, DX+2, DX+4, DX+6
>> BAREQUAL PRINT+9*, TOTAL+2
BARHOLD DATA+52*, DATA+53, DATA+54, DATA+55, DATA+56, DATA+57, DATA+58, DATA+61*, DATA+62, DATA+63
, DATA+64, DATA+65, DATA+66, DATA+67, DATA+70*, DATA+71, DATA+72, DATA+73, DATA+74, DATA+75
, DATA+76, DATA+79*, DATA+80, DATA+81, DATA+82, DATA+83, DATA+84, DATA+85, DATA+88*, DATA+89
, DATA+90, DATA+91, DATA+92, DATA+93, DATA+94, PRINT+2!, DX+4*, STNDLINE+2, STNDLINE+3, STNDLINE+4
, STNDLINE+5, STNDLINE+6, STNDLINE+7, DSCHTOT+4*, ALLBITOT+5*, LOCTOT+4*, TOTAL+4*
>> BARL PRINT+15*, PRINT+16*, LOC+2, LOC+4, ALLBI+6, DSCH+4, DX+4, DSCHTOT+4, ALLBITOT+5, LOCTOT+4
>> BARMENU EN+9
>> BARP("HIT" DATA+7*, DATA+9
>> BARP("RTN" EN+2*, COMPUTE+4*
BARPAID DATA+41!, DATA+43*, DATA+56, DATA+65, DATA+74, DATA+83, DATA+92, PRINT+2!
>> BARQ("NS" EN+13*
>> BARQ("RC" EN+11*
>> BARQ("RP" EN+12*
>> BARQ("RX" EN+14*
>> BARUSR EN+4
BARY EN+1!
BARY("ALL" EN+7*, DATA+15, ALLBI+2, ALLBITOT+3
>> DIROUT EN+8, HD+2
>> DTOUT EN+8, HD+2
>> DUOUT EN+8, HD+2
DUZ(2 COMPUTE+5, COMPUTE+6*, COMPUTE+7*, COMPUTE+8*, DATA+34, DATA+42, DATA+43, DATA+44, DATA+45, DATA+46
IOSL DX+3
U DATA+38, DATA+42, DATA+53, DATA+54, DATA+55, DATA+56, DATA+57, DATA+58, DATA+62, DATA+63
, DATA+64, DATA+65, DATA+66, DATA+67, DATA+71, DATA+72, DATA+73, DATA+74, DATA+75, DATA+76
, DATA+80, DATA+81, DATA+82, DATA+83, DATA+84, DATA+85, DATA+89, DATA+90, DATA+91, DATA+92
, DATA+93, DATA+94, STNDLINE+2, STNDLINE+3, STNDLINE+4, STNDLINE+5, STNDLINE+6, STNDLINE+7

Marked Items

Name Field # of Occurrence
$T(@BAR(1) DATA+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All