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

Package: Mental Health Social Services

Routine: AMHLEIV3


Information

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

Source Information

Source file <AMHLEIV3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  (GUIR,VIEWR)^XBLM  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Mental Health Social Services 1 ($$D,EXIT)^AMHLEIV  
Registration 1 FULL^VALM1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health Social Services 3 AMHGR  AMHLEIV  AMHLEIVP  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP - called from xbdbque
HEAD ;ENTRY POINT
PAUSE ;EP
HEAD1 ;EP
EN1 ;EP - called from protocol
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
DEVICE ;print or browse
PRINT2 ;
XIT ;
GUI(AMHDPT,DFN,AMHRINTI,AMHREVP,AMHARRAY) ;EP - gui call
PRINT ;EP
SIG

External References

Name Field # of Occurrence
$$D^AMHLEIV PRINT+20
EXIT^AMHLEIV DEVICE+2, DEVICE+3, DEVICE+5, EN1+5
^DIR PRINT+6, PRINT+23, DEVICE+1, PAUSE+1, HEAD+3
FULL^VALM1 PRINT+4
^XBDBQUE EN1+4
$$VAL^XBDIQ1 PRINT+20, PRINT2+6, PRINT2+7, PRINT2+8, PRINT2+9
$$VALI^XBDIQ1 PRINT+20
GUIR^XBLM GUI+5
VIEWR^XBLM BROWSE+1
$$FMTE^XLFDT SIG+3, HEAD1+7, HEAD1+9
$$NOW^XLFDT HEAD1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ERROR - IEN OF INTAKE not defined!"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"There are no updates on file to print."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!,"There are no updates to print...printing intake only."
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !?4,"0) ",?10,"Quit/Exit (or type '^')"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?4,AMHC,") ",?10,"ALL Updates"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"No INTAKE Document on file for ",$P(^DPT(DFN,0),U)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !?2,"Date "_$S(AMHINTT="I":"Established",1:"Updated")_": ",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.01)
  • Line Location: PRINT2+6
Function Call: WRITE
  • Prompt: !?2,"Provider: ",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.04)
  • Line Location: PRINT2+7
Function Call: WRITE
  • Prompt: !?2,"Program:",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.05)
  • Line Location: PRINT2+8
Function Call: WRITE
  • Prompt: !?2,"Type of Document:",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.09)
  • Line Location: PRINT2+9
Function Call: WRITE
  • Prompt: !!?2,"Intake Documentation/Narrative:",!
  • Line Location: PRINT2+10
Function Call: WRITE
  • Prompt: $TR(AMHPRNM(X),$C(10)),!
  • Line Location: PRINT2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+16
Function Call: WRITE
  • Prompt: !?29,$P(^AMHRINTK(AMHRP,0),U,16)
  • Line Location: SIG+2
Function Call: WRITE
  • Prompt: !!!,"________________________________________",?52,"__________________"
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: !?60,"DATE"
  • Line Location: SIG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*")
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,"*",?79,"*"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"* INTAKE DOCUMENT "_$S(AMHINTT="U":"UPDATE",1:""),?45,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT),?79,"*"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,"* Name: ",$P(^DPT(DFN,0),U),?68,"Page ",AMHPG,?79,"*"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,"* ",$E($P(^DIC(4,DUZ(2),0),U),1,25),?30,"DOB: ",$$FMTE^XLFDT($P(^DPT(DFN,0),U,3),"2D"),?46,"Sex: ",$P(^DPT(DFN,0),U,2),?54," Chart #: ",$P(^AUTTLOC(DUZ(2),0),U,7),$P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2),?79,"*"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,"*",?79,"*"
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*"),!
  • Line Location: HEAD1+11
Routine Call
  • DIR
  • Line Location:
    • PRINT+6
    • PRINT+23
    • DEVICE+1
    • PAUSE+1
    • HEAD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHRINTK - [#9002011.13] PRINT+3, PRINT+19, PRINT1+4, PRINT1+5, PRINT2+3, PRINT2+5, PRINT2+12, PRINT2+17, SIG, SIG+1
, SIG+2, SIG+3
^AMHRINTK("AI" PRINT+13, PRINT+14, PRINT+17
^AUPNPAT - [#9000001] HEAD1+9
^AUTTLOC - [#9999999.06] HEAD1+9
^DIC(4 - [#4] HEAD1+9
^DPT - [#2] HEAD1+8, HEAD1+9

Label References

Name Line Occurrences
BROWSE DEVICE+3
DEVICE PRINT+10, PRINT+14, PRINT+26
EN1 DEVICE+4
HEAD PRINT2+4, PRINT2+13, PRINT2+15
HEAD1 HEAD+1
PAUSE PRINT+13, DEVICE+2
PRINT PRINT+13, PRINT+24, PRINT+25
PRINT2 PRINT1+10
SIG PRINT2+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A PRINT+28*
AMHAO PRINT+1~, PRINT+11*
AMHARRAY GUI~, GUI+5
AMHBROW PRINT+1~, BROWSE+1*!, PRINT2+14, HEAD+3
>> AMHC PRINT+17*, PRINT+18*, PRINT+20, PRINT+21*, PRINT+23, PRINT+26, PRINT+27
>> AMHDA PRINT2+11*, PRINT2+12
AMHDPT PRINT+1~, PRINT+5*, PRINT+9*, PRINT+10, PRINT+13, PRINT+14, GUI~, PRINT1+5
AMHFILE PRINT1+7~
AMHGUI GUI+3~, GUI+4*, PRINT1+2, HEAD1+3
AMHINTR PRINT+1~, PRINT+19*, PRINT2+1~, PRINT2+5*
AMHINTT PRINT2+1~, PRINT2+3*, PRINT2+6, HEAD1+7
>> AMHIOSL PRINT1+2*, PRINT2+13, PRINT2+15, PRINT2+16
AMHNOD PRINT1+7~
>> AMHNODE PRINT2+11*, PRINT2+12
AMHPAT PRINT+1~, PRINT+3*
AMHPCNT PRINT1+7~, PRINT2+11!*, PRINT2+12*
AMHPG PRINT1+7~, PRINT1+8*, HEAD+1, HEAD1+1, HEAD1+2*, HEAD1+8
AMHPRNM PRINT1+7~, PRINT2+11!, PRINT2+13
AMHPRNM( PRINT2+12*, PRINT2+13
AMHQUIT PRINT1+7~, PRINT1+8*, PRINT1+9, PRINT1+10, PRINT2+13, PRINT2+15, HEAD+3*
AMHRD PRINT1+7~, PRINT1+9*, PRINT1+10
AMHREVD PRINT1+3!
AMHREVD( PRINT1+4*, PRINT1+5*, PRINT1+9, PRINT1+10
AMHREVP PRINT+12!, GUI~
AMHREVP( PRINT+27*, PRINT+28*, PRINT1+4
AMHREVS PRINT+12!, PRINT+26!, PRINT+29!
AMHREVS( PRINT+18*, PRINT+27, PRINT+28
AMHRINTI PRINT+2, PRINT+3, PRINT+13, PRINT+14, PRINT+17, GUI~, GUI+2, PRINT1+5
AMHRP PRINT1+7~, PRINT1+10*, PRINT2+3, PRINT2+5, PRINT2+6, PRINT2+7, PRINT2+8, PRINT2+9, PRINT2+11, PRINT2+17
, SIG, SIG+1, SIG+2, SIG+3
AMHV PRINT1+7~
AMHX PRINT+17*, PRINT+18, PRINT+19, PRINT+20, PRINT1+7~, PRINT2+12*
>> C PRINT+28*
DA PRINT+6!, PRINT+23!, DEVICE+1!
DFN PRINT+1~, PRINT+3*, GUI~, GUI+1, HEAD1+8, HEAD1+9
DIR PRINT+6!, PRINT+22!, PRINT+23!, DEVICE+1!, PAUSE+1!, HEAD+3!
DIR("A" PRINT+6*, PRINT+23*, DEVICE+1*, PAUSE+1*
DIR("B" PRINT+6*, PRINT+23*, DEVICE+1*
DIR(0 PRINT+6*, PRINT+23*, DEVICE+1*, PAUSE+1*, HEAD+3*
>> DIRUT PRINT+7, PRINT+24, DEVICE+2, PAUSE+1*
>> DTOUT HEAD+3
>> DUOUT PAUSE+1
DUZ(2 HEAD1+9
I PRINT+27*, PRINT+28*, PRINT2+1~, PRINT2+16*
IO HEAD+3
IO(0 HEAD+3
IOF HEAD1+1
IOM CTR+1
IOSL PRINT1+2
IOST HEAD+3
>> J PRINT+28*
U PRINT+3, PRINT+19, PRINT1+4, PRINT1+5, PRINT2+3, PRINT2+5, PRINT2+17, SIG, SIG+1, SIG+2
, SIG+3, HEAD1+8, HEAD1+9
X PRINT+1~, PRINT1+4*, PRINT2+1~, PRINT2+13*, PRINT2+16*, HEAD+2~, CTR~, CTR+1
>> XBNS EN1+3*
>> XBRC EN1+3*
>> XBRP EN1+3*
>> XBRX EN1+3*
Y PRINT+1~, PRINT+8, PRINT+9, PRINT+25, PRINT+26, PRINT+28, DEVICE+3, PRINT2+1~, HEAD+3, CTR~
, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All