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

Package: Mental Health Social Services

Routine: AMHPST


Information

AMHPST ; IHS/CMI/LAB - STAGING TOOL DISPLAY ;

Source Information

Source file <AMHPST.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 2 ^XBDBQUE  $$VAL^XBDIQ1  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
Mental Health Social Services 2 PAUSE^AMHLEA  ($$ALLOWP,$$ALLOWVI,$$PPNAME,$$SSN,DBHUSR,NALLOWP)^AMHUTIL  
VA Fileman 2 ^DIC  ^DIR  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHLEE  AMHVRL  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
HDR ; -- header code
EOJ ;
S1 ;
EXPND ; -- expand code
FF ;EP
PRINT ;EP - called from xbdbque
HEADING ;EP
HELP ; -- help code
PRINT1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
ZIS ;
INIT ; -- init variables and list array
PAUSE ;
EP(AMHP) ;EP to list for one patient
D ;
S(Y,F,C,T) ;EP - set up array
START ;
GATHER ;
EXIT ; -- exit code
HEADING1 ;

External References

Name Field # of Occurrence
PAUSE^AMHLEA PAT+5
$$ALLOWP^AMHUTIL PAT+5
$$ALLOWVI^AMHUTIL GATHER+4
$$PPNAME^AMHUTIL PRINT1+7
$$SSN^AMHUTIL FF+4
DBHUSR^AMHUTIL START+6, EP+4
NALLOWP^AMHUTIL PAT+5
^DIC PAT+2
^DIR D+3, D+5, ZIS+2, HEADING+2, PAUSE+3, FF+1
FULL^VALM1 EP+2
^XBDBQUE ZIS+6, BROWSE+2
$$VAL^XBDIQ1 PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+14
$$FMTE^XLFDT PAT+6, PRINT1+6, HEADING1+2, HEADING1+4, FF+4
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CTR("Staging Report",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: !
  • 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: ZIS+5
Function Call: WRITE
  • Prompt: $$CTR("Staging Report",80)
  • Line Location: EP+5
Function Call: WRITE
  • Prompt: !,"No Staging Data has been entered for this patient."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"No Staging Data in that time period."
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: ?T,$P(AMHR0,U,X)
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: !,$$LOC,?35,$$FMTE^XLFDT(DT),?70,"Page ",AMHPG,!
  • Line Location: HEADING1+2
Function Call: WRITE
  • Prompt: !,$$CTR(X,80),!
  • Line Location: HEADING1+3
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEADING1+4
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-"),!
  • Line Location: HEADING1+5
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
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • D+3
    • D+5
    • ZIS+2
    • HEADING+2
    • PAUSE+3
    • 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)
^AMHRCDST - [#9002011.06] PRINT1+5, GATHER+2
^AMHRCDST("AC" PRINT+5, GATHER+1
^AMHREC - [#9002011] GATHER+3, GATHER+5
^AUPNPAT - [#9000001] FF+3
^DIC(4 - [#4] LOC+1
^DPT - [#2] HEADING1+3, FF+2, FF+4
^TMP("AMHPST" PRINT+3!, PRINT+5!, PRINT+8!, PRINT1+1, PRINT1+2, PRINT1+3, GATHER+8*, S1+2*, INIT+1

Label References

Name Line Occurrences
$$CTR START+5, EP+5, PRINT1+11, HEADING1+3, HEADING1+4
$$LOC HEADING1+2
BROWSE ZIS+1, ZIS+4
D D+7, EP+7
EOJ D+3, ZIS+3, ZIS+4, ZIS+7, EP+6, EP+8
GATHER PRINT+6
HEADING PRINT+4, PRINT1+4
HEADING1 HEADING+1
PAT PAT+5, EP+6
PAUSE PRINT+5, PRINT+8, PRINT1+1
PRINT1 PRINT+7
S1 S+4, S+6, S+9

Naked Globals

Name Field # of Occurrence
^(0 LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+7*, S+8*
AMHB EOJ+1!
AMHBD START+1~, D+1!, D+3*, D+7, EOJ+1!, EP+1~, HEADING1+4, GATHER+6
>> AMHC S1+1*, S1+2
AMHD EOJ+1!, EP+1~, PRINT1+2*, PRINT1+3, PRINT1+6
AMHED START+1~, D+1!, D+5*, D+7, EOJ+1!, EP+1~, HEADING1+4, GATHER+7
AMHP START+1~, PAT+1*, PAT+4*, PAT+5, EOJ+1!, EP~, EP+6, PRINT+5, HEADING1+3, GATHER+1
AMHPG EOJ+1!, PRINT+1*, HEADING+1, HEADING1+1*, HEADING1+2
AMHQUIT D+3*, D+5*, EOJ+1!, PRINT+1*, PRINT1+2, PRINT1+3, PRINT1+4, HEADING+2*, PAUSE+4*, FF+1*
AMHR0 EOJ+1!, EP+1~, PRINT1+5*, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+13, FF+2, FF+3
, FF+4
AMHV START+1~, START+3!, EOJ+1!, EP+1~, PRINT1+5*, PRINT1+7, PRINT1+8, PRINT1+9
AMHX START+1~, EOJ+1!, EP+1~, PRINT1+3*, PRINT1+5, PRINT1+10, PRINT1+14, GATHER+1*, GATHER+2, GATHER+8
AMHY START+1~, EOJ+1!, EP+1~
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 S~, S+6
D START+2~, GATHER+5*, GATHER+6, GATHER+7, GATHER+8
DA PAT+2!, ZIS+2!, PAUSE+3!
DIADD PAT+2!
DIC PAT+2*!, EP+1~
DIC(0 PAT+2*
DIE EP+1~
DIR D+2!, D+4!, ZIS+2!, HEADING+2!, PAUSE+3!, FF+1!
DIR("A" D+2*, D+4*, ZIS+2*, PAUSE+3*
DIR("B" ZIS+2*
DIR(0 D+2*, D+4*, ZIS+2*, HEADING+2*, PAUSE+3*, FF+1*
>> DIRUT ZIS+3, PAUSE+4
DLAYGO PAT+2!
DR PAT+2!
DT HEADING1+2
>> DTOUT HEADING+2, FF+1
DUZ PAT+5, GATHER+4
DUZ(2 LOC+1, FF+3
F S~, S+1*, S+4*
>> H FF+3*, FF+4
IO HEADING+2, FF+1
IO("S" PAUSE+2
IO(0 HEADING+2, FF+1
IOF START+4, EP+3, HEADING1+1, PAUSE+5, FF+5
IOM CTR+1
IOSL PRINT1+4
IOST HEADING+2, PAUSE+1, FF+1, FF+2
>> IOT PAUSE+2
>> L S+6*
R START+2~
T PRINT1+13*, S~, S+2*, S+6*, S+7, S+8
U PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+13, HEADING1+3, GATHER+2, GATHER+5, LOC+1
, FF+2, FF+3, FF+4
>> VALMCNT INIT+1*
X EP+1~, PRINT1+13*, HEADING1+3*, HEADING1+4*, CTR~, CTR+1, S+4*, S+5*, S+7*, S+8*
, S1+2, HELP+1*
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*, BROWSE+2*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
Y PAT+3, PAT+4, D+3, D+5, ZIS+4, EP+1~, HEADING+2, GATHER+2*, GATHER+3, GATHER+4
, GATHER+5, CTR~, CTR+1, FF+1, S~, S+5, S+6, S+8
>> ZTQUEUED PAUSE+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