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

Package: Mental Health Social Services

Routine: AMHRPPD


Information

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

Source Information

Source file <AMHRPPD.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
Mental Health Social Services 3 $$D^AMHLEIN  ($$ALLOWP,$$ALLOWVI,$$PPNAME,DBHUSR,DBHUSRP,XTMP)^AMHUTIL  ($$DEMO,$$PRIMPOV,DEMOCHK)^AMHUTIL1  
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
IHS Patient 1 ($$HRN,KILL)^AUPNPAT  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
SORT ;
HEAD
SET ;
PROC1 ;
ZIS ;
HEAD1 ;
PS ;
BROWSE ;
ED ;get ending date
PRINT1 ;
GETDATES ;
XIT ;
D(D) ;
DEMO ;
PRINT ;
DONE ;
PROC ;EP - entry point for processing
PIH
SUB ;

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4, PRINT+1
C^%DTC ED+4, PROC+4
HOME^%ZIS AMHRPPD+3
$$D^AMHLEIN PRINT1+2
$$ALLOWP^AMHUTIL SET+9
$$ALLOWVI^AMHUTIL SET+2
$$PPNAME^AMHUTIL PRINT1+3
DBHUSR^AMHUTIL AMHRPPD+7
DBHUSRP^AMHUTIL AMHRPPD+7
XTMP^AMHUTIL PROC+3
$$DEMO^AMHUTIL1 SET+3
$$PRIMPOV^AMHUTIL1 PRINT1+2
DEMOCHK^AMHUTIL1 DEMO+1
$$HRN^AUPNPAT PRINT1+2
KILL^AUPNPAT XIT+3
^DIR BD+2, ED+1, SORT+2, ZIS+1, HEAD+1
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 SET+4, SET+6, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7
EN^XBVK XIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: AMHRPPD+4
Function Call: WRITE
  • Prompt: "********** PLACEMENTS IN PAST YEAR BY SITE/PATIENT **********",!!
  • Line Location: AMHRPPD+5
Function Call: WRITE
  • Prompt: "This report will produce a list of patients who have had a placement disposition",!,"recorded in a date range specified by the user.",!
  • Line Location: AMHRPPD+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: !!,"Subtotal by Placement Type:"
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !!,"Subtotal by Facility Referred to:"
  • Line Location: SUB+9
Function Call: WRITE
  • Prompt: !!,"Total Number of Placements: ",AMHTOT
  • Line Location: SUB+14
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,18),?20,$$HRN^AUPNPAT(DFN,DUZ(2)),?28,$$D^AMHLEIN($P(^AMHREC(AMHR,0),U)),?37,$$PRIMPOV^AMHUTIL1(AMHR,"C"),?44,$E($$VAL^XBDIQ1(9002011,AMHR,.17),1,14),?60,$E($$VAL^XBDIQ1(9002011,AMHR,.18),1,19)
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !?3,"Placement Made by: ",$$PPNAME^AMHUTIL(AMHR)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !?3,"Designated MH Prov: ",$$VAL^XBDIQ1(9002011.55,DFN,.02)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !?3,"Designated SS Prov: ",$$VAL^XBDIQ1(9002011.55,DFN,.03)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !?3,"Designated A/SA/CD Prov: ",$$VAL^XBDIQ1(9002011.55,DFN,.04)
  • Line Location: PRINT1+7
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",?20,"HRN",?27,"DATE",?38,"POV",?44,"PLACEMENT",?59,"FACILITY REFERRED TO",!,?27,"PLACED",!,AMH80D
  • Line Location: PIH+0
Routine Call
  • %ZIS
  • Line Location:
    • AMHRPPD+3
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • SORT+2
    • ZIS+1
    • HEAD+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
BD ED+2, SORT+3
BROWSE ZIS+3
DONE PRINT+4, SUB+1, SUB+2, SUB+7, SUB+8, SUB+13
HEAD PRINT+3, SUB+2, SUB+5, SUB+8, SUB+11, SUB+13, PRINT1+1
HEAD1 HEAD
PRINT1 PRINT+10, PS+4
PROC1 PROC+5
PS PRINT+6
SET PROC1+1
SORT DEMO+2
SUB PRINT+6
XIT BD+3, ZIS+2, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A XIT+1!
>> 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+10, SET+11, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, DONE+1!, PS+1
, PS+2, PS+3, PS+4
>> AMHDEMO DEMO+1, DEMO+2, SET+3
>> AMHED ED+3*, ED+4, PROC+5, PRINT+1
>> AMHEDD ED+4*, PRINT+1*, HEAD1+6
>> AMHET PROC+6*
>> AMHF PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PS+3*, PS+4
AMHJOB PROC+1*, SET+10, SET+11, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, DONE+1!, PS+1
, PS+2, PS+3, PS+4
>> AMHODAT PROC+5*, PROC1+1
>> AMHPG PRINT+3*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPT PRINT+8*, PRINT+9, PRINT+10, PS+1*, PS+2, PS+3, PS+4
AMHQ PRINT+5!, PRINT+7, PRINT+8, PRINT+9, PRINT+10, SUB+1, SUB+2, SUB+4, SUB+5, SUB+7
, SUB+8, SUB+10, SUB+11, SUB+13, PRINT1+1, PS+1, PS+2, PS+3, PS+4, HEAD+1*
>> AMHR PROC1+1*, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+10, SET+11
, PRINT+5*, PRINT+10*, PRINT1+2, PRINT1+3, PS+4*
>> AMHRCNT PROC1+1*
>> AMHSD ED+4*, PROC+4*, PROC+5
>> AMHSORT SORT+1*, SORT+4*, SET+10, SET+11, PRINT+6
>> AMHTOT PROC+1*, SET+10*, SET+11*, SUB+14
AMHTOTF PROC+2!
AMHTOTF( SET+13*, SUB+10, SUB+12
AMHTOTP PROC+2!
AMHTOTP( SET+12*, SUB+4, SUB+6
>> AMHX SUB+4*, SUB+6, SUB+10*, SUB+12
B XIT+1!
C XIT+1!
D XIT+1!, D~, D+1
DA SORT+2!, ZIS+1!
>> DFN PROC+1*, SET+7*, SET+8, SET+9, SET+10, SET+11, PRINT+9*, PRINT+10, PRINT1+2, PRINT1+4
, PRINT1+5, PRINT1+6, PRINT1+7, PS+2*, PS+3, PS+4
DIR BD+2!, ED+1!, SORT+2!, ZIS+1!, HEAD+1!
DIR("A" BD+2*, ED+1*, SORT+2*, ZIS+1*
DIR("B" SORT+2*, ZIS+1*
DIR(0 BD+2*, ED+1*, SORT+2*, ZIS+1*, HEAD+1*
>> DIRUT BD+2*, BD+3, ED+1*, ED+2, SORT+3, ZIS+2
>> DTOUT HEAD+1
>> DUOUT BD+2, ED+1
DUZ SET+2, SET+9, HEAD1+3
DUZ(2 PRINT1+2, HEAD1+4
E XIT+1!
F XIT+1!
G XIT+1!
H XIT+1!
I XIT+1!
IO HEAD+1
IO(0 HEAD+1
IOF AMHRPPD+3, AMHRPPD+4, HEAD1+1
IOSL SUB+2, SUB+5, SUB+8, SUB+11, SUB+13, PRINT1+1
IOST HEAD+1
J XIT+1!
K XIT+1!
L XIT+1!
M XIT+1!
N XIT+1!
O XIT+1!
P XIT+1!, SET+6*, SET+10, SET+11
Q XIT+1!
R XIT+1!
S XIT+1!, SET+4*, SET+12
>> S1 SET+5*, SET+10, SET+11, SET+13
T XIT+1!
U PROC1+1, SET+1, SET+3, SET+4, SET+5, SET+7, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7
, HEAD1+3, HEAD1+4
V XIT+1!
W XIT+1!
X ED+4, XIT+1!, PROC+4
>> 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*, SORT+4, ZIS+3, XIT+1!, PRINT+1*, HEAD+1
Z XIT+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All