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

Package: Referred Care Information System

Routine: BMCFAHC2


Information

BMCFAHC2 ; IHS/PHXAO/TMJ - PRINT SECONDARY PROVIDER REFERRALAHCCCS FORM ;

Source Information

Source file <BMCFAHC2.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 ;
PERTMED1
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 ;Other Identical to Contract
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 MEMBER+6
^DIR HEAD+2
$$VAL^XBDIQ1 REFTO+9, REFTO+10, PCP+8, PCP+9, PCP+10, PCP+11, PCP+12, PCP+13, REFPROV+3, REQSRV+1
, C+3, C+4, C+5, I+2, I+3, I+4, N+2, O+3, O+4, O+5
, O+6
$$FMTE^XLFDT 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+8
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: REFTO+13
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+14
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+15
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] PERTMED1+2
^BMCCOM("AD" PERTMED1+1
^BMCREF - [#90001] PRINT+2, C+1, I+1, O+1
^DPT - [#2] MEMBER+8, MCDPN+8, MCDPN+9, MCDPN+11

Label References

Name Line Occurrences
$$MCDPN MEMBER+6
@( PRINT+3
C REFTO+7
HEAD PERTMED1+6, TEXT+4, MORE+7, W+3
I REFTO+6
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
PERTMED1 PERTMED+2, PERTMED+3
REQSRV PERTMED+5
W PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, REFTO+1, REFTO+2, REFTO+3, REFTO+4
, REFTO+5, REFTO+8, REFTO+11, REFTO+12, REFTO+13, REFTO+14, 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 PERTMED1+4, 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+13, C+2*, C+4*, I+3*, N+3*, O+4*, O+6*
>> BMCCMT PERTMED1*, PERTMED1+1*, PERTMED1+2, PERTMED1+3
>> BMCDA PERTMED1+3*, TEXT+2*, MORE+5*
>> BMCFILE PERTMED1+3*, TEXT+2*, MORE+5*
>> BMCFTYPE TEXT+2, MORE+5
BMCIOM PERTMED1+3*, PERTMED1+4!, TEXT+2*, MORE+5*
>> BMCKIND REFTO+6, REFTO+7
>> BMCNODE PERTMED1+3*, TEXT+2*, MORE+5*
>> BMCPG PRINT+2*, HEAD2+1*, HEAD2+2*
>> BMCPHX PERTMED+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+11, REFTO+12, REFTO+13, REFTO+14, 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, PERTMED1+5, PERTMED1+6, 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
>> BMCREF MEMBER+6, PERTMED+2*, PERTMED+3*, PERTMED+4*, PERTMED1+1, N+2
>> BMCRIEN PERTMED+2, PERTMED+4
>> BMCSRIEN PRINT+2, REFTO+9, REFTO+10, REFPROV+3, PERTMED+3, REQSRV+1, C+1, C+3, I+1, I+2
, O+1, O+3, O+6
>> BMCV C+1*, C+2, C+4, C+5, I+1*, I+3, I+4, O+1*, O+2, O+4
, O+5
BMCWP TEXT+1!, MORE+3!
BMCWP( PERTMED1+5, PERTMED1+7, 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+8*, REFTO+11*, REFTO+12*, REFTO+13*, REFTO+14*, 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+8, MCDPN~, MCDPN+5*, MCDPN+20, C+2*, C+3*, I+2*, N+2*, 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 PERTMED1+6, 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+8*, REFTO+11*, REFTO+12*, REFTO+13*, REFTO+14*, 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+14, MCDPN~, MCDPN+3, MCDPN+8, MCDPN+9, MCDPN+10, MCDPN+11, MCDPN+13, C+2*, C+5*
, I+4*, N+3*, 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+8*, REFTO+11*, REFTO+12*, REFTO+13*, REFTO+14*, 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, PERTMED1+2, 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+8*, REFTO+9*, REFTO+10*, REFTO+12*, REFTO+13*, REFTO+14*, 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*, PERTMED1+5*, PERTMED1+7, 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