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

Package: Mental Health Social Services

Routine: AMHRE2


Information

AMHRE2 ; IHS/CMI/LAB - PLACEMENT TO RESIDENTIAL ;

Source Information

Source file <AMHRE2.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  
Mental Health Social Services 2 $$LVD^AMHDPEE  XTMP^AMHUTIL  
IHS Patient 1 ($$HRN,KILL)^AUPNPAT  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PRINT1 ;
HEAD
SET ;
PROC1 ;
ZIS ;
HEAD1 ;
BROWSE ;
ED ;get ending date
GETDATES ;
XIT ;
D(D) ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PRINT ;
DONE ;
PROC ;EP - entry point for processing
PIH

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4, PRINT+1
C^%DTC ED+4, PROC+4
HOME^%ZIS AMHRE2+3
$$LVD^AMHDPEE PRINT1+3
XTMP^AMHUTIL PROC+3
$$HRN^AUPNPAT PRINT1+3
KILL^AUPNPAT XIT+2
^DIR BD+2, ED+1, ZIS+1, HEAD+1
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 SET+3, PRINT1+3
EN^XBVK XIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: AMHRE2+4
Function Call: WRITE
  • Prompt: "********** RESIDENTIAL TREATMENT AFTERCARE REPORT **********",!!
  • Line Location: AMHRE2+5
Function Call: WRITE
  • Prompt: "This report will produce a list of patients who have residential treatment ",!,"placement in a date range you specify.",!
  • Line Location: AMHRE2+6
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the patient had a placement.",!
  • 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: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,DUZ(2)),?29,$E($$VAL^XBDIQ1(9002011.55,DFN,.02),1,15),?45,$E(AMHF,1,15),?62,$$D($P(^AMHREC(AMHR,0),U)),?72,$$D($$LVD^AMHDPEE(DFN,"ID"))
  • 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: $$CTR("RESIDENTIAL 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,"DESG PROV",?45,"REFERRED TO",?62,"DATE PL",?71,"LAST SEEN",!,AMH80D
  • Line Location: PIH+0
Routine Call
  • %ZIS
  • Line Location:
    • AMHRE2+3
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • ZIS+1
    • HEAD+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CTR HEAD1+5
$$D PRINT1+3
BD ED+2
BROWSE ZIS+3
DONE PRINT+4
HEAD PRINT+3, PRINT1+1
HEAD1 HEAD
PRINT1 PRINT+8
PROC1 PROC+5
SET PROC1+1
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, PROC+4, PRINT+1
>> AMHBDD ED+4*, PRINT+1*, HEAD1+6
>> AMHBT PROC+1*
AMHBTH PROC+1*, SET+3, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHED ED+3*, ED+4, PROC+5, PRINT+1
>> AMHEDD ED+4*, PRINT+1*, HEAD1+6
>> AMHET PROC+6*
>> AMHF PRINT+6*, PRINT+7, PRINT+8, PRINT1+3
AMHJOB PROC+1*, SET+3, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHNAME PRINT+7*, PRINT+8
>> AMHODAT PROC+5*, PROC1+1
>> AMHPG PRINT+3*, HEAD, HEAD1+1*, HEAD1+3
AMHQ PRINT+5!, PRINT+6, PRINT+7, PRINT+8, PRINT1+1, HEAD+1*
>> AMHR PROC1+1*, SET+1, SET+2, SET+3, PRINT+5*, PRINT+8*, PRINT1+2, PRINT1+3
>> AMHRCNT PROC1+1*
>> AMHSD ED+4*, PROC+4*, PROC+5
>> AMHTOT PROC+1*, SET+3*
AMHTOTF PROC+2!
AMHTOTP PROC+2!
D D~, D+1, D+2
DA ZIS+1!
>> DFN PROC+1*, PRINT1+2*, PRINT1+3
DIR BD+2!, ED+1!, ZIS+1!, HEAD+1!
DIR("A" BD+2*, ED+1*, ZIS+1*
DIR("B" ZIS+1*
DIR(0 BD+2*, ED+1*, ZIS+1*, HEAD+1*
>> DIRUT BD+2*, BD+3, ED+1*, ED+2, ZIS+2
>> 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 AMHRE2+3, AMHRE2+4, HEAD1+1
IOM CTR+1
IOSL PRINT1+1
IOST HEAD+1
>> S1 SET+2*, SET+3
U PROC1+1, SET+1, SET+2, PRINT1+2, PRINT1+3, HEAD1+3, HEAD1+4
X ED+4, PROC+4, CTR~, CTR+1
>> X1 ED+4*, PROC+4*
>> X2 ED+4*, PROC+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*, ZIS+3, PRINT+1*, CTR~, CTR+1, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All