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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHHS

Package: Mental Health Social Services

Routine: AMHHS


Information

AMHHS ; IHS/CMI/LAB - BH HEALTH SUMMARY COMPONENT 03 Jun 2009 12:08 PM ;

Source Information

Source file <AMHHS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Mental Health Social Services 3 PROB^AMHHS1  $$ALLOWCD^AMHLCD  ($$ALLOWVI,$$PPINI)^AMHUTIL  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component 1 PRTTXT^APCHSUTL  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCHS9  

Entry Points

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

External References

Name Field # of Occurrence
PROB^AMHHS1 CASEOUT+28
$$ALLOWCD^AMHLCD CASE+3
$$ALLOWVI^AMHUTIL AXV+5, PTED+4, HF+4, IPV+4, ONEDATE+1
$$PPINI^AMHUTIL COMMON+3
PRTTXT^APCHSUTL HASPOV+6, COMMON+3
$$GET1^DIQ HASPOV+6
$$VAL^XBDIQ1 CASEOUT+14, CASEOUT+17, CASEOUT+23, CASEOUT+26, PTED+9, PTED+11, PTED+12, PTED+13, HF+10, IPV+7
, IPV+8, IPV+9, IPV+10, DSPVIS+11, DSPVIS+14
$$FMTE^XLFDT CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+20, PTED+9, HF+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?23,"Patient Flag: ",?38,$P(^AMHPATR(APCHSPAT,0),U,9),!
  • Line Location: MH+3
Function Call: WRITE
  • Prompt: ?21,"Flag Narrative: ",?38,$P(^AMHPATR(APCHSPAT,0),U,11),!
  • Line Location: MH+5
Function Call: WRITE
  • Prompt: ?2,"Designated Mental Health Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,2),0),U),!
  • Line Location: MH+7
Function Call: WRITE
  • Prompt: "Designated Social Services Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,3),0),U),!
  • Line Location: MH+9
Function Call: WRITE
  • Prompt: ?10,"CD Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,4),0),U),!
  • Line Location: MH+11
Function Call: WRITE
  • Prompt: ?10,"Other Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,12),0),U),!
  • Line Location: MH+13
Function Call: WRITE
  • Prompt: ?10,"Other (2) Designated Provider: ",?38,$P(^AMHPATR(APCHSPAT,0),U,13),!
  • 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+12
Function Call: WRITE
  • Prompt: ?AMHJ,$P(AMHAX5(AMHCNT),U,2)
  • Line Location: AXV+13
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: !?3,"Goal: ",$$VAL^XBDIQ1(9002011.05,AMHSD(AMHSD,AMHSX),.09)
  • Line Location: PTED+12
Function Call: WRITE
  • Prompt: !?3,"Status: ",$$VAL^XBDIQ1(9002011.05,AMHSD(AMHSD,AMHSX),.11)
  • Line Location: PTED+13
Function Call: WRITE
  • Prompt: !?3,"Comment: ",$P(^AMHREDU(AMHSD(AMHSD,AMHSX),11),U)
  • Line Location: PTED+14
Function Call: WRITE
  • Prompt: !!,AMHS,X,AMHS,!
  • Line Location: HF+2
Function Call: WRITE
  • Prompt: !?3,"Level/Severity: ",$P(^AMHRHF(AMHSD(AMHSD,AMHSX),0),U,4)
  • Line Location: HF+11
Function Call: WRITE
  • Prompt: !!,AMHS,X,AMHS,!
  • Line Location: IPV+1
Function Call: WRITE
  • Prompt: !,"IPV/DV SCREENING",?24,$$D((9999999-$P(AMHSIVD,"."))),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1402),1,15)
  • Line Location: IPV+7
Function Call: WRITE
  • Prompt: !,"ALCOHOL SCREENING",?24,$$D((9999999-$P(AMHSIVD,"."))),?33,$$VAL^XBDIQ1(9002011,AMHSX,1403),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1404),1,15)
  • Line Location: IPV+8
Function Call: WRITE
  • Prompt: !,"DEPRESSION SCREENING ",?24,$$D((9999999-$P(AMHSIVD,"."))),?33,$$VAL^XBDIQ1(9002011,AMHSX,1405),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1406),1,15)
  • Line Location: IPV+9
Function Call: WRITE
  • Prompt: !,"SUICIDE RISK ASSESSMENT",?24,$$D((9999999-$P(AMHSIVD,"."))),?33,$$VAL^XBDIQ1(9002011,AMHSX,1407),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1408),1,15)
  • Line Location: IPV+10
Function Call: WRITE
  • Prompt: !?3,$P(^AMHREC(AMHSX,15),U)
  • Line Location: IPV+11
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
Function Call: WRITE
  • Prompt: !!,AMHS,X,AMHS,!
  • Line Location: MEAS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MEASDTYP+3
Function Call: WRITE
  • Prompt: APCHSMT2
  • Condition for execution: APCHSNPG!(APCHSMT3]"")
  • Line Location: MEASDSP+0
Function Call: WRITE
  • Prompt: ?5,APCHSDAT,?18,$P(^AMHRMSR(APCHSDFN,0),U,4),!
  • Line Location: MEASDSP+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHRPRO - [#9002011.01] GET1^DIQ

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+1, HASPOV+2
^AMHREC - [#9002011] AXV+4, AXV+6, PTED+4, HF+4, IPV+7, IPV+8, IPV+9, IPV+10, ONEDATE+1, DSPVIS+7
, DSPVIS+9, DSPVIS+10, DSPVIS+11
^AMHREC("AE" AXV+2, AXV+3, OUTPT+3, OUTPT+6, IPV+2, IPV+3, ONEDATE+1
^AMHREDU - [#9002011.05] PTED+4, PTED+11, PTED+12, PTED+13, PTED+14
^AMHREDU("AC" PTED+1, PTED+3
^AMHRHF - [#9002011.08] HF+4, HF+11
^AMHRHF("AC" HF+1, HF+3
^AMHRMSR - [#9002011.12] MEASDSP
^AMHRMSR("AA" MEAS+2, MEAS+5, MEASDTYP+2, MEASDSP
^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
^AUTTEDT - [#9999999.09] PTED+9
^AUTTHF - [#9999999.64] HF+9
^AUTTLOC - [#9999999.06] GETSITE+1
^AUTTMSR - [#9999999.07] MEASDTYP+1
^DIC(4 - [#4] GETSITE+2
^VA(200 - [#200] MH+7, MH+9, MH+11, MH+13

Label References

Name Line Occurrences
$$D IPV+7, IPV+8, IPV+9, IPV+10
$$DATE AXV+12
COMMON NOPOV+2, HASPOV+5
DSPVIS ONEDATE+1
GETSITE ONEDATE+1
HASPOV DSPVIS+3
HF PTED+1
IPV HF+1
MEAS MEASBH+1
MEASDSP MEASDTYP+2
MEASDTYP MEAS+5
NOPOV DSPVIS+2
ONEDATE OUTPT+6

Naked Globals

Name Field # of Occurrence
^(0 MEASDTYP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHAX5 AXV+1!, AXV+9, OUTPTX!
AMHAX5( AXV+6*, AXV+12, AXV+13
AMHCNT AXV+1*, AXV+2, AXV+6*, AXV+12*, AXV+13*, OUTPTX!
AMHIVD OUTPTX!
AMHJ AXV+12*, AXV+13*, OUTPTX!
AMHL CASE+1!, CASE+2*, CASE+3, CASE+5, CASEOUT+27!, OUTPTX!
AMHL( CASE+5*, 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*, HF+2*, IPV+1*, OUTPTX!, OUTPTX+1!, MEAS+4*
AMHSCLI OUTPTX+1!
AMHSD PTED+5!, PTED+6*, PTED+7, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+5!, HF+6*
, HF+7, HF+9, HF+10, HF+11, OUTPTX!
AMHSD( PTED+5*, PTED+6, PTED+7, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+5*, HF+6
, HF+7, HF+10, HF+11
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+2*, HASPOV+4
AMHSICL OUTPTX+1!
AMHSIVD AXV+2*, AXV+3, AXV+6, OUTPT+6*, IPV+2*, IPV+3, IPV+7, IPV+8, IPV+9, IPV+10
, OUTPTX!, OUTPTX+1!, ONEDATE, ONEDATE+1
AMHSMTX OUTPTX+1!
AMHSN PTED+3!, HF+3!, OUTPTX!, OUTPTX+1!, ONEDATE+1*, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+14
AMHSN( PTED+4*, PTED+5, HF+4*, HF+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*, HASPOV+6
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+1, HASPOV+2, HASPOV+6
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, AXV+6, PTED+3*, PTED+4
, PTED+7*, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+3*, HF+4, HF+7*, HF+9
, HF+10, HF+11, IPV+3*, IPV+4, IPV+7, IPV+8, IPV+9, IPV+10, OUTPTX!, OUTPTX+1!
AMHTOC OUTPTX+1!, GETSITE+3*, COMMON+3
>> APCHSBRK MH+2
>> APCHSCKP 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+10, OUTPT+2, OUTPT+3
, PTED+2, PTED+8, PTED+10, PTED+14, HF+2, HF+8, HF+11, IPV+1, IPV+6, DSPVIS+4
, DSPVIS+8, DSPVIS+13, HASPOV+7, COMMON+1, MEAS+4, MEASDTYP+3, MEASDSP
>> APCHSCVD MH+21, ONEDATE, MEASDSP
APCHSDAT MEASX+1!, MEASDSP*
APCHSDFN MEASX+1!, MEASDTYP+2*, MEASDSP*
>> APCHSDLM OUTPT+6, IPV+2
>> APCHSICL HASPOV+4*, HASPOV+6*, COMMON+3*
>> APCHSIVD MEASDTYP+2*, MEASDSP
APCHSMT MEAS+5*, MEASX+1!, MEASDTYP+1, MEASDTYP+2, MEASDSP
APCHSMT2 MEASX+1!, MEASDTYP+1*, MEASDSP
APCHSMT3 MEASX+1!, MEASDTYP+1*, MEASDTYP+3, MEASDSP*
APCHSND2 MEAS+5*, MEASX+1!, MEASDTYP+2*
>> APCHSNDM OUTPT+6*
>> APCHSNPG MH+2, COMMON+1, MEASDSP
>> APCHSNRQ NOPOV+1*, HASPOV+1*, HASPOV+3*, HASPOV+4*, HASPOV+6*
>> APCHSPAT 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, HF+1, HF+3, IPV+2
, IPV+3, ONEDATE+1, MEAS+2, MEAS+5, MEASDTYP+2, MEASDSP
>> APCHSQ MEAS+5*
>> APCHSQIT 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+9, AXV+10
, OUTPT+2, OUTPT+3, OUTPT+6, PTED+2, PTED+3, PTED+6, PTED+7, PTED+8, PTED+10, PTED+14
, HF+2, HF+3, HF+6, HF+7, HF+8, HF+11, IPV+1, IPV+2, IPV+6, ONEDATE+1
, DSPVIS+4, DSPVIS+7, DSPVIS+8, DSPVIS+13, HASPOV+7, COMMON+1, MEAS+4, MEAS+5, MEASDTYP+3, MEASDSP
>> APCHSTXT NOPOV+1*, HASPOV+4*, HASPOV+6*
C CASE+1*, CASE+2, CASE+4*, CASE+5, CASEOUT+27!
D CASE+1*, CASE+2, CASEOUT+27!, DATE~, DATE+1, DATE+2, D~, D+1, D+2
DUZ CASE+3, AXV+5, PTED+4, HF+4, IPV+4, ONEDATE+1
>> I CASEOUT+5*, CASEOUT+8*, CASEOUT+11*, CASEOUT+14*, CASEOUT+17*, CASEOUT+20*, CASEOUT+23*, CASEOUT+26*, DSPVIS+9*
>> J CASEOUT+5*, CASEOUT+8*, CASEOUT+11*, CASEOUT+14*, CASEOUT+17*, CASEOUT+20*, CASEOUT+23*, CASEOUT+26*
K CASEOUT+3*, CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, CASEOUT+27!
L CASEOUT+27!
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+6, AXV+12
, AXV+13, PTED+4, PTED+5, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+4, HF+5
, HF+9, HF+11, IPV+7, IPV+8, IPV+9, IPV+10, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+7
, DSPVIS+9, DSPVIS+11, DSPVIS+14, HASPOV+1, HASPOV+2, HASPOV+6, MEASDTYP+1, MEASDSP
>> X OUTPT+2*, PTED+2*, PTED+4*, PTED+5*, HF+2*, HF+4*, HF+5*, IPV+1*, HASPOV+3*, MEAS+4*
Y MH+21*, PTED+4*, PTED+5*, HF+4*, HF+5*, OUTPTX+2!, OUTPTX+3!, ONEDATE*, DSPVIS+9*, HASPOV+3*
, MEASDSP*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All