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

Package: Referred Care Information System

Routine: BMCRC32


Information

BMCRC32 ; IHS/OIT/FCJ - LIST APPROVED REFERRALS W/O PRINTED C32 ;

Source Information

Source file <BMCRC32.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 DD^%DT  ^DIR  ^DIWP  ^DIWW  
Referred Care Information System 3 ($$CTR,PARMSET,PAUSE)^BMC  ^BMCKILL  ^BMCREF  
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-ACTIVE REFERRALS-C32  

Entry Points

Name Comments DBIA/ICR reference
BD ;GET BEG DATE OF REPORT
HEAD ;
R1 ;
HEAD1 ;
BROWSE ;
EOJ ; END OF JOB
DBQUE ;call to XBDBQUE
REFPRT ; PRINT REFERRALS SELECTED
START ;
INIT ; INITIALIZAION
REFPRT2 ;
PRINT ;print one referral
REFCHK ; CHECK APPROVED REFERRALS SORTED BY DATE INIT
PROC ;
EXT ;
HEAD2 ; WRITE HEADER

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints out a list of Active referrals that",!,"a C32 has not been printed for.",!!
  • 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: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DBQUE+2
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: REFPRT2+1
Function Call: WRITE
  • Prompt: BMCRNUMB_BMCSUF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?17,$E(BMCREC("PAT NAME"),1,25)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?49,$$FMTE^XLFDT($P(BMCRREC,U),"2D")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
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 REFERRALS WHERE A C32 HAS NOT BEEN PRINTED",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: !,"REFERRAL #",?17,"PATIENT NAME",?45," REFERRAL DATE"
  • 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:
    • BD+1
    • 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+10
^BMCREF("B" REFCHK+2, R1+1
^DIC(4 - [#4] HEAD2+3
^UTILITY($J PRINT+9!
^XTMP("BMCRC32" INIT+6, INIT+8!, PROC+3*, PROC+4*, REFPRT+4!, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2!

Label References

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

Naked Globals

Name Field # of Occurrence
^( PRINT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC80D REFPRT+2*, HEAD2+8, EXT+2!
BMC80E REFPRT+1*, EXT+2!
BMCBD BD+3*, HEAD2+5, EXT+3!
BMCBOS EXT+2!
BMCBT INIT+4, INIT+5*, INIT+6, INIT+7*, INIT+8, PROC+3, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3
, EOJ+2, EXT+2!
>> BMCC32 PROC+5*, PROC+7*, PROC+8
BMCCL EXT+2!
>> BMCHIT PROC+4, PROC+5*, PROC+7, PROC+8*
BMCJOB INIT+3*, INIT+6, PROC+3, PROC+4, REFPRT+4, REFPRT2+1, REFPRT2+3, EOJ+1, EOJ+2, EXT+2!
>> BMCL PRINT+10*
>> BMCODAT REFCHK+1*, REFCHK+2*, R1+1
BMCODT EXT+3!
BMCOPT DBQUE+1!, DBQUE+4*, DBQUE+5, EXT+2!
>> BMCPARM INIT+2
BMCPG REFPRT2+1*, HEAD2+1*, HEAD2+3, EXT+2!
>> BMCQ BD+5, 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+10
>> BMCRNUMB PRINT+5
BMCRREC R1+1*, PROC+2, PRINT+1*, PRINT+7, EXT+2!
BMCRSTAT EXT+2!
BMCSD BD+3*, REFCHK+1, EXT+3!
BMCSKIP EXT+2!
>> BMCSUF PRINT+5
DA DBQUE+2!
DIR BD+1!, DBQUE+2!
DIR("A" BD+1*, DBQUE+2*
DIR("B" DBQUE+2*
DIR(0 BD+1*, DBQUE+2*
>> DIRUT BD+1*, BD+2, DBQUE+3, HEAD+2
>> DIWF PRINT+11*
>> DIWL PRINT+11*
>> DIWR PRINT+11*
DT HEAD2+6
>> DUOUT BD+1
DUZ(2 HEAD2+3
IOF HEAD1+1
IOSL PRINT+4
IOST REFPRT2+1
U PROC+2, PRINT+7, HEAD2+3
>> X PRINT+10*
>> XBIOP BROWSE+2*
>> XBNS DBQUE+6*, BROWSE+2*
>> XBRC DBQUE+6*, BROWSE+2*
>> XBRP DBQUE+6*, BROWSE+1*
>> XBRX DBQUE+6*, BROWSE+2*
>> Y BD+3, DBQUE+4, 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