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

Package: Mental Health Social Services

Routine: AMHRP5


Information

AMHRP5 ; IHS/CMI/LAB - ACTIVE CLIENT LIST ;

Source Information

Source file <AMHRP5.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
Mental Health Social Services 2 ^AMHEKL  DONE^AMHLEIN  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PROC1 ;
ZIS ;
ED ;get ending date
GETDATES ;
XIT
PRINT ;EP
DONE
PROC ;EP - entry point for processing

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4, PRINT+1
C^%DTC ED+4
HOME^%ZIS AMHRP5+3
^AMHEKL DONE
DONE^AMHLEIN DONE
^DIR BD+2, ED+1
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: AMHRP5+4
Function Call: WRITE
  • Prompt: "********** TALLY CASE OPEN/ADMIT/CLOSED DATES **********",!!
  • Line Location: AMHRP5+5
Function Call: WRITE
  • Prompt: "This report will count the total number of cases that were opened,",!,"admitted or closed during a date range you specify.",!
  • Line Location: AMHRP5+6
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the case should have been",!,"opened, admitted or closed",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page 1 ",!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?20,"Date Range: ",AMHBDD," to ",AMHEDD,!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?22,"TALLY OF CASES OPENED/ADMITTED/CLOSED",!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: AMH80D,!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?22,"CASES OPENED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"OPEN")):^("OPEN"),1:0)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?22,"CASES ADMITTED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"ADMIT")):^("ADMIT"),1:0)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?22,"CASES CLOSED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"CLOSED")):^("CLOSED"),1:0)
  • Line Location: PRINT+13
Routine Call
  • %ZIS
  • Line Location:
    • AMHRP5+3
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATR - [#9002011.55] PROC+2, PROC1+1
^DIC(4 - [#4] PRINT+6
^TMP("AMHRP5" PROC1+2, PROC1+3, PROC1+4, PRINT+10, PRINT+11, PRINT+12, PRINT+13, DONE+1!
^VA(200 - [#200] PRINT+5

Label References

Name Line Occurrences
BD ED+2
DONE PRINT+10
PROC1 PROC+2
XIT BD+3

Naked Globals

Name Field # of Occurrence
^("ADMIT" PROC1+3*, PRINT+12
^("CLOSED" PROC1+4*, PRINT+13
^("OPEN" PROC1+2*, PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMH80D XIT!, PRINT+2*, PRINT+9
AMHBD BD+4*, ED+1, ED+4, XIT!, PROC1+2, PROC1+3, PROC1+4, PRINT+1
AMHBDD ED+4*, XIT+1!, PRINT+1*, PRINT+7
AMHBDO XIT+1!
AMHBT XIT+1!, PROC+1*
AMHBTH XIT!, PROC+1*, PROC1+2, PROC1+3, PROC1+4, PRINT+10, PRINT+11, PRINT+12, PRINT+13, DONE+1!
AMHED ED+3*, ED+4, XIT!, PROC1+2, PROC1+3, PROC1+4, PRINT+1
AMHEDD ED+4*, XIT+1!, PRINT+1*, PRINT+7
AMHEDO XIT+1!
>> AMHET PROC+3*
AMHFOUND XIT+1!
AMHHIT XIT+1!
AMHHRCN XIT!
AMHID XIT+1!
AMHJOB XIT!, PROC+1*, PROC1+2, PROC1+3, PROC1+4, PRINT+10, PRINT+11, PRINT+12, PRINT+13, DONE+1!
AMHLENG XIT!
AMHLINE XIT+1!
AMHP XIT+1!
AMHPCNT XIT!
AMHPG XIT!
AMHPRNM XIT+1!
AMHPRNT XIT+1!
AMHPROB XIT+1!
AMHPROV XIT!
AMHPRV XIT+1!
AMHR XIT+1!
AMHRCNT XIT+1!
AMHRLOC XIT+1!
AMHSD ED+4*, XIT+1!
AMHTOT XIT+1!, PROC+1*
AMHX XIT!
D XIT!
DFN XIT!, PROC+1*, PROC+2*, PROC+4!, PROC1+1
DIC XIT!
DIR BD+2!, ED+1!, XIT!
DIR("A" BD+2*, ED+1*
DIR(0 BD+2*, ED+1*
DIRUT BD+2*, BD+3, ED+1*, ED+2, XIT!
DTOUT XIT!
DUOUT BD+2, ED+1, XIT!
DUZ PRINT+5
DUZ(2 PRINT+6
IO("Q" XIT!
IOF AMHRP5+3, AMHRP5+4, PRINT+3
U PROC1+2, PROC1+3, PROC1+4, PRINT+5, PRINT+6
>> X ED+4, PROC1+1*, PROC1+2, PROC1+3, PROC1+4
>> X1 ED+4*
>> X2 ED+4*
XBNS ZIS+1*, XIT!
XBRC ZIS+1*, XIT!
XBRP ZIS+1*, XIT!
>> XBRX ZIS+1*
XBTX XIT!
Y BD+4, ED+1*, ED+3, ED+4*, XIT!, PRINT+1*
ZTSK XIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All