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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BMCFYP

Package: Referred Care Information System

Routine: BMCFYP


Information

BMCFYP ; IHS/PHXAO/TMJ - Print Routine for FY PO Cost Analysis ;

Source Information

Source file <BMCFYP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Referred Care Information System 2 DONE^BMCOSUT  PAUSE^BMCRL01  
DRG Grouper 1 $$ICDDX^ICDCODE  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
COUNT ;if COUNTING entries only
PEXIT
SHOW ;
COVPAGE ;EP
PAPC
FF
PRINT
SETDASH(BMCG) ;
PPOV

External References

Name Field # of Occurrence
DONE^BMCOSUT PEXIT
PAUSE^BMCRL01 SHOW+6, COUNT+1, COUNT+5
^DIR PPOV, FF+1
$$ICDDX^ICDCODE PPOV+10, PPOV+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF DIAGNOSES REPORT **********"
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"The following report contains a ",$S(BMCPTVS="R":"PCC Visit",1:"Patient")," report based on the",!,"following criteria:",!
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !,$S(BMCPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!?5,"ALL VISITS IN DATE RANGE SELECTED."
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: " ; "
  • Condition for execution: C'=1&(BMCY'="")
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: X
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: !!?5,"ALL (Primary and Secondary) POV's included.",!
  • Line Location: COUNT+2
Function Call: WRITE
  • Prompt: !!?5,"PRIMARY POV's Only",!
  • Line Location: COUNT+3
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF DIAGNOSES REPORT **********"
  • Line Location: COUNT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PPOV+0
Function Call: WRITE
  • Prompt: !!,"No. VISITs: ",BMCRTOT,?20,"No. POVs: ",BMCTOT,?40,"POV/VISIT ratio: ",$S(BMCRTOT>0:$J((BMCTOT/BMCRTOT),1,2),1:0)," (min. std. > 1.6)"
  • Line Location: PPOV+2
Function Call: WRITE
  • Prompt: !!!,"TOP ",BMCLNO," POV's =>",!
  • Line Location: PPOV+3
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P(^ICD9(BMCPOV,0),U),?15,$P(^ICD9(BMCPOV,0),U,3)," (",@A,")"
  • Line Location: PPOV+9
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P($$ICDDX^ICDCODE(BMCPOV,0),U,2),?15,$P($$ICDDX^ICDCODE(BMCPOV,0),U,4)," (",@A,")"
  • Line Location: PPOV+10
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PPOV+11
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PPOV+12
Function Call: WRITE
  • Prompt: ?J,"|_________"
  • Line Location: PPOV+18
Function Call: WRITE
  • Prompt: ?J,BMCDASH*10*X
  • Line Location: PPOV+20
Function Call: WRITE
  • Prompt: !!,"TOP ",BMCLNO," DIAGNOSTIC CATEGORIES =>",!
  • Line Location: PAPC+0
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P(^ICM(BMCAPC,0),U)," (",@B,")"
  • Line Location: PAPC+5
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PAPC+6
Function Call: WRITE
  • Prompt: ?J,"|_________"
  • Line Location: PAPC+11
Function Call: WRITE
  • Prompt: ?J,BMCDASH*10*X
  • Line Location: PAPC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Routine Call
  • DIR
  • Line Location:
    • PPOV
    • FF+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCRTMP - [#90001.82] SHOW+4, SHOW+5, SHOW+8
^BMCTSORT - [#90001.81] SHOW+7, SHOW+8
^DIBT( SHOW+3
^ICM - [#80.3] PAPC+5, PAPC+6
^VA(200 - [#200] COVPAGE+3

Label References

Name Line Occurrences
COUNT SHOW+4
FF PPOV+6, PPOV+16, PPOV+22, PAPC+4, PAPC+9
PEXIT PPOV+15, PPOV+16, PPOV+22, PAPC+9
SETDASH PPOV+7, PAPC+3

Naked Globals

Name Field # of Occurrence
^(2 SHOW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PPOV+1*, PPOV+12*, PAPC+6*, SETDASH+3*
>> A PPOV+1*, PPOV+7, PPOV+10, PPOV+12, PPOV+13
>> B PPOV+1*, PAPC+3, PAPC+5, PAPC+6, PAPC+7
>> BMCALL COUNT+2
>> BMCAPC PAPC+2*, PAPC+5, PAPC+6
>> BMCBDD SHOW+2
>> BMCCHRT PPOV+7, PPOV+10, PPOV+17, PAPC+3, PAPC+5, PAPC+10
>> BMCDASH PPOV+12, PPOV+20, PPOV+21, PAPC+6, PAPC+13, PAPC+14, SETDASH+5*
>> BMCEDD SHOW+2
BMCG SETDASH~, SETDASH+2
>> BMCI SHOW+5*, SHOW+7, SHOW+8
>> BMCLNO PPOV+3, PAPC
>> BMCPOV PPOV+5*, PPOV+10, PPOV+12
>> BMCPRIM COUNT+3
>> BMCPTVS COVPAGE+4, SHOW+1, COUNT+4
BMCQ SHOW+8!, SHOW+9!
BMCQUIT COUNT+7!, PPOV*, PPOV+4, PPOV+6, PPOV+15, PPOV+16, PPOV+22, PAPC+1, PAPC+4, PAPC+9
, FF+1*
>> BMCRPT SHOW+4, SHOW+5, SHOW+8
>> BMCRTOT COUNT+4, PPOV+2
>> BMCSEAT SHOW+3
>> BMCTOT PPOV+2
>> BMCTYPE SHOW+2, SHOW+3
>> BMCY SHOW+8*
>> C SHOW+8*, PPOV+1*
D PPOV+12*, PAPC+6*, SETDASH+1~
DIR PPOV!, FF+1!
DIR(0 PPOV*, FF+1*
>> DTOUT PPOV, FF+1
DUZ COVPAGE+3
>> E PPOV+1*
F PPOV+1*, PPOV+4, PPOV+5, SETDASH+1~, SETDASH+3*
>> G PPOV+1*, PAPC+1, PAPC+2
>> I PPOV+4*, PPOV+5, PPOV+7, PPOV+10, PAPC+1*, PAPC+2, PAPC+3, PAPC+5
IO PPOV, FF+1
IO(0 PPOV, FF+1
IOF PRINT, COVPAGE+1, SHOW+6, COUNT+1, COUNT+6, FF, FF+2
IOSL SHOW+6, COUNT+1, PPOV, PPOV+6, PPOV+16, PPOV+22, PAPC+4, PAPC+9
IOST PPOV, FF, FF+1
>> J PPOV+4*, PPOV+18*, PPOV+20*, PAPC+11*, PAPC+13*
L PPOV+12*, PAPC+6*, SETDASH+1~, SETDASH+2*, SETDASH+3*, SETDASH+4*, SETDASH+5
M SETDASH+1~, SETDASH+3*
U COVPAGE+3, SHOW+3, SHOW+7, PPOV+10, PPOV+12, PAPC+5, PAPC+6
>> X SHOW+8*, PPOV+18*, PPOV+20*, PAPC+11*, PAPC+13*, FF+1*
>> Y PPOV, FF+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All