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

Package: Referred Care Information System

Routine: BMCRR9P


Information

BMCRR9P ; IHS/PHXAO/TMJ - PRNT BILL VSTS ;

Source Information

Source file <BMCRR9P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Referred Care Information System 2 DONE^BMCRLP2  ($$AVDOS,$$FACREF)^BMCRLU  
VA Fileman 2 DD^%DT  ^DIR  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  

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
DD^%DT HEAD2+4, HEAD2+5
DONE^BMCRLP2 DONE+2
$$AVDOS^BMCRLU PRINT1+2
$$FACREF^BMCRLU PRINT1+9
^DIR HEAD+1
$$VAL^XBDIQ1 PRINT1+7, PRINT1+8, PRINT1+12
$$FMTE^XLFDT PRINT1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,$S(BMCSTYPE="B":$$AVDOS^BMCRLU(BMCREF,"C"),1:$$FMTE^XLFDT($P(BMCRREC,U),"5D"))
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?11,$P(BMCRREC,U,2)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: $P($G(^BMCREF(BMCREF,1)),U)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?28,$E($P(^DPT(DFN,0),U),1,20)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?49,$S($P(BMCRREC,U,6):$$VAL^XBDIQ1(200,$P(BMCRREC,U,6),1),1:"--")
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: ?54,$E($$VAL^XBDIQ1(90001,BMCREF,.04),1,3)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?59,$E(BMCFAC,1,20)
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: !?59,$E($$VAL^XBDIQ1(90001,BMCREF,.09),1,20)
  • Line Location: PRINT1+12
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: ?31,"REFERRAL INITIATED",!,?17,"BEG DATE: "_Y
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y,!
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: ?(80-$L(X))/2,X,!
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,?49,"REF"
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !,$S(BMCSTYPE="B":"BEGIN DOS",1:"INITIATED"),?11,"REFERRAL #",?28,"PATIENT NAME",?49,"PROV",?54,"TYPE",?59,"FACILITY REFERRED TO"
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+10
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCREF - [#90001] PRINT+1, PRINT1+5
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+6
^XTMP("BMCRR9" START+3, START+5, DONE+1!, PRINT+1

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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