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

Package: Health Summary Components

Routine: BHSBH


Information

BHSBH ;IHS/CIA/MGH - Health Summary for Behavioral Health ;27-Aug-2014 14:15;DU

Source Information

Source file <BHSBH.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Summary 2 REGDT4^GMTSU  CKP^GMTSUP  
Health Summary Components 2 PROB^BHSBH1  PRTTXT^BHSUTL  
IHS Standard Terminology 1 $$DESC^BSTSAPI  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Mental Health Social Services 1 $$PPINI^AMHUTIL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary Components 1 BHSHS2  

Entry Points

Name Comments DBIA/ICR reference
CASE ;output last 3 cases
DSPVIS ;
AXV ;trend and display last 7 AXIS V values
NOPOV ;
CASEOUT ;display last 3 cases found
ONEDATE
MH ;EP called from health summary
COMMON ;
OUTPTX
GETSITE ;
PTED ;display all pt ed (last of each)
OUTPT ; ********** MH PROBLEM CODES AND DESIGNATED PROVIDER
; <SETUP>
DATE(D) ;
HASPOV ;

External References

Name Field # of Occurrence
$$PPINI^AMHUTIL COMMON+3
PROB^BHSBH1 CASEOUT+28
PRTTXT^BHSUTL HASPOV+18, COMMON+3
$$DESC^BSTSAPI HASPOV+15
REGDT4^GMTSU MH+21, ONEDATE
CKP^GMTSUP MH+2, MH+4, MH+6, MH+8, MH+10, MH+12, MH+14, MH+16, MH+19, CASEOUT+2
, CASEOUT+6, CASEOUT+9, CASEOUT+12, CASEOUT+15, CASEOUT+18, CASEOUT+21, CASEOUT+24, AXV+9, OUTPT+2, OUTPT+3
, PTED+2, PTED+8, DSPVIS+4, DSPVIS+8, DSPVIS+13, HASPOV+19, COMMON+1
$$VAL^XBDIQ1 CASEOUT+14, CASEOUT+17, CASEOUT+23, CASEOUT+26, PTED+9, DSPVIS+14
$$FMTE^XLFDT CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+20, PTED+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?23,"Patient Flag: ",?38,$P(^AMHPATR(BHSPAT,0),U,9),!
  • Line Location: MH+3
Function Call: WRITE
  • Prompt: ?21,"Flag Narrative: ",?38,$P(^AMHPATR(BHSPAT,0),U,11),!
  • Line Location: MH+5
Function Call: WRITE
  • Prompt: ?2,"Designated Mental Health Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,2),0),U),!
  • Line Location: MH+7
Function Call: WRITE
  • Prompt: "Designated Social Services Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,3),0),U),!
  • Line Location: MH+9
Function Call: WRITE
  • Prompt: ?10,"CD Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,4),0),U),!
  • Line Location: MH+11
Function Call: WRITE
  • Prompt: ?10,"Other Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,12),0),U),!
  • Line Location: MH+13
Function Call: WRITE
  • Prompt: ?10,"Other (2) Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,13),0),U),!
  • Line Location: MH+15
Function Call: WRITE
  • Prompt: !,"** Personal History of:",!
  • Line Location: MH+19
Function Call: WRITE
  • Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U),"2E")
  • Line Location: CASEOUT+5
Function Call: WRITE
  • Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U,4),"2E")
  • Line Location: CASEOUT+8
Function Call: WRITE
  • Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U,5),"2E")
  • Line Location: CASEOUT+11
Function Call: WRITE
  • Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.03)
  • Line Location: CASEOUT+14
Function Call: WRITE
  • Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.06)
  • Line Location: CASEOUT+17
Function Call: WRITE
  • Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U,12),"2E")
  • Line Location: CASEOUT+20
Function Call: WRITE
  • Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.08)
  • Line Location: CASEOUT+23
Function Call: WRITE
  • Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.09)
  • Line Location: CASEOUT+26
Function Call: WRITE
  • Prompt: ?AMHJ,$$DATE($P(AMHAX5(AMHCNT),U))
  • Line Location: AXV+11
Function Call: WRITE
  • Prompt: ?AMHJ,$P(AMHAX5(AMHCNT),U,2)
  • Line Location: AXV+12
Function Call: WRITE
  • Prompt: !,AMHS,X,AMHS,!!
  • Line Location: OUTPT+2
Function Call: WRITE
  • Prompt: !,"No Behavioral Health Records on File.",!
  • Line Location: OUTPT+3
Function Call: WRITE
  • Prompt: !,AMHS,X,AMHS,!!
  • Line Location: PTED+2
Function Call: WRITE
  • Prompt: ?25,"Axis IV (Stress): ",$P(^AMHTAXIV($P(AMHSN,U,13),0),U,2)," - ",$P(^AMHTAXIV($P(AMHSN,U,13),0),U)
  • Line Location: DSPVIS+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $P(AMHSN,U,14)=""
  • Line Location: DSPVIS+5
Function Call: WRITE
  • Prompt: ?35,$P(^AMHTAXIV(I,0),U)_" - "_$P(^AMHTAXIV(I,0),U,2),!
  • Line Location: DSPVIS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPVIS+10
Function Call: WRITE
  • Prompt: ?27,"Inpatient Disp: ",$$VAL^XBDIQ1(9002011,AMHSVDF,.17),!?27,"Referred To: ",$P(AMHSN,U,18),!
  • Line Location: DSPVIS+14
Function Call: WRITE
  • Prompt: AMHSDAT
  • Line Location: COMMON+2
Function Call: WRITE
  • Prompt: ?9,AMHSFAC,?18,$$PPINI^AMHUTIL(AMHSVDF),?22,AMHTOC
  • Line Location: COMMON+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATR - [#9002011.55] MH+3, MH+5, MH+7, MH+9, MH+11, MH+13, MH+15
^AMHPCASE - [#9002011.58] CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26
^AMHPCASE("AA" CASE+1, CASE+2
^AMHPPHX - [#9002011.52] MH+21, MH+22
^AMHPPHX("AC" MH+18, MH+20
^AMHPROB - [#9002012.2] HASPOV+6, HASPOV+7
^AMHREC - [#9002011] AXV+4, AXV+5, PTED+4, ONEDATE+1, DSPVIS+7, DSPVIS+9, DSPVIS+10, DSPVIS+11
^AMHREC("AE" AXV+2, AXV+3, OUTPT+3, OUTPT+6, ONEDATE+1
^AMHREDU - [#9002011.05] PTED+4
^AMHREDU("AC" PTED+1, PTED+3
^AMHRPRO - [#9002011.01] DSPVIS+3
^AMHRPRO("AD" DSPVIS+2, DSPVIS+3
^AMHTAXIV - [#9002012.9] DSPVIS+9
^AMHTPHF - [#9002012.7] MH+22
^AMHTSET - [#9002012.1] GETSITE+3
^AUTNPOV - [#9999999.27] HASPOV+11
^AUTTEDT - [#9999999.09] PTED+9
^AUTTLOC - [#9999999.06] GETSITE+1
^DIC(4 - [#4] GETSITE+2
^VA(200 - [#200] MH+7, MH+9, MH+11, MH+13, MH+15

Label References

Name Line Occurrences
$$DATE AXV+11
COMMON NOPOV+2, HASPOV+10
DSPVIS ONEDATE+1
GETSITE ONEDATE+1
HASPOV DSPVIS+3
NOPOV DSPVIS+2
ONEDATE OUTPT+6
OUTPTX PTED+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHAX5 AXV+1!, AXV+8, OUTPTX!
AMHAX5( AXV+5*, AXV+11, AXV+12
AMHCNT AXV+1*, AXV+2, AXV+5*, AXV+11*, AXV+12*, OUTPTX!
AMHIVD OUTPTX!
AMHJ AXV+11*, AXV+12*, OUTPTX!
AMHL CASE+1!, CASE+2*, CASE+4, CASEOUT+27!, OUTPTX!
AMHL( CASE+4*, CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26
AMHL(1 CASEOUT+1
AMHPATH MH+1~
AMHS OUTPT+2*, PTED+2*, OUTPTX!, OUTPTX+1!
AMHSCLI OUTPTX+1!
AMHSD PTED+5!, PTED+6*, PTED+7, PTED+9, OUTPTX!
AMHSD( PTED+5*, PTED+6, PTED+7, PTED+9
AMHSDAT MH+21*, MH+22, OUTPT+6, OUTPTX!, OUTPTX+1!, ONEDATE*, COMMON+2
AMHSDTU OUTPT+6, OUTPTX!, OUTPTX+1!, ONEDATE*, DSPVIS+1*
AMHSFAC OUTPTX+1!, OUTPTX+2!, GETSITE+1*, GETSITE+2*, COMMON+3
AMHSICD OUTPTX+1!, NOPOV+1*, HASPOV+7*, HASPOV+9
AMHSICL OUTPTX+1!
AMHSIVD AXV+2*, AXV+3, AXV+5, OUTPT+6*, OUTPTX!, OUTPTX+1!, ONEDATE, ONEDATE+1
AMHSMTX OUTPTX+1!
AMHSN PTED+3!, OUTPTX!, OUTPTX+1!, ONEDATE+1*, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+14
AMHSN( PTED+4*, PTED+5
AMHSNAB OUTPTX+2!
AMHSNDT OUTPTX+1!, ONEDATE*, COMMON+1*, COMMON+2*
AMHSNFL OUTPTX+2!
AMHSNSH OUTPTX+2!
AMHSOVT OUTPTX+1!
AMHSPDN OUTPTX+1!, DSPVIS+3*
AMHSPFN OUTPTX+1!, ONEDATE*, COMMON+2*
AMHSPVD OUTPT+5*, OUTPT+6*, OUTPTX!, OUTPTX+1!, ONEDATE
AMHSQ OUTPTX+1!, ONEDATE+1*, DSPVIS+3*
AMHSR OUTPTX+1!, DSPVIS+3*, HASPOV+2, HASPOV+11, HASPOV+18
AMHSVDF OUTPTX+1!, ONEDATE+1*, DSPVIS+2, DSPVIS+3, DSPVIS+7, DSPVIS+9, DSPVIS+10, DSPVIS+11, DSPVIS+14, COMMON+3
AMHSVSC OUTPTX+2!
AMHSX MH+20*, MH+21, MH+22, MH+24!, AXV+3*, AXV+4, AXV+5, PTED+3*, PTED+4, PTED+7*
, PTED+9, OUTPTX!, OUTPTX+1!
AMHTOC OUTPTX+1!, GETSITE+3*, COMMON+3
BHSICL OUTPTX+2!, HASPOV+9*, HASPOV+18*, COMMON+3*
BHSNRQ OUTPTX+2!, NOPOV+1*, HASPOV+6*, HASPOV+8*, HASPOV+9*, HASPOV+18*
>> BHSPAT MH+3, MH+5, MH+7, MH+9, MH+11, MH+13, MH+15, MH+18, MH+20, CASE+1
, CASE+2, AXV+2, AXV+3, OUTPT+3, OUTPT+6, PTED+1, PTED+3, ONEDATE+1
BHSTXT OUTPTX+2!, NOPOV+1*, HASPOV+9*, HASPOV+18*
C CASE+1*, CASE+2, CASE+3*, CASE+4, CASEOUT+27!
CHK HASPOV+1~, HASPOV+11*, HASPOV+13, HASPOV+14, HASPOV+16*, HASPOV+17*, HASPOV+18
CODE HASPOV+1~, HASPOV+2*, HASPOV+3, HASPOV+5
CODEIEN HASPOV+1~, HASPOV+5*, HASPOV+6, HASPOV+7
D CASE+1*, CASE+2, CASEOUT+27!, DATE~, DATE+1, DATE+2
DESCT HASPOV+1~, HASPOV+15*, HASPOV+16
FIRST HASPOV+1~, HASPOV+14*, HASPOV+17
>> GMTSDLM OUTPT+6
>> GMTSNDM OUTPT+6*
>> GMTSNPG COMMON+1
>> GMTSQIT MH+2, MH+4, MH+6, MH+8, MH+10, MH+12, MH+14, MH+16, MH+19, CASEOUT+2
, CASEOUT+6, CASEOUT+9, CASEOUT+12, CASEOUT+15, CASEOUT+18, CASEOUT+21, CASEOUT+24, AXV+2, AXV+8, AXV+9
, OUTPT+2, OUTPT+3, OUTPT+6, PTED+2, PTED+3, PTED+6, PTED+7, PTED+8, ONEDATE+1, DSPVIS+4
, DSPVIS+7, DSPVIS+8, DSPVIS+13, HASPOV+19, COMMON+1
I CASEOUT+5*, CASEOUT+8*, CASEOUT+11*, CASEOUT+14*, CASEOUT+17*, CASEOUT+20*, CASEOUT+23*, CASEOUT+26*, OUTPTX+2!, DSPVIS+9*
IOM OUTPT+2, PTED+2
J CASEOUT+5*, CASEOUT+8*, CASEOUT+11*, CASEOUT+14*, CASEOUT+17*, CASEOUT+20*, CASEOUT+23*, CASEOUT+26*, OUTPTX+2!
K CASEOUT+3*, CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, CASEOUT+27!
L CASEOUT+27!
SEC HASPOV+1~, HASPOV+14*, HASPOV+15
U MH+3, MH+5, MH+7, MH+9, MH+11, MH+13, MH+15, MH+21, MH+22, CASEOUT+5
, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, AXV+4, AXV+5, AXV+11
, AXV+12, PTED+4, PTED+5, PTED+9, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+7, DSPVIS+9, DSPVIS+11
, DSPVIS+14, HASPOV+2, HASPOV+6, HASPOV+7, HASPOV+11, HASPOV+16, HASPOV+18
X MH+21*, OUTPT+2*, PTED+2*, PTED+4*, PTED+5*, OUTPTX+2!, ONEDATE*, HASPOV+8*
Y PTED+4*, PTED+5*, OUTPTX+2!, OUTPTX+3!, DSPVIS+9*, HASPOV+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All