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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMHLEI3

Package: Mental Health Social Services

Routine: AMHLEI3


Information

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

Source Information

Source file <AMHLEI3.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  VIEWR^XBLM  
Mental Health Social Services 2 BACK^AMHLEI  WP^AMHLETP4  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Registration 1 FULL^VALM1  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP - called from xbdbque
HEAD ;ENTRY POINT
PAUSE ;EP
HEAD1 ;EP
BROWSE ;
EN1 ;EP - called from protocol
XIT ;
PRINT ;EP

External References

Name Field # of Occurrence
BACK^AMHLEI PRINT+5, PRINT+6, PRINT+8, EN1+7
WP^AMHLETP4 PRINT1+11, PRINT1+15
^DIR PRINT+4, PAUSE+1, HEAD+3
FULL^VALM1 PRINT+2
^XBDBQUE EN1+6
$$VAL^XBDIQ1 PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8
VIEWR^XBLM BROWSE+1
$$FMTE^XLFDT HEAD1+5, HEAD1+7
$$NOW^XLFDT HEAD1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ERROR - Patient not defined!"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"No INTAKE Document on file for ",$P(^DPT(DFN,0),U)
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !!?2,"Initial Intake: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.07)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !?2," Provider: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.08)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !!?2," Last Update: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.02)
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?2," Provider: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.02)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?5,AMHPRNM(X),!
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !!?2,"Intake Documentation/Narrative:",!
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: ?5,AMHPRNM(X),!
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+19
Function Call: WRITE
  • Prompt: !,"________________________________________",?52,"__________________"
  • Line Location: PRINT1+20
Function Call: WRITE
  • Prompt: !?60,"DATE"
  • Line Location: PRINT1+21
Function Call: WRITE
  • Prompt: !!!,"________________________________________",?52,"__________________"
  • Line Location: PRINT1+22
Function Call: WRITE
  • Prompt: !?60,"DATE"
  • Line Location: PRINT1+23
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*")
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"*",?79,"*"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"* INTAKE DOCUMENT",?45,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT),?79,"*"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,"* Name: ",$P(^DPT(DFN,0),U),?68,"Page ",AMHPG,?79,"*"
  • Line Location: HEAD1+6
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+7
Function Call: WRITE
  • Prompt: !,"*",?79,"*"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*"),!
  • Line Location: HEAD1+9
Routine Call
  • DIR
  • Line Location:
    • PRINT+4
    • PAUSE+1
    • HEAD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPINTK - [#9002011.07] PRINT1+2, PRINT1+9
^AUPNPAT - [#9000001] HEAD1+7
^AUTTLOC - [#9999999.06] HEAD1+7
^DIC(4 - [#4] HEAD1+7
^DPT - [#2] EN1+3, PRINT1+2, HEAD1+6, HEAD1+7

Label References

Name Line Occurrences
BROWSE PRINT+6
EN1 PRINT+7
HEAD PRINT1+2, PRINT1+4, PRINT1+12, PRINT1+16, PRINT1+18
HEAD1 HEAD+1
PAUSE PRINT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHBROW BROWSE+1*!, PRINT1+17, HEAD+3
>> AMHDA PRINT1+11*, PRINT1+15*
AMHFILE PRINT1+11*, PRINT1+15*, PRINT1+24!
AMHNODE PRINT1+11*, PRINT1+15*, PRINT1+24!
>> AMHPAT PRINT+1
AMHPCNT PRINT1+11!*, PRINT1+15!*, PRINT1+24!
AMHPG PRINT1+3*, PRINT1+24!, HEAD+1, HEAD1+1*, HEAD1+6
AMHPRNM PRINT1+11!, PRINT1+12, PRINT1+15!, PRINT1+16, PRINT1+24!
AMHPRNM( PRINT1+12, PRINT1+16
AMHQUIT PRINT1+3*, PRINT1+9, PRINT1+12, PRINT1+13, PRINT1+16, PRINT1+18, PRINT1+24!, HEAD+3*
DA PRINT+4!
>> DFN EN1+2, EN1+3, PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+11
, PRINT1+15, HEAD1+6, HEAD1+7
DIR PRINT+4!, PAUSE+1!, HEAD+3!
DIR("A" PRINT+4*, PAUSE+1*
DIR("B" PRINT+4*
DIR(0 PRINT+4*, PAUSE+1*, HEAD+3*
>> DIRUT PRINT+5, PAUSE+1*
>> DTOUT HEAD+3
>> DUOUT PAUSE+1
DUZ(2 HEAD1+7
>> I PRINT1+19*
IO HEAD+3
IO(0 HEAD+3
IOF HEAD1+1
IOSL PRINT1+12, PRINT1+16, PRINT1+18, PRINT1+19
IOST HEAD+3
U PRINT1+2, HEAD1+6, HEAD1+7
X PRINT1+12*, PRINT1+16*, PRINT1+19*, HEAD+2~
>> XBNS EN1+5*
>> XBRC EN1+5*
>> XBRP EN1+5*
>> XBRX EN1+5*
>> Y PRINT+6, HEAD+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All