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

Package: Mental Health Social Services

Routine: AMHRPSI


Information

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

Source Information

Source file <AMHRPSI.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
Kernel 2 HOME^%ZIS  $$FMDIFF^XLFDT  
IHS Patient 1 ($$HRN,KILL)^AUPNPAT  
Mental Health Social Services 1 XTMP^AMHUTIL  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PRINT1 ;
HEAD
SET ;
PROC1 ;
ZIS ;
HEAD1 ;
BROWSE ;
ED ;get ending date
DAYS ;
GETDATES ;
XIT ;
D(D) ;
PIH
PRINT ;
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 AMHRPSI+3
XTMP^AMHUTIL PROC+3
$$HRN^AUPNPAT PRINT1+3
KILL^AUPNPAT XIT+2
^DIR BD+2, ED+1, DAYS+2, ZIS+1, HEAD+1
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRINT1+3
EN^XBVK XIT+1
$$FMDIFF^XLFDT PROC1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: AMHRPSI+4
Function Call: WRITE
  • Prompt: !,"PATIENTS WITH SUICIDE IDEATION, NOT SEEN IN N DAYS"
  • Line Location: AMHRPSI+5
Function Call: WRITE
  • Prompt: "This report will produce a list of patients who have had a suicide ideation POV",!,"who haven't been seen in N days since their last ",!,"suicide diagnosis.",!
  • Line Location: AMHRPSI+6
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the patient had the Suicide Ideation POV.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"Subtotal by Placement Type:"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!,"Subtotal by Facility Referred to:"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!,"Total Number of Placements: ",AMHTOT
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,DUZ(2)),?29,$$D($P(^AMHREC(AMHR,0),U)),?40,$E($$VAL^XBDIQ1(9002011,AMHR,.18),1,24),?66,$E($$VAL^XBDIQ1(9002011,AMHR,.17),1,14)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",AMHPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?35,"PLACEMENTS",!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?15,"PLACEMENT DATES: ",AMHBDD," TO ",AMHEDD,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DATE PLACE",?40,"FACILITY REFERRED TO",?66,"PLACEMENT",!,AMH80D
  • Line Location: PIH+0
Routine Call
  • %ZIS
  • Line Location:
    • AMHRPSI+3
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • DAYS+2
    • ZIS+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB("B" PROC+4
^AMHREC - [#9002011] PROC1+7, PROC1+8, PRINT1+2, PRINT1+3
^AMHRPRO - [#9002011.01] PROC1+3, PROC1+4, PROC1+5
^AMHRPRO("AC" PROC+5, PROC1+2
^DIC(4 - [#4] HEAD1+4
^DPT - [#2] PRINT1+3
^VA(200 - [#200] HEAD1+3
^XTMP("AMHRPSI" SET+1*, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!

Label References

Name Line Occurrences
$$D PRINT1+3
BD ED+2
BROWSE ZIS+3
DONE PRINT+4, PRINT+9, PRINT+10, PRINT+15, PRINT+16, PRINT+21
GETDATES DAYS+3
HEAD PRINT+3, PRINT+10, PRINT+13, PRINT+16, PRINT+19, PRINT+21, PRINT1+1
HEAD1 HEAD
PRINT1 PRINT+8
PROC1 PROC+5
SET PROC1+14
XIT BD+3, ZIS+2, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMH80D PRINT+2*, PIH
>> AMHBD BD+4*, ED+1, ED+4, PROC1+9, PRINT+1
>> AMHBDD ED+4*, PRINT+1*, HEAD1+6
>> AMHBT PROC+1*
AMHBTH PROC+1*, SET+1, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHDAYS DAYS+1*, DAYS+4*, PROC1+14
>> AMHED ED+3*, ED+4, PROC1+10, PRINT+1
>> AMHEDD ED+4*, PRINT+1*, HEAD1+6
>> AMHET PROC+6*
>> AMHF PRINT+6*, PRINT+7, PRINT+8
AMHG PROC+5!, PROC1+1*, PROC1+11*, PROC1+13, PROC1+14, SET+1
AMHJOB PROC+1*, SET+1, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHP PROC1+2*, PROC1+3, PROC1+4, PROC1+5, PROC1+11, PRINT+7*, PRINT+8
>> AMHPG PRINT+3*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPROB PROC+4*, PROC1+4
AMHQ PRINT+5!, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+16
, PRINT+18, PRINT+19, PRINT+21, PRINT1+1, HEAD+1*
>> AMHR PRINT+5*, PRINT+8*, PRINT1+2, PRINT1+3
>> AMHSD ED+4*
>> AMHTOT PROC+1*, SET+1*, PRINT+22
AMHTOTF PROC+2!
AMHTOTF( PRINT+18, PRINT+20
AMHTOTP PROC+2!
AMHTOTP( PRINT+12, PRINT+14
>> AMHX PRINT+12*, PRINT+14, PRINT+18*, PRINT+20
D PROC1+8*, PROC1+9, PROC1+10, PROC1+11, D~, D+1
DA DAYS+2!, ZIS+1!
>> DFN PROC+1*, PROC+5*, PROC1+2, SET+1, PRINT1+2*, PRINT1+3
DIR BD+2!, ED+1!, DAYS+2!, ZIS+1!, HEAD+1!
DIR("A" BD+2*, ED+1*, DAYS+2*, ZIS+1*
DIR("B" DAYS+2*, ZIS+1*
DIR(0 BD+2*, ED+1*, DAYS+2*, ZIS+1*, HEAD+1*
>> DIRUT BD+2*, BD+3, ED+1*, ED+2, DAYS+3, ZIS+2
DT PROC1+14
>> DTOUT HEAD+1
>> DUOUT BD+2, ED+1
DUZ HEAD1+3
DUZ(2 PRINT1+3, HEAD1+4
IO HEAD+1
IO(0 HEAD+1
IOF AMHRPSI+3, AMHRPSI+4, HEAD1+1
IOSL PRINT+10, PRINT+13, PRINT+16, PRINT+19, PRINT+21, PRINT1+1
IOST HEAD+1
U PROC1+4, PROC1+5, PROC1+8, PROC1+11, PROC1+14, PRINT1+2, PRINT1+3, HEAD1+3, HEAD1+4
>> V PROC1+5*, PROC1+6, PROC1+7, PROC1+8
>> X ED+4
>> X1 ED+4*
>> X2 ED+4*
>> 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+4, ED+1*, ED+3, ED+4*, DAYS+4, ZIS+3, PRINT+1*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All