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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHPACT

Package: Mental Health Social Services

Routine: AMHPACT


Information

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

Source Information

Source file <AMHPACT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEAD
ZIS ;CALL TO XBDBQUE
HEAD1 ;
INFORM ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
START ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
XIT ;EP
PRINT ;EP

External References

Name Field # of Occurrence
^DIR ZIS+1, HEAD+1, EOP+7
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRINT+6
EN^XBVK XIT+1
$$FMTE^XLFDT HEAD1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"****** PRINT/LIST ACTIVITY CODE TABLE ******",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will print either to a printer or the screen, a list of all"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"activity codes. It will list the code, short description, the category,"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"and whether the code passes to PCC.",!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?40,$$FMTE^XLFDT(DT),?68,"Page ",AMHPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$$CTR("********** BEHAVIORAL HEALTH ACTIVITY CODES **********",80),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"CODE",?5,"DESCRIPTION",?57,"CATEGORY",?70,"PCC",?76,"MNE"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-")
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIR
  • Line Location:
    • ZIS+1
    • HEAD+1
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHTACT - [#9002012] PRINT+6
^AMHTACT("AC" PRINT+3, PRINT+4
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] HEAD1+2, USR+1

Label References

Name Line Occurrences
$$CTR HEAD1+3
BROWSE ZIS+3
HEAD PRINT+1, PRINT+5
HEAD1 HEAD
INFORM START+1
XIT ZIS+2, ZIS+3, ZIS+6

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHPG PRINT+1*, HEAD, HEAD1+1*, HEAD1+2
AMHQUIT PRINT+2!, PRINT+3, PRINT+4, PRINT+5, HEAD+1*
>> AMHX PRINT+3*, PRINT+4
>> AMHY PRINT+4*, PRINT+6
DA ZIS+1!
DFOUT EOP+5!
DIR ZIS+1!, HEAD+1!, EOP+4~
DIR("A" ZIS+1*, EOP+7*
DIR("B" ZIS+1*
DIR(0 ZIS+1*, HEAD+1*, EOP+7*
DIRUT ZIS+2, EOP+5!
DLOUT EOP+5!
DT HEAD1+2
DTOUT HEAD+1, EOP+5!
DUOUT EOP+5!
DUZ HEAD1+2, USR+1
DUZ(2 LOC+1
IO HEAD+1, EOP+2
IO("S" EOP+3
IO(0 HEAD+1, EOP+2
IOF INFORM+1, HEAD1+1
IOM CTR+1
IOSL PRINT+5
IOST HEAD+1, EOP+1
>> IOT EOP+3
U PRINT+6, HEAD1+2, USR+1, LOC+1
X CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y ZIS+3, HEAD+1, CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All