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

Package: Referred Care Information System

Routine: BMCRR8


Information

BMCRR8 ; IHS/PHXAO/TMJ - list patients for which medical and/or cost data has not been received ;

Source Information

Source file <BMCRR8.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 C^%DTC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  
IHS VA Utilities 1 ^XBDBQUE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC RPT-POT HIGH COST - TAX  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
D ;DATE RANGE
BROWSE ;
ED ;get ending date
START ;
XIT ;EP - CALLED FROM BMCRR8
ZIS ;call to XBDBQUE

External References

Name Field # of Occurrence
C^%DTC ED+5
KILL^AUPNPAT XIT+1
^DIR BD+1, ED+2, ZIS+2
^XBDBQUE ZIS+8, BROWSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"This report will list potentially high cost cases. To determine whether a ",!,"case is potentially high cost, a taxonomy of ICD Diagnosis codes is used."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"This report is not available to those who are not full coding their referrals.",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "Inhouse Referrals are exlcuded",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Please enter the range of referral initiated dates that you are interested in.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"HIGH COST TAXONOMY MISSING!!!! NOTIFY SITE MANAGER",!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+2
    • ZIS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" START+6

Label References

Name Line Occurrences
BD ED+3
BROWSE ZIS+6
D ZIS+5
XIT START+7, BD+2, ZIS+6, ZIS+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC80D XIT+2!
BMC80E XIT+2!
BMCBD BD+3*, ED+2, ED+5, XIT+2!
BMCBT XIT+2!
BMCBTH XIT+2!
BMCCOL XIT+2!
BMCD XIT+2!
BMCED ED+4*, XIT+2!
BMCET XIT+2!
BMCFAC XIT+2!
BMCFILE XIT+2!
BMCFOUN XIT+2!
BMCG XIT+2!
BMCHCTAX START+6*, START+7, XIT+2!
BMCHRN XIT+2!
BMCJOB XIT+2!
BMCNODE XIT+2!
BMCODAT XIT+2!
BMCOPT ZIS+1!, ZIS+4*, ZIS+6, XIT+2!
BMCP XIT+2!
BMCPG XIT+2!
BMCPN XIT+2!
BMCQUIT ZIS+3*, ZIS+5, XIT+2!
BMCRCNT XIT+2!
BMCREF XIT+2!
BMCRREC XIT+2!
BMCSD ED+5*, XIT+2!
BMCX XIT+2!
C XIT+3!
DA ZIS+2!, XIT+3!
DFN XIT+3!
DIR BD+1!, BD+4!, ED+2!, ZIS+2!, XIT+3!
DIR("A" BD+1*, ED+2*, ZIS+2*
DIR("B" ZIS+2*
DIR(0 BD+1*, ED+2*, ZIS+2*
DIRUT BD+1*, BD+2, ED+2*, ED+3, ZIS+3, XIT+3!
DIWF XIT+3!
DIWL XIT+3!
DIWR XIT+3!
DTOUT XIT+3!
DUOUT BD+1, ED+2, XIT+3!
IOF START+2
X ED+5, XIT+3!
X1 ED+5*, XIT+3!
X2 ED+5*, XIT+3!
>> XBIOP BROWSE+2*
>> XBNS ZIS+7*
>> XBRC ZIS+7*, BROWSE+2*
>> XBRP ZIS+7*, BROWSE+1*
>> XBRX ZIS+7*, BROWSE+2*
Y BD+3, ED+4, ZIS+4, XIT+3!
Z XIT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All