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

Package: Mental Health Social Services

Routine: AMHRP7


Information

AMHRP7 ; IHS/CMI/LAB - VISIT COUNTS BY PROVIDER 03 Jun 2009 11:56 AM ;

Source Information

Source file <AMHRP7.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Mental Health Social Services 5 $$LVD^AMHDPEE  ^AMHEKL  DONE^AMHLEIN  ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

Name Comments DBIA/ICR reference
PIH
HEAD
END
ZIS
HEAD1 ;
START ;
BROWSE ;
DEMO ;
DFN ;
M ;
PRINT ;
PRV ;
DONE
PROG ;select program to run report for
FT ;
PROC ;
PROCP ;

External References

Name Field # of Occurrence
$$LVD^AMHDPEE PROCP+10
^AMHEKL DONE
DONE^AMHLEIN DONE
$$ALLOWP^AMHUTIL M+4
DBHUSRP^AMHUTIL AMHRP7+5
XTMP^AMHUTIL M+2
$$DEMO^AMHUTIL1 M+5
DEMOCHK^AMHUTIL1 DEMO+1
^DIC PRV+9
^DIR PROG+2, PRV+1, ZIS+1, FT+2, HEAD+1
^XBDBQUE ZIS+5, BROWSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: AMHRP7+4
Function Call: WRITE
  • Prompt: !!?20,"DESIGNATED PROVIDER LIST",!!
  • Line Location: AMHRP7+4
Function Call: WRITE
  • Prompt: !!,"You will only see a list of patients for which you are the designated",!,"provider, regardless of how you answer the questions below.",!!
  • Line Location: AMHRP7+6
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"PROVIDER: ",$P(^VA(200,AMHPN,0),U),!
  • Line Location: DFN+3
Function Call: WRITE
  • Prompt: !!,"PROVIDER: ",AMHPN
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: !?57,"SUB-TOTAL: ",AMHPCNT
  • Line Location: DFN+9
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U)
  • Line Location: PROCP+3
Function Call: WRITE
  • Prompt: ?26,AMHHRCN
  • Line Location: PROCP+5
Function Call: WRITE
  • Prompt: ?37,$P(^DPT(DFN,0),U,2)
  • Line Location: PROCP+6
Function Call: WRITE
  • Prompt: ?41,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PROCP+7
Function Call: WRITE
  • Prompt: ?52,$E($P($G(^AUPNPAT(DFN,11)),U,18),1,11)
  • Line Location: PROCP+8
Function Call: WRITE
  • Prompt: ?65,$E(D,4,5),"/",$E(D,6,7),"/",$E(D,2,3)
  • Line Location: PROCP+9
Function Call: WRITE
  • Prompt: ?65,D
  • Line Location: PROCP+10
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: ?((80-AMHLENG)/2),"DESIGNATED ",AMHPROGN," PROVIDER LIST"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?25,"CHART #",?37,"SEX",?43,"DOB",?52,"COMMUNITY",?64,"LAST VISIT",!,AMH80D
  • Line Location: PIH+0
Routine Call
  • DIC
  • Line Location:
    • PRV+9
Routine Call
  • DIR
  • Line Location:
    • PROG+2
    • PRV+1
    • ZIS+1
    • FT+2
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATR - [#9002011.55] M+3, M+6, M+7
^AMHSITE - [#9002013] AMHRP7+6, PRV+4
^AUPNPAT - [#9000001] PROCP+4, PROCP+8
^DIC(4 - [#4] HEAD1+4
^DPT - [#2] PROC+2, PROCP+3, PROCP+6, PROCP+7
^VA(200 - [#200] DFN+3, HEAD1+3, HEAD1+6, HEAD1+7
^XTMP("AMHRP7" PROC+2*, START+4, START+6, DONE+1!, DFN+5, DFN+6

Label References

Name Line Occurrences
BROWSE ZIS+3
DEMO PRV+4
DFN START+6
DONE START+4, START+7
END PROG+3, ZIS+2, ZIS+3
FT PRV+8
HEAD START+3, DFN+1, DFN+8, PROCP+2
HEAD1 HEAD
PROC M+6, M+7
PROCP DFN+6
PROG PRV+2, PRV+10
PRV DEMO+2

Naked Globals

Name Field # of Occurrence
^(0 PROCP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMH80D END!, START+2*, PIH
AMHBD END!
AMHBTH END!, M+1*, PROC+2, START+4, START+6, DONE+1, DFN+5, DFN+6
AMHCL END!
>> AMHDEMO DEMO+1, DEMO+2, M+5
AMHED END!
AMHHRCN END!, PROCP+4*, PROCP+5
AMHJOB END!, M+1*, PROC+2, START+4, START+6, DONE+1, DFN+5, DFN+6
AMHLENG END!, HEAD1+5*, HEAD1+6*, HEAD1+7
>> AMHNAME DFN+5*, DFN+6
AMHPCNT END!, DFN+2*, DFN+9, PROCP+1*
AMHPG END!, START+3*, HEAD, HEAD1+1*, HEAD1+3
AMHPN END!, START+5*, START+6*, DFN+3, DFN+4, DFN+5, DFN+6
AMHPROG PROG+1*, PROG+4*, PRV+8, END!, M+6, M+7, DFN+3, DFN+4
AMHPROGN PROG+4*, END!, HEAD1+5
AMHPRV PRV+4*, PRV+5*, PRV+9*, PRV+10, END!, FT+1*, FT+4*, PROC+1, HEAD1+6, HEAD1+7
AMHQ START+5!, START+6, START+7, DFN+1, DFN+5, DFN+6, DFN+7, DFN+8, PROCP+2, HEAD+1*
AMHS PRV+3*, PRV+7, PRV+10, END!
AMHX END!, M+6*, M+7*, PROC+1, PROC+2, START+1!
D END!, PROCP+10*
DA ZIS+1!, FT+2!
DFN END!, M+3*, M+4, M+5, M+6, M+7, PROC+2, DFN+6*, PROCP+3, PROCP+4
, PROCP+6, PROCP+7, PROCP+8, PROCP+10
DIC PRV+9*, END!
DIC(0 PRV+9*
DIR PROG+2!, PRV+1!, ZIS+1!, END!, FT+2!, HEAD+1!
DIR("A" PROG+2*, PRV+1*, ZIS+1*, FT+2*
DIR("B" PROG+2*, PRV+1*, ZIS+1*
DIR(0 PROG+2*, PRV+1*, ZIS+1*, FT+2*, HEAD+1*
DIRUT PROG+2*, PROG+3, PRV+1*, PRV+2, ZIS+2, END!, FT+3
DTOUT END!, HEAD+1
DUOUT PROG+2, PRV+1, END!
DUZ AMHRP7+6, PRV+4, PRV+5, M+4, HEAD1+3
DUZ(2 AMHRP7+6, PRV+4, PROCP+4, HEAD1+4
IO HEAD+1
IO("Q" END!
IO(0 HEAD+1
IOF AMHRP7+4, HEAD1+1
IOSL DFN+1, DFN+8, PROCP+2
IOST HEAD+1
U M+6, M+7, PROC+2, DFN+3, PROCP+3, PROCP+4, PROCP+6, PROCP+7, PROCP+8, HEAD1+3
, HEAD1+4, HEAD1+6, HEAD1+7
>> XBIOP BROWSE+2*
XBNS ZIS+4*, END!, BROWSE+2*
XBRC ZIS+4*, END!, BROWSE+2*
XBRP ZIS+4*, END!, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
XBTX END!
Y PROG+4, PRV+3, PRV+9, ZIS+3, END!, FT+4, PROCP+7*, HEAD+1
Y(0 PROG+4
ZTSK END!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All