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

Package: Referred Care Information System

Routine: BMCRR18P


Information

BMCRR18P ; IHS/PHXAO/TMJ - PRNT BILL VSTS ; [ 09/27/2006 2:05 PM ]

Source Information

Source file <BMCRR18P.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Referred Care Information System 3 WP^BMCFDR  DONE^BMCRLP2  ($$AVDOS,$$AVEOS,$$AVLOS,$$FACREF)^BMCRLU  
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient 1 ($$AGE,$$COMMRES,KILL)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD ;ENTRY POINT
HEAD2 ;
HEAD1 ;
SUMPRINT ;Entry Point Down to Print Report Summary Selection
CASECOM ;
COMMENTS ;
P ;
XIT ;
DISCOM ;
PRINT ;print one referral

External References

Name Field # of Occurrence
DD^%DT HEAD2+6, HEAD2+7
$$AGE^AUPNPAT PRINT1+3, SUMPRINT+5
$$COMMRES^AUPNPAT PRINT1+6, SUMPRINT+7
KILL^AUPNPAT XIT+3
WP^BMCFDR COMMENTS+1
DONE^BMCRLP2 XIT+2
$$AVDOS^BMCRLU PRINT1+9, SUMPRINT+10
$$AVEOS^BMCRLU PRINT1+9, SUMPRINT+10
$$AVLOS^BMCRLU PRINT1+9, SUMPRINT+10
$$FACREF^BMCRLU PRINT1+7, SUMPRINT+8
^DIR HEAD+2
$$VAL^XBDIQ1 CASECOM+6, DISCOM+6
$$FMTE^XLFDT CASECOM+5, DISCOM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: BMCRR18P+9
Function Call: WRITE
  • Prompt: !!,$E($P(^DPT(DFN,0),U),1,20),?22,BMCHRN,?28,$$AGE^AUPNPAT(DFN,DT,"R")
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?35,BMCRNUMB,$P($G(^BMCREF(BMCREF,1)),U)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?53,$E($$COMMRES^AUPNPAT(DFN,"E"),1,10)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?65,$E($$FACREF^BMCRLU(BMCREF),1,15)
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !,$E($P($G(^BMCREF(BMCREF,12)),U,1),1,19)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?27,"Admit Dt: ",$$AVDOS^BMCRLU(BMCREF,"C"),"-","Disch Dt: ",$$AVEOS^BMCRLU(BMCREF,"S")," LOS: ",$$AVLOS^BMCRLU(BMCREF,"C")
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CASECOM+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,"**AREA HOSPITAL DISCHARGES BY DATE**"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !,?28,"BEG DATE: "_Y
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: !,?28,"END DATE: "_Y,!
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !!,"Pt Name/Purpose",?22,"Rec #",?29,"Age",?36,"Referral #",?52,"Community",?65,"Fac. Ref To"
  • Line Location: HEAD2+9
Function Call: WRITE
  • Prompt: !!,"Pt Name/Purpose",?22,"Rec #",?32,"Age",?39,"Referral #",?52,"Community",?65,"Fac. Ref To",?82,"Purpose of Referral",?104,"Beginning ",?116,"Ending ",?126,"Los"
  • Line Location: HEAD2+11
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+12
Function Call: WRITE
  • Prompt: !,$TR($J(" ",132)," ","-")
  • Line Location: HEAD2+13
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,BMCHRN,?31,$$AGE^AUPNPAT(DFN,DT,"R")
  • Line Location: SUMPRINT+5
Function Call: WRITE
  • Prompt: ?38,$P($G(^BMCREF(BMCREF,0)),U,2)
  • Line Location: SUMPRINT+6
Function Call: WRITE
  • Prompt: ?53,$E($$COMMRES^AUPNPAT(DFN,"E"),1,10)
  • Line Location: SUMPRINT+7
Function Call: WRITE
  • Prompt: ?65,$E($$FACREF^BMCRLU(BMCREF),1,15)
  • Line Location: SUMPRINT+8
Function Call: WRITE
  • Prompt: ?82,$E($P($G(^BMCREF(BMCREF,12)),U,1),1,20)
  • Line Location: SUMPRINT+9
Function Call: WRITE
  • Prompt: ?104,$$AVDOS^BMCRLU(BMCREF,"C"),?117,$$AVEOS^BMCRLU(BMCREF,"S"),?126,$$AVLOS^BMCRLU(BMCREF,"C")
  • Line Location: SUMPRINT+10
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PRINT1+2, SUMPRINT+4
^AUTTLOC - [#9999999.06] PRINT1+2, SUMPRINT+4
^BMCCOM - [#90001.03] CASECOM+4, CASECOM+5, DISCOM+4, DISCOM+5
^BMCCOM("AD" CASECOM+2, CASECOM+3, DISCOM+1, DISCOM+3
^BMCREF - [#90001] PRINT+2, PRINT1+4, PRINT1+5, PRINT1+8, SUMPRINT+6, SUMPRINT+9
^DIC(4 - [#4] HEAD2+3
^DPT - [#2] PRINT1+3, SUMPRINT+5
^XTMP("BMCRR18" BMCRR18P+9, BMCRR18P+11, XIT+1!, P+1, PRINT+2

Label References

Name Line Occurrences
@( BMCRR18P+9
COMMENTS CASECOM+7, DISCOM+7
HEAD PRINT+1, PRINT+3, PRINT1+1, COMMENTS+3, SUMPRINT+3
P BMCRR18P+11
PRINT P+1
PRINT1 PRINT+3
SUMPRINT PRINT+4
XIT BMCRR18P+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMCBD HEAD2+6
>> BMCBT BMCRR18P+9, BMCRR18P+11, XIT+1, P+1, PRINT+2
>> BMCDA COMMENTS+1*
BMCDATE BMCRR18P+11*, XIT+4!, P+1, PRINT+2
>> BMCED HEAD2+7
>> BMCFILE COMMENTS+1*
>> BMCHRN PRINT1+2*, PRINT1+3, SUMPRINT+4*, SUMPRINT+5
BMCI XIT+4!, CASECOM+3*, CASECOM+4, CASECOM+5, CASECOM+6, DISCOM+2*, DISCOM+3*, DISCOM+4, DISCOM+5, DISCOM+6
, COMMENTS+1
BMCIOM COMMENTS+1*!
>> BMCJOB BMCRR18P+9, BMCRR18P+11, XIT+1, P+1, PRINT+2
>> BMCNODE COMMENTS+1*
>> BMCOUTP PRINT+3, PRINT+4, HEAD2+9, HEAD2+11, HEAD2+12, HEAD2+13
>> BMCPG BMCRR18P+9*, HEAD2+1*, HEAD2+3
>> BMCPN BMCRR18P+10*, P+1*, PRINT+2
>> BMCQUIT BMCRR18P+10*, BMCRR18P+11, P+1, PRINT+1, PRINT+2, PRINT1+1, CASECOM+3, DISCOM+3, COMMENTS+2, COMMENTS+3
, HEAD+2*, SUMPRINT+3
>> BMCREF PRINT+2*, PRINT1+4, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+9, CASECOM+2, CASECOM+3, DISCOM+1, DISCOM+3
, SUMPRINT+6, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
>> BMCRNUMB PRINT1+4*, PRINT1+5
>> BMCRREC PRINT+2*
>> BMCWP( COMMENTS+2, COMMENTS+4
C HEAD+1~
>> DFN PRINT+2*, PRINT1+2, PRINT1+3, PRINT1+6, SUMPRINT+4, SUMPRINT+5, SUMPRINT+7
DIR HEAD+2!
DIR(0 HEAD+2*
DT PRINT1+3, SUMPRINT+5
>> DTOUT HEAD+2
DUZ(2 PRINT1+2, HEAD2+3, SUMPRINT+4
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1
IOSL PRINT+1, PRINT1+1, COMMENTS+3, SUMPRINT+3
IOST BMCRR18P+9, HEAD+2
U PRINT+2, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+8, CASECOM+4, CASECOM+5, DISCOM+4, DISCOM+5
, HEAD2+3, SUMPRINT+4, SUMPRINT+5, SUMPRINT+6, SUMPRINT+9
X HEAD+1~
Y COMMENTS+2*, COMMENTS+4, HEAD+1~, HEAD+2, HEAD2+6*, HEAD2+7*
Z HEAD+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All