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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHRP1

Package: Mental Health Social Services

Routine: AMHRP1


Information

AMHRP1 ; IHS/CMI/LAB - DETAILED/BRIEF LISTING OF RECORDS, REPORT 1 ;

Source Information

Source file <AMHRP1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Mental Health Social Services 5 ^AMHEKL  DONE^AMHLEIN  HEADER^AMHRP11  COVPAGE^AMHRPTCP  ($$PPCLSC,$$PPINI,$$PPNAME)^AMHUTIL  
VA Fileman 4 DD^%DT  $$GET1^DIQ  EN^DIQ1  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
SEX
HEADER ;
PRINTB ;
DONE ;
PRINTD ;detailed print
PRINT ;EP
BDRL ;type of report

External References

Name Field # of Occurrence
DD^%DT PRINTD+4
^AMHEKL DONE+1
DONE^AMHLEIN DONE+1
HEADER^AMHRP11 HEADER+1
COVPAGE^AMHRPTCP PRINT+3
$$PPCLSC^AMHUTIL PRINTD+5
$$PPINI^AMHUTIL PRINTB+4
$$PPNAME^AMHUTIL PRINTD+5
$$GET1^DIQ PRINTB+13, PRINTB+14, SEX+6, SEX+7
EN^DIQ1 SEX+1
^DIR BDRL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Report Print Selection."
  • Line Location: BDRL+1
Function Call: WRITE
  • Prompt: !,$E($P(AMHR0,U),4,5),"/",$E($P(AMHR0,U),6,7),"/",$E($P(AMHR0,U),2,3),?10,$$PPINI^AMHUTIL(AMHR)
  • Line Location: PRINTB+4
Function Call: WRITE
  • Prompt: ?15,$S($P(^AUTTLOC($P(AMHR0,U,4),0),U,7)]"":$P(^(0),U,7),1:$E($P(^AUTTLOC($P(AMHR0,U,4),0),U),1,4))
  • Line Location: PRINTB+5
Function Call: WRITE
  • Prompt: ?20,$E($P(^DPT($P(AMHR0,U,8),0),U),1,12)
  • Condition for execution: $P(AMHR0,U,8)
  • Line Location: PRINTB+5
Function Call: WRITE
  • Prompt: ?34,$S($P(AMHR0,U,6)]"":$P(^AMHTACT($P(AMHR0,U,6),0),U),1:""),?37,$S($P(AMHR0,U,7)]"":$E($P(^AMHTSET($P(AMHR0,U,7),0),U),1,4),1:""),?42,$P(AMHR0,U,12)
  • Line Location: PRINTB+6
Function Call: WRITE
  • Prompt: ?46,$P(^AUTTLOC($P(AMHR0,U,4),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,$P(AMHR0,U,4),0),U,2)
  • Line Location: PRINTB+8
Function Call: WRITE
  • Prompt: ?46,$P(^AUTTLOC(DUZ(2),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,DUZ(2),0),U,2)
  • Line Location: PRINTB+9
Function Call: WRITE
  • Prompt: ?46,"-----"
  • Line Location: PRINTB+11
Function Call: WRITE
  • Prompt: ?57,"No Problems recorded"
  • Line Location: PRINTB+12
Function Call: WRITE
  • Prompt: ?57,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U)
  • Line Location: PRINTB+13
Function Call: WRITE
  • Prompt: ?66,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,14)
  • Condition for execution: $P(^AMHRPRO(AMHP,0),U,4)
  • Line Location: PRINTB+13
Function Call: WRITE
  • Prompt: !?57,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U)
  • Line Location: PRINTB+14
Function Call: WRITE
  • Prompt: ?66,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,14)
  • Line Location: PRINTB+14
Function Call: WRITE
  • Prompt: !,$E($P(AMHR0,U),4,5),"/",$E($P(AMHR0,U),6,7),"/",$E($P(AMHR0,U),2,3)
  • Line Location: PRINTD+4
Function Call: WRITE
  • Prompt: ?9,"@"
  • Line Location: PRINTD+4
Function Call: WRITE
  • Prompt: ?9,"@"
  • Line Location: PRINTD+4
Function Call: WRITE
  • Prompt: ?16,$E($$PPNAME^AMHUTIL(AMHR),1,17),?34,$$PPCLSC^AMHUTIL(AMHR)
  • Line Location: PRINTD+5
Function Call: WRITE
  • Prompt: ?39,$P(AMHR0,U,2),?42,$S($P(^AUTTLOC($P(AMHR0,U,4),0),U,7)]"":$P(^(0),U,7),1:$E($P(^AUTTLOC($P(AMHR0,U,4),0),U),1,4))
  • Line Location: PRINTD+6
Function Call: WRITE
  • Prompt: ?47,$E($P(^DPT($P(AMHR0,U,8),0),U),1,12)
  • Condition for execution: $P(AMHR0,U,8)
  • Line Location: PRINTD+6
Function Call: WRITE
  • Prompt: ?60,$S($P(AMHR0,U,6)]"":$P(^AMHTACT($P(AMHR0,U,6),0),U),1:""),?64,$P(AMHR0,U,12),?68,$S($P(AMHR0,U,7)]"":$E($P(^AMHTSET($P(AMHR0,U,7),0),U),1,4),1:"")
  • Line Location: PRINTD+7
Function Call: WRITE
  • Prompt: ?74,$P(^AUTTLOC($P(AMHR0,U,4),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,$P(AMHR0,U,4),0),U,2)
  • Line Location: PRINTD+9
Function Call: WRITE
  • Prompt: ?74,$P(^AUTTLOC(DUZ(2),0),U,7),$P(^AUPNPAT($P(AMHR0,U,8),41,DUZ(2),0),U,2)
  • Line Location: PRINTD+10
Function Call: WRITE
  • Prompt: ?90,^UTILITY("DIQ1",$J,9000001,$P(AMHR0,U,8),1102.99,"E")
  • Line Location: SEX+2
Function Call: WRITE
  • Prompt: ?74,"-----"
  • Line Location: SEX+4
Function Call: WRITE
  • Prompt: ?100,"No Problems recorded"
  • Line Location: SEX+5
Function Call: WRITE
  • Prompt: ?93,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U)
  • Line Location: SEX+6
Function Call: WRITE
  • Prompt: ?102,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,30)
  • Condition for execution: $P(^AMHRPRO(AMHP,0),U,4)
  • Line Location: SEX+6
Function Call: WRITE
  • Prompt: !?93,$P(^AMHPROB($P(^AMHRPRO(AMHP,0),U),0),U)
  • Line Location: SEX+7
Function Call: WRITE
  • Prompt: ?102,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,30)
  • Line Location: SEX+7
Routine Call
  • DIR
  • Line Location:
    • BDRL+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMHRPRO - [#9002011.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] PRINTB+13, PRINTB+14, SEX+6, SEX+7
^AMHREC - [#9002011] PRINT1+3, PRINT1+7
^AMHRPRO - [#9002011.01] PRINTB+13, PRINTB+14, SEX+6, SEX+7
^AMHRPRO("AD" PRINTB+12, PRINTB+14, SEX+5, SEX+7
^AMHSORT - [#9002013.3] PRINT1+3
^AMHTACT - [#9002012] PRINTB+6, PRINTD+7
^AMHTSET - [#9002012.1] PRINTB+6, PRINTD+7
^AUPNPAT - [#9000001] PRINTB+8, PRINTB+9, PRINTD+9, PRINTD+10
^AUTTLOC - [#9999999.06] PRINTB+5, PRINTB+8, PRINTB+9, PRINTD+6, PRINTD+9, PRINTD+10
^DPT - [#2] PRINTB+5, PRINTD+6, SEX
^UTILITY("DIQ1" SEX+1!, SEX+2!
^XTMP("AMHRPT" PRINT+4, PRINT+6, DONE+2!, PRINT1+2, PRINT1+7

Label References

Name Line Occurrences
@( PRINT1+7
DONE PRINT+4, PRINT+7, PRINT+8
HEADER PRINT+8, PRINT1+5, PRINT1+8, PRINTB+2, PRINTD+2
PRINT1 PRINT+6
SEX PRINTD+9, PRINTD+10

Naked Globals

Name Field # of Occurrence
^(0 PRINTB+5, PRINTD+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHBT DONE+2, DONE+3!
AMHBTH PRINT+4, PRINT+6, DONE+3!, PRINT1+2, PRINT1+7
>> AMHCRIT PRINT1+2*
>> AMHCW PRINT+1*
AMHET DONE+3!
AMHFRST PRINT+5*, PRINT1+5, PRINT1+6!
AMHJOB PRINT+4, PRINT+6, DONE+2, DONE+3!, PRINT1+2, PRINT1+7
>> AMHP PRINTB+12*, PRINTB+13, PRINTB+14*, SEX+5*, SEX+6, SEX+7*
>> AMHPG PRINT+5*
AMHQUIT BDRL+3*, PRINT+5!, PRINT+6, PRINT+7, PRINT+8, PRINT1+5, PRINT1+7, PRINT1+8, PRINTB+2, PRINTD+2
>> AMHR PRINT1+2*, PRINT1+3, PRINT1+5*, PRINT1+7*, PRINTB+4, PRINTB+12, PRINTB+14, PRINTD+5, SEX+5, SEX+7
>> AMHR0 PRINT1+3*, PRINT1+7*, PRINTB+4, PRINTB+5, PRINTB+6, PRINTB+7, PRINTB+8, PRINTB+9, PRINTD+4, PRINTD+6
, PRINTD+7, PRINTD+8, PRINTD+9, PRINTD+10, SEX, SEX+1, SEX+2
>> AMHRCNT PRINT+5*, PRINTB+3*, PRINTD+3*
>> AMHRSRT PRINT+5*, PRINT+6*, PRINT1+2, PRINT1+7, PRINT1+9
>> AMHRTYPE BDRL+4*, PRINT+1, PRINT1+7
>> AMHSCNT PRINT1+5*, PRINT1+9, PRINTB+1*, PRINTD+1*
>> AMHSORT PRINT1+2, PRINT1+3
>> AMHSORV PRINT1+9
>> AMHSPAG PRINT1+5, PRINT1+9, PRINTB+1, PRINTD+1
>> AMHSRTR PRINT1+2*
>> DA SEX+1*
>> DFN PRINT1+3*
>> DIC SEX+1*
>> DIQ(0 SEX+1*
DIR BDRL+2!
DIR("A" BDRL+2*
DIR("B" BDRL+2*
DIR(0 BDRL+2*
>> DIRUT BDRL+2*, BDRL+3
>> DR SEX+1*
>> DUOUT BDRL+2
DUZ(2 PRINTB+9, PRINTD+10
IOSL PRINT+8, PRINT1+8, PRINTB+2, PRINTD+2
U PRINT1+3, PRINTB+4, PRINTB+5, PRINTB+6, PRINTB+7, PRINTB+8, PRINTB+9, PRINTB+13, PRINTB+14, PRINTD+4
, PRINTD+6, PRINTD+7, PRINTD+8, PRINTD+9, PRINTD+10, SEX, SEX+1, SEX+2, SEX+6, SEX+7
>> Y BDRL+4, PRINTD+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All