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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BMCRR23

Package: Referred Care Information System

Routine: BMCRR23


Information

BMCRR23 ; IHS/OIT/FCJ - REPORT FOR CALL IN REFERRALS (1/2)

Source Information

Source file <BMCRR23.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 2 ^XBDBQUE  $$DIR^XBDIR  
Referred Care Information System 2 (FILHDR,FILSAV,FILSUM)^BMCRR23P  (BD,ED)^BMCRUTL  
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC RPT-CHS ONLY PAID  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date and ending dates
FIL2 ;CREATE THE FILE
BROWSE ;
END ;
ZIS ;call to XBDBQUE
SELRPT ;REPORT TYPE CALL-IN, NON CALL-IN OR BOTH
R1 ;
START ;
SET ;
EXIT ;
FILE ;CREATE A FILE
PROCESS2 ;
PROCESS ;
STPROC ;
TYPE ; TYPE OF REPORT SUMARRY OR DETAILED
; Enter Summary or Detail
PCCTST ;IF SITE DOES NOT USE PCC LINK THE EARLIEST DATE FOR REPORT WILL BE WHEN V4 P12 WAS INSTALLED

External References

Name Field # of Occurrence
DD^%DT PCCTST+2
KILL^AUPNPAT EXIT+2
FILHDR^BMCRR23P FIL2+1
FILSAV^BMCRR23P FIL2+3
FILSUM^BMCRR23P FIL2+2
BD^BMCRUTL BD+7
ED^BMCRUTL BD+6
^DIR BD+3, SELRPT+4, TYPE+4, ZIS+2
^XBDBQUE ZIS+8, BROWSE+2
$$DIR^XBDIR FILE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?14,"************* CHS Paid Referral Report *************"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Report will capture CHS Primary referrals. Report will sort by Call-in"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"Referrals. The CHS PO's must be final paid without out any Third Party"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"Payment. If the call-in notification date is not available the referral"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"will be checked for a PCC Visit to identify Call-in referrals."
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!,"If the PCC link was not on during anytime within reporting time"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"frame, this report MAY NOT be accurate for identifying Call-in referrals."
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,!
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SELRPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+2
Routine Call
  • DIR
  • Line Location:
    • BD+3
    • SELRPT+4
    • TYPE+4
    • ZIS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] PROCESS2+12, PROCESS2+13
^BMCPARM - [#90001.31] PCCTST+2
^BMCREF - [#90001] R1+2, PROCESS2+1, PROCESS2+5, PROCESS2+7, PROCESS2+10, PROCESS2+11, PROCESS2+16, PROCESS2+17, SET+3
^BMCREF("B" PROCESS+1, PROCESS+3, R1+2
^XTMP( START+2!, SET+4*
^XTMP($J EXIT+7!

Label References

Name Line Occurrences
BD SELRPT+5
BROWSE ZIS+6
END STPROC+2
EXIT BD+4, BD+8, SELRPT+5, TYPE+5, FILE+2, ZIS+6
FIL2 EXIT+1
FILE ZIS+5
PCCTST START+1
PROCESS STPROC+2
PROCESS2 R1+2
R1 PROCESS+3
SELRPT TYPE+5
SET PROCESS2+16
TYPE FILE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FILE+1*, FILE+3
BMC80D EXIT+3!
BMC80E EXIT+3!
BMCBD BD+5*, EXIT+4!
BMCBDD EXIT+4!
BMCBT EXIT+3!, STPROC+1*
BMCBTH EXIT+3!, STPROC+1*, SET+4
BMCCFC EXIT+5!
BMCCHS EXIT+4!, PROCESS2+9*, PROCESS2+11*, PROCESS2+12, PROCESS2+13
BMCCHS0 EXIT+5!
BMCCPO EXIT+5!
BMCED EXIT+4!, PROCESS+3
BMCEDD EXIT+4!
BMCET EXIT+3!, PROCESS+1*, END+1*
BMCFIL FILE+3*, EXIT+1, EXIT+4!
BMCHIT EXIT+4!, PROCESS2+9*, PROCESS2+13*, PROCESS2+14
BMCJOB START+1*, START+2, EXIT+4!, SET+4
BMCODAT EXIT+4!, PROCESS+1*, PROCESS+2*, PROCESS+3*, R1+2
BMCOPT ZIS+1!, ZIS+4*, ZIS+6, EXIT+3!
BMCPDT START+11, BD+2, BD+3, EXIT+4!, PCCTST+1*, PCCTST+2*, PROCESS2+16
>> BMCPDT1 START+13, PCCTST+2*
BMCPG EXIT+3!
BMCPOC EXIT+5!
BMCQUIT ZIS+3*, ZIS+5, EXIT+3!
BMCR EXIT+5!
BMCRCDAY EXIT+5!
BMCRCNT EXIT+3!, STPROC+1*, SET+4*
BMCRCTOT EXIT+5!
BMCREC EXIT+5!
BMCREF EXIT+3!, R1+1*, R1+2*, PROCESS2+1, PROCESS2+5, PROCESS2+7, PROCESS2+10, PROCESS2+11, PROCESS2+16, PROCESS2+17
, SET+3, SET+4
BMCRPO EXIT+5!
BMCRPT SELRPT+6*, EXIT+4!, SET+1, SET+2
BMCRRDAY EXIT+5!
BMCRREC EXIT+3!, R1+2*, PROCESS2+1*, PROCESS2+3
BMCRRTOT EXIT+5!
BMCRTH EXIT+4!
BMCRTOT EXIT+5!
BMCRTYP TYPE+6*, EXIT+4!
BMCSD EXIT+4!, PROCESS+1, PROCESS+2
BMCSORT EXIT+3!, PROCESS2+1*, PROCESS2+16*, PROCESS2+17*, SET+1, SET+2, SET+4
BMCSRTH EXIT+5!
BMCSTYPE EXIT+3!
BMCTAVG EXIT+5!
DA ZIS+2!, EXIT+6!
DFN EXIT+6!, PROCESS2+1*
DIC SELRPT+1!
DIR BD+3!, SELRPT+1!, ZIS+2!, EXIT+6!
DIR("?" TYPE+3*
DIR("A" BD+3*, SELRPT+2*, TYPE+2*, ZIS+2*
DIR("B" BD+1!, SELRPT+2*, TYPE+2*, ZIS+2*
DIR(0 BD+3*, SELRPT+2*, TYPE+2*, ZIS+2*
>> DIROUT SELRPT+5, TYPE+5
>> DIRUT BD+3*, BD+4, BD+8, ZIS+3
>> DTOUT SELRPT+5, TYPE+5, FILE+2
>> DUOUT BD+3, SELRPT+5, TYPE+5, FILE+2
DUZ(2 PCCTST+2, PROCESS2+12, PROCESS2+13, SET+3, SET+4
IOF START+3
>> L PROCESS2+9*, PROCESS2+10*, PROCESS2+11
U PCCTST+2, PROCESS2+1, PROCESS2+3, PROCESS2+5, PROCESS2+7, PROCESS2+11, PROCESS2+12, PROCESS2+13, PROCESS2+16, PROCESS2+17
, SET+3
X EXIT+6!
>> XBIOP BROWSE+2*
>> XBNS ZIS+7*
>> XBRC ZIS+7*, BROWSE+2*
>> XBRP ZIS+7*, BROWSE+1*
>> XBRX ZIS+7*
Y BD+5, SELRPT+6, TYPE+6, ZIS+4, EXIT+6!, PCCTST+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All