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

Package: Mental Health Social Services

Routine: AMHLEIN


Information

AMHLEIN ; IHS/CMI/LAB - INITIALIZE AND SET UP PARAMETERS ;

Source Information

Source file <AMHLEIN.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 COMMA^%DTC  ^DIE  ^DIR  
Kernel 2 HOME^%ZIS  $$STRIP^XLFSTR  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Mental Health Social Services 1 ^AMHEKL  

Caller Graph

Caller Graph Total: 79

Package Total Caller Graph
Mental Health Social Services 78 AMHBHRU  AMHBL  AMHCDBL  AMHEGR  AMHEGRCP  AMHEGRPV  AMHEGS  AMHEXCP  
AMHEXD  AMHEXDI  AMHEXERR  AMHEXLOG  AMHEXRE  AMHEXRLG  AMHEXTAP  AMHEYCP  
AMHEYD  AMHEYDI  AMHEYLOG  AMHEYRE  AMHEYREX  AMHEYRLG  AMHEYTAP  AMHGAFS  
AMHGPCCL  AMHLE  AMHLE2  AMHLEA  AMHLEA1  AMHLEAR  AMHLEAR1  AMHLEDV  
AMHLEE  AMHLEGP  AMHLEGP1  AMHLEIC  AMHLENS  AMHLENS1  AMHLEP1  AMHLEP2  
AMHLEPAT  AMHLEPOV  AMHLETP  AMHLETP1  AMHLETR  AMHLETR1  AMHLETR2  AMHNAVR  
AMHPCCL  AMHPCCL1  AMHPHQM  AMHRAGS  AMHRAP2P  AMHRAT2P  AMHRBV1  AMHRC1P  
AMHRC2P  AMHRC3  AMHRGADM  AMHRL  AMHRL3  AMHRLKUP  AMHRLP2  AMHRNOAT  
AMHRNSIG  AMHRNSM  AMHRP1  AMHRP2P  AMHRP3P  AMHRP4P  AMHRP5  AMHRP7  
AMHRP8P  AMHRP9P  AMHRPPD  AMHRPSP  AMHRPTP  AMHRTEN  
Patient Chart 1 BPCBHRU  

Entry Points

Name Comments DBIA/ICR reference
GETAWI(S,F) ;EP - return default appt/wi
PCCCHECK ;check to see if link to pcc active, set AMHLPCC IF SO
EOP ;EP - End of page.
DONE ;ENTRY POINT - END OF REPORT TIME DISPLAY
D(D) ;EP
GETTOC(S,F) ;EP - return default type of visit
OTNARR(AMHSITE) ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
GETLOC(S,P,F) ;EP - return default location
ASKINT(S) ;EP return 1 if should ask interpretor
MHNARR(AMHSITE) ;EP get mh default narrative
PAUSE ;EP
CDNARR(AMHSITE) ;EP
UNIVSITE(AMHSITE) ;EP return U or S
START ;EP - called from AMHLE
C(X,X2,X3) ;EP
ASKPCC(AMHSITE) ;EP ask about pcc problem list?
CALLDIE ;EP
GETCOMM(S,P,F) ;EP - return default community
USR() ;EP - Return name of current user from ^VA(200.
SSNARR(AMHSITE) ;EP get mh default narrative
GETCLN(S,P,F) ;EP return default clinic
ASKCC(AMHSITE) ;EP return 1 or 0 if should ask chief complaint

External References

Name Field # of Occurrence
COMMA^%DTC C+1
HOME^%ZIS START+1
^AMHEKL DONE+6
^DIE CALLDIE+6
^DIR PAUSE+2, DONE+3, EOP+5
$$VAL^XBDIQ1 GETTOC+3, GETAWI+3
$$STRIP^XLFSTR C+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,AMHBEEP,AMHBEEP,"Site not set in DUZ(2) - please login to Kernel first!!"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,AMHBEEP,AMHBEEP,"Site Parameter file not established for this Location ",$P(^DIC(4,DUZ(2),0),U),".",!,"NOTIFY S MANAGER. CANNOT CONTINUE."
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,AMHBEEP,AMHBEEP,"PCC Link Type NOT defined in BH Site Parameter file.",!,"No PCC LINK will OCCUR!! NOTIFY SYSTEM ADMINISTRATOR",!
  • Line Location: PCCCHECK+3
Function Call: WRITE
  • Prompt: !,$C(7),"ENTRY MUST BE MADE IN THE PCC MASTER CONTROL FILE FOR THIS LOCATION",!,"PLEASE NOTIFY YOUR S MANAGER ... NO LINKAGE TO PCC IS OCCURRING !"
  • Line Location: PCCCHECK+5
Function Call: WRITE
  • Prompt: !,$C(7),"ENTRY MUST BE MADE IN THE PCC MASTER CONTROL FILE FOR THIS PACKAGE !",!,"PLEASE NOTIFY YOUR S MANAGER ... NO LINKAGE TO PCC IS OCCURRING !"
  • Line Location: PCCCHECK+7
Function Call: WRITE
  • Prompt: !!,"Can't lock global",!
  • Line Location: CALLDIE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!,"RUN TIME (H.M.S): ",AMHH,".",AMHM,".",AMHS
  • Line Location: DONE+2
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIE
  • Line Location:
    • CALLDIE+6
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
    • DONE+3
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHSITE - [#9002013] START+7, PCCCHECK+2, GETCOMM+4, GETCOMM+5, GETTOC+2, GETTOC+3, GETAWI+2, GETAWI+3, GETLOC+4, GETLOC+5
, ASKINT+3, ASKINT+4, UNIVSITE+3, UNIVSITE+4, ASKCC+3, ASKCC+4, GETCLN+6, GETCLN+7, ASKPCC+3, ASKPCC+4
, MHNARR+3, MHNARR+4, CDNARR+3, CDNARR+4, OTNARR+3, OTNARR+4, SSNARR+3, SSNARR+4
^APCCCTRL - [#9001000] PCCCHECK+5, PCCCHECK+7, PCCCHECK+8
^AUTTSITE(1 PCCCHECK+5, PCCCHECK+8
^DIC(4 - [#4] START+7, GETLOC+8, LOC+1
^DIC(40.7 - [#40.7] GETCLN+10
^DIC(9.4 - [#9.4] PCCCHECK+6
^VA(200 - [#200] USR+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CALLDIE+8!
%D CALLDIE+8!
%E CALLDIE+8!
%W CALLDIE+8!
%X CALLDIE+8!
%Y CALLDIE+8!
A CALLDIE+8!
>> AMHBEEP START+5*, START+6, START+7, PCCCHECK+3
>> AMHBT DONE+1
>> AMHDASH START+2*
AMHET DONE+1, DONE+5!
AMHG CALLDIE+4~*, CALLDIE+7, CALLDIE+8!
AMHH DONE+1*, DONE+2, DONE+5!
>> AMHLEIN START+4*
AMHLPCC PCCCHECK+1!, PCCCHECK+2*, PCCCHECK+3*, PCCCHECK+4, PCCCHECK+5*, PCCCHECK+7*, PCCCHECK+8*, PCCCHECK+9*
>> AMHLPCCT PCCCHECK+2*
AMHM DONE+2*, DONE+5!
AMHPKG PCCCHECK+6*, PCCCHECK+7, PCCCHECK+8, PCCCHECK+10!
>> AMHQUIT START+6*, START+7*
AMHS DONE+2*, DONE+5!
AMHSITE UNIVSITE~, UNIVSITE+3, UNIVSITE+4, ASKCC~, ASKCC+3, ASKCC+4, ASKPCC~, ASKPCC+3, ASKPCC+4, MHNARR~
, MHNARR+3, MHNARR+4, CDNARR~, CDNARR+3, CDNARR+4, OTNARR~, OTNARR+3, OTNARR+4, SSNARR~, SSNARR+3
, SSNARR+4
AMHTS DONE+1*, DONE+2*, DONE+5!
AMHX GETCOMM+1~, GETCOMM+3*, GETCOMM+4, GETCOMM+5*, GETCOMM+6, GETCOMM+8*, GETCOMM+9, GETLOC+1~, GETLOC+2*, GETLOC+4
, GETLOC+5*, GETLOC+6, GETLOC+7, GETLOC+8*, GETLOC+9, ASKINT+1~, ASKINT+2*, ASKINT+3, ASKINT+4*, ASKINT+5
, UNIVSITE+1~, UNIVSITE+2*, UNIVSITE+3, UNIVSITE+4*, UNIVSITE+5, ASKCC+1~, ASKCC+2*, ASKCC+3, ASKCC+4*, ASKCC+5
, GETCLN+1~, GETCLN+2*, GETCLN+3, GETCLN+5*, GETCLN+6, GETCLN+7*, GETCLN+8, GETCLN+9, GETCLN+10*, GETCLN+11
, ASKPCC+1~, ASKPCC+2*, ASKPCC+3, ASKPCC+4*, ASKPCC+5, MHNARR+1~, MHNARR+2*, MHNARR+3, MHNARR+4*, MHNARR+5
, CDNARR+1~, CDNARR+2*, CDNARR+3, CDNARR+4*, CDNARR+5, OTNARR+1~, OTNARR+2*, OTNARR+3, OTNARR+4*, OTNARR+5
, SSNARR+1~, SSNARR+2*, SSNARR+3, SSNARR+4*, SSNARR+5
>> APCDOVRR START+3*
D CALLDIE+8!, D~, D+1, D+2
D0 CALLDIE+8!
D1 CALLDIE+8!
DA CALLDIE+1, CALLDIE+4, CALLDIE+8!
DFOUT EOP+4!
DI CALLDIE+8!
DIADD CALLDIE+8!
DIC CALLDIE+8!
DIE CALLDIE+2, CALLDIE+4, CALLDIE+8!
DIFLD CALLDIE+8!
DIG CALLDIE+3!, CALLDIE+8!
DIH CALLDIE+3!, CALLDIE+8!
DIR PAUSE+2!, DONE+3!, EOP+3~
DIR("A" PAUSE+2*, DONE+3*, EOP+5*
DIR(0 PAUSE+2*, DONE+3*, EOP+5*
DIRUT PAUSE+2*, DONE+3*, EOP+4!
DISYS CALLDIE+8!
DIU CALLDIE+3!, CALLDIE+8!
DIV CALLDIE+3!, CALLDIE+8!
DIW CALLDIE+3!, CALLDIE+8!
DIY CALLDIE+3!, CALLDIE+8!
DK CALLDIE+8!
DL CALLDIE+8!
DLAYGO CALLDIE+8!
DLOUT EOP+4!
DO CALLDIE+8!
DR CALLDIE+5, CALLDIE+8!
DTOUT EOP+4!
DUOUT PAUSE+2, DONE+3, EOP+4!
DUZ USR+1
DUZ(2 START+6, START+7, PCCCHECK+2, PCCCHECK+5, PCCCHECK+7, PCCCHECK+8, LOC+1
F GETCOMM~, GETCOMM+2*, GETCOMM+6, GETCOMM+8, GETTOC~, GETTOC+1*, GETTOC+3, GETAWI~, GETAWI+1*, GETAWI+3
, GETLOC~, GETLOC+3*, GETLOC+6, GETLOC+8, GETCLN~, GETCLN+4*, GETCLN+9
IO PAUSE+1, DONE+3
IO("S" EOP+2
IO(0 PAUSE+1, DONE+3
IOF START+1, DONE+4
IOM CTR+1
IOST PAUSE+1, DONE+3, EOP+1
>> IOT EOP+2
P GETCOMM~, GETCOMM+3, GETCOMM+5, GETLOC~, GETLOC+2, GETLOC+5, GETCLN~, GETCLN+3, GETCLN+5, GETCLN+7
S GETCOMM~, GETCOMM+4, GETCOMM+5, GETTOC~, GETTOC+2, GETTOC+3, GETAWI~, GETAWI+2, GETAWI+3, GETLOC~
, GETLOC+4, GETLOC+5, ASKINT~, ASKINT+3, ASKINT+4, GETCLN~, GETCLN+6, GETCLN+7
U START+7, PCCCHECK+2, PCCCHECK+5, PCCCHECK+8, GETCOMM+5, GETTOC+3, GETAWI+3, GETLOC+5, GETLOC+8, ASKINT+4
, UNIVSITE+4, ASKCC+4, GETCLN+7, GETCLN+10, ASKPCC+4, MHNARR+4, CDNARR+4, OTNARR+4, SSNARR+4, USR+1
, LOC+1
X CALLDIE+8!, C~, C+2, CTR~, CTR+1
X2 C~
X3 C~
Y CTR~, CTR+1
Z CALLDIE+8!
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All