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

Package: Referred Care Information System

Routine: BMCRR20P


Information

BMCRR20P ; IHS/PHXAO/TMJ - CASE REVIEW COMMENTS ; [ 09/27/2006 2:06 PM ]

Source Information

Source file <BMCRR20P.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Referred Care Information System 4 WP^BMCFDR  DONE^BMCRLP2  $$REFDTI^BMCRLU  SECREF2^BMCRUTL  
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient 1 ($$AGE,$$DOB,$$SSN,KILL)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
CASE ;Print Case Review Comments IHS/PHX/TMJ 11/25/98
SECREF ;Secondary Referral
HEAD ;ENTRY POINT
HEAD2 ;
HEAD1 ;
PRINT1 ;
P ;
XIT ;
PRINT ;print one referral
NEXT ;

External References

Name Field # of Occurrence
DD^%DT SECREF+3, HEAD2+4, HEAD2+5, HEAD2+6
$$AGE^AUPNPAT PRINT1+3
$$DOB^AUPNPAT PRINT1+3
$$SSN^AUPNPAT PRINT1+3
KILL^AUPNPAT XIT+3
WP^BMCFDR CASE+5
DONE^BMCRLP2 XIT+2
$$REFDTI^BMCRLU PRINT1+9
SECREF2^BMCRUTL SECREF+1
^DIR HEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: BMCRR20P+6
Function Call: WRITE
  • Prompt: !!,"Total Number of Referrals = ",BMCRCNT
  • Line Location: BMCRR20P+9
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: !,"Referral #: ",BMCRNUMB
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: ?32,"Date Referral Initiated: ",$$REFDTI^BMCRLU(BMCREF,"S")
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !!,"CASE REVIEW DATE: "_BMCCOMDT
  • Line Location: SECREF+4
Function Call: WRITE
  • Prompt: ?43,"CASE REVIEWER: "_BMCREVN,!
  • Line Location: SECREF+6
Function Call: WRITE
  • Prompt: "CASE REVIEW COMMENTS:"
  • Line Location: CASE+4
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: ?31,"REFERRAL INITIATED",!,?17,"BEG DATE: "_Y
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y,!
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: ?(75-$L(Y)/2),"Run Date: ",Y,!
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: ?23,"**CASE REVIEW COMMENTS BY DATE**"
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+8
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, CASE+3
^BMCPARM - [#90001.31] XIT+6
^BMCREF - [#90001] PRINT1+5, PRINT1+8
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+3
^VA(200 - [#200] SECREF+5
^XTMP("BMCRR20" BMCRR20P+6, BMCRR20P+8, XIT+1!, P+1, PRINT+2

Label References

Name Line Occurrences
@( BMCRR20P+6
HEAD PRINT+1, PRINT1+1, CASE+7
NEXT CASE+3
P BMCRR20P+8
PRINT P+1
PRINT1 PRINT+2
XIT BMCRR20P+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMCBD HEAD2+4
>> BMCBT BMCRR20P+6, BMCRR20P+8, XIT+1, P+1, PRINT+2
>> BMCCOMDT SECREF+3*, SECREF+4
>> BMCDA CASE+5*
BMCDATE BMCRR20P+8*, XIT+5!, P+1, PRINT+2
>> BMCED HEAD2+5
>> BMCFILE CASE+5*
>> BMCHRN PRINT1+2*, PRINT1+3
BMCIOM CASE+5*!
>> BMCJOB BMCRR20P+6, BMCRR20P+8, XIT+1, P+1, PRINT+2
>> BMCNODE CASE+5*
>> BMCOLOC XIT+6*
BMCOMDT XIT+5!
>> BMCPG BMCRR20P+6*, HEAD2+1*, HEAD2+3
>> BMCPN BMCRR20P+7*, P+1*, PRINT+2
>> BMCQUIT BMCRR20P+7*, BMCRR20P+8, P+1, PRINT+1, PRINT+2, PRINT1+1, CASE+6, CASE+7, CASE+9, HEAD+2*
>> BMCRCNT BMCRR20P+9
BMCRDT XIT+5!, PRINT+2*, CASE+3, CASE+5
>> BMCREF PRINT+2*, PRINT1+5, PRINT1+8, PRINT1+9
BMCREVN XIT+5!, SECREF+5*, SECREF+6
BMCREVP XIT+5!, SECREF+5*
>> BMCRNUMB PRINT1+5*, PRINT1+7
>> BMCRREC PRINT+2*, SECREF+3, SECREF+5
>> BMCWP( CASE+6, CASE+8
C HEAD+1~
>> DFN PRINT+2*, PRINT1+2, PRINT1+3
DIR HEAD+2!
DIR(0 HEAD+2*
DT PRINT1+3, HEAD2+6
>> DTOUT HEAD+2
DUZ(2 XIT+6, PRINT1+2, HEAD2+3
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1
IOSL PRINT+1, PRINT1+1, CASE+7
IOST BMCRR20P+6, HEAD+2
U XIT+6, PRINT+2, PRINT1+2, PRINT1+3, PRINT1+5, PRINT1+8, SECREF+3, SECREF+5, HEAD2+3
X HEAD+1~
Y SECREF+3*, CASE+6*, CASE+8, HEAD+1~, HEAD+2, HEAD2+4*, HEAD2+5*, HEAD2+6*
Z HEAD+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All