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

Package: Referred Care Information System

Routine: BMCRR17P


Information

BMCRR17P ; IHS/PHXAO/TMJ - PRNT BILL VSTS;OUTLIER REPORT ;

Source Information

Source file <BMCRR17P.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 3 $$GET1^DIQ  ^DIR  ^DIWP  
Referred Care Information System 2 DONE^BMCRLP2  $$AVDOS^BMCRLU  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 ($$HRN,$$MCD,$$MCR,$$PI)^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD ;ENTRY POINT
HEAD2 ;
HEAD1 ;
COMMENTS ;
WPS ;EP
START ;
DONE ;
DX ;
WP ;EP - Entry point to print wp fields pass node in BMCNODE
PRINT ;print one referral

External References

Name Field # of Occurrence
$$HRN^AUPNPAT PRINT1+2
$$MCD^AUPNPAT DX+22
$$MCR^AUPNPAT DX+21
$$PI^AUPNPAT DX+23
DONE^BMCRLP2 DONE+2
$$AVDOS^BMCRLU DX+3, DX+11, DX+21, DX+22, DX+23
$$GET1^DIQ DX+9
^DIR HEAD+1
^DIWP WP+6
$$ICDDX^ICDEX DX+7
$$VAL^XBDIQ1 DX+12, DX+13, DX+19
$$VALI^XBDIQ1 DX+24
$$FMTE^XLFDT COMMENTS+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!!,"NOTE: ",BMCNOES," referrals were missing an estimated Length of Stay value",!,"and were not included on this report.",!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!,$S(BMCSTYPE="F":"FACILITY REFERRED TO: ",BMCSTYPE="C":"CASE MANAGER: ",BMCSTYPE="P":"PATIENT NAME: ",1:"???: "),BMCSORT,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,BMCHRN
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?9,$P(BMCX(1),U),?37,$P(BMCX(1),U,2)
  • Line Location: DX+10
Function Call: WRITE
  • Prompt: ?46,$$AVDOS^BMCRLU(BMCREF,"C")
  • Line Location: DX+11
Function Call: WRITE
  • Prompt: ?61,$$VAL^XBDIQ1(90001,BMCREF,.1499)
  • Line Location: DX+12
Function Call: WRITE
  • Prompt: ?72,O
  • Line Location: DX+14
Function Call: WRITE
  • Prompt: !,"Purpose: "_$$VAL^XBDIQ1(90001,BMCREF,1201),!
  • Line Location: DX+19
Function Call: WRITE
  • Prompt: !?9,"REVIEWED",?20,"BY ",?26,"CASE REVIEW COMMENTS",?52,"3RD PARTY: "
  • Line Location: DX+20
Function Call: WRITE
  • Prompt: ?64,O,?70,"ELIG: ",$$VALI^XBDIQ1(9000001,DFN,1112),!
  • Line Location: DX+24
Function Call: WRITE
  • Prompt: ?9,"-------- --- --- -------------------"
  • Line Location: DX+25
Function Call: WRITE
  • Prompt: !?26,"<No comments on file.>",!
  • Line Location: COMMENTS+1
Function Call: WRITE
  • Prompt: !?9,$$FMTE^XLFDT(Y,"5D")
  • Line Location: COMMENTS+4
Function Call: WRITE
  • Prompt: ?20,Y
  • Line Location: COMMENTS+5
Function Call: WRITE
  • Prompt: ?26,BMCSTR(Z)
  • Line Location: COMMENTS+9
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: ?33,"OUTLIER REPORT"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,"HRCN",?9,"DX CATEGORY/DX",?36,"ICD-9CM",?45,"ADM DATE",?57,"ACTUAL LOS",?71,"OUTLIER"
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+6
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)
^BMCCOM - [#90001.03] COMMENTS+3, COMMENTS+4, COMMENTS+5
^BMCCOM("AD" COMMENTS+1, COMMENTS+2
^BMCDX - [#90001.01] DX+7
^BMCDX("AD" DX+1, DX+7
^BMCREF - [#90001] PRINT+4
^DIC - [#1] WP+4
^DIC(4 - [#4] HEAD2+3
^UTILITY($J WP+2!, WPS+1, WPS+3!
^VA(200 - [#200] COMMENTS+5
^XTMP("BMCRR17" START+3, START+5, DONE+1!, PRINT+4

Label References

Name Line Occurrences
@( START+3
DONE START+3, START+6, START+7
HEAD START+7, PRINT+1, PRINT+2, PRINT1+1, DX+16, DX+18, COMMENTS+8, COMMENTS+11
PRINT START+5
PRINT1 PRINT+4
WP COMMENTS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMC80D START+2*, HEAD2+6
>> BMC80E START+1*
>> BMCBT START+3, START+5, DONE+1, PRINT+4
BMCCOL WPS+3!
>> BMCD DX+7*
>> BMCDOS DX+3*, DX+7
BMCFILE WP+4, WPS+3!
BMCG COMMENTS+6*, WP+4*, WP+5, WP+6, WPS+3!
>> BMCHRN PRINT1+2*, PRINT1+3
>> BMCI COMMENTS+2*, COMMENTS+3, COMMENTS+4, COMMENTS+5, COMMENTS+6
>> BMCJOB START+3, START+5, DONE+1, PRINT+4
BMCNODE WP+4, WPS+3!
>> BMCNOES START+8
>> BMCPG START+3*, PRINT+1, HEAD2+1*, HEAD2+3
BMCQUIT START+4!, START+5, START+6, START+7, PRINT+1, PRINT+2, PRINT+4, PRINT1+1, DX+7, DX+15
, DX+16, DX+18, COMMENTS+2, COMMENTS+7, COMMENTS+8, COMMENTS+11, WP+5, WPS+1, HEAD+1*
>> BMCREF PRINT+4*, DX+1, DX+3, DX+7, DX+9, DX+11, DX+12, DX+13, DX+19, DX+21
, DX+22, DX+23, COMMENTS+1, COMMENTS+2, WP+4
>> BMCRREC PRINT+4*
>> BMCSORT START+4*, START+5*, PRINT+3, PRINT+4
>> BMCSPAGE PRINT+1
BMCSTR WPS+1!
BMCSTR( COMMENTS+7, COMMENTS+9, WPS+1*
>> BMCSTYPE PRINT+3
BMCX DX+2!, WP+3*, WP+5*
BMCX( DX+7*, DX+15, DX+17
BMCX(1 DX+9*, DX+10
>> C DX+2*, DX+7*
>> DFN PRINT+4*, PRINT1+2, DX+21, DX+22, DX+23, DX+24
DIR HEAD+1!
DIR(0 HEAD+1*
DIWF WP+5*, WPS+2!
DIWL WP+5*, WPS+1, WPS+2!
DIWR WP+5*, WPS+2!
DT DX+21, DX+22, DX+23
>> DTOUT HEAD+1
DUZ(2 PRINT1+2, HEAD2+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL START+7, PRINT+2, PRINT1+1, DX+16, DX+18, COMMENTS+8, COMMENTS+11
IOST START+3, HEAD+1
>> O DX+13*, DX+14, DX+21*, DX+22*, DX+23*, DX+24
U PRINT+4, DX+7, DX+9, DX+10, DX+17, COMMENTS+3, COMMENTS+4, COMMENTS+5, HEAD2+3
>> X DX+2*, DX+7*, WP+6*
>> Y COMMENTS+4*, COMMENTS+5*, WP+6*, HEAD+1
Z DX+15*, DX+17, COMMENTS+7*, COMMENTS+9, WPS+1*, WPS+2!
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