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

Package: Referred Care Information System

Routine: BMCRINH


Information

BMCRINH ; IHS/ITSC/FCJ - IN-HOUSE REPORT;

Source Information

Source file <BMCRINH.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC RPT-IN HOUSE REPORT  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
HEAD2 ; WRITE HEADER
HEAD1 ;
BROWSE ;
EOJ ; END OF JOB
DBQUE ;call to XBDBQUE
REFPRT ; PRINT REFERRALS SELECTED
START ;
INIT ; INITIALIZAION
REFPRT2 ;
PRINT ;print one referral
REFCHK ; CHECK EACH ACTIVE/CHS REFERRAL

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+8, HEAD+1
^BMCKILL EOJ+3
^BMCREF PRINT+3
GETDATES^BMCRUTL START+5
^DIR DBQUE+2
^XBDBQUE DBQUE+7, BROWSE+3
$$PROVINI^XBFUNC1 PRINT+14
$$FMTE^XLFDT PRINT+5, PRINT+7, PRINT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints out a list of all Active In-House referrals. ",!,"The user can select a date range by Date initiated and Status of Referral.",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: "Report will include both 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),"5D")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?11
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(^BMCREF(BMCRIEN,11),U,5),"5D")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(^BMCREF(BMCRIEN,11),U,6),"5D")
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?23,$P(^BMCREF(BMCRIEN,0),U,2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: $P($G(^BMCREF(BMCRIEN,1)),U)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?39,$E(BMCREC("PAT NAME"),1,24)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?65,BMCHRN
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?73,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--")
  • Line Location: PRINT+14
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 IN HOUSE REFFERALS BY CLINIC REFERRED TO",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",?14,"DOS",?24,"REFERRAL #",?39,"PATIENT",?65,"HRN",?73,"PROV"
  • 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)
^AUPNPAT - [#9000001] PRINT+12
^AUTTLOC - [#9999999.06] PRINT+12
^BMCREF - [#90001] REFCHK+5, PRINT+1, PRINT+7, PRINT+8, PRINT+9, PRINT+10
^BMCREF("B" REFCHK+2, REFCHK+4
^DIC(4 - [#4] HEAD2+3
^DIC(40.7 - [#40.7] REFCHK+9
^XTMP("BMCRINH" INIT+6, INIT+9!, REFCHK+10*, REFPRT+4!, REFPRT2+1, REFPRT2+3, REFPRT2+6, EOJ+1, EOJ+2!

Label References

Name Line Occurrences
@( REFPRT2+1
BROWSE DBQUE+5
DBQUE START+6
HEAD PRINT+4
HEAD1 HEAD+3
INIT START+3
PRINT REFPRT2+6
REFPRT2 REFPRT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMC80D REFPRT+2*, HEAD2+8, EOJ+4!
BMC80E REFPRT+1*, EOJ+4!
BMCBD REFCHK+1, HEAD2+5, EOJ+4!
BMCBDD EOJ+4!
BMCBDT REFCHK+1*, REFCHK+2*, REFCHK+4, EOJ+4!
BMCBT INIT+4, INIT+5*, INIT+6, INIT+7*, INIT+9, REFCHK+10, REFPRT+4, REFPRT2+1, REFPRT2+3, REFPRT2+6
, EOJ+1, EOJ+2, EOJ+4!
BMCCL REFCHK+1*, REFCHK+9*, REFCHK+10, REFPRT2+2*, REFPRT2+3*, REFPRT2+4, REFPRT2+6, EOJ+5!
>> BMCDFN PRINT+12
BMCED REFCHK+2, HEAD2+6, EOJ+5!
BMCEDD EOJ+5!
BMCHRN PRINT+12*, PRINT+13, EOJ+4!
BMCJOB INIT+3*, INIT+6, INIT+9, REFCHK+10, REFPRT+4, REFPRT2+1, REFPRT2+3, REFPRT2+6, EOJ+1, EOJ+2
, EOJ+4!
BMCOPT DBQUE+1!, DBQUE+4*, DBQUE+5, EOJ+4!
>> BMCPARM INIT+2
BMCPG REFPRT2+1*, HEAD2+1*, HEAD2+3, EOJ+4!
>> BMCQ START+4, INIT+1*
BMCQUIT DBQUE+3*, REFPRT2+3, REFPRT2+5!, REFPRT2+6, REFPRT2+7, PRINT+4, HEAD+2*
BMCREC EOJ+5!
BMCREC("PAT N AME" , PRINT+11
>> BMCRIEN REFCHK+3*, REFCHK+4*, REFCHK+5, REFCHK+10, REFPRT2+5*, REFPRT2+6*, PRINT+1, PRINT+2, PRINT+7, PRINT+8
, PRINT+9, PRINT+10
BMCRREC PRINT+1*, PRINT+5, PRINT+14, EOJ+5!
BMCRSTAT EOJ+5!
BMCSD EOJ+5!
DA DBQUE+2!
DIR DBQUE+2!
DIR("A" DBQUE+2*
DIR("B" DBQUE+2*
DIR(0 DBQUE+2*
>> DIRUT START+5, DBQUE+3, HEAD+2
>> DTOUT START+5
DUZ(2 PRINT+12, HEAD2+3
IOF HEAD1+1
IOSL PRINT+4
IOST REFPRT2+1
U REFCHK+7, REFCHK+8, REFCHK+9, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+14
, HEAD2+3
>> X REFCHK+5*, REFCHK+7, REFCHK+8, REFCHK+9
>> 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, PRINT+2*, HEAD2+5*, HEAD2+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All