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

Package: Referred Care Information System

Routine: BMCRCRVP


Information

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

Source Information

Source file <BMCRCRVP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Referred Care Information System 2 WP^BMCFDR  DONE^BMCRLP2  
IHS Patient 1 ($$AGE,$$DOB,$$SSN,KILL)^AUPNPAT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
COMMENT ;
HEAD ;ENTRY POINT
LOCAT ;Print Local Categories
HEAD2 ;
HEAD1 ;
PROC ;
NEXT ;
P ;
XIT ;
PURPOSE ;
DX ;Print either prov narrative/canned narrative
PRINT ;print one referral
BOC ;
TYPE ;
PRIPAY ;Primary Payor

External References

Name Field # of Occurrence
$$AGE^AUPNPAT PRINT1+3
$$DOB^AUPNPAT PRINT1+3
$$SSN^AUPNPAT PRINT1+3
KILL^AUPNPAT XIT+3
WP^BMCFDR COMMENT+2
DONE^BMCRLP2 XIT+2
^DIR HEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: BMCRCRVP+5
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,30),?32,BMCHRN,?43,"DOB: ",$$DOB^AUPNPAT(DFN,"E")," ",$$AGE^AUPNPAT(DFN,DT,"R")," ",$$SSN^AUPNPAT(DFN)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!,BMCCDT
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !,BMCRREC
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !,"3RD Party: "
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: "MEDICARE"
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: "MEDICAID: ",$$MCDPN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCCDT,"I"),"E")
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: $$PIN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCCDT,"I"),"E")
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !,"Primary Payor: "_$$VAL^XBDIQ1(90001,BMCCDT,.11)
  • Line Location: PRIPAY+1
Function Call: WRITE
  • Prompt: ?50,"Referral Type: "_$$VAL^XBDIQ1(90001,BMCCDT,.04)
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !,"Purpose:"
  • Line Location: PURPOSE+2
Function Call: WRITE
  • Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0)
  • Line Location: PURPOSE+5
Function Call: WRITE
  • Prompt: ?10,$P(^ICPT(BMCD,0),U),?19," - ",$E($P(^ICPT(BMCD,0),U,2),1,50)
  • Line Location: PROC+4
Function Call: WRITE
  • Prompt: !,"Local Category: "_BMCLOCPP
  • Line Location: LOCAT+9
Function Call: WRITE
  • Prompt: !,"--------------------",!
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
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: ?21,"**WEEKLY CHS REVIEW LISTING BY DATE**"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+5
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PRINT1+2
^AUTTLOC - [#9999999.06] PRINT1+2
^BMCCOM - [#90001.03] PRINT+2
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+3
^XTMP("BMCRCRV" BMCRCRVP+5, BMCRCRVP+7, XIT+1!, P+1, PRINT+2

Label References

Name Line Occurrences
@( BMCRCRVP+5
HEAD PRINT+1, PRINT1+1, PRINT1+13, COMMENT+4
P BMCRCRVP+7
PRINT P+1
PRINT1 PRINT+2
XIT BMCRCRVP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMCBT BMCRCRVP+5, BMCRCRVP+7, XIT+1, P+1, PRINT+2
>> BMCCDT PRINT+2*, PRINT1+4, COMMENT+2
>> BMCDA COMMENT+2*
BMCDATE BMCRCRVP+7*, XIT+4!, P+1, PRINT+2
>> BMCFILE COMMENT+2*
>> BMCHRN PRINT1+2*, PRINT1+3
BMCIOM COMMENT+2*!
>> BMCJOB BMCRCRVP+5, BMCRCRVP+7, XIT+1, P+1, PRINT+2
>> BMCNODE COMMENT+2*
>> BMCPG BMCRCRVP+5*, HEAD2+1*, HEAD2+3
>> BMCPN BMCRCRVP+6*, P+1*, PRINT+2
>> BMCQUIT BMCRCRVP+6*, BMCRCRVP+7, P+1, PRINT+1, PRINT+2, PRINT1+1, PRINT1+13, COMMENT+3, COMMENT+4, COMMENT+6
, HEAD+2*
>> BMCRREC PRINT+2*, PRINT1+5
>> BMCWP( COMMENT+3, COMMENT+5
C HEAD+1~
>> DFN PRINT+2*, PRINT1+2, PRINT1+3
DIR HEAD+2!
DIR(0 HEAD+2*
DT PRINT1+3
>> DTOUT HEAD+2
DUZ(2 PRINT1+2, HEAD2+3
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1
IOSL PRINT+1, PRINT1+1, PRINT1+13, COMMENT+4
IOST BMCRCRVP+5, HEAD+2
U PRINT+2, PRINT1+2, PRINT1+3, HEAD2+3
X HEAD+1~
Y COMMENT+3*, COMMENT+5, HEAD+1~, HEAD+2
Z HEAD+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All