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

Package: Referred Care Information System

Routine: BMCRR1P


Information

BMCRR1P ; IHS/PHXAO/TMJ - PRNT BILL VSTS ; [ 09/27/2006 2:05 PM ]

Source Information

Source file <BMCRR1P.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Referred Care Information System 2 DONE^BMCRLP2  ($$AVEOS,$$FACREF)^BMCRLU  
IHS VA Utilities 1 $$PROVINI^XBFUNC1  
Kernel 1 ($$FMDIFF,$$FMTE,$$HTFM)^XLFDT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD ;ENTRY POINT
HEAD2 ;
HEAD1 ;
START ;
DONE ;
PRINT ;print one referral

External References

Name Field # of Occurrence
DONE^BMCRLP2 DONE+2
$$AVEOS^BMCRLU PRINT1+11, PRINT1+12
$$FACREF^BMCRLU PRINT1+7
^DIR HEAD+1
$$PROVINI^XBFUNC1 PRINT1+6
$$FMDIFF^XLFDT PRINT1+11
$$FMTE^XLFDT PRINT1+2, PRINT1+10, HEAD2+5
$$HTFM^XLFDT HEAD2+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: "FACILITY REFERRED TO: ",BMCSORT,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: "TIME SINCE END OF SERVICE: ",$S(BMCSORT=4:"0-1 Months",BMCSORT=3:"2-3 Months",BMCSORT=2:"4-6 Months",BMCSORT=1:">6 Months",1:"???"),!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($P(BMCRREC,U),"5D")
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?12,$E($P(^DPT(DFN,0),U),1,18)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?32,BMCHRN
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?43,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--")
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?49,$E(BMCFAC,1,16)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: ?66,$S($P($G(^BMCREF(BMCREF,11)),U,6)]"":$$FMTE^XLFDT($P($G(^BMCREF(BMCREF,11)),U,6),"5D")_" (A)",$P($G(^BMCREF(BMCREF,11)),U,5):$$FMTE^XLFDT($P($G(^BMCREF(BMCREF,11)),U,5),"5D")_" (E)",1:"")
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !?5,"Ending Date of Service: "_$S(BMCEND="":"UNKNOWN",1:BMCEND)
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: ?50,"Time Lapsed: ",%
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !?5,"Case Manager: ",$S($P(BMCRREC,U,19):$P(^VA(200,$P(BMCRREC,U,19),0),U),1:"")
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: !?5,"ICD Diagnosis Category: ",$S($P(BMCRREC,U,12):$P(^BMCTDXC($P(BMCRREC,U,12),0),U),1:"")
  • Line Location: PRINT1+18
Function Call: WRITE
  • Prompt: !?5,"CPT Service Category: ",$S($P(BMCRREC,U,13):$P(^BMCTSVC($P(BMCRREC,U,13),0),U),1:""),!
  • Line Location: PRINT1+19
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: ?10,"REFERRALS FOR WHICH MEDICAL/COST DATA HAS NOT BEEN RECEIVED",!
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,"Report Run Date: ",$$FMTE^XLFDT($$HTFM^XLFDT($H),"1P")
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,"REF DATE",?11,"PATIENT NAME",?32," HRN",?43,"PROV",?49,"FACILITY REF TO",?67,"BEG DOS."
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+7
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PRINT1+4
^AUTTLOC - [#9999999.06] PRINT1+4
^BMCREF - [#90001] PRINT+5, PRINT1+10
^BMCTDXC - [#90001.51] PRINT1+18
^BMCTSVC - [#90001.52] PRINT1+19
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+3
^TMP("BMCRR1" START+3, START+5, DONE+1!, PRINT+5
^VA(200 - [#200] PRINT1+17

Label References

Name Line Occurrences
@( START+3
DONE START+3, START+6, START+7
HEAD START+7, PRINT+1, PRINT+2, PRINT1+1
PRINT START+5
PRINT1 PRINT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT1+11*, PRINT1+14*, PRINT1+15*, PRINT1+16
>> %1 PRINT1+15*
>> BMC80D START+2*, HEAD2+7
>> BMC80E START+1*
>> BMCBT START+3, START+5, DONE+1, PRINT+5
>> BMCEND PRINT1+12*, PRINT1+13, PRINT1+14
>> BMCFAC PRINT1+7*, PRINT1+8*, PRINT1+9
>> BMCHRN PRINT1+4*, PRINT1+5
>> BMCJOB START+3, START+5, DONE+1, PRINT+5
>> BMCPG START+3*, PRINT+1, HEAD2+1*, HEAD2+3
BMCQUIT START+4!, START+5, START+6, START+7, PRINT+1, PRINT+2, PRINT+5, PRINT1+1, HEAD+1*
>> BMCREF PRINT+5*, PRINT1+7, PRINT1+10, PRINT1+11, PRINT1+12
>> BMCRREC PRINT+5*, PRINT1+2, PRINT1+6, PRINT1+17, PRINT1+18, PRINT1+19
>> BMCSORT START+4*, START+5*, PRINT+3, PRINT+4, PRINT+5
>> BMCSPAGE PRINT+1
>> BMCSTYPE PRINT+3, PRINT+4
>> DFN PRINT+5*, PRINT1+3, PRINT1+4
DIR HEAD+1!
DIR(0 HEAD+1*
DT PRINT1+11
>> DTOUT HEAD+1
DUZ(2 PRINT1+4, HEAD2+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL START+7, PRINT+2, PRINT1+1
IOST START+3, HEAD+1
U PRINT+5, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+6, PRINT1+10, PRINT1+17, PRINT1+18, PRINT1+19, HEAD2+3
>> Y HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All