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

Package: Health Summary Components

Routine: BHSBCH


Information

BHSBCH ;IHS/CIA/MGH - Health Summary for CHR component ;17-Mar-2006 10:36;MGH

Source Information

Source file <BHSBCH.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Summary 2 REGDT4^GMTSU  CKP^GMTSUP  
IHS VA Utilities 2 $$VAL^XBDIQ1  $$EXTSET^XBFUNC  
Health Summary Components 1 PRTTXT^BHSUTL  
IHS RPMS CHR System 1 $$PPINI^BCHUTIL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary Components 1 BHSHS2  

Entry Points

Name Comments DBIA/ICR reference
NOPOV ;
ONEDATE
CHR ;EP called from health summary
COMMON ;
OUTPTX
GETSITE ;
DSPVIS ;
OUTPT ; ********** CHR PROBLEM CODES AND DESIGNATED PROVIDER
; <SETUP>
HASPOV ;

External References

Name Field # of Occurrence
$$PPINI^BCHUTIL COMMON+3
PRTTXT^BHSUTL COMMON+3, COMMON+4
REGDT4^GMTSU ONEDATE
CKP^GMTSUP CHR+1, OUTPT+2, DSPVIS+9, COMMON+1
$$VAL^XBDIQ1 DSPVIS+8
$$EXTSET^XBFUNC DSPVIS+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No CHR Records on File.",!
  • Line Location: OUTPT+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C=1
  • Line Location: DSPVIS+7
Function Call: WRITE
  • Prompt: ?J,$P(X(I),U)," ",$P(X(I),U,2)
  • Line Location: DSPVIS+7
Function Call: WRITE
  • Prompt: BCHSDAT
  • Line Location: DSPVIS+10
Function Call: WRITE
  • Prompt: !?25,"Evaluation: ",$$EXTSET^XBFUNC(90002,.09,$P(BCHSN,U,9)),!
  • Line Location: DSPVIS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPVIS+15
Function Call: WRITE
  • Prompt: ?25,"Referred BY: ",$E($S($P(BCHSN,U,7)]"":$P(^BCHTREF($P(BCHSN,U,7),0),U),1:""),1,11)
  • Line Location: DSPVIS+16
Function Call: WRITE
  • Prompt: ?50,"Referred TO: ",$E($S($P(BCHSN,U,8):$P(^BCHTREF($P(BCHSN,U,8),0),U),1:""),1,12),!
  • Line Location: DSPVIS+17
Function Call: WRITE
  • Prompt: BCHSDAT
  • Line Location: COMMON+2
Function Call: WRITE
  • Prompt: ?9,BCHSFAC,?20,$$PPINI^BCHUTIL(BCHSVDF)
  • Line Location: COMMON+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTNPOV - [#9999999.27] HASPOV+3
^AUTTLOC - [#9999999.06] GETSITE+2
^BCHR - [#90002] ONEDATE+2, DSPVIS+6
^BCHR("AE" OUTPT+2, OUTPT+5, ONEDATE+1
^BCHRPROB - [#90002.01] DSPVIS+4
^BCHRPROB("AD" DSPVIS+3, DSPVIS+4
^BCHTACTL - [#90002.56] GETSITE+1
^BCHTPROB - [#90002.53] HASPOV+1
^BCHTREF - [#90002.52] DSPVIS+16, DSPVIS+17
^BCHTSERV - [#90002.54] HASPOV+2
^DD(90002 DSPVIS+11

Label References

Name Line Occurrences
COMMON NOPOV+2, HASPOV+4
DSPVIS ONEDATE+2
GETSITE ONEDATE+2
HASPOV DSPVIS+4
NOPOV DSPVIS+3
ONEDATE OUTPT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BCHACTL OUTPTX!, GETSITE+1*, GETSITE+3
BCHF DSPVIS+8~*, DSPVIS+11
BCHS OUTPTX!
BCHSCLI OUTPTX!
BCHSDAT OUTPT+6, OUTPTX!, ONEDATE*, DSPVIS+10, COMMON+2
BCHSDTU OUTPT+6, OUTPTX!, ONEDATE*, DSPVIS+2*
BCHSFAC OUTPTX!, OUTPTX+1!, GETSITE+2*, GETSITE+3*, COMMON+3
BCHSICD OUTPTX!, NOPOV+1*, HASPOV+1*, HASPOV+2*, COMMON+3
BCHSICL OUTPTX!
BCHSIVD OUTPT+5*, OUTPTX!, ONEDATE, ONEDATE+1
BCHSMTX OUTPTX!
BCHSN OUTPTX!, ONEDATE+2*, GETSITE+1, GETSITE+2, DSPVIS+13, DSPVIS+15, DSPVIS+16, DSPVIS+17
BCHSNAB OUTPTX+1!
BCHSNDT OUTPTX!, ONEDATE*, DSPVIS+9*, DSPVIS+10*, COMMON+1*, COMMON+2*
BCHSNFL OUTPTX+1!
BCHSNRQ OUTPTX!, HASPOV+3*, COMMON+4
BCHSNSH OUTPTX+1!
BCHSOVT OUTPTX!
BCHSPDN OUTPTX!, DSPVIS+4*
BCHSPFN OUTPTX!, ONEDATE*, DSPVIS+10*, COMMON+2*
BCHSPVD OUTPT+4*, OUTPT+6*, OUTPTX!, ONEDATE
BCHSQ OUTPTX!, ONEDATE+1*, DSPVIS+4*
BCHSR OUTPTX!, DSPVIS+4*, HASPOV+1, HASPOV+2, HASPOV+3
BCHSVDF OUTPTX!, ONEDATE+1*, ONEDATE+2, DSPVIS+3, DSPVIS+4, DSPVIS+6, DSPVIS+8, COMMON+3
BCHSVSC OUTPTX+1!
BCHSX OUTPTX!
BCHX OUTPTX!, DSPVIS+8*, DSPVIS+11
BHSICL OUTPTX+1!, COMMON+3*, COMMON+4*
BHSNRQ OUTPTX+1!, NOPOV+1*, COMMON+3*, COMMON+4*
>> BHSPAT OUTPT+2, OUTPT+5, ONEDATE+1
BHSTXT OUTPTX+1!, NOPOV+1*, HASPOV+3*, COMMON+4*
C DSPVIS+1~, DSPVIS+6*, DSPVIS+7*
D0 OUTPTX+1!
>> GMTSDLM OUTPT+5
>> GMTSNDM OUTPT+6*
>> GMTSNPG DSPVIS+9, COMMON+1
>> GMTSQIT CHR+1, OUTPT+2, OUTPT+6, ONEDATE+2, DSPVIS+9, COMMON+1
I OUTPTX+1!, DSPVIS+6*, DSPVIS+7*
J OUTPTX+1!, DSPVIS+7*
U GETSITE+1, GETSITE+2, DSPVIS+6, DSPVIS+7, DSPVIS+11, DSPVIS+13, DSPVIS+15, DSPVIS+16, DSPVIS+17, HASPOV+1
, HASPOV+2, HASPOV+3
X ONEDATE*, DSPVIS+1~, DSPVIS+7
X( DSPVIS+6*, DSPVIS+7
Y OUTPTX+1!, DSPVIS+1~, DSPVIS+6*
Z DSPVIS+1~, DSPVIS+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All