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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BMCRR8P

Package: Referred Care Information System

Routine: BMCRR8P


Information

BMCRR8P ; IHS/PHXAO/TMJ - PRNT BILL VSTS;POT HIGH COST CASES ; [ 09/27/2006 2:16 PM ]

Source Information

Source file <BMCRR8P.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 DD^%DT  $$GET1^DIQ  ^DIR  ^DIWP  
DRG Grouper 2 $$ICDDX^ICDEX  $$CPT^ICPTCOD  
Referred Care Information System 2 DONE^BMCRLP2  ($$AVDOS,$$FACREF)^BMCRLU  
IHS Patient 1 ($$BEN,$$ELIGSTAT,$$MCD,$$MCDPN,$$MCR,$$PI,$$PIN)^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI,ENP)^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD ;ENTRY POINT
HEAD1 ;
THIRD ;Third Party Coverage
START ;
DFN ;
DONE ;
PURPOSE ;
DX ;
PRINT ;print one referral
PROC ;
HEAD2 ;

External References

Name Field # of Occurrence
DD^%DT HEAD2+5, HEAD2+6
$$BEN^AUPNPAT THIRD+6
$$ELIGSTAT^AUPNPAT THIRD+9
$$MCD^AUPNPAT THIRD+18
$$MCDPN^AUPNPAT THIRD+16
$$MCR^AUPNPAT THIRD+14
$$PI^AUPNPAT THIRD+22
$$PIN^AUPNPAT THIRD+20
DONE^BMCRLP2 DONE+2
$$AVDOS^BMCRLU PRINT1+2, DX+4
$$FACREF^BMCRLU PRINT1+9
$$GET1^DIQ PURPOSE+3, DX+11, PROC+9
^DIR HEAD+1
^DIWP PURPOSE+5
$$ICDDX^ICDEX DX+9
$$CPT^ICPTCOD PROC+7
$$VAL^XBDIQ1 PRINT1+7, PRINT1+8, PRINT1+12
$$VALI^XBDIQ1 PRINT1+3
ENP^XBDIQ1 THIRD+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,$$AVDOS^BMCRLU(BMCREF,"C")
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?13,$$VALI^XBDIQ1(90001,BMCREF,.15)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?17,BMCHRN
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?28,$E($P(^DPT(DFN,0),U),1,20)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?49,$S($P(BMCRREC,U,6):$$VAL^XBDIQ1(200,$P(BMCRREC,U,6),1),1:"--")
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: ?54,$E($$VAL^XBDIQ1(90001,BMCREF,.04),1,3)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?59,$E(BMCFAC,1,20)
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: !?59,$E($$VAL^XBDIQ1(90001,BMCREF,.09),1,20)
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !,"Purpose:"
  • Line Location: PURPOSE+2
Function Call: WRITE
  • Prompt: ?12,^UTILITY($J,"W",DIWL,Z,0)
  • Line Location: PURPOSE+6
Function Call: WRITE
  • Prompt: ?12,$P(^ICD9(BMCD,0),U),?19," - ",$E($P(^ICD9(BMCD,0),U,3),1,50)
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: ?12,$P($$ICDDX^ICDCODE(BMCD,0),U,2),?19," - ",$E($P($$ICDDX^ICDCODE(BMCD,0),U,4),1,50)
  • Line Location: DX+8
Function Call: WRITE
  • Prompt: ?12,$P($$ICDDX^ICDEX(BMCD,BMCDOS,,"I"),U,2),?19," - ",$E($P($$ICDDX^ICDEX(BMCD,BMCDOS,,"I"),U,4),1,50)
  • Line Location: DX+9
Function Call: WRITE
  • Prompt: ?12,$P(^ICPT(BMCD,0),U),?19," - ",$E($P(^ICPT(BMCD,0),U,2),1,50)
  • Line Location: PROC+6
Function Call: WRITE
  • Prompt: ?12,$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: BMCMSG(BMCI),!
  • Line Location: THIRD+30
Function Call: WRITE
  • Prompt: !,"--------------------",!
  • Line Location: THIRD+32
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
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: ?17,"BEG DATE: "_Y
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y,!
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: ?(80-$L(X))/2,X,!
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !,?49,"REF"
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !,"BEGIN D.O.S.",?13,"ST",?17,"HRN",?28,"PATIENT NAME",?49,"PROV",?54,"TYPE",?59,"FACILITY REFERRED TO"
  • Line Location: HEAD2+10
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+11
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

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+4, THIRD+24
^AUTTLOC - [#9999999.06] PRINT1+4
^BMCDX - [#90001.01] DX+9
^BMCDX("AD" DX+2, DX+5
^BMCPX - [#90001.02] PROC+7
^BMCPX("AD" PROC+2, PROC+7
^BMCREF - [#90001] PRINT+1
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+6
^UTILITY($J PURPOSE+6, PURPOSE+7!
^XTMP("BMCRR8" START+3, START+5, DONE+1!, DFN+1, PRINT+1

Label References

Name Line Occurrences
@( START+3
DFN START+5
DONE START+3, START+6, START+7
HEAD START+7, PRINT1+1, PURPOSE+1, PURPOSE+6, DX+1, DX+9, PROC+1, PROC+7
PRINT DFN+1
PRINT1 PRINT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMC80D START+2*, HEAD2+11
>> BMC80E START+1*
BMCAR THIRD+26!
BMCAR(1301 THIRD+27
>> BMCBD HEAD2+5
>> BMCBTH START+3, START+5, DONE+1, DFN+1, PRINT+1
BMCCOL PURPOSE+7!
>> BMCD DX+9*, PROC+7*
>> BMCDOS DX+4*, DX+9
>> BMCED HEAD2+6
BMCELG THIRD+12~, THIRD+13*, THIRD+23
>> BMCFAC PRINT1+9*, PRINT1+10*, PRINT1+11
BMCFILE PURPOSE+7!
BMCG PURPOSE+7!
>> BMCHRN PRINT1+4*, PRINT1+5
BMCI THIRD+4~, THIRD+5*, THIRD+8*, THIRD+11*, THIRD+13, THIRD+14*, THIRD+18*, THIRD+22*, THIRD+23*, THIRD+25*
, THIRD+27*, THIRD+28, THIRD+29*, THIRD+30*
>> BMCJOB START+3, START+5, DONE+1, DFN+1, PRINT+1
BMCMSG THIRD+4~
BMCMSG( THIRD+8*, THIRD+11*, THIRD+14*, THIRD+18*, THIRD+22*, THIRD+23*, THIRD+25*, THIRD+27*, THIRD+30
BMCNODE PURPOSE+7!
BMCP PURPOSE+2!, PURPOSE+3*
BMCP( PURPOSE+4, PURPOSE+5
>> BMCPG START+3*, HEAD2+1*, HEAD2+3
>> BMCPN START+4*, START+5*, DFN+1, PRINT+1
BMCQUIT START+4!, START+5, START+6, START+7, DFN+1, PRINT+1, PRINT1+1, PURPOSE+1, PURPOSE+4, PURPOSE+6
, DX+1, DX+5, DX+9, PROC+1, PROC+7, HEAD+1*
>> BMCRDATE THIRD+3*, THIRD+14, THIRD+16, THIRD+18, THIRD+20, THIRD+22
>> BMCREF PRINT+1*, PRINT1+2, PRINT1+3, PRINT1+8, PRINT1+9, PRINT1+12, PURPOSE+3, DX+2, DX+4, DX+5
, DX+11, PROC+2, PROC+7, PROC+9
>> BMCRREC PRINT+1*, PRINT1+7
BMCX PURPOSE+4*, PURPOSE+5, THIRD+4~, THIRD+6*, THIRD+7*, THIRD+8, THIRD+9*, THIRD+10*, THIRD+11, THIRD+16*
, THIRD+17*, THIRD+18, THIRD+20*, THIRD+21*, THIRD+22
>> C PURPOSE+6*, DX+5*, DX+9*, PROC+4*, PROC+7*
>> DFN DFN+1*, PRINT+1, PRINT1+4, PRINT1+6, THIRD+2, THIRD+6, THIRD+9, THIRD+14, THIRD+16, THIRD+18
, THIRD+20, THIRD+22, THIRD+24, THIRD+26
DIR HEAD+1!
DIR(0 HEAD+1*
DIWF PURPOSE+4*, PURPOSE+7!
DIWL PURPOSE+4*, PURPOSE+6, PURPOSE+7!
DIWR PURPOSE+7!
DT THIRD+3
>> DTOUT HEAD+1
DUZ(2 PRINT1+4, HEAD2+3
>> I THIRD+27*
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL START+7, PRINT1+1, PURPOSE+1, PURPOSE+6, DX+1, DX+9, PROC+1, PROC+7
IOST START+3, HEAD+1
U PRINT1+4, PRINT1+6, PRINT1+7, DX+9, PROC+7, HEAD2+3
>> X PURPOSE+5*, DX+5*, DX+9, PROC+4*, PROC+7*, HEAD2+7*, HEAD2+8
>> Y HEAD+1, HEAD2+5*, HEAD2+6*
Z PURPOSE+6*, PURPOSE+7!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All