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

Package: Referred Care Information System

Routine: BMCRR13P


Information

BMCRR13P ; IHS/PHXAO/TMJ - PRNT REFERRALS ;

Source Information

Source file <BMCRR13P.m>

Call Graph

Call Graph Total: 5

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  

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+6, HEAD2+7
DONE^BMCRLP2 DONE+2
$$AVDOS^BMCRLU PRINT1+3
$$FACREF^BMCRLU PRINT1+1
^DIR HEAD+1
$$VAL^XBDIQ1 PRINT1+7, PRINT1+8, PRINT1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"REQUESTING PROVIDER: ",BMCPRV
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,$$AVDOS^BMCRLU(BMCREF,"C")
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?11,$P(BMCRREC,U,2)
  • Line Location: PRINT1+4
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+9
Function Call: WRITE
  • Prompt: !?59,$E($$VAL^XBDIQ1(90001,BMCREF,.09),1,20)
  • Line Location: PRINT1+10
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: ?(80-$L(X))/2,X,!
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: ?17,"BEG DATE: "_Y
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y,!
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,?49,"REF"
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !,"BEGIN DOS",?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+4, PRINT1+5
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+6
^XTMP("BMCRR13" START+3, START+6, DONE+1!, PRINT+4

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMC80D START+2*, HEAD2+10
>> BMC80E START+1*
>> BMCBD HEAD2+6
>> BMCBT START+3, START+6, DONE+1, PRINT+4
>> BMCED HEAD2+7
>> BMCFAC PRINT1+1*, PRINT1+9
>> BMCJOB START+3, START+6, DONE+1, PRINT+4
>> BMCPG START+3*, START+4*, HEAD2+1*, HEAD2+3
>> BMCPRV START+5*, START+6*, PRINT+3, PRINT+4
BMCQUIT START+5!, START+6, START+7, START+8, PRINT+1, PRINT+4, PRINT1+2, HEAD+1*
>> BMCREF PRINT+4*, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+8, PRINT1+10
>> BMCRREC PRINT+4*, PRINT1+4, PRINT1+7
>> BMCSPAGE START+4, PRINT+1, PRINT+2
>> DFN PRINT+4*, 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+8, PRINT1+2
IOST START+3, START+4, HEAD+1
U PRINT+4, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, HEAD2+3
>> X HEAD2+4*, HEAD2+5
>> Y HEAD+1, HEAD2+6*, HEAD2+7*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All