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 |  All
Print Page as PDF
Routine: BMCRR14P

Package: Referred Care Information System

Routine: BMCRR14P


Information

BMCRR14P ; IHS/PHXAO/TMJ - PRNT BILL VSTS ;

Source Information

Source file <BMCRR14P.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 4 DD^%DT  $$GET1^DIQ  ^DIR  ^DIWP  
Referred Care Information System 3 DONE^BMCRLP2  ($$AVDOS,$$AVLOS,$$FACREF,$$REFDTI)^BMCRLU  (BO,SECREF2)^BMCRUTL  
DRG Grouper 2 $$ICDDX^ICDEX  $$CPT^ICPTCOD  
IHS Patient 1 ($$AGE,$$DOB,$$MCD,$$MCDPN,$$MCR,$$PI,$$PIN,$$SSN,$$TRIBE,KILL)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMCRUTL  

Entry Points

Name Comments DBIA/ICR reference
SECREF ;PRINT SECONDARY REF
PRINT1 ;
HEAD ;ENTRY POINT
LOCAT ;Print Local Categories
HEAD2 ;
HEAD1 ;
PERTMED ;
PROC ;
BO ;Business office comments
NEXT ;
P ;
XIT ;
PURPOSE ;
DX ;Print either prov nar/canned nar
PRINT ;print one referral
ALT ;Alternate Resource Letter Date
BOC ;
TYPE ;Get Type
PRIPAY ;Primary Payor

External References

Name Field # of Occurrence
DD^%DT HEAD2+4, HEAD2+6, HEAD2+7
$$AGE^AUPNPAT PRINT1+4
$$DOB^AUPNPAT PRINT1+4
$$MCD^AUPNPAT PRINT1+9
$$MCDPN^AUPNPAT PRINT1+10
$$MCR^AUPNPAT PRINT1+8
$$PI^AUPNPAT PRINT1+11
$$PIN^AUPNPAT PRINT1+12
$$SSN^AUPNPAT PRINT1+4
$$TRIBE^AUPNPAT PRINT1+5
KILL^AUPNPAT XIT+3
DONE^BMCRLP2 XIT+2
$$AVDOS^BMCRLU PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, TYPE+3, TYPE+5, DX+8
$$AVLOS^BMCRLU TYPE+3
$$FACREF^BMCRLU PRINT1+14
$$REFDTI^BMCRLU PRINT1+6
BO^BMCRUTL PERTMED+2, BO+2
SECREF2^BMCRUTL SECREF+1
$$GET1^DIQ PURPOSE+3, DX+3, PROC+9
^DIR HEAD+3
^DIWP PURPOSE+4
$$ICDDX^ICDEX DX+13
$$CPT^ICPTCOD PROC+7
$$VAL^XBDIQ1 PRINT1+5, PRINT1+7, PRINT1+14, PRIPAY+1, TYPE+1, TYPE+5, BOC+2, BOC+3, ALT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: BMCRR14P+8
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,30),?32,BMCHRN,?43,"DOB: ",$$DOB^AUPNPAT(DFN,"E")," ",$$AGE^AUPNPAT(DFN,DT,"R")," ",$$SSN^AUPNPAT(DFN)
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !,"Tribe: ",$E($$TRIBE^AUPNPAT(DFN,"E"),1,20),?32,"Req Provider: ",$$VAL^XBDIQ1(90001,BMCREF,.06)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !,"Referral #: ",BMCRNUMB
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?32,"Date Referral Initiated: ",$$REFDTI^BMCRLU(BMCREF,"S")
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !,"Eligibility: ",$$VAL^XBDIQ1(9000001,DFN,1112)
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !,"3RD Party: "
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: "MEDICARE"
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: "MEDICAID: ",$$MCDPN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCREF,"I"),"E")
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: $$PIN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCREF,"I"),"E")
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !,"Refer To:",?10,$E($$FACREF^BMCRLU(BMCREF),1,20),?32,$S($$VAL^XBDIQ1(90001,BMCREF,.09)]"":"Provider: "_$$VAL^XBDIQ1(90001,BMCREF,.09),1:"")
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: !,"Primary Payor: "_$$VAL^XBDIQ1(90001,BMCREF,.11)
  • Line Location: PRIPAY+1
Function Call: WRITE
  • Prompt: ?50,"Referral Type: "_$$VAL^XBDIQ1(90001,BMCREF,.04)
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !,"Purpose:"
  • Line Location: PURPOSE+2
Function Call: WRITE
  • Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0)
  • Line Location: PURPOSE+5
Function Call: WRITE
  • Prompt: !,"Dx Cat:",?10,$$GET1^DIQ(90001,BMCREF,.12)
  • Line Location: DX+3
Function Call: WRITE
  • Prompt: ?10,$P(^ICPT(BMCD,0),U),?19," - ",$E($P(^ICPT(BMCD,0),U,2),1,50)
  • Line Location: PROC+6
Function Call: WRITE
  • Prompt: ?10,$P($$CPT^ICPTCOD(BMCD,0),U,2),?19," - ",$E($P($$CPT^ICPTCOD(BMCD,0),U,3),1,50)
  • Line Location: PROC+7
Function Call: WRITE
  • Prompt: !,"Priority: ",$$VAL^XBDIQ1(90001,BMCREF,.32)," CHS Auth Dec: ",$$VAL^XBDIQ1(90001,BMCREF,1112)," MCC Action: ",$$VAL^XBDIQ1(90001,BMCREF,1123)
  • Line Location: BOC+2
Function Call: WRITE
  • Prompt: !,"Utilization Review by MD: ",$$VAL^XBDIQ1(90001,BMCREF,1125)
  • Line Location: BOC+3
Function Call: WRITE
  • Prompt: !,"Local Category: "_BMCLOCPP
  • Line Location: LOCAT+9
Function Call: WRITE
  • Prompt: !,"Alternate Resource Letter Date: ",$$VAL^XBDIQ1(90001,BMCREF,1401)
  • Line Location: ALT+2
Function Call: WRITE
  • Prompt: !,"--------------------",!
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?72,"Page ",BMCPG,!
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: ?(80-$L(Y)/2),Y,!
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: ?21,"**WEEKLY CHS REVIEW LISTING BY DATE**"
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,?16,"BEG DATE: "_Y
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+8
Routine Call
  • DIR
  • Line Location:
    • HEAD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BMCREF - [#90001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PRINT1+3
^AUTTLOC - [#9999999.06] PRINT1+3
^BMCCOM("AD" PERTMED+2, BO+2
^BMCDX - [#90001.01] DX+6
^BMCDX("AD" DX+4, DX+6
^BMCLCAT - [#90001.54] LOCAT+8
^BMCPX - [#90001.02] PROC+7
^BMCPX("AD" PROC+2, PROC+7
^BMCREF - [#90001] PRINT+2, PRINT1+2, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+4
^UTILITY($J PURPOSE+5, PURPOSE+7!
^XTMP("BMCRR14" BMCRR14P+8, BMCRR14P+10, XIT+1!, P+1, PRINT+2

Label References

Name Line Occurrences
@( BMCRR14P+8
HEAD PRINT+1, PRINT1+1, PRINT1+13, PURPOSE+1, PURPOSE+5, DX+1, DX+6, PROC+1, PROC+7, BOC+1
, ALT+1
P BMCRR14P+10
PRINT P+1
PRINT1 PRINT+2
XIT BMCRR14P+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMCBD HEAD2+6
>> BMCBT BMCRR14P+8, BMCRR14P+10, XIT+1, P+1, PRINT+2
>> BMCC PRINT1+8*, PRINT1+10*, PRINT1+12
BMCCOL PURPOSE+7!
BMCCTYP XIT+4!, PERTMED+1*, BO+1*
>> BMCD DX+6*, DX+13, PROC+7*
BMCDATE BMCRR14P+10*, XIT+4!, P+1, PRINT+2
>> BMCDOS DX+8*, DX+13
>> BMCED HEAD2+7
BMCFILE PURPOSE+7!
BMCG PURPOSE+7!
>> BMCHRN PRINT1+3*, PRINT1+4
BMCI XIT+4!
>> BMCJOB BMCRR14P+8, BMCRR14P+10, XIT+1, P+1, PRINT+2
>> BMCLOCC LOCAT+2*, LOCAT+3*, LOCAT+5
>> BMCLOCI LOCAT+4*, LOCAT+5*, LOCAT+6
>> BMCLOCP LOCAT+6*, LOCAT+7, LOCAT+8
>> BMCLOCPP LOCAT+8*, LOCAT+9
BMCNODE PURPOSE+7!
BMCP PURPOSE+2!, PURPOSE+3*, PURPOSE+4
>> BMCPG BMCRR14P+8*, HEAD2+1*, HEAD2+3
>> BMCPN BMCRR14P+9*, P+1*, PRINT+2
>> BMCQUIT BMCRR14P+9*, BMCRR14P+10, P+1, PRINT+1, PRINT+2, PRINT1+1, PRINT1+13, TYPE+2, PURPOSE+1, PURPOSE+5
, PURPOSE+6, PERTMED+3, DX+1, DX+6, PROC+1, PROC+7, PROC+10, BOC+1, ALT+1, BO+3
, HEAD+1, HEAD+3*
>> BMCREF PRINT+2*, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+14
, PRIPAY+1, TYPE+1, TYPE+3, TYPE+5, PURPOSE+3, PERTMED+2, DX+3, DX+4, DX+6, DX+8
, PROC+2, PROC+7, PROC+9, BOC+2, BOC+3, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6, ALT+2
, BO+2
BMCRNUMB XIT+4!, PRINT1+2*, PRINT1+6
>> BMCRREC PRINT+2*, PRINT1+8, PRINT1+9, PRINT1+11, PRIPAY+1, TYPE+1, TYPE+2
C PURPOSE+5*, DX+6*, PROC+4*, PROC+7*, HEAD+2~
>> DFN PRINT+2*, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12
DIR HEAD+3!
DIR(0 HEAD+3*
DIWF PURPOSE+4*, PURPOSE+7!
DIWL PURPOSE+4*, PURPOSE+5, PURPOSE+7!
DIWR PURPOSE+7!
DT PRINT1+4, HEAD2+4
>> DTOUT HEAD+3
DUZ(2 PRINT1+3, HEAD2+3
IO HEAD+3
IO(0 HEAD+3
IOF HEAD1+1
IOSL PRINT+1, PRINT1+1, PRINT1+13, PURPOSE+1, PURPOSE+5, DX+1, DX+6, PROC+1, PROC+7, BOC+1
, ALT+1
IOST BMCRR14P+8, HEAD+3
U PRINT+2, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+8, PRINT1+9, PRINT1+11, PRIPAY+1, TYPE+1, TYPE+2
, DX+13, PROC+7, LOCAT+6, LOCAT+8, HEAD2+3
X PURPOSE+4*, DX+6*, PROC+4*, PROC+7*, HEAD+2~
Y HEAD+2~, HEAD+3, HEAD2+4*, HEAD2+6*, HEAD2+7*
Z PURPOSE+5*, PURPOSE+7!, HEAD+2~
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 |  All