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

Package: Mental Health Social Services

Routine: AMHBS


Information

AMHBS ; IHS/CMI/LAB - BROWSE VISITS ;

Source Information

Source file <AMHBS.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
Registration 2 EN^VALM  (CLEAR,FULL)^VALM1  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 (,$$HRN)^AUPNPAT  
Mental Health Social Services 1 ($$PPNAME,$$SSN)^AMHUTIL  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
HDR ; -- header code
S1 ;
EP(DFN) ;EP to list for one patient
EXPND ; -- expand code
FF ;EP
PRINT ;EP - called from xbdbque
HELP ; -- help code
PRINT1 ;
SAN ;san only
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INIT ; -- init variables and list array
A ;all visits
END ;
D ;date rante
L ;get patients last visit
S(Y,F,C,T) ;EP - set up array
N ;patients last N visits
P ;on program
WHICH ;
START ;
GATHER ;
EXIT ; -- exit code

External References

Name Field # of Occurrence
$$PPNAME^AMHUTIL GATHER+11
$$SSN^AMHUTIL FF+4
^AUPNPAT PAT+5, EP+8
$$HRN^AUPNPAT GATHER+5
^DIC PAT+2
^DIR WHICH+4, N+2, P+2, D+3, D+5, FF+1
EN^VALM BROWSE+3
CLEAR^VALM1 BROWSE+5
FULL^VALM1 BROWSE+6, EP+2
$$FMTE^XLFDT PAT+6, GATHER+4, GATHER+11, FF+4
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CTR("Browse Behavioral Health Soap Notes",80)
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"No Patient Selected."
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: $$CTR("Browse Behavioral Health SOAP Notes",80)
  • Line Location: EP+7
Function Call: WRITE
  • Prompt: !!,"No visits on file for this patient.",!
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: D+8
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Function Call: WRITE
  • Prompt: !!,$TR($J(" ",79)," ","*"),!,$P(^DPT($P(AMHR0,U,8),0),U),?32,"HRN: "
  • Line Location: FF+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • BROWSE+3
Routine Call
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • WHICH+4
    • N+2
    • P+2
    • D+3
    • D+5
    • FF+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)
^AMHREC - [#9002011] SAN+2, P+5, GATHER+9, GATHER+10, GATHER+12, GATHER+13
^AMHREC("AE" L+2, L+3, SAN+2, N+5, P+5, A+2, D+9
^AUPNPAT - [#9000001] FF+3
^DPT - [#2] WHICH+4, GATHER+4, FF+2, FF+4
^TMP("AMHBS" BROWSE+1!, BROWSE+4!, PRINT+5!, PRINT1+3, PRINT1+5, GATHER+1!, S1+2*, INIT+1

Label References

Name Line Occurrences
$$CTR START+5, EP+7
@( WHICH+8
D D+7
FF PRINT1+4
GATHER BROWSE+2, PRINT+3
PAT EP+5
PRINT1 PRINT+4
S GATHER+4, GATHER+5, GATHER+6, GATHER+11, GATHER+13
S1 S+4, S+6, S+9
WHICH EP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+7*, S+8*
AMHBD START+1~, EP+1~, D+1!, D+3*, D+7, D+9
AMHC GATHER+2~, GATHER+3*, S1+1*, S1+2
AMHD GATHER+2~, GATHER+7*, GATHER+8*
AMHED START+1~, EP+1~, D+1!, D+5*, D+7, D+9
AMHI GATHER+2~
AMHJ GATHER+2~
AMHP END+1!
AMHQUIT WHICH+1*, WHICH+8, END+1!, L+2*, N+3*, P+3*, D+3*, D+5*, PRINT+1*, PRINT1+3
, PRINT1+4, GATHER+12, FF+1*
AMHR0 START+1~, EP+1~, GATHER+10*, GATHER+11, FF+2, FF+3, FF+4
AMHV START+1~, START+3!, EP+1~, EP+4!, GATHER+7*, GATHER+8*, GATHER+9, GATHER+10, GATHER+11, GATHER+12
, GATHER+13
AMHV( L+4*, SAN+2*, N+5*, P+5*, A+2*, D+9*, GATHER+8
AMHW WHICH+2*, WHICH+6*, WHICH+7*, WHICH+8, END+1!
AMHX START+1~, EP+1~, PRINT1+2~, PRINT1+3*, PRINT1+5, GATHER+2~, GATHER+12*, GATHER+13
AMHY START+1~, EP+1~, GATHER+2~
AMHZ GATHER+2~
AUPNDAYS START+1~, EP+1~
AUPNDOB START+1~, EP+1~
AUPNDOD START+1~, PAT+6, EP+1~
AUPNPAT START+1~, EP+1~
AUPNSEX START+1~, EP+1~
C N+5*, S~, S+6
D START+2~, EP+3~, L+3*, L+4, SAN+1*, SAN+2*, N+5*, P+5*, A+1*, A+2*
, D+9*
DA PAT+2!, WHICH+4!, N+2!, P+2!
DFN START+1~, PAT+1*, PAT+4*, PAT+5, WHICH+4, EP~, EP+5, EP+8, L+2, L+3
, SAN+2, N+5, P+5, A+2, D+9, GATHER+4, GATHER+5
DIADD PAT+2!
DIC PAT+2*!
DIC(0 PAT+2*
DIR WHICH+4!, N+2!, P+2!, D+2!, D+4!, FF+1!
DIR("A" WHICH+4*, N+2*, P+2*, D+2*, D+4*
DIR("B" WHICH+4*, N+2*, P+2*
DIR(0 WHICH+3*, N+2*, P+2*, D+2*, D+4*, FF+1*
>> DIRUT WHICH+5, N+3, P+3
DLAYGO PAT+2!
DR PAT+2!
>> DTOUT FF+1
DUZ(2 GATHER+5, FF+3
>> E D+9*
F S~, S+1*, S+4*
>> H FF+3*, FF+4
IO FF+1
IO(0 FF+1
IOF START+4, EP+6, PRINT1+1, FF+5
IOM CTR+1
IOSL PRINT1+4
IOST FF+1, FF+2
>> L S+6*
>> N N+1*, N+4*, N+5, P+1*, P+4*, P+5
R START+2~, EP+3~, L+3*, L+4
T S~, S+2*, S+6*, S+7, S+8
U WHICH+4, SAN+2, P+5, GATHER+4, GATHER+11, FF+2, FF+3, FF+4
>> V SAN+1*, SAN+2*, N+5*, P+5*, A+1*, A+2*, D+9*
>> VALMCNT INIT+1*
X GATHER+4*, GATHER+5*, GATHER+6*, GATHER+11*, GATHER+13*, CTR~, CTR+1, S+4*, S+5*, S+7*
, S+8*, S1+2, HELP+1*
Y PAT+3, PAT+4, PAT+5*, WHICH+6, EP+8*, N+4, P+4, D+3, D+5, CTR~
, CTR+1, FF+1, S~, S+5, S+6, S+8
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