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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMHRPS

Package: Mental Health Social Services

Routine: AMHRPS


Information

AMHRPS ; IHS/CMI/LAB - SUICIDE REPORT ;

Source Information

Source file <AMHRPS.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Mental Health Social Services 3 PAUSE^AMHLEA  DBHUSR^AMHUTIL  DEMOCHK^AMHUTIL1  
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
BIN ;
SET
AGEGRP ;GET AGE GROUPS
SETBIN ;
INFORM ;inform user what this report is all about
BROWSE ;
ED ;get ending date
AGE ;
LIST ;
START ;
GETDATES ;
GC ;
CLOSE
XIT
RUN ;
DEMO ;
ZIS ;

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4
C^%DTC ED+4
HOME^%ZIS START+1
PAUSE^AMHLEA INFORM+8
DBHUSR^AMHUTIL INFORM+10
DEMOCHK^AMHUTIL1 DEMO+1
^DIR BD+2, ED+1, BIN+2, AGE+2, GC+1, DEMO+4
^XBDBQUE DEMO+8, BROWSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Report type missing!",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the patient should have been seen ",!,"with one of these problems.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGEGRP+1
Function Call: WRITE
  • Prompt: !,"The Age Groups to be used are currently defined as:",!
  • Line Location: BIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: !,"Make sure the age is higher the beginning age of the previous group.",!
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GC+5
Function Call: WRITE
  • Prompt: !,$P(X,"-")," - ",$P(X,"-",2)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,$C(7),"This report should be printed on 132 column paper or on a printer with ",!,"condensed print.",!
  • Line Location: DEMO+3
Function Call: WRITE
  • Prompt: !,AMHTITLE
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !,"This report will present, by age and sex, the number of individual patients",!,"who were seen for the following Purpose of Visits (POV):",!
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !?10,$P(^AMHPROB(AMHY,0),U)," - ",$P(^AMHPROB(AMHY,0),U,2)
  • Line Location: INFORM+9
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • BIN+2
    • AGE+2
    • GC+1
    • DEMO+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] INFORM+9
^AMHPROB("B" INFORM+7

Label References

Name Line Occurrences
AGE RUN+1
BD ED+2, BIN+3
BIN RUN+1, RUN+2, RUN+4
BROWSE DEMO+6
CLOSE RUN+2, GC+5
INFORM START+6
LIST BIN+1, RUN+3
RUN AGE+7
SET AGE+6
SETBIN AGEGRP+2
XIT BD+3, DEMO+2, DEMO+5, DEMO+6
ZIS BIN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LIST+1*, LIST+2
AMH80D XIT!
AMHBD BD+4*, ED+1, ED+4, XIT!
AMHBDD ED+4*, XIT+1!
AMHBDO XIT+1!
AMHBT XIT+1!
AMHBTH XIT!
>> AMHDEMO DEMO+1, DEMO+2
AMHED ED+3*, ED+4, XIT!
AMHEDD ED+4*, XIT+1!
AMHEDO XIT+1!
AMHFOUND XIT+1!
AMHHIT XIT+1!
AMHHRCN XIT!
AMHID XIT+1!
AMHJOB XIT!
AMHLENG XIT!
AMHLINE XIT+1!
AMHP XIT+1!
AMHPCNT XIT!
AMHPG XIT!
AMHPRNM XIT+1!
AMHPRNT XIT+1!
AMHPROB XIT+1!
AMHPROB( INFORM+7
AMHPROV XIT!
AMHPRV XIT+1!
AMHQUIT START+3!, START+5!, BIN+3*, RUN+1!, RUN+2, AGE+3*, GC+2*
AMHR XIT+1!
>> AMHRA RUN+1*, AGE+6, SET*, GC+4
>> AMHRBIN GC+4*, LIST+1, SETBIN+1*
AMHRCNT XIT+1!
AMHRLOC XIT+1!
>> AMHRX RUN+1, AGE+1*, AGE+4*, AGE+6, SET, SET+1, SET+2, GC+3*, GC+4
>> AMHRY RUN+1*, AGE+2, SET+1*, SET+2*, CLOSE, GC+4*
AMHSD ED+4*, XIT+1!
>> AMHTITLE START+5, INFORM+1, INFORM+2
AMHTOT XIT+1!
AMHX XIT!, INFORM+7*
>> AMHY INFORM+7*, INFORM+9
D XIT!
DA DEMO+4!
DFN XIT!
DIC XIT!
DIR BD+2!, ED+1!, BIN+2!, AGE+2!, GC+1!, DEMO+4!, XIT!
DIR("A" BD+2*, ED+1*, BIN+2*, AGE+2*, GC+1*, DEMO+4*
DIR("B" DEMO+4*
DIR(0 BD+2*, ED+1*, BIN+2*, AGE+2*, GC+1*, DEMO+4*
DIRUT BD+2*, BD+3, ED+1*, ED+2, BIN+3, AGE+2*, GC+1*, DEMO+5, XIT!
DTOUT AGE+3, GC+2, XIT!
DUOUT BD+2, ED+1, AGE+2, AGE+3, GC+1, GC+2, XIT!
DUZ(2 START+4
>> I LIST+2*
IO("Q" XIT!
IOF START+1, START+2, INFORM+8
IOSL INFORM+8
U INFORM+9
>> X ED+4, LIST+2*
>> X1 ED+4*
>> X2 ED+4*
>> XBIOP BROWSE+2*
XBNS DEMO+7*, XIT!, BROWSE+2*
XBRC DEMO+7*, XIT!, BROWSE+2*
XBRP DEMO+7*, XIT!, BROWSE+1*
>> XBRX DEMO+7*, BROWSE+2*
XBTX XIT!
Y BD+4, ED+1*, ED+3, ED+4*, BIN+4, AGE+4, AGE+5, GC+3, DEMO+6, XIT!
ZTSK XIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All