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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMHLELV

Package: Mental Health Social Services

Routine: AMHLELV


Information

AMHLELV ; IHS/CMI/LAB - MENTAL HLTH ROUTINE ;

Source Information

Source file <AMHLELV.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Mental Health Social Services 4 EN^AMHDVD  FORMDIR^AMHLEFP  ($$ALLOWP,$$ALLOWVI,$$PPINT,NALLOWP)^AMHUTIL  EP^AMHVDSG  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
GETREC ;
ZIS ;
EN1 ;EP - called from xbdbque
PROV ;
FORMAT ;
GETPAT ; GET PATIENT
PHD ;
EN2(AMHPAT) ;
START ;EP display patients last visit
XIT ;
COMP ;
PHD1 ;

External References

Name Field # of Occurrence
EN^AMHDVD EN2+6, EN1+1
FORMDIR^AMHLEFP FORMAT+9
$$ALLOWP^AMHUTIL GETPAT+5
$$ALLOWVI^AMHUTIL GETREC+7
$$PPINT^AMHUTIL GETREC+9
NALLOWP^AMHUTIL GETPAT+5
EP^AMHVDSG EN1+3
KILL^AUPNPAT XIT+1
^DIC GETPAT+2, PROV+5
^DIR PHD+2, PROV+2, FORMAT+2
^XBDBQUE ZIS+2
$$FMTE^XLFDT PHD1+3, GETPAT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No visits to that provider."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"No visits of file for this patient - "_$P(^DPT(AMHPAT,0),U),!
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"No visits for that patient."
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PHD+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: PHD1+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2)," ",$$FMTE^XLFDT(DT),?20,"BEHAVIORAL HEALTH RECORD DISPLAY",?72,"Page ",AMHPG,!
  • Line Location: PHD1+3
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: GETPAT+6
Function Call: WRITE
  • Prompt: !!,"No visits on file for this patient.",!
  • Line Location: GETREC+2
Routine Call
  • DIC
  • Line Location:
    • GETPAT+2
    • PROV+5
Routine Call
  • DIR
  • Line Location:
    • PHD+2
    • PROV+2
    • FORMAT+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC("AE" EN2+2, GETREC+2, GETREC+5, GETREC+6
^DPT - [#2] EN2+2
^TMP("AMHVDSG" EN1+2!, EN1+6, EN1+8
^VA(200 - [#200] PHD1+3, PROV+5

Label References

Name Line Occurrences
FORMAT START+8, FORMAT+10
GETPAT START+2
GETREC START+5, EN2+4
PHD EN1+5, EN1+7
PHD1 PHD+1
PROV START+4, EN2+3, PROV+6
XIT START+3, START+6, START+7, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETREC+5~*
AMH80D XIT+3!
AMHBD XIT+3!
AMHBDD XIT+4!
AMHBDO XIT+4!
AMHBRK XIT+2!
AMHBT XIT+4!
AMHBTH XIT+3!
AMHC XIT+3!
AMHDLAST XIT+2!
AMHED XIT+3!
AMHEDD XIT+4!
AMHEDO XIT+4!
AMHEFT FORMAT+6!, FORMAT+11*
AMHFOUND XIT+4!
AMHHIT XIT+4!
AMHHRCN XIT+3!
AMHHRN XIT+4!
AMHID XIT+4!
AMHJOB XIT+3!
AMHLENG XIT+3!
AMHLINE XIT+4!
>> AMHLVPR START+6, GETREC+8, GETREC+9, PROV+1*, PROV+7*
AMHODAT XIT+4!
AMHP XIT+4!
AMHPAT START+3, XIT+5!, EN2~, EN2+2, GETPAT+1*, GETPAT+4*, GETPAT+5*, GETREC+2, GETREC+5, GETREC+6
AMHPCNT XIT+3!
AMHPG XIT+3!, EN1+4*, PHD+1, PHD1+1*, PHD1+3
AMHPRNM XIT+4!
AMHPRNT XIT+4!
AMHPROB XIT+4!
AMHPROV XIT+3!
AMHPRV XIT+4!
AMHQUIT START+1!, XIT+4!, PHD+2*
AMHR START+6, START+7, XIT+4!, EN2+1~, EN2+5, EN1+3, GETREC+1*, GETREC+5, GETREC+8*, GETREC+9*
, FORMAT+9
AMHR0 XIT+4!
AMHRCNT XIT+4!
AMHRLOC XIT+4!
AMHSD XIT+4!
AMHTICL XIT+4!
AMHTNRQ XIT+4!
AMHTOT XIT+4!
AMHTQ XIT+4!
AMHTTXT XIT+4!
AMHTYPE START+9, ZIS+1, XIT+2!, FORMAT+1*, FORMAT+4*, FORMAT+5
AMHVDFN XIT+2!
AMHVDG XIT+2!
AMHVDSH XIT+2!
AMHVFLE XIT+2!
AMHVI XIT+2!
AMHVIGR XIT+2!
AMHVL XIT+2!
AMHVNM XIT+2!
AMHX XIT+2!, XIT+3!, EN1+6*, EN1+8, EN1+10!
>> AUPNDOD GETPAT+6
D XIT+3!, GETREC+5~*, GETREC+6
DA PROV+2!
DFN XIT+3!
DIC XIT+3!, GETPAT+2*!, PROV+5*
DIC("A" GETPAT+2*
DIC("B" PROV+5*
DIC(0 GETPAT+2*, PROV+5*
DIR XIT+3!, PHD+2!, PROV+2!, FORMAT+2!
DIR("A" PROV+2*, FORMAT+2*
DIR("B" PROV+2*, FORMAT+2*
DIR(0 PHD+2*, PROV+2*, FORMAT+2*
DIRUT XIT+3!, PROV+3, FORMAT+2*, FORMAT+3, FORMAT+10
DT PHD1+3
DTOUT XIT+3!, PHD+2
DUOUT XIT+3!, FORMAT+2
DUZ PHD1+3, GETPAT+5, GETREC+7, PROV+5
IO EN1+1, PHD+2
IO("Q" XIT+3!
IO(0 EN1+1, PHD+2
IOF PHD1+1
IOSL EN1+7
IOST EN1+1, PHD+2
P GETREC+5~
U EN2+2, PHD1+3, PROV+5
>> V GETREC+6*, GETREC+7, GETREC+8, GETREC+9
XBNS ZIS+1*, XIT+3!
XBRC ZIS+1*, XIT+3!
XBRP ZIS+1*, XIT+3!
>> XBRX ZIS+1*
XBTX XIT+3!
Y XIT+3!, PHD+2, GETPAT+3, GETPAT+4, PROV+4, PROV+6, PROV+7, FORMAT+4, FORMAT+11
ZTSK XIT+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All