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

Package: Mental Health Social Services

Routine: AMHRP8P


Information

AMHRP8P ; IHS/CMI/LAB - print active client list ;

Source Information

Source file <AMHRP8P.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Mental Health Social Services 3 ^AMHEKL  DONE^AMHLEIN  $$ALLOWVI^AMHUTIL  
VA Fileman 2 DD^%DT  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PIH
VSTS ; process visits
HEAD1 ;
HEAD
START ;
DFN ;
DONE
PRINT ;
LINE ;

External References

Name Field # of Occurrence
DD^%DT START+1
^AMHEKL DONE
DONE^AMHLEIN DONE
$$ALLOWVI^AMHUTIL VSTS+5
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Total Number of Patients: ",AMHTOT
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?18,AMHHRCN
  • Line Location: DFN+3
Function Call: WRITE
  • Prompt: ?27,$P(^DPT(DFN,0),U,2)
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: ?31,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: ?41,AMHLINE(X),!
  • Line Location: VSTS+23
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: ?31,"ACTIVE CLIENT LIST"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?15,"ENCOUNTER DATES: ",AMHBDD," TO ",AMHEDD,!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?18,"CHART",?26,"SEX",?31,"DOB",?41,"LOCATION",?53,"PROVIDER",?65,"PROBLEM",?76,"#"
  • Line Location: PIH+0
Function Call: WRITE
  • Prompt: !?18,"NUMBER",?41,"SEEN",?53,"SEEN",?65,"CODES",?73,"VISITS",!,AMH80D
  • Line Location: PIH+1
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] VSTS+12
^AMHREC - [#9002011] VSTS+8
^AMHREC("AE" VSTS+3, VSTS+4
^AMHRPRO - [#9002011.01] VSTS+12
^AMHRPRO("AD" VSTS+12
^AMHRPROV - [#9002011.02] VSTS+10
^AMHRPROV("AD" VSTS+10
^AUPNPAT - [#9000001] DFN+2
^DIC(4 - [#4] VSTS+8, HEAD1+4
^DPT - [#2] DFN+3, DFN+4
^VA(200 - [#200] VSTS+10, HEAD1+3, HEAD1+6, HEAD1+7
^XTMP("AMHRP8" START+4, START+6, START+7, DONE+1!

Label References

Name Line Occurrences
DFN START+7
DONE START+4, START+8
HEAD START+3, DFN+1
HEAD1 HEAD
LINE VSTS+18, VSTS+20, VSTS+22

Naked Globals

Name Field # of Occurrence
^(0 DFN+2, VSTS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMH80D START+2*, PIH+1
>> AMHBD START+1, VSTS+2
>> AMHBDD START+1*, HEAD1+8
>> AMHBDO VSTS+2*, VSTS+3
AMHBTH START+4, START+6, START+7, DONE+1!
>> AMHED START+1, VSTS+2
>> AMHEDD START+1*, HEAD1+8
>> AMHEDO VSTS+2*
>> AMHHRCN DFN+2*, DFN+3
AMHJOB START+4, START+6, START+7, DONE+1!
>> AMHLENG HEAD1+6*, HEAD1+7
AMHLINE VSTS+15!
AMHLINE( VSTS+23, LINE+9*, LINE+10*, LINE+11*
AMHLINE(1 VSTS+16*, VSTS+23*, LINE+3*, LINE+7*, LINE+9, LINE+11
>> AMHNAME START+6*, START+7
>> AMHP VSTS+10*, VSTS+12*
AMHPCNT VSTS+15!
>> AMHPG START+3*, HEAD, HEAD1+1*, HEAD1+3
AMHPRNM VSTS+15!, VSTS+19!, VSTS+21!, LINE+1
AMHPRNM( VSTS+17*, VSTS+19*, VSTS+21*, LINE+4, LINE+8
AMHPRNM(1 LINE+6
AMHPRNT VSTS+15!, LINE+1*, LINE+2*, LINE+3, LINE+6*, LINE+7, LINE+8*, LINE+10
AMHPROB VSTS+1!
AMHPROB( VSTS+12*, VSTS+21
>> AMHPROV HEAD1+6, HEAD1+7
AMHPRV VSTS+1!
AMHPRV( VSTS+10*, VSTS+19
AMHQ START+5!, START+6, START+7, START+8, DFN+1, HEAD+1*
>> AMHR VSTS+2*, VSTS+4*, VSTS+5, VSTS+8, VSTS+10, VSTS+12
>> AMHRCNT VSTS+2*, VSTS+6*, VSTS+23*
AMHRLOC VSTS+1!
AMHRLOC( VSTS+8*, VSTS+17
>> AMHSD VSTS+2*, VSTS+3*, VSTS+4
>> AMHTOT START+9
>> C VSTS+17*, VSTS+19*, VSTS+21*
>> DFN START+5*, START+7*, DFN+2, DFN+3, DFN+4, VSTS+3, VSTS+4
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ VSTS+5, HEAD1+3
DUZ(2 DFN+2, HEAD1+4
>> I LINE+3*, LINE+7*, LINE+10*, LINE+11*
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL DFN+1
IOST HEAD+1
>> J LINE+3*, LINE+7*, LINE+10*, LINE+11*
>> K VSTS+17*, VSTS+19*, VSTS+21*, LINE+3, LINE+7, LINE+9, LINE+10, LINE+11*
>> P VSTS+10*, VSTS+12*
U DFN+2, DFN+3, DFN+4, VSTS+8, VSTS+10, VSTS+12, HEAD1+3, HEAD1+4, HEAD1+6, HEAD1+7
>> X VSTS+17*, VSTS+19*, VSTS+21*, VSTS+23*, LINE+4*, LINE+5, LINE+8, LINE+9, LINE+10, LINE+11*
>> Y START+1*, DFN+4*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All