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

Package: Referred Care Information System

Routine: BMCFPRNP


Information

BMCFPRNP ; IHS/OIT/FCJ - PRINT PHYSICIAN CONSULT LETTER ; [ 10/31/2006 2:40 PM ]

Source Information

Source file <BMCFPRNP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Referred Care Information System 2 WP^BMCFDR  $$AVDOS^BMCRLU  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 ($$VAL,@()^XBDIQ1  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
C ;
I ;
W ;
HEAD1 ;
PERTMED ;
DEMO ;Demographic Data
WP ;
S ;
O ;
N ;
HEAD ;
REFFROM ;
PHY ;PHYSICIAN INFORMATION; REFERRED TO AND REFERRED FROM
TEXT ;
PURPOSE ;
DX ;BMC*4.1*9 REWROTE SECTION, WAS PRINTING DRG NOT DX
CONSULT ;CONSULT INFORMATION
PRINT ;print consult letter
WPTXT ;
; get site-specific text (if any)
HEAD2 ;

External References

Name Field # of Occurrence
$$HRN^AUPNPAT DEMO+3
WP^BMCFDR WP+1
$$AVDOS^BMCRLU DX+4, DEMO+5
^DIR HEAD+2
$$ICDDX^ICDEX DX+5, DX+6
$$VAL^XBDIQ1 PURPOSE+1, DX+7, REFFROM+3, REFFROM+4, REFFROM+5, REFFROM+7, REFFROM+9, REFFROM+10, REFFROM+11, REFFROM+12
, REFFROM+14, REFFROM+16, REFFROM+17, REFFROM+18, REFFROM+19, DEMO+1, DEMO+2, DEMO+4, C+3, C+4
, C+5, C+6, C+9, C+10, I+3, I+4, I+5, I+6, I+7, N+2
, N+3, O+3, O+4, O+5, O+6, O+7, O+8
@(^XBDIQ1 PHY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PURPOSE+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PURPOSE+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PURPOSE+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: Q
  • Line Location: DX+5
Function Call: WRITE
  • Prompt: Q
  • Line Location: DX+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: CONSULT+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFFROM+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFFROM+10
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFFROM+13
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFFROM+17
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFFROM+19
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?(IOM-$L(X)/2),X
  • Line Location: W+6
Function Call: WRITE
  • Prompt: ?%,X
  • Line Location: W+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: C+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: C+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: C+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !
  • Line Location: C+12
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: I+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: I+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: I+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: I+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: I+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: N+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: N+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: N+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: O+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: O+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: O+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: O+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: O+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: O+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: !,?(IOM-20),"Page ",BMCPG
  • Line Location: HEAD2+2
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTVNDR - [#9999999.11] C+7, C+8
^BMCCOM - [#90001.03] PERTMED+3
^BMCCOM("AD" PERTMED+2
^BMCDX - [#90001.01] DX+2, DX+3
^BMCDX("AD" DX+2
^BMCPARM - [#90001.31] WPTXT+3, WPTXT+4, WPTXT+5, WPTXT+6
^BMCREF - [#90001] PRINT+1, TEXT+3
^BMCTFORM - [#90001.33] PRINT+5
^DD("DD" PRINT+6

Label References

Name Line Occurrences
$$VALI PHY+1
@( PRINT+2
HEAD PERTMED+7, TEXT+9, W+4
S TEXT+1
W PRINT+4, PRINT+7, PURPOSE+3, PURPOSE+4, PURPOSE+5, DX+5, DX+6, DX+7, CONSULT+1, CONSULT+3
, REFFROM+3, REFFROM+6, REFFROM+10, REFFROM+13, REFFROM+17, REFFROM+19, DEMO+1, DEMO+2, DEMO+3, DEMO+4
, DEMO+5, S+1, C+3, C+4, C+5, C+6, C+11, I+3, I+4, I+5
, I+6, I+7, N+1, N+2, N+3, O+3, O+4, O+5, O+6, O+7
, O+8
WP PERTMED+5
WPTXT TEXT+4, TEXT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% W+2~, W+3*, W+7*
>> BMCCHSAS TEXT+3*, TEXT+4, WPTXT+3, WPTXT+4, WPTXT+5
>> BMCCMT PERTMED+1*, PERTMED+2*, PERTMED+3, PERTMED+4
>> BMCD DX+2*, DX+5, DX+6
>> BMCDA PERTMED+4*, TEXT+4*, TEXT+5*, WPTXT+3*, WPTXT+4*, WPTXT+5*, WPTXT+6*
>> BMCDFN PRINT+1*
>> BMCDOS DX+4*, DX+5, DX+6
>> BMCFILE PERTMED+4*, TEXT+4*, TEXT+5*, WPTXT+3*, WPTXT+4*, WPTXT+5*, WPTXT+6*
>> BMCFTYP PRINT+5*, DX+7
>> BMCFTYPE PRINT+5, TEXT+4, TEXT+5
BMCIOM PERTMED+4*, PERTMED+5!
>> BMCNODE PERTMED+4*, TEXT+4*, TEXT+5*, WPTXT+3*, WPTXT+4*, WPTXT+5*, WPTXT+6*
>> BMCPG PRINT+1*, HEAD2+1*, HEAD2+2*
>> BMCQUIT PRINT+3*, PHY+1, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+6, PERTMED+7, DX+2, DX+7, CONSULT+3
, REFFROM+6, REFFROM+10, REFFROM+13, REFFROM+17, REFFROM+19, DEMO+1, DEMO+2, DEMO+3, DEMO+4, DEMO+5
, TEXT+8, TEXT+9, W+4, C+3, C+4, C+5, C+6, C+7, I+3, I+4
, I+5, I+6, I+7, N+1, N+2, N+3, O+3, O+4, O+5, O+6
, O+7, O+8, HEAD+2*
>> BMCR0 PRINT+1*, REFFROM+1, REFFROM+2, DEMO+2, DEMO+3, TEXT+4, TEXT+5, TEXT+6, C+1, C+5
, I+1, I+5, O+1, O+5, WPTXT+2, WPTXT+6
>> BMCREF PRINT+1, PHY+1, PURPOSE+1, PERTMED+2, DX+2, DX+4, DX+7, DEMO+1, DEMO+4, DEMO+5
, TEXT+3, C+3, C+4, C+5, I+3, I+4, I+5, N+2, N+3, O+3
, O+4, O+5, O+8
>> BMCV REFFROM+1*, REFFROM+3, REFFROM+4, REFFROM+5, REFFROM+6, REFFROM+7, REFFROM+8, REFFROM+9, REFFROM+10, REFFROM+11
, REFFROM+12, REFFROM+13, REFFROM+14, REFFROM+15, REFFROM+16, REFFROM+17, REFFROM+18, REFFROM+19, C+1*, C+2
, C+3, C+6, C+7, C+8, C+9, C+10, I+1*, I+2, I+3, I+6
, I+7, O+1*, O+2, O+3, O+6, O+7
>> BMCVIEN C+8*, C+10
BMCWP TEXT+2!
BMCWP( PERTMED+6, PERTMED+8, TEXT+8, TEXT+10
BMCWP(1 TEXT+6*
>> BMCX PURPOSE+3*, PURPOSE+4
>> BMCY TEXT+8*, TEXT+10
C PRINT+4*, PRINT+7*, PURPOSE+3*, PURPOSE+4*, PURPOSE+5*, DX+5*, DX+6*, DX+7*, CONSULT+1*, CONSULT+3*
, REFFROM+3*, REFFROM+6*, REFFROM+10*, REFFROM+13*, REFFROM+17*, REFFROM+19*, DEMO+1*, DEMO+2*, DEMO+3*, DEMO+4*
, DEMO+5*, W+6, S+1*, C+3*, C+4*, C+5*, C+6*, C+11*, I+3*, I+4*
, I+5*, I+6*, I+7*, N+1*, N+2*, N+3*, O+3*, O+4*, O+5*, O+6*
, O+7*, O+8*, HEAD+1~
>> CT DX+2*, DX+4*, DX+5
DIR HEAD+2!
DIR(0 HEAD+2*
DT PRINT+6
>> DTOUT HEAD+2
DUZ(2 DEMO+3, WPTXT+3, WPTXT+4, WPTXT+5, WPTXT+6
>> DX DX+2*, DX+3
>> I W+5*
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1, HEAD2+2
IOM PURPOSE+2, PURPOSE+3, PURPOSE+4, W+6, S+1, HEAD2+2
IOSL PERTMED+7, TEXT+9, W+4
IOST PRINT+2, HEAD+2
N PRINT+4*, PRINT+7*, PURPOSE+3*, PURPOSE+4*, PURPOSE+5*, DX+5*, DX+6*, DX+7*, CONSULT+1*, CONSULT+3*
, REFFROM+3*, REFFROM+6*, REFFROM+10*, REFFROM+13*, REFFROM+17*, REFFROM+19*, DEMO+1*, DEMO+2*, DEMO+3*, DEMO+4*
, DEMO+5*, W+5, S+1*, C+3*, C+4*, C+5*, C+6*, C+11*, I+3*, I+4*
, I+5*, I+6*, I+7*, N+1*, N+2*, N+3*, O+3*, O+4*, O+5*, O+6*
, O+7*, O+8*, HEAD+1~
T PRINT+7*, PURPOSE+3*, PURPOSE+4*, PURPOSE+5*, DX+5*, DX+6*, DX+7*, CONSULT+1*, CONSULT+3*, REFFROM+3*
, REFFROM+6*, REFFROM+10*, REFFROM+13*, REFFROM+17*, REFFROM+19*, DEMO+1*, DEMO+2*, DEMO+3*, DEMO+4*, DEMO+5*
, W+7, S+1*, C+3*, C+4*, C+5*, C+6*, C+11*, I+3*, I+4*, I+5*
, I+6*, I+7*, N+1*, N+2*, N+3*, O+3*, O+4*, O+5*, O+6*, O+7*
, O+8*, HEAD+1~
U PRINT+1, PRINT+5, PERTMED+3, DX+3, DX+5, DX+6, REFFROM+1, REFFROM+2, DEMO+2, DEMO+3
, TEXT+3, TEXT+4, TEXT+5, TEXT+6, C+1, C+5, C+8, I+1, I+5, O+1
, O+5, WPTXT+2, WPTXT+6
X PRINT+4*, PRINT+7*, PURPOSE+1*, PURPOSE+2, PURPOSE+3*, PURPOSE+4*, DX+5*, DX+6*, DX+7*, CONSULT+1*
, CONSULT+2*, CONSULT+3*, REFFROM+3*, REFFROM+5*, REFFROM+6, REFFROM+7*, REFFROM+8, REFFROM+9*, REFFROM+10*, REFFROM+12*
, REFFROM+13, REFFROM+14*, REFFROM+15, REFFROM+16*, REFFROM+17*, REFFROM+18*, REFFROM+19*, DEMO+1*, DEMO+2*, DEMO+3*
, DEMO+4*, DEMO+5*, W+1, W+3, W+6, W+7, S+1*, C+3*, C+4*, C+5*
, C+6*, C+9*, C+10*, I+3*, I+4*, I+5*, I+6*, I+7*, N+1*, N+2*
, N+3*, O+3*, O+4*, O+5*, O+6*, O+7*, O+8*, HEAD+1~
Y PRINT+6*, PRINT+7, PERTMED+6*, PERTMED+8, REFFROM+2*, HEAD+1~, HEAD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All