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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BMCRRNDA

Package: Referred Care Information System

Routine: BMCRRNDA


Information

BMCRRNDA ; IHS/PHXAO/TMJ - NUMBER OF DAYS AUTHORIZED ;

Source Information

Source file <BMCRRNDA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Referred Care Information System 2 DIC^BMCFMC  DONE^BMCRLP2  
VA Fileman 2 C^%DTC  ^DIR  
IHS Patient 1 ($$DOD,KILL)^AUPNPAT  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
HEAD ;
PAT ;Get Patient
D ;DATE RANGE
HEAD1 ;
ED ;get ending date
GETPAT ;
R1 ;
HEAD2 ;
START ;
DONE ;
PATIENT2 ; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
XIT ;EP
PATNAME ;
PRINT ;EP called from xbdbque
PATIENT ; GET PATIENT
PROCR ;
PROC ;EP called from xbdbque
END ;
ZIS ;

External References

Name Field # of Occurrence
C^%DTC ED+4
$$DOD^AUPNPAT PATIENT2+6
KILL^AUPNPAT XIT+2
DIC^BMCFMC PATIENT2+2
DONE^BMCRLP2 DONE+2
^DIR BD+1, ED+1, PAT+1, PATIENT2+8, HEAD+1
^XBDBQUE ZIS+2
$$FMTE^XLFDT HEAD2+2, HEAD2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will tally all in-house referrals by provider of service.",!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"This patient is deceased."
  • Line Location: PATIENT2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT2+9
Function Call: WRITE
  • Prompt: !!,"No # DAYS AUHTORIZED FOR THIS RUN",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,BMCPAT
  • Line Location: PATNAME+2
Function Call: WRITE
  • Prompt: !!,"Total for ",BMCPAT,?55,$J(BMCSTOT,5)
  • Line Location: PATNAME+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?55,$$FMTE^XLFDT(DT),?72,"Page ",BMCPG,!
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: ?20,"IN-HOUSE REFERRALS BY PATIDER",!
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: ?14,"REFERRAL DATE RANGE: ",$$FMTE^XLFDT(BMCBD)," to ",$$FMTE^XLFDT(BMCED)
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !!,"PATIDER",?25,"CLINIC REFERRED TO",?55,"NUMBER"
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD2+6
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • PAT+1
    • PATIENT2+8
    • HEAD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCREF - [#90001] R1+1, PROCR+8, PROCR+9
^BMCREF("B" PROC+2, PROC+3, R1+1
^DPT - [#2] PATIENT2+4, PROCR+5
^XTMP("BMCRRNDA" PROCR+10*, PRINT+3, PRINT+4, DONE+1!, PATNAME+3, PATNAME+5

Label References

Name Line Occurrences
@( PRINT+1
BD ED+2
D PAT+2
DONE PRINT+3
GETPAT PAT+3
HEAD PATNAME+1, PATNAME+4, PATNAME+7
PAT PAT+3
PATIENT2 PATIENT+1
PATNAME PRINT+4
PROCR R1+1
R1 PROC+3
XIT BD+2, ZIS+3

Naked Globals

Name Field # of Occurrence
^( PATNAME+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BMCBD BD+3*, ED+1, ED+4, XIT+1!, HEAD2+4
BMCBT XIT+1!, PROC+1*
BMCBTH START+1*, XIT+1!, PROCR+10, PRINT+3, PRINT+4, DONE+1, PATNAME+3, PATNAME+5
BMCCLIN XIT+1!
BMCDFN PATIENT+1, PATIENT2+4*, PATIENT2+6!
BMCED ED+3*, XIT+1!, PROC+3, HEAD2+4
BMCET XIT+1!, PROC+2*, END+1*
>> BMCJOB START+1*, PROCR+10, PRINT+3, PRINT+4, DONE+1, PATNAME+3, PATNAME+5
BMCODAT XIT+1!, PROC+2*, PROC+3*, R1+1
BMCPAT PAT+1*, PAT+3, XIT+1!, PATIENT2+11*, PROCR+3*, PROCR+10, PRINT+4*, PATNAME+2, PATNAME+3, PATNAME+5
, PATNAME+8
>> BMCPATN PATNAME+3*, PATNAME+5
BMCPG XIT+1!, PRINT+1*, HEAD2+1*, HEAD2+2
>> BMCQ PATIENT+1, PATIENT2+1*, PATIENT2+5*
BMCQUIT XIT+1!, PRINT+2*, PRINT+4, PATNAME+1, PATNAME+3, PATNAME+4, PATNAME+7, HEAD+1*
>> BMCREC("PAT N AME" , PATIENT2+4*, PATIENT2+6!
BMCREF XIT+1!, R1+1*, PROCR+8, PROCR+9, PROCR+10
BMCRREC XIT+1!, R1+1*, PROCR+2, PROCR+7
BMCSD ED+4*, XIT+1!, PROC+2, PROC+3
BMCSTOT XIT+1!, PATNAME+2*, PATNAME+5*, PATNAME+8
C XIT+1!
D XIT+1!
DA PAT+1!, PATIENT2+8!
DFN XIT+1!, R1+1*
DIC XIT+1!, PATIENT2+2*
DIC(0 PATIENT2+2*
DIR BD+1!, ED+1!, PAT+1!, PATIENT2+8!, HEAD+1!
DIR("A" BD+1*, ED+1*, PAT+1*, PATIENT2+8*
DIR("B" PAT+1*, PATIENT2+8*
DIR(0 BD+1*, ED+1*, PAT+1*, PATIENT2+8*, HEAD+1*
DIRUT BD+1*, BD+2, ED+1*, ED+2, PAT+2, XIT+1!
DT HEAD2+2
>> DTOUT HEAD+1
>> DUOUT BD+1, ED+1
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL PATNAME+1, PATNAME+4, PATNAME+7
IOST PRINT+1, HEAD+1
P XIT+1!, PROCR+2*, PROCR+3, PROCR+5*, PROCR+10
U PATIENT2+4, R1+1, PROCR+2, PROCR+5, PROCR+7, PROCR+8, PROCR+9
X ED+4, XIT+1!
X1 ED+4*, XIT+1!
X2 ED+4*, XIT+1!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
>> Y BD+3, ED+3, PAT+3, PATIENT2+3, PATIENT2+4, PATIENT2+6, PATIENT2+11, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All