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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMHRP3

Package: Mental Health Social Services

Routine: AMHRP3


Information

AMHRP3 ; IHS/CMI/LAB - All visit report driver ;

Source Information

Source file <AMHRP3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Mental Health Social Services 2 DBHUSR^AMHUTIL  DEMOCHK^AMHUTIL1  
IHS VA Utilities 1 ^XBDBQUE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 1 AMHBHRP7  
Patient Chart 1 BPCBHRP7  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PS ;
ZIS ;CALL TO XBDBQUE
PRV ;
INFORM ;
BROWSE ;
ED ;get ending date
ERR
START ;
GETDATES ;
XIT ;EP
DEMO ;
PROG ;select program to run report for

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
DBHUSR^AMHUTIL INFORM+4
DEMOCHK^AMHUTIL1 DEMO+1
^DIC PRV+5
^DIR BD+1, ED+1, PROG+2, PRV+1, PS+2, ZIS+1
^XBDBQUE ZIS+5, BROWSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"****** ACTIVITY BY PRIMARY PUPOSE REPORT ******",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will tally PRIMARY problems by service unit, facility, and by ",!,"provider and activity.",!
  • Line Location: INFORM+3
Routine Call
  • DIC
  • Line Location:
    • PRV+5
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • PROG+2
    • PRV+1
    • PS+2
    • ZIS+1

Label References

Name Line Occurrences
BD ED+2, PROG+3
BROWSE ZIS+3
INFORM START+3
PROG PRV+2
PRV PRV+5, PS+3
PS DEMO+2
XIT BD+2, ZIS+2, ZIS+3, ZIS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHACT XIT+1!
AMHACTOT XIT+2!
AMHAREA XIT+1!
AMHAT XIT+1!
AMHATOT XIT+1!, XIT+2!
AMHBD BD+3*, ED+1, ED+4, XIT+1!
AMHBDD XIT+1!
AMHBT XIT+1!
AMHBTH START+2*, XIT+1!
>> AMHDEMO DEMO+1, DEMO+2
AMHDISC XIT+1!
AMHDT XIT+1!
AMHED ED+3*, XIT+1!
AMHEDD XIT+1!
AMHET XIT+1!
AMHFTOT XIT+1!
AMHJOB START+2*, XIT+1!
AMHLENG XIT+1!
AMHLOC XIT+1!
AMHLTOT XIT+1!
AMHODAT XIT+1!
AMHPAT XIT+1!
AMHPG XIT+1!
AMHPNAME XIT+1!
AMHPROG PROG+1*, PROG+4*, XIT+1!
AMHPROV XIT+1!
AMHPRV PRV+4*, PRV+5*, XIT+2!
AMHPSP PS+1*, PS+4*, XIT+2!
AMHPTOT XIT+1!
AMHQUIT XIT+1!
AMHR XIT+1!
AMHR0 XIT+1!
AMHRCNT XIT+1!
AMHREC XIT+1!
>> AMHS PRV+3*, PRV+5
AMHSD ED+4*, XIT+1!
AMHSITE START+1!, XIT+1!
AMHSTOT XIT+1!
AMHSU XIT+2!
AMHX XIT+2!
DA PS+2!, ZIS+1!
>> DIC PRV+5*
>> DIC("A" PRV+5*
>> DIC(0 PRV+5*
DIR BD+1!, ED+1!, PROG+2!, PRV+1!, PS+2!, ZIS+1!, XIT+3!
DIR("A" BD+1*, ED+1*, PROG+2*, PRV+1*, PS+2*, ZIS+1*
DIR("B" PROG+2*, PRV+1*, PS+2*, ZIS+1*
DIR(0 BD+1*, ED+1*, PROG+2*, PRV+1*, PS+2*, ZIS+1*
DIRUT BD+1*, BD+2, ED+1*, ED+2, PROG+2*, PROG+3, PRV+1*, PRV+2, PS+3, ZIS+2
, XIT+3!
DTOUT XIT+3!
DUOUT BD+1, ED+1, PROG+2, PRV+1, XIT+3!
DUZ(2 START+1
IOF INFORM+1
X ED+4, XIT+3!
X1 ED+4*, XIT+3!
X2 ED+4*, XIT+3!
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y BD+3, ED+1*, ED+3, PROG+4, PRV+3, PRV+5, PS+4, ZIS+3, XIT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All