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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BMCRCHS1

Package: Referred Care Information System

Routine: BMCRCHS1


Information

BMCRCHS1 ; IHS/PHXAO/TMJ - LIST PAID CHS REFERRALS ; 15 Mar 2013 9:02 AM

Source Information

Source file <BMCRCHS1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Referred Care Information System 4 ($$CTR,$$TOFAC,PARMSET,PAUSE)^BMC  ^BMCKILL  ^BMCREF  BD^BMCRUTL  
VA Fileman 4 DD^%DT  ^DIR  ^DIWP  ^DIWW  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC RPT-CHS PAID  

Entry Points

Name Comments DBIA/ICR reference
BD ;GET BEG AND END DATE OF REPORT
HEAD ;
R1 ;
HEAD1 ;
BROWSE ;
EOJ ; END OF JOB
EOJ1 ;BMC*4.0*8 ADDED LINE LABEL
DBQUE ;call to XBDBQUE
REFPRT ; PRINT REFERRALS SELECTED
START ;
INIT ; INITIALIZAION
REFPRT2 ;
PRINT ;print one referral
REFCHK ; CHECK ACTIVE/CHS REFERRAL SORTED BY DATE INIT
PROC ;
HEAD2 ; WRITE HEADER

External References

Name Field # of Occurrence
DD^%DT HEAD2+5, HEAD2+6
$$CTR^BMC HEAD2+4
$$TOFAC^BMC PRINT+8
PARMSET^BMC INIT+2
PAUSE^BMC REFPRT2+1, REFPRT2+5, HEAD+1
^BMCKILL EOJ1+1
^BMCREF PRINT+3
BD^BMCRUTL BD+1
^DIR DBQUE+2
^DIWP PRINT+16
^DIWW PRINT+18
^XBDBQUE DBQUE+7, BROWSE+3
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints out a list of all active CHS referrals for which all",!,"authorizations have already been paid.",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: "Report will include Primary and Secondary Referrals.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DBQUE+2
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: REFPRT2+1
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(BMCRREC,U),"2D")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?10,$E(BMCREC("PAT NAME"),1,20)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?32,$P(BMCRREC,U,2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: $P(^BMCREF(BMCRIEN,1),U)
  • Condition for execution: $G(^BMCREF(BMCRIEN,1))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?48,$E($$TOFAC^BMC(BMCRIEN),1,20)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?69,$J($P(^BMCREF(BMCRIEN,41,I,0),U,3),9,2),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+19
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: $$CTR^BMC("ACTIVE CHS REFERRALS WHERE ALL AUTHORIZATIONS PAID",80),!
  • Line Location: HEAD2+4
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: !,"REF DATE",?11,"PATIENT NAME",?32," REF #",?48,"FACILITY REF TO",?70,"AMT PAID"
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD2+9
Routine Call
  • DIR
  • Line Location:
    • DBQUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCREF - [#90001] R1+1, PROC+3, PROC+6, PROC+7, PROC+8, PRINT+1, PRINT+7, PRINT+9, PRINT+11, PRINT+14
^BMCREF("B" REFCHK+1, REFCHK+2, R1+1
^DIC(4 - [#4] HEAD2+3
^UTILITY($J PRINT+13!
^XTMP("BMCRCHS1" INIT+6, INIT+9!, PROC+4*, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Label References

Name Line Occurrences
@( REFPRT2+1
BROWSE DBQUE+5
DBQUE BD+5
EOJ1 BD+2
HEAD PRINT+4
HEAD1 HEAD+3
INIT BD+3
PRINT REFPRT2+3
PROC R1+1
R1 REFCHK+2
REFPRT2 REFPRT+3

Naked Globals

Name Field # of Occurrence
^( PRINT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC80D REFPRT+2*, HEAD2+8, EOJ1+2!
BMC80E REFPRT+1*, EOJ1+2!
>> BMCAUTH PROC+5*, PROC+7*, PROC+8
BMCBD HEAD2+5, EOJ1+3!
BMCBDD EOJ1+3!
BMCBOS EOJ1+2!
BMCBT INIT+4, INIT+5*, INIT+6, INIT+7*, INIT+9, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1
, EOJ+2, EOJ1+2!
BMCCL EOJ1+2!
BMCED REFCHK+2, HEAD2+6, EOJ1+3!
BMCEDD EOJ1+3!
>> BMCET REFCHK+1*
>> BMCHIT PROC+4, PROC+5*, PROC+10*
BMCJOB INIT+3*, INIT+6, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2, EOJ1+2!
>> BMCL PRINT+14*
>> BMCODAT REFCHK+1*, REFCHK+2*, R1+1
BMCOPT DBQUE+1!, DBQUE+4*, DBQUE+5, EOJ1+2!
>> BMCPARM INIT+2
BMCPG REFPRT2+1*, HEAD2+1*, HEAD2+3, EOJ1+2!
>> BMCQ BD+4, INIT+1*
BMCQUIT DBQUE+3*, REFPRT2+2!, REFPRT2+3, REFPRT2+4, PRINT+4, HEAD+2*
>> BMCREC("PAT N AME" , PRINT+6
>> BMCRIEN R1+1*, PROC+3, PROC+4, PROC+6, PROC+7, PROC+8, REFPRT2+2*, REFPRT2+3*, PRINT+1, PRINT+2
, PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+14
BMCRREC R1+1*, PROC+2, PRINT+1*, PRINT+5, PRINT+7, EOJ1+2!
BMCRSTAT EOJ1+2!
BMCSD REFCHK+1, REFCHK+2, EOJ1+3!
BMCSKIP PROC+5*, PROC+7, PROC+9*, PROC+10, EOJ1+2!
DA DBQUE+2!
DIR DBQUE+2!
DIR("A" DBQUE+2*
DIR("B" DBQUE+2*
DIR(0 DBQUE+2*
>> DIRUT BD+2, DBQUE+3, HEAD+2
>> DIWF PRINT+15*
>> DIWL PRINT+15*
>> DIWR PRINT+15*
DUZ(2 HEAD2+3
>> I PRINT+9*
IOF HEAD1+1
IOSL PRINT+4
IOST REFPRT2+1
U PROC+2, PROC+4, PROC+9, PRINT+5, PRINT+7, PRINT+9, HEAD2+3
>> X PROC+3*, PROC+4, PRINT+14*
>> XBIOP BROWSE+2*
>> XBNS DBQUE+6*, BROWSE+2*
>> XBRC DBQUE+6*, BROWSE+2*
>> XBRP DBQUE+6*, BROWSE+1*
>> XBRX DBQUE+6*, BROWSE+2*
>> Y DBQUE+4, PROC+8*, PROC+9, PRINT+2*, HEAD2+5*, HEAD2+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All