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

Package: Mental Health Social Services

Routine: AMHLESF1


Information

AMHLESF1 ; IHS/CMI/LAB - ;

Source Information

Source file <AMHLESF1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  $$EXTSET^XBFUNC  
VA Fileman 3 ^DIC  ^DIR  ^DIWP  
Kernel 2 $$FMTE^XLFDT  $$VERSION^XPDUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHLESF  AMHSFR  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ZIS ;
HEAD1 ;
HEADER ;
BROWSE ;
EOJ ;
S1 ;
WP ;
USR() ;EP - Return name of current user from ^VA(200.
EP(AMHSF) ;EP - when form is known
WPS ;
MET ;
CTR(X,Y) ;EP - Center X in a field Y wide.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
EXIT ;
DRUG ;
W ;write out array
SETARRAY ;set up array containing suicide form
PRINT ;
S(Y,F,C,T) ;set up array
EP2(AMHSF) ;

External References

Name Field # of Occurrence
^DIC EN+3
^DIR ZIS+1, HEADER+1
^DIWP MET+7, MET+18, DRUG+7, DRUG+13, DRUG+28, DRUG+34, WP+4
^XBDBQUE ZIS+6, BROWSE+2
$$VAL^XBDIQ1 SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12
, SETARRAY+13, SETARRAY+14, MET+22, DRUG+1, DRUG+11, DRUG+12, DRUG+18, DRUG+21, DRUG+22, DRUG+32
, DRUG+33, WPS+4, WPS+5, WPS+6
^XBFMK EXIT+3
$$EXTSET^XBFUNC MET+1
$$FMTE^XLFDT EN+5, SETARRAY+1, WPS+12, W+3, HEAD1+2
$$VERSION^XPDUTL DRUG+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Print Suicide Reporting Form ***"),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !,"********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********"
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********",!!
  • Line Location: HEAD1+2
Routine Call
  • DIC
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • ZIS+1
    • HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPSUIC - [#9002011.65] EP2+1, SETARRAY+13, MET+1, MET+2, MET+3, MET+4, DRUG+2, DRUG+4, DRUG+5, DRUG+6
, DRUG+12, DRUG+20, DRUG+22, DRUG+27, DRUG+33, WP+3, WP+4, WPS+8, WPS+9, WPS+10
, WPS+11, WPS+12
^AMHTSCF - [#9002014.9] DRUG+20, DRUG+27
^AMHTSDRG - [#9002014.7] MET+4
^AMHTSSU - [#9002014.71] DRUG+5
^DIC(4 - [#4] LOC+1
^TMP("AMHS" EP2+2!, EP2+3*, S1+1*, S1+2*, PRINT+1!, W+4, W+6, EOJ+1!
^UTILITY($J MET+7!, MET+8, MET+9, MET+10!, MET+18!, MET+19, MET+20, MET+21!, DRUG+7!, DRUG+8
, DRUG+9, DRUG+10!, DRUG+13!, DRUG+14, DRUG+15, DRUG+16!, DRUG+28!, DRUG+29, DRUG+30, DRUG+31!
, DRUG+34!, DRUG+35, DRUG+36, DRUG+37!, WP+1!, WPS+1, WPS+3!
^VA(200 - [#200] WPS+12, W+3, HEAD1+2, USR+1

Label References

Name Line Occurrences
$$CTR EN+2
BROWSE ZIS+4
EOJ W+9
EP EN+8
EP2 PRINT+2
EXIT EN+4, EN+9, ZIS+2, ZIS+4, ZIS+7
HEADER W+5
S SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10
, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+8, MET+9, MET+13, MET+15, MET+19, MET+20, MET+22
, DRUG+1, DRUG+5, DRUG+8, DRUG+9, DRUG+11, DRUG+14, DRUG+15, DRUG+18, DRUG+19, DRUG+20
, DRUG+21, DRUG+22, DRUG+26, DRUG+29, DRUG+30, DRUG+32, DRUG+35, DRUG+36, DRUG+38, DRUG+39
, WPS+1, WPS+4, WPS+5, WPS+6, WPS+7, WPS+12
S1 S+4, S+6, S+9
SETARRAY EP2+4

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MET+4*, S+7*, S+8*, S1+1*, S1+2, EOJ+3!
>> A MET+3*, MET+4, MET+12*, MET+17*, DRUG+5*
AMHO MET+1!, MET+11, EOJ+2!
AMHO( MET+2*, MET+12
AMHOD EXIT+1!, MET+1!, MET+14, EOJ+2!
AMHOD( MET+4*, MET+16, MET+17
AMHOPT ZIS+3*, EXIT+1!, EOJ+2!
AMHQUIT EXIT+1!, W+2!, W+4, W+5, W+8, EOJ+2!, HEADER+1*
AMHSBEG EOJ+2!
AMHSED EOJ+2!
AMHSF EP~, EXIT+1!, EP2~, EP2+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7
, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+1, MET+2, MET+3, MET+4
, MET+22, DRUG+1, DRUG+2, DRUG+4, DRUG+5, DRUG+6, DRUG+11, DRUG+12, DRUG+18, DRUG+20
, DRUG+21, DRUG+22, DRUG+27, DRUG+32, DRUG+33, WP+3, WP+4, WPS+4, WPS+5, WPS+6
, WPS+8, WPS+9, WPS+10, WPS+11, WPS+12, PRINT+2, EOJ+2!
AMHSQIT EXIT+1!, W+8*, EOJ+2!
AMHSTOB EOJ+2!
AMHSUPI EOJ+2!
AMHTOB EOJ+2!
AMHTOBN EOJ+2!
AMHX EXIT+1!, MET+9*, MET+20*, DRUG+9*, DRUG+15*, DRUG+30*, DRUG+36*, WP+2*, WP+3*, WP+4
, WPS+3!, W+4*, W+6, EOJ+2!
AMHY EOJ+2!
>> AMHZ DRUG+20*, DRUG+27*
>> AUPNDOD EN+5
B EOJ+3!
C S~, S+6, EOJ+3!
DA ZIS+1!
>> DFN EN+6*, EN+8, EP2+1*
>> DIC EN+3*
>> DIC(0 EN+3*
DIR ZIS+1!, HEADER+1!
DIR("A" ZIS+1*
DIR("B" ZIS+1*
DIR(0 ZIS+1*, HEADER+1*
>> DIRUT ZIS+2
DIWF WPS+2!
DIWL MET+7*, MET+18*, DRUG+7*, DRUG+13*, DRUG+28*, DRUG+34*, WP+3*, WPS+1, WPS+2!
DIWR MET+7*, MET+18*, DRUG+7*, DRUG+13*, DRUG+28*, DRUG+34*, WP+3*, WPS+2!
DT SETARRAY+1, W+3, HEAD1+2
>> DTOUT HEADER+1
DUZ W+3, HEAD1+2, USR+1
DUZ(2 LOC+1
E EOJ+3!
F WPS+8*, WPS+9, WPS+10, WPS+11, WPS+12, S~, S+1*, S+4*, EOJ+3!
H EOJ+3!
IO HEADER+1
IO(0 HEADER+1
IOF EN+1, W+1, HEAD1+1
IOM CTR+1
IOSL W+5
IOST HEADER+1
L S+6*, EOJ+3!
N EOJ+3!
P EOJ+3!
T S~, S+2*, S+6*, S+7, S+8, EOJ+3!
U EP2+1, SETARRAY+13, MET+1, MET+2, MET+4, DRUG+2, DRUG+5, DRUG+6, DRUG+12, DRUG+20
, DRUG+22, DRUG+27, DRUG+33, WPS+10, WPS+11, WPS+12, S1+1, W+3, HEAD1+2, USR+1
, LOC+1
W EOJ+3!
X SETARRAY+1*, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, SETARRAY+9*, SETARRAY+10*
, SETARRAY+12*, SETARRAY+13*, SETARRAY+14*, MET+6*, MET+11*, MET+12*, MET+13, MET+15*, MET+17*, MET+22*
, DRUG+1*, DRUG+3*, DRUG+5*, DRUG+6*, DRUG+11*, DRUG+12*, DRUG+18*, DRUG+19*, DRUG+20*, DRUG+21*
, DRUG+22*, DRUG+26*, DRUG+27*, DRUG+32*, DRUG+33*, DRUG+38*, DRUG+39*, WP+4*, WPS+1*, WPS+4*
, WPS+5*, WPS+6*, WPS+7*, WPS+12*, S+4*, S+5*, S+7*, S+8*, S1+2, EOJ+2!
, EOJ+3!, CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
Y EN+4, EN+6, ZIS+3, ZIS+4, MET+1*, MET+6, MET+16*, MET+17, DRUG+4*, DRUG+5
, DRUG+6, S~, S+5, S+6, S+8, EOJ+2!, EOJ+3!, HEADER+1, CTR~, CTR+1
Z MET+1*, MET+2, MET+3, MET+4, DRUG+20, WPS+1*, WPS+2!, EOJ+2!
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