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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BMCFAHC1

Package: Referred Care Information System

Routine: BMCFAHC1


Information

BMCFAHC1 ; IHS/PHXAO/TMJ - PRINT REFERRAL FORM ;

Source Information

Source file <BMCFAHC1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Referred Care Information System 2 WP^BMCFDR  $$AVDOS^BMCRLU  
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
IHS VA Utilities 1 ($$VAL,@()^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
TEXT ;
PCP ;
HEAD ;
WP ;EP - Entry point to print wp fields pass node in BMCWP
PRINT ;EP
REFPROV ;
PERPROV ;
MEMBER ;
MCDPNX ;
MCDPN(P,D,F) ;(P,D,F) return medicaid plan name for patient P on date D in form F.
; I = IEN
; J = Node 11 IEN
C ;
D ;
I ;
REQSRV ;
L ;
O ;
N ;
REFTO ;
S ;
W ;
HEAD2 ;
HEAD1 ;
PERTMED ;
MORE ;

External References

Name Field # of Occurrence
DD^%DT PRINT+9
$$DOB^AUPNPAT MEMBER+9
$$HRN^AUPNPAT PRINT+8
WP^BMCFDR WP+1
$$AVDOS^BMCRLU REFTO+8, MEMBER+6
^DIR HEAD+2
$$VAL^XBDIQ1 PCP+8, PCP+9, PCP+10, PCP+11, PCP+12, PCP+13, REFPROV+3, REQSRV+1, C+3, C+4
, C+5, I+3, I+4, I+5, N+1, O+3, O+4, O+5, O+6
@(^XBDIQ1 REFTO+6
$$FMTE^XLFDT REFTO+8, MEMBER+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+8
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+9
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+10
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+11
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+12
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+8
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MEMBER+9
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+8
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+9
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+10
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+11
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+12
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PCP+13
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFPROV+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFPROV+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFPROV+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REQSRV+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: TEXT+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: TEXT+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PERPROV+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PERPROV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PERPROV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PERPROV+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PERPROV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PERPROV+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MORE+9
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MORE+10
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: MORE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: W+4
Function Call: WRITE
  • Prompt: ?(IOM-$L(X)/2),X
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?%,X
  • Line Location: W+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: D+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: S+1
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)
^AUPNMCD - [#9000004] MCDPN+14, MCDPN+16, MCDPN+18, MCDPN+19, MCDPN+20
^AUPNMCD("B" MCDPN+13
^AUPNPAT - [#9000001] MCDPN+10
^AUTNINS - [#9999999.18] MCDPN+20
^BMCCOM - [#90001.03] PERTMED+4
^BMCCOM("AD" PERTMED+3
^BMCREF - [#90001] PRINT+2
^DPT - [#2] MEMBER+8, MCDPN+8, MCDPN+9, MCDPN+11

Label References

Name Line Occurrences
$$MCDPN MEMBER+6
$$VALI REFTO+6
@( PRINT+3
HEAD PERTMED+8, TEXT+4, MORE+7, W+3
L PRINT+5, PRINT+12, MEMBER+1, MEMBER+10, PCP+14, REQSRV+2, TEXT+8, PERPROV+3, PERPROV+5
MCDPNX MCDPN+8, MCDPN+9, MCDPN+10, MCDPN+11
W PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, REFTO+1, REFTO+2, REFTO+3, REFTO+4
, REFTO+5, REFTO+7, REFTO+8, REFTO+9, REFTO+10, REFTO+11, REFTO+12, MEMBER+2, MEMBER+3, MEMBER+4
, MEMBER+5, MEMBER+7, MEMBER+8, MEMBER+9, PCP+1, PCP+2, PCP+3, PCP+4, PCP+5, PCP+6
, PCP+7, PCP+8, PCP+9, PCP+10, PCP+11, PCP+12, PCP+13, REFPROV+1, REFPROV+2, REFPROV+3
, REQSRV+1, TEXT+6, TEXT+7, PERPROV+1, PERPROV+2, PERPROV+4, MORE+1, MORE+2, MORE+9, MORE+10
, MORE+11, L+1, D+1, S+1
WP PERTMED+6, TEXT+2, MORE+5

Naked Globals

Name Field # of Occurrence
^( MCDPN+11
^(0 MCDPN+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% W+1~, W+2*, W+6*
>> A REFTO+10, C+2*, C+4*, I+4*, N+2*, O+4*, O+6*
>> BMCCMT PERTMED+2*, PERTMED+3*, PERTMED+4, PERTMED+5
>> BMCDA PERTMED+5*, TEXT+2*, MORE+5*
>> BMCFILE PERTMED+5*, TEXT+2*, MORE+5*
>> BMCFTYPE TEXT+2, MORE+5
BMCIOM PERTMED+5*, PERTMED+6!, TEXT+2*, MORE+5*
>> BMCNODE PERTMED+5*, TEXT+2*, MORE+5*
>> BMCPG PRINT+2*, HEAD2+1*, HEAD2+2*
>> BMCQUIT PRINT+4*, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, REFTO+1, REFTO+2, REFTO+3
, REFTO+4, REFTO+5, REFTO+6, REFTO+7, REFTO+8, REFTO+9, REFTO+10, REFTO+11, REFTO+12, MEMBER+2
, MEMBER+3, MEMBER+4, MEMBER+5, MEMBER+7, MEMBER+8, MEMBER+9, PCP+1, PCP+2, PCP+3, PCP+4
, PCP+5, PCP+6, PCP+7, PCP+8, PCP+9, PCP+10, PCP+11, PCP+12, PCP+13, REFPROV+1
, REFPROV+2, REFPROV+3, PERTMED+7, PERTMED+8, REQSRV+1, TEXT+3, TEXT+4, TEXT+6, TEXT+7, PERPROV+1
, PERPROV+2, PERPROV+4, MORE+1, MORE+2, MORE+6, MORE+7, MORE+9, MORE+10, MORE+11, W+3
, L+1, D+1, S+1, HEAD+2*
>> BMCR0 PRINT+2*, PRINT+8, MEMBER+6, MEMBER+8, MEMBER+9, C+1, I+1, O+1
>> BMCREF PRINT+2, REFTO+6, REFTO+8, MEMBER+6, REFPROV+3, PERTMED+3, REQSRV+1, C+3, I+3, N+1
, O+3, O+6
>> BMCV C+1*, C+2, C+4, C+5, I+1*, I+2, I+4, I+5, O+1*, O+2
, O+4, O+5
BMCWP TEXT+1!, MORE+3!
BMCWP( PERTMED+7, PERTMED+9, TEXT+3, TEXT+5, MORE+6, MORE+8
BMCX MEMBER+6*, MEMBER+7, MEMBER+9!
>> BMCY TEXT+3*, TEXT+5, MORE+6*, MORE+8
C PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10*, PRINT+11*, REFTO+1*, REFTO+2*, REFTO+3*, REFTO+4*
, REFTO+5*, REFTO+7*, REFTO+8*, REFTO+9*, REFTO+10*, REFTO+11*, REFTO+12*, MEMBER+2*, MEMBER+3*, MEMBER+4*
, MEMBER+5*, MEMBER+7*, MEMBER+8*, MEMBER+9*, PCP+1*, PCP+2*, PCP+3*, PCP+4*, PCP+5*, PCP+6*
, PCP+7*, PCP+8*, PCP+9*, PCP+10*, PCP+11*, PCP+12*, PCP+13*, REFPROV+1*, REFPROV+2*, REFPROV+3*
, REQSRV+1*, TEXT+6*, TEXT+7*, PERPROV+2*, PERPROV+4*, MORE+1*, MORE+2*, MORE+9*, MORE+10*, MORE+11*
, W+5, L+1*, D+1*, S+1*, HEAD+1~
D MCDPN~, MCDPN+4, MCDPN+11, MCDPN+17, MCDPN+18
DIR HEAD+2!
DIR(0 HEAD+2*
DT PRINT+9
>> DTOUT HEAD+2
DUZ(2 PRINT+8, PCP+8, PCP+9, PCP+10, PCP+11, PCP+12, PCP+13
F REFTO+7, MCDPN~, MCDPN+5*, MCDPN+20, C+2*, C+3*, I+3*, N+1*, O+3*, O+6*
I W+4*, MCDPN+6~, MCDPN+12*, MCDPN+13*, MCDPN+14, MCDPN+16, MCDPN+18, MCDPN+19, MCDPN+20
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1, HEAD2+2
IOM W+5, L+1, D+1, S+1, HEAD2+2
IOSL PERTMED+8, TEXT+4, MORE+7, W+3
IOST PRINT+3, HEAD+2
J MCDPN+6~, MCDPN+15*, MCDPN+16*, MCDPN+17, MCDPN+18
N PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10*, PRINT+11*, REFTO+1*, REFTO+2*, REFTO+3*, REFTO+4*
, REFTO+5*, REFTO+7*, REFTO+8*, REFTO+9*, REFTO+10*, REFTO+11*, REFTO+12*, MEMBER+2*, MEMBER+3*, MEMBER+4*
, MEMBER+5*, MEMBER+7*, MEMBER+8*, MEMBER+9*, PCP+1*, PCP+2*, PCP+3*, PCP+4*, PCP+5*, PCP+6*
, PCP+7*, PCP+8*, PCP+9*, PCP+10*, PCP+11*, PCP+12*, PCP+13*, REFPROV+1*, REFPROV+2*, REFPROV+3*
, REQSRV+1*, TEXT+6*, TEXT+7*, PERPROV+1*, PERPROV+2*, PERPROV+4*, MORE+1*, MORE+2*, MORE+9*, MORE+10*
, MORE+11*, W+4, L+1*, D+1*, S+1*, HEAD+1~
P REFTO+11, REFTO+12, MCDPN~, MCDPN+3, MCDPN+8, MCDPN+9, MCDPN+10, MCDPN+11, MCDPN+13, C+2*
, C+5*, I+5*, N+2*, O+5*, O+6*
T PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10*, PRINT+11*, REFTO+1*, REFTO+2*, REFTO+3*, REFTO+4*
, REFTO+5*, REFTO+7*, REFTO+8*, REFTO+9*, REFTO+10*, REFTO+11*, REFTO+12*, MEMBER+2*, MEMBER+3*, MEMBER+4*
, MEMBER+5*, MEMBER+7*, MEMBER+8*, MEMBER+9*, PCP+1*, PCP+2*, PCP+3*, PCP+4*, PCP+5*, PCP+6*
, PCP+7*, PCP+8*, PCP+9*, PCP+10*, PCP+11*, PCP+12*, PCP+13*, REFPROV+1*, REFPROV+2*, REFPROV+3*
, REQSRV+1*, TEXT+6*, TEXT+7*, PERPROV+1*, PERPROV+2*, PERPROV+4*, MORE+1*, MORE+2*, MORE+9*, MORE+10*
, MORE+11*, W+6, L+1*, D+1*, S+1*, HEAD+1~
U PRINT+8, MEMBER+6, MEMBER+7, MEMBER+8, MEMBER+9, PERTMED+4, MCDPN+7*, MCDPN+9, MCDPN+11, MCDPN+18
, MCDPN+19, MCDPN+20, C+1, I+1, O+1
X PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10*, PRINT+11*, REFTO+1*, REFTO+2*, REFTO+3*, REFTO+4*
, REFTO+5*, REFTO+7*, REFTO+8*, REFTO+9*, REFTO+10*, REFTO+11*, REFTO+12*, MEMBER+2*, MEMBER+3*, MEMBER+4*
, MEMBER+5*, MEMBER+7*, MEMBER+8*, MEMBER+9*, PCP+1*, PCP+2*, PCP+3*, PCP+4*, PCP+5*, PCP+6*
, PCP+7*, PCP+8*, PCP+9*, PCP+10*, PCP+11*, PCP+12*, PCP+13*, REFPROV+1*, REFPROV+2*, REFPROV+3*
, REQSRV+1*, TEXT+6*, TEXT+7*, PERPROV+1*, PERPROV+2*, PERPROV+4*, MORE+1*, MORE+2*, MORE+9*, MORE+10*
, MORE+11*, W+2, W+5, W+6, L+1*, D+1*, S+1*, HEAD+1~
Y PRINT+9*, PERTMED+7*, PERTMED+9, MCDPN+6~, MCDPN+7*, MCDPN+19*, MCDPN+20*, MCDPNX+1, HEAD+1~, HEAD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All