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

Package: Referred Care Information System

Routine: BMCRR23P


Information

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

Source Information

Source file <BMCRR23P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 DD^%DT  (,NOW)^%DTC  ^DIR  
Referred Care Information System 2 DONE^BMCRLP1  DT^BMCRUTL  
IHS VA %Utilities 1 ^ZIBGSVEM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMCRR23  

Entry Points

Name Comments DBIA/ICR reference
SORT ;
PRINT1 ;
HEAD ;ENTRY POINT
HEAD3 ;
HEAD2 ;
HEAD1 ;
SUMN ;
SUM ;
CHSFAC ;
DETAIL ;
START ;
FILSUMC ;
DONE ;
FILSUM ;
FILSAV ;SAVE FILE
PRINT ;
FILSUMN ;
SUMC ;
FILHDR ;

External References

Name Field # of Occurrence
DD^%DT HEAD2+5, HEAD2+6, FILHDR+5, FILHDR+6
^%DTC PRINT1+23
NOW^%DTC FILSAV+5
DONE^BMCRLP1 DONE+1
DT^BMCRUTL PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+16, PRINT1+20
^DIR DETAIL+14, HEAD+1
^ZIBGSVEM FILSAV+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,BMC80D
  • Condition for execution: BMCRTYP="S"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"No referrals to report",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?12,"*********** 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: !?14,"CHS TYPE REFERRAL REPORT SORTED BY CALL-IN REFERRALS"
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !?17,"BEG DATE: "_Y
  • Line Location: HEAD2+5
Function Call: WRITE
  • Prompt: ?40,"END DATE: "_Y
  • Line Location: HEAD2+6
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD2+7
Function Call: WRITE
  • Prompt: !!,?3,"REFERRAL",?16,"CALL-IN",?25,"REFERRAL",?36,"CHS",?46,"PO",?74,"DAYS"
  • Line Location: HEAD3+1
Function Call: WRITE
  • Prompt: !,?4,"NUMBER",?18,"DATE",?24,"INITIATED",?34,"APPROVAL",?44,"ISSUED",?53,"PO NUMBER",?65,"PO PAID",?73,"TO PAY"
  • Line Location: HEAD3+2
Function Call: WRITE
  • Prompt: !,BMC80D
  • Line Location: HEAD3+3
Function Call: WRITE
  • Prompt: !,BMCSRTH
  • Line Location: HEAD3+4
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Referrals: ",BMCRTOT
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !,"TOTAL PO'S: ",BMCCPO+BMCRPO
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !,"TOTAL Days to Pay: ",BMCRCDAY+BMCRRDAY
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!,"CHS Call-In Referrals from PO issue date to paid date"
  • Line Location: SUMC+1
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Call-In Referrals: ",BMCRCTOT
  • Line Location: SUMC+2
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Call-In Referral Days: ",BMCRCDAY
  • Line Location: SUMC+3
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Call-In Referral Average Days: "
  • Line Location: SUMC+4
Function Call: WRITE
  • Prompt: $S(BMCCPO>0:$FN((BMCRCDAY/BMCCPO),"",2),1:0)
  • Line Location: SUMC+4
Function Call: WRITE
  • Prompt: !!,"CHS Non-Call-In Referrals from PO issue date to paid date"
  • Line Location: SUMN+1
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Non-Call-In Referrals: ",BMCRRTOT
  • Line Location: SUMN+2
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Non-Call-In Referral Days: ",BMCRRDAY
  • Line Location: SUMN+3
Function Call: WRITE
  • Prompt: !,"TOTAL CHS Non-Call-In Referral Average Days: "
  • Line Location: SUMN+4
Function Call: WRITE
  • Prompt: $S(BMCRPO>0:$FN((BMCRRDAY/BMCRPO),"",2),1:0)
  • Line Location: SUMN+4
Routine Call
  • DIR
  • Line Location:
    • DETAIL+14
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] PRINT1+12, PRINT1+13, PRINT1+15, PRINT1+20
^AUTTAREA - [#9999999.21] CHSFAC+1
^AUTTLOC - [#9999999.06] CHSFAC+1, FILSAV+7
^AUTTSITE(1 FILSAV+12
^BMCPARM - [#90001.31] FILSAV+11
^BMCREF - [#90001] PRINT+4, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+10, PRINT1+11
^DIC(4 - [#4] HEAD2+3, FILHDR+3
^XTMP( START+4, SORT+3, SORT+5!, PRINT+3, PRINT1+1*, PRINT1+3*, PRINT1+5*, PRINT1+7*, PRINT1+17*, PRINT1+18*
, PRINT1+19*, PRINT1+21*, PRINT1+24*, DETAIL+2, DETAIL+5, DETAIL+6, DETAIL+10, DETAIL+11, FILHDR+2*, FILHDR+3*
, FILHDR+4*, FILHDR+5*, FILHDR+6*, FILHDR+7*, FILHDR+8*, FILHDR+9, FILHDR+10*, FILSUM+3*, FILSUM+4*, FILSUM+5*
, FILSUM+6*, FILSUMC+1*, FILSUMC+2*, FILSUMC+3*, FILSUMC+4*, FILSUMN+1*, FILSUMN+2*, FILSUMN+3*, FILSUMN+4*, FILSAV+2!

Label References

Name Line Occurrences
@( START+4
CHSFAC PRINT+1
DETAIL SORT+6
DONE START+4, SORT+4, SORT+7
FILSUMC FILSUM+1
FILSUMN FILSUM+2
HEAD SORT+7, DETAIL+9, DETAIL+13
HEAD1 SORT+6
PRINT SORT+3
PRINT1 PRINT+7
SUM SORT+5, SORT+6
SUMC SUM+1
SUMN SUM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FILSAV+5
>> %I(3 FILSAV+5
>> BMC80D START+2*, START+4, HEAD2+7, HEAD3+3
>> BMC80E START+1*
>> BMCBD HEAD2+5, FILHDR+5
>> BMCBT START+4, SORT+3, PRINT+3
>> BMCBTH SORT+5, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+24
, DETAIL+2, DETAIL+5, DETAIL+6, DETAIL+10, DETAIL+11, FILHDR+2, FILHDR+3, FILHDR+4, FILHDR+5, FILHDR+6
, FILHDR+7, FILHDR+8, FILHDR+9, FILHDR+10, FILSUM+3, FILSUM+4, FILSUM+5, FILSUM+6, FILSUMC+1, FILSUMC+2
, FILSUMC+3, FILSUMC+4, FILSUMN+1, FILSUMN+2, FILSUMN+3, FILSUMN+4, FILSAV+2
>> BMCCFC PRINT+1*, PRINT1+19, CHSFAC+1*
>> BMCCHS PRINT1+11*, PRINT1+12, PRINT1+13, PRINT1+15, PRINT1+20
>> BMCCHS0 PRINT1+15*, PRINT1+16, PRINT1+19, PRINT1+23
>> BMCCPO SORT+2*, PRINT1+26*, PRINT1+27, SUM+4, SUMC+4, FILSUM+4, FILSUMC+4
>> BMCED HEAD2+6, FILHDR+6
>> BMCFIL FILHDR+1
>> BMCJOB START+4, SORT+3, SORT+5, PRINT+3, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18
, PRINT1+19, PRINT1+21, PRINT1+24, DETAIL+2, DETAIL+5, DETAIL+6, DETAIL+10, DETAIL+11, FILHDR+2, FILHDR+3
, FILHDR+4, FILHDR+5, FILHDR+6, FILHDR+7, FILHDR+8, FILHDR+9, FILHDR+10, FILSUM+3, FILSUM+4, FILSUM+5
, FILSUM+6, FILSUMC+1, FILSUMC+2, FILSUMC+3, FILSUMC+4, FILSUMN+1, FILSUMN+2, FILSUMN+3, FILSUMN+4, FILSAV+2
>> BMCPG START+4*, HEAD2+1*, HEAD2+3
>> BMCPOC PRINT1+9*, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+24, PRINT1+26*, DETAIL+10*, DETAIL+11
>> BMCQUIT SORT+1*, SORT+3, SORT+4, PRINT+3, DETAIL+2, DETAIL+5, DETAIL+9, DETAIL+10, DETAIL+13, DETAIL+14*
, HEAD+1*
>> BMCR DETAIL+5*, DETAIL+6, DETAIL+10, DETAIL+11
>> BMCRCDAY SORT+2*, PRINT1+25*, PRINT1+27, SUM+5, SUMC+3, SUMC+4, FILSUM+5, FILSUMC+3, FILSUMC+4
>> BMCRCTOT SORT+2*, PRINT+5*, SUMC+2, FILSUMC+2
>> BMCREC DETAIL+6*, DETAIL+7, DETAIL+8, DETAIL+11*, DETAIL+12
>> BMCREF PRINT+2*, PRINT+3*, PRINT+4, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+10, PRINT1+11
>> BMCRPO SORT+2*, PRINT1+26*, PRINT1+27, SUM+4, SUMN+4, FILSUM+4, FILSUMN+4
>> BMCRPT SUM+1, SUM+2, SUMC+5, FILSUM+1, FILSUM+2, FILSUMC+5
>> BMCRRDAY SORT+2*, PRINT1+25*, PRINT1+27, SUM+5, SUMN+3, SUMN+4, FILSUM+5, FILSUMN+3, FILSUMN+4
>> BMCRREC PRINT+4*
>> BMCRRTOT SORT+2*, PRINT+6*, SUMN+2, FILSUMN+2
>> BMCRTOT SORT+2*, PRINT+7*, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+21
, PRINT1+24, SUM+3, FILSUM+3
>> BMCRTYP START+4, SORT+5, SORT+6*, HEAD2+7
>> BMCSORT SORT+1*, SORT+3*, PRINT+3, PRINT+5, PRINT+6, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, PRINT1+17
, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+24, PRINT1+25, PRINT1+26, DETAIL+2*, DETAIL+3, DETAIL+4, DETAIL+5
, DETAIL+6, DETAIL+10, DETAIL+11
>> BMCSRTH START+3*, DETAIL+3*, DETAIL+4, HEAD3+4
>> BMCTAVG SORT+2*, PRINT1+27*, SUM+6, FILSUM+6
>> BMCTST DETAIL+1*, DETAIL+4*
>> DFN PRINT+4*
DIR DETAIL+14!, HEAD+1!
DIR(0 DETAIL+14*, HEAD+1*
DT FILSAV+4
>> DTOUT DETAIL+14, HEAD+1
DUZ(2 SORT+3, PRINT+3, PRINT1+12, PRINT1+13, PRINT1+15, PRINT1+20, CHSFAC+1, HEAD2+3, FILHDR+3, FILSAV+7
, FILSAV+11
IO DETAIL+14, HEAD+1
IO(0 DETAIL+14, HEAD+1
IOF HEAD1+1
IOSL SORT+7, DETAIL+9, DETAIL+13
IOST START+4, DETAIL+14, HEAD+1
>> L PRINT1+9*, PRINT1+10*, PRINT1+11
U PRINT+4, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+6, PRINT1+11, PRINT1+12, PRINT1+13, PRINT1+16, PRINT1+19
, PRINT1+20, PRINT1+23, DETAIL+7, DETAIL+8, DETAIL+12, CHSFAC+1, HEAD2+3, FILHDR+3, FILSAV+7, FILSAV+11
, FILSAV+12
>> X PRINT1+24, PRINT1+25, FILSAV+4*, FILSAV+5*, FILSAV+6*, FILSAV+8
>> X1 PRINT1+20*, FILSAV+7*, FILSAV+8
>> X2 PRINT1+23*
XBE FILSAV+3~, FILSAV+7*
XBF FILSAV+3~, FILSAV+14*
XBFLT FILSAV+3~, FILSAV+9*
XBFN FILSAV+3~, FILSAV+8*
XBGL FILSAV+3~, FILSAV+14*
XBIO FILSAV+3~, FILSAV+14*
XBJ FILSAV+3~
XBMED FILSAV+3~, FILSAV+9*
XBQ FILSAV+3~, FILSAV+10*
XBS1 FILSAV+3~, FILSAV+13*
XBUF FILSAV+3~, FILSAV+11*, FILSAV+12*
>> Y PRINT1+2*, PRINT1+3, PRINT1+4*, PRINT1+5, PRINT1+6*, PRINT1+7, PRINT1+16*, PRINT1+18, PRINT1+20*, PRINT1+21
, DETAIL+14, HEAD+1, HEAD2+5*, HEAD2+6*, FILHDR+5*, FILHDR+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All