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

Package: Mental Health Social Services

Routine: AMHLETP1


Information

AMHLETP1 ; IHS/CMI/LAB - treatment plan update ;

Source Information

Source file <AMHLETP1.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Mental Health Social Services 6 ^AMHDPP  CALLDIE^AMHLEIN  (GATHER,HDR)^AMHLETP  EP^AMHLETPS  EN1^AMHLETPU  ($$DSMCS,$$DSMVDT)^AMHUTIL1  
VA Fileman 5 EN^DDIOL  FILE^DICN  ^DIE  ^DIK  ^DIR  
IHS VA Utilities 2 $$VAL^XBDIQ1  VIEWR^XBLM  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Registration 2 TERM^VALM0  ($$FTIME,FULL)^VALM1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health Social Services 1 AMHLETPS  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP
HS ;EP - Display Patient Profile
REV ;EP
DC ;
EDITR ;EP
DEL ;
BROWSE ;
SCD ;
SHARE ;EP
PB ;print or browse
FM12 ;
FM13 ;
PAUSE ;EP
REVCH ;
HEADER ;
ADD ;EP
FMD ;
FME ;
FMA ;
EDITTP ;
EDIT ;
NRD ;
PART ;
EXIT ;
SC ;
DELETE ;EP

External References

Name Field # of Occurrence
^AMHDPP HS+3
CALLDIE^AMHLEIN EDITTP+4, EDITTP+10, NRD+1, NRD+3, SC+1, SCD+1, SCD+3, DC+2, DC+4, REV+14
GATHER^AMHLETP EXIT+3
HDR^AMHLETP EXIT+5
EP^AMHLETPS SHARE+1
EN1^AMHLETPU PB+4
$$DSMCS^AMHUTIL1 EDITTP+3
$$DSMVDT^AMHUTIL1 EDITTP+2
EN^DDIOL PART+3, FM12+1, FME+1, FMD+1
FILE^DICN ADD+10
^DIE FME+7, FMD+6, FMA+15
^DIK DEL+4, DEL+5
^DIR ADD+7, FM12+4, FME+3, FMD+3, FMA+3, FMA+7, EDITR+1, DISP+1, REVCH+2, REVCH+15
, PB+1, REV+1, DELETE+3, DEL+1, PAUSE+1
TERM^VALM0 EXIT+1
$$FTIME^VALM1 HEADER+2
FULL^VALM1 ADD+1, EDITR+7, DISP+7, REV+7, DELETE+9
$$VAL^XBDIQ1 HEADER+2
VIEWR^XBLM BROWSE+1
$$FMTE^XLFDT REVCH+11
$$REPEAT^XLFSTR PART+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO Patient selected!",!
  • Line Location: HS+2
Function Call: WRITE
  • Prompt: !!,"Patient not entered."
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !,"Creating new Treatment Plan..."
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Behavioral Health Treatment Plan is NOT complete!! Deleting Record.",!
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!?3,"Participants in the development of this plan:"
  • Line Location: PART+1
Function Call: WRITE
  • Prompt: " None recorded"
  • Line Location: PART+2
Function Call: WRITE
  • Prompt: !!,"Treatment Plan is NOT COMPLETE!! Deleting Plan...",!
  • Line Location: EDITTP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: NRD+1
Function Call: WRITE
  • Prompt: !!,"Next Review Date cannot be earlier than the date established."
  • Line Location: NRD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !!,"Date Concurred cannot be earlier than the date established."
  • Line Location: SCD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DC+2
Function Call: WRITE
  • Prompt: !!,"Date Completed/Closed cannot be earlier than the date established."
  • Line Location: DC+4
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: EDITR+2
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: EDITR+3
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: EDITR+6
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !!,"There are no reviews on file to print."
  • Line Location: REVCH+7
Function Call: WRITE
  • Prompt: !?4,AMHC,") ALL Reviews"
  • Line Location: REVCH+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PB+1
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: REV+2
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: REV+6
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to delete a Treatment Plan.",!,"Please see your supervisor or program manager.",!
  • Line Location: DELETE+2
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DELETE+4
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"Deleting Treatment Plan..."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !!,"Treatment Plan for ",$P(^DPT(DFN,0),U)," DELETED."
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-"),!,"Patient Name: ",$P(^DPT(DFN,0),U)," DOB: ",$$FTIME^VALM1($P(^DPT(DFN,0),U,3))," Sex: ",$$VAL^XBDIQ1(2,DFN,.02),!,$TR($J(" ",80)," ","-")
  • Line Location: HEADER+2
Routine Call
  • DIE
  • Line Location:
    • FME+7
    • FMD+6
    • FMA+15
Routine Call
  • DIR
  • Line Location:
    • ADD+7
    • FM12+4
    • FME+3
    • FMD+3
    • FMA+3
    • FMA+7
    • EDITR+1
    • DISP+1
    • REVCH+2
    • REVCH+15
    • PB+1
    • REV+1
    • DELETE+3
    • DEL+1
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHPTXP - [#9002011.56] Classic Fileman Calls
^AMHPTPP - [#9002011.62] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPTXP - [#9002011.56] ADD+11, ADD+15, PART+2, PART+4, PART+6, EDITTP+1, NRD+2, NRD+3, SC+2, SCD+2
, SCD+3, DC+3, DC+4, EDITR+6, EDIT+3, DISP+6, REVCH+7, REVCH+9, REVCH+11, REV+6
, REV+8, DELETE+8
^DPT - [#2] DEL+6, HEADER+2
^XUSEC("AMHZ DELETE RECORD" DELETE+2

Label References

Name Line Occurrences
@( FM12+8
BROWSE PB+3
DC SC+2, DC+4
DEL ADD+11
EDITTP ADD+14, EDIT+2
EXIT HS+5, ADD+16, SHARE+2, EDITR+2, EDITR+3, EDITR+4, EDITR+5, EDITR+6, EDIT+4, DISP+2
, DISP+3, DISP+4, DISP+5, DISP+6, REVCH+3, PB+2, PB+3, PB+5, REV+2, REV+3
, REV+4, REV+5, REV+6, REV+15, DELETE+2, DELETE+4, DELETE+5, DELETE+6, DELETE+7, DELETE+8
, DEL+7
FM12 PART+2
FM13 FM12+5, FM12+6
HEADER ADD+4
NRD NRD+3
PART FM12+9, DC+1
PAUSE HS+2, HS+4, EDITR+4, EDITR+5, EDITR+6, DISP+4, DISP+5, DISP+6, REVCH+3, REVCH+7
, PB+2, REV+4, REV+5, REV+6, REV+9, DELETE+2, DELETE+6, DELETE+7, DELETE+8, DEL+6
PB REVCH+5, REVCH+17
REVCH REVCH+7, REVCH+16
SCD SCD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A REVCH+19*
AMHBROW BROWSE+1*!
AMHC PART+2*, PART+4*, PART+5*, PART+6, FM12+3, FME+3, FMD+3, REVCH+9*, REVCH+10*, REVCH+11
, REVCH+13*, REVCH+15, REVCH+17, REVCH+18, EXIT+6!
AMHCM PART+4!
AMHCM( PART+5*, FME+6, FMD+5
AMHCS EDITTP+3*, EXIT+7!
AMHDA EXIT+6!
>> AMHDONE FM12+6*
AMHDSMVD EDITTP+2*, EXIT+7!
AMHFILE EXIT+6!
AMHG EXIT+6!
AMHGIEN EXIT+6!
AMHINADD ADD+13*, EXIT+7!
AMHLEC EXIT+6!
AMHLETP EXIT+6!
AMHLETXT EXIT+6!
>> AMHLINE EXIT+4
AMHMETH0 EXIT+6!
AMHNODE EXIT+6!
>> AMHPAT HS+1*, HS+2
AMHPCNT EXIT+6!
>> AMHPREV REVCH+1*, REVCH+4*, REVCH+5, REVCH+7
AMHPRNM EXIT+6!
>> AMHPTN FMA+2*, FMA+6*, FMA+13
>> AMHPTP("IDX" EDITR+4, EDITR+5, DISP+4, DISP+5, REV+4, REV+5, DELETE+6, DELETE+7
>> AMHPTREL FMA+2*, FMA+10*, FMA+14
AMHQUIT ADD+3*, ADD+8!, EXIT+6!
>> AMHRCNT EDITR+1, DISP+1, REV+1, DELETE+3
AMHREVP REVCH+6!
AMHREVP( REVCH+18*, REVCH+19*
AMHREVS REVCH+6!, REVCH+17!, REVCH+20!
AMHREVS( REVCH+10*, REVCH+18, REVCH+19
AMHRMETH EXIT+6!
AMHTP ADD+11, ADD+12*, ADD+15, PART+2, PART+4, PART+6, FME+7, FMD+6, FMA+12, EDITTP+1
, EDITTP+4, EDITTP+10, NRD+1, NRD+2, NRD+3, SC+1, SC+2, SCD+1, SCD+2, SCD+3
, DC+2, DC+3, DC+4, EDITR+3!, EDITR+4*!, EDITR+5*!, EDITR+6!, EDIT+3, DISP+3!, DISP+4*!
, DISP+5*!, DISP+6!, REVCH+7, REVCH+9, REVCH+11, REV+3!, REV+4*!, REV+5*!, REV+6!, REV+8
, REV+14, DELETE+5!, DELETE+6*!, DELETE+7*!, DELETE+8!, DEL+4, DEL+5, EXIT+6!
AMHTPDEL EDITR+4!, EDITR+6!, DISP+4!, DISP+6!, REV+4!, REV+6!, DELETE+6!, DELETE+8!
>> AMHTPN EDITR+3*, EDITR+4, EDITR+5, DISP+3*, DISP+4, DISP+5, REV+3*, REV+4, REV+5, DELETE+5*
, DELETE+6, DELETE+7
AMHTXDT EXIT+7!
AMHTXPF EDITTP+1*, EDITTP+4, EDITTP+5, REV+8*, REV+9, EXIT+7!
AMHX EXIT+6!
>> C REVCH+19*
D EXIT+8!
D0 ADD+10!, EXIT+8!
DA ADD+7!, ADD+10!, FM12+4!, FME+3!, FME+5!, FME+6*, FME+7!, FMD+3!, FMD+5*, FMD+6!
, FMD+7!, FMA+3!, FMA+7!, FMA+12*, FMA+16!, EDITTP+4*, EDITTP+10*, NRD+1*, NRD+3*, SC+1*
, SCD+1*, SCD+3*, DC+2*, DC+4*, REVCH+2!, REVCH+15!, PB+1!, REV+14*, DEL+4*, DEL+5*!
, EXIT+8!
DA(1 FME+7*, FMD+6*
DD ADD+10!, EXIT+8!
>> DFN HS+1, ADD+2, ADD+10, ADD+15*, EDIT+3*, DEL+6, HEADER+2
DIADD ADD+10*!, EXIT+8!
DIC ADD+10!*, FME+5!, FMD+7!, EXIT+8!
DIC("DR" ADD+10*
DIC(0 ADD+10*
DICR EXIT+8!
DIE ADD+10!, FME+7*!, FMD+6*!, FMA+11*, FMA+16!, EDITTP+4*, EDITTP+10*, NRD+1*, NRD+3*, SC+1*
, SCD+1*, SCD+3*, DC+2*, DC+4*, REV+14*, EXIT+8!
DIE("NO^" EDITTP+4*, EDITTP+10*
DIG EXIT+8!
DIH EXIT+8!
DIK DEL+4*, DEL+5*!, EXIT+8!
DINUM ADD+10!, EXIT+8!
DIR ADD+6!, ADD+7!, ADD+8!, FM12+2!, FM12+4!, FME+2!, FME+3!, FMD+2!, FMD+3!, FMA+3!
, FMA+7!, EDITR+1!, DISP+1!, REVCH+2!, REVCH+14!, REVCH+15!, PB+1!, REV+1!, DELETE+3!, DEL+1!
, PAUSE+1!, EXIT+8!
DIR("A" ADD+7*, FM12+4*, FME+3*, FMD+3*, FMA+3*, FMA+7*, EDITR+1*, DISP+1*, REVCH+2*, REVCH+15*
, PB+1*, REV+1*, DELETE+3*, DEL+1*, PAUSE+1*
DIR("B" FM12+4*, REVCH+2*, REVCH+15*, PB+1*, DEL+1*
DIR(0 ADD+7*, FM12+3*, FME+3*, FMD+3*, FMA+3*, FMA+7*, EDITR+1*, DISP+1*, REVCH+2*, REVCH+15*
, PB+1*, REV+1*, DELETE+3*, DEL+1*, PAUSE+1*
DIRUT ADD+8, FM12+5, FME+4, FMD+4, FMA+5, FMA+9, EDITR+1*, EDITR+2, DISP+1*, DISP+2
, REVCH+3, REVCH+16, PB+2, REV+1*, REV+2, DELETE+3*, DELETE+4, DEL+1*, DEL+2, PAUSE+1*
, EXIT+8!
DIU EXIT+8!
DIV EXIT+8!
DIW EXIT+8!
DIWF EXIT+8!
DIWL EXIT+8!
DIWR EXIT+8!
DIY EXIT+8!
DLAYGO ADD+10*!, EXIT+8!
DO ADD+10!, EXIT+8!
DQ EXIT+8!
DR ADD+10!, FME+5!, FME+7*!, FMD+6*!, FMD+7!, FMA+13*, FMA+16!, EDITTP+4*, EDITTP+10*, NRD+1*
, NRD+3*, SC+1*, SCD+1*, SCD+3*, DC+2*, DC+4*, REV+14*, EXIT+8!
DR(2 FMA+14*
DT EDITTP+3
DTOUT EXIT+8!
DUOUT EDITR+1, DISP+1, REV+1, DELETE+3, DEL+1, PAUSE+1, EXIT+8!
DUZ DELETE+2
DUZ(2 EDITTP+2, EDITTP+3
I REVCH+18*, REVCH+19*, EXIT+9!
IOF EDIT+1, DISP+8, REV+13, HEADER+1
>> J REVCH+19*
U ADD+11, ADD+15, PART+6, EDITTP+1, NRD+2, NRD+3, SC+2, SCD+2, SCD+3, DC+3
, DC+4, EDIT+3, REVCH+11, REV+8, DEL+6, HEADER+2
>> VALMBCK EXIT+2*
>> VALMCNT EXIT+4*
VALMY EDITR+3!, DISP+3!, REV+3!, DELETE+5!
X ADD+9*, ADD+10!, PART+4*, PART+5, PART+6, FMA+4, FMA+8, NRD+2*, NRD+3, SCD+2*
, SCD+3, DC+3*, DC+4, REVCH+9*, REVCH+10, REVCH+11, EXIT+9!
XQORNOD EDITR+3!, DISP+3!, REV+3!, DELETE+5!
Y ADD+9, ADD+11, ADD+12, FM12+6, FM12+7*, FM12+8, FM13+1!, FME+6, FMD+5, FMA+6
, FMA+10, EDITR+3, DISP+3, REVCH+4, REVCH+17, REVCH+19, PB+3, REV+3, DELETE+5, DEL+3
, EXIT+9!
Z EXIT+9!
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 |  Local Variables |  All