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: BARPUC2

Package: IHS Accounts Receivable

Routine: BARPUC2


Information

BARPUC2 ; IHS/SD/LSL - UNALLOCATED PATIENT LOOKUP ; 01/26/2009

Source Information

Source file <BARPUC2.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Accounts Receivable 5 $$SDT^BARDUTL  $$DUPLBILL^BARPNP2  EOP^BARUTL  $$EN^BARVDF  $$VALI^BARVPM  
VA Fileman 5 DD^%DT  C^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 EN^XBDIQ1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Accounts Receivable 3 BARPUC  BARPUC3  BARPUC3A  

Entry Points

Name Comments DBIA/ICR reference
TSI ;;OTHER;;TRIBAL SELF INSURED
EN(BARPASS)
HIT(BARPASS) ;
; ** display a/r bills found
CHKLINE(BARHD) ;
; Q 0 = CONTINUE
; Q 1 = STOP
SEP ;;OTHER;;STATE EXCHANGE PLAN
HIT1(BARPASS) ; EP
; ** display a/r bills found
FPL ;;MEDICAID;;FPL 133 PERCENT
HEAD ;
PRTQ ; Ask whether to print comments on Letters to Finance 1.8.17 2/25/10 PKD
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
ITMSG
MD ;;MEDICARE;;MCR PART D
MC ;;MEDICARE;;MCR PART C
HEAD1 ;
C ;;OTHER;;CHAMPUS
MH ;;MEDICARE;;MEDICARE HMO
MMC ;;MEDICARE;;MCR MANAGED CARE

External References

Name Field # of Occurrence
DD^%DT ITMSG+20
C^%DTC EN+9
$$SDT^BARDUTL HIT+22, HEAD+6, HIT1+24, HEAD1+6
$$DUPLBILL^BARPNP2 HIT+11, HIT1+10
EOP^BARUTL CHKLINE+6, ITMSG+15, ITMSG+19
$$EN^BARVDF HEAD+1, HEAD1+1
$$VALI^BARVPM ITMSG+16
^DIE ITMSG+30
$$GET1^DIQ ITMSG+23
^DIR PRTQ+5
EN^XBDIQ1 EN+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,BARLIN
  • Line Location: HIT+21
Function Call: WRITE
  • Prompt: ?6,$$SDT^BARDUTL($P(BARREC,U,1))
  • Line Location: HIT+22
Function Call: WRITE
  • Prompt: ?18,BARBLO
  • Line Location: HIT+23
Function Call: WRITE
  • Prompt: ?32,$J($P(BARREC,U,3),8,2)
  • Line Location: HIT+24
Function Call: WRITE
  • Prompt: ?44,$E($P(BARREC,U,4),1,23)
  • Line Location: HIT+25
Function Call: WRITE
  • Prompt: ?70,$J($P(BARREC,U,5),8,2)
  • Line Location: HIT+26
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF"),!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "Claims for "_BARPTNAM_" from "_$$SDT^BARDUTL($P(BARPASS,U,2))_" to "_$$SDT^BARDUTL($P(BARPASS,U,3))
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?(IOM-15),"Page: "_BARPG
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!?32,"Billed",?70,"Current"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"Line #",?8,"DOS",?18,"Claim #",?32,"Amount",?44,"Billed To",?70,"Balance"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,BARDSH
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,BARLIN
  • Line Location: HIT1+23
Function Call: WRITE
  • Prompt: ?6,$$SDT^BARDUTL($P(BARREC,U,1))
  • Line Location: HIT1+24
Function Call: WRITE
  • Prompt: ?18,BARBLO
  • Line Location: HIT1+25
Function Call: WRITE
  • Prompt: ?32,$J($P(BARREC,U,3),8,2)
  • Line Location: HIT1+26
Function Call: WRITE
  • Prompt: ?44,$J($P(BARREC,U,6),8,2)
  • Line Location: HIT1+27
Function Call: WRITE
  • Prompt: ?56,$J($P(BARREC,U,7),8,2)
  • Line Location: HIT1+28
Function Call: WRITE
  • Prompt: ?70,$J($P(BARREC,U,5),8,2)
  • Line Location: HIT1+29
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF"),!
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: "Claims for "_BARPTNAM_" from "_$$SDT^BARDUTL($P(BARPASS,U,2))_" to "_$$SDT^BARDUTL($P(BARPASS,U,3))
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?(IOM-15),"Page: "_BARPG
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !!?32,"Billed",?44,"Current",?56,"Current",?70,"Current"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,"Line #",?8,"DOS",?18,"Claim #",?32,"Amount",?44,"Payments",?56,"Adjust.",?70,"Balance"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,BARDSH
  • Line Location: HEAD1+12
Function Call: WRITE
  • Prompt: !?(IOM-15),"continued==>"
  • Line Location: CHKLINE+5
Function Call: WRITE
  • Prompt: !!!,"Create a New Message for: "
  • Line Location: ITMSG+2
Function Call: WRITE
  • Prompt: !!,"Credit",?10,"Account",?42,"Batch",?71,"Item"
  • Line Location: ITMSG+3
Function Call: WRITE
  • Prompt: !?8,"TRANS DATE",?32,"ALLOW CAT",?46,"TDN",?68,"STATUS"
  • Line Location: ITMSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ITMSG+5
Function Call: WRITE
  • Prompt: BARDSH
  • Line Location: ITMSG+7
Function Call: WRITE
  • Prompt: $J(BARTX(2),8,2)
  • Line Location: ITMSG+9
Function Call: WRITE
  • Prompt: ?10,$E(BARTX(6),1,30),?42,BARTX(14)
  • Line Location: ITMSG+10
Function Call: WRITE
  • Prompt: ?71,BARTX(15)
  • Line Location: ITMSG+11
Function Call: WRITE
  • Prompt: !,"** ERROR--MISSING ALLOCATION INFO "
  • Line Location: ITMSG+14
Function Call: WRITE
  • Prompt: !,"** ERROR--MISSING ALLOCATION INFO "
  • Line Location: ITMSG+18
Function Call: WRITE
  • Prompt: !?8,Y,?32,$E($TR($P($T(@BARALLC),";;",3)," ",""),1,12)
  • Line Location: ITMSG+21
Function Call: WRITE
  • Prompt: ?46
  • Line Location: ITMSG+22
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: ITMSG+23
Function Call: WRITE
  • Prompt: !!,?31,"**Messages Exist**",!
  • Line Location: PRTQ+3
Function Call: WRITE
  • Prompt: -->
  • Line Location: PRTQ+10
Routine Call
  • DIE
  • Line Location:
    • ITMSG+30
Routine Call
  • DIR
  • Line Location:
    • PRTQ+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
90051.1101 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAR(90052 - [#90052] ITMSG+24
^BARBL( EN+15, EN+17
^BARCOL( PRTQ+1
^BARTMP($J EN+2!, EN+21*, EN+22*, HIT+5, HIT+6, HIT+7, HIT1+5, HIT1+6, HIT1+7
^BARTR( HIT+9, HEAD+5, HIT1+9, HEAD1+5
^DPT - [#2] HEAD+4, HEAD1+4

Label References

Name Line Occurrences
$$CHKLINE HIT+10, HIT1+22
HEAD HIT+4, CHKLINE+8
HEAD1 HIT1+4, CHKLINE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BARALLC ITMSG+16*, ITMSG+17
BARBDA EN+16*, EN+17*, EN+18, EN+21, EN+22, HIT+2~, HIT+3*, HIT+5*, HIT+6, HIT+7
, HIT+16, HIT+17, HIT+18, HIT+19
BARBEG EN+1~, EN+5*, EN+7
BARBLO HIT+2~, HIT+8*, HIT+9*, HIT+15*, HIT+16*, HIT+17*, HIT+18*, HIT+19*, HIT+23, HIT1+2~
, HIT1+8*, HIT1+9*, HIT1+14*, HIT1+15*, HIT1+16*, HIT1+17*, HIT1+18*, HIT1+25
BARBLV EN+1~, EN+23!
BARBLV( EN+21
BARBLV(13 EN+21
BARBLV(15 EN+21
BARBLV(3 EN+21
BARCNT EN+1~, EN+14*, EN+20*, EN+21, EN+22, EN+24
BARDPTR HIT+2~, HIT+14*, HIT+15, HIT+16, HIT+17, HIT1+2~, HIT1+13*, HIT1+14, HIT1+15, HIT1+16
>> BARDSH HEAD+10*, HEAD+11*, HEAD+12, HEAD1+10*, HEAD1+11*, HEAD1+12, ITMSG+6*, ITMSG+7*
BARDT EN+1~, EN+10*, EN+15*, EN+17, EN+21
BAREIN1 HIT+2~, HIT+12*, HIT+16, HIT+18, HIT1+2~, HIT1+11*, HIT1+15, HIT1+17
BAREIN2 HIT+2~, HIT+13*, HIT+17, HIT+19, HIT1+2~, HIT1+12*, HIT1+16, HIT1+18
BAREND EN+1~, EN+6*, EN+15
BARHD CHKLINE~, CHKLINE+8, CHKLINE+9
BARHIT EN+1~, HIT1+2~, HIT1+3*, HIT1+5*, HIT1+6, HIT1+7, HIT1+15, HIT1+16, HIT1+17, HIT1+18
BARLIN HIT+2~, HIT+6*, HIT+7, HIT+21, HIT1+2~, HIT1+6*, HIT1+7, HIT1+23
BARPASS EN~, EN+3, EN+4, EN+5, EN+6, HIT~, HEAD+4, HEAD+5, HEAD+6, HIT1~
, HEAD1+4, HEAD1+5, HEAD1+6
BARPAT EN+1~, EN+4*, EN+15, EN+17
>> BARPG HIT+3*, HEAD+3*, HEAD+7, HIT1+3*, HEAD1+3*, HEAD1+7
>> BARPRTQ PRTQ+6*
BARPTNAM HEAD+2~, HEAD+4*, HEAD+5*, HEAD+6, HEAD1+2~, HEAD1+4*, HEAD1+5*, HEAD1+6
BARREC HIT+2~, HIT+7*, HIT+8, HIT+11, HIT+22, HIT+24, HIT+25, HIT+26, HIT1+2~, HIT1+7*
, HIT1+8, HIT1+10, HIT1+20, HIT1+21, HIT1+24, HIT1+26, HIT1+27, HIT1+28, HIT1+29
>> BARSTOP HIT+3*, HIT+5, HIT+10*, HIT1+3*, HIT1+5, HIT1+22*
>> BARTADJ HIT1+3*, HIT1+21*
>> BARTMP HIT+11*, HIT+12, HIT+13, HIT+14, HIT1+10*, HIT1+11, HIT1+12, HIT1+13
>> BARTPAY HIT1+3*, HIT1+20*
>> BARTX("ID" ITMSG+20
>> BARTX(14 ITMSG+10, ITMSG+23, ITMSG+24, ITMSG+27, PRTQ+1
>> BARTX(15 ITMSG+11, ITMSG+23, ITMSG+27, PRTQ+1
>> BARTX(17 ITMSG+23
>> BARTX(2 ITMSG+9
>> BARTX(6 ITMSG+10, ITMSG+12
>> D0 ITMSG+12*, ITMSG+13
DA EN+18*, ITMSG+26!, ITMSG+27*
DA(1 ITMSG+27*, ITMSG+29
DIC EN+1~, EN+11*, ITMSG+26!
DIE ITMSG+26!, ITMSG+29*
DIQ EN+1~, EN+13*
DIR ITMSG+26!, PRTQ+2!
DIR("A" PRTQ+4*
DIR("B" PRTQ+4*
DIR(0 PRTQ+4*
DR EN+1~, EN+12*, ITMSG+28*
DUZ(2 EN+15, EN+17, HIT+9, HEAD+5, HIT1+9, HEAD1+5, ITMSG+29, PRTQ+1
IOM HEAD+7, HEAD+11, HEAD1+7, HEAD1+11, CHKLINE+5
IOSL CHKLINE+4
U EN+5, EN+6, EN+21, HIT+8, HIT+11, HIT+22, HIT+24, HIT+25, HIT+26, HEAD+4
, HEAD+6, HIT1+8, HIT1+10, HIT1+20, HIT1+21, HIT1+24, HIT1+26, HIT1+27, HIT1+28, HIT1+29
, HEAD1+4, HEAD1+6
X EN+10, CHKLINE+3~
>> X1 EN+7*
>> X2 EN+8*
>> Y CHKLINE+7, ITMSG+20*, ITMSG+21, PRTQ+6

Marked Items

Name Field # of Occurrence
$T(@BARALLC ITMSG+21
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