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

Package: Mental Health Social Services

Routine: AMHRL0


Information

AMHRL0 ; IHS/CMI/LAB - TUCSON-OHPRD/LAB - SCREEN LOGIC ;

Source Information

Source file <AMHRL0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 DD^%DT  C^%DTC  ^DIC  IX1^DIK  ^DIR  
Mental Health Social Services 1 (SPECIAL,Y)^AMHRL01  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
D ;DATE RANGE
F ;FREE TEXT RANGE
ED ;get ending date
PSELECT ;EP
Q ;EP
R ;EP
SPECIAL ;
Y ;
N ;
SELECT ;EP

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
SPECIAL^AMHRL01 SPECIAL+1
Y^AMHRL01 Y+1
PEP^AMQQGTX0 Q+5
^DIC Q+3
IX1^DIK SELECT+5
^DIR PSELECT+2, R+2, BD+1, ED+1, N+3, F+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !!,$C(7),"** No ",$P(^AMHSORT(AMHCRIT,0),U)," selected, all will be included."
  • Line Location: Q+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"No numeric range entered. All numerics will be included."
  • Line Location: N+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. E.g. 0-5, 0-99, 5-20."
  • Line Location: N+6
Function Call: WRITE
  • Prompt: AMHBOMB
  • Line Location: N+8
Function Call: WRITE
  • Prompt: !!,"No range entered. All ",AMHTEXT," will be included."
  • Line Location: F+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter an free text range in the format AAA:AAA. E.g. 94-01:94-200, CA:CZ, A:Z."
  • Line Location: F+4
Routine Call
  • DIC
  • Line Location:
    • Q+3
Routine Call
  • DIR
  • Line Location:
    • PSELECT+2
    • R+2
    • BD+1
    • ED+1
    • N+3
    • F+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHTRPT - [#9002013.8] Classic Fileman Calls
^AMQQ(5 - [#9009075] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHSORT - [#9002013.3] SELECT+2, SELECT+3, SELECT+5, SELECT+6, PSELECT+2, PSELECT+3, Q+3, Q+6, R+2
^AMHTRPT - [#9002013.8] SELECT+3!, SELECT+5*, PSELECT+4*, PSELECT+5*, PSELECT+7*, Q+8*, Q+9*, R+6*, R+7*, ED+6*
, ED+7*, N+2!, N+7*, N+8*, N+9*, F+1!, F+5*, F+6*
^UTILITY("AMQQ TAX" Q+2!
^XTMP("AMHRL" Q+2!, Q+6, Q+7!, Q+9, Q+11!

Label References

Name Line Occurrences
@( SELECT+5
BD ED+2
F F+4
N N+6
R R+8

Naked Globals

Name Field # of Occurrence
^(0 PSELECT+2, R+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHANS SELECT+1*, PSELECT+1*
>> AMHBOMB N+8
>> AMHC SELECT+1*, SELECT+4, PSELECT+1*
>> AMHCNT SELECT+5*, R+7*, ED+7*, N+8*, F+6*
>> AMHCRIT SELECT+1*, SELECT+2, SELECT+3, SELECT+5, SELECT+6, PSELECT+1*, PSELECT+2, PSELECT+3, PSELECT+5, PSELECT+7
, Q+3, Q+6, Q+8, Q+9, R+2, R+6, R+7, ED+6, ED+7, N+2
, N+7, N+8, N+9, F+1, F+5, F+6
>> AMHGDB BD+3*, ED+1, ED+4, ED+7
>> AMHGDE ED+3*, ED+7
>> AMHGDS ED+4*
>> AMHI SELECT+1*, PSELECT+1*
>> AMHPCNT PSELECT+1*, PSELECT+7
AMHQMAN Q+4*, Q+5, Q+10!
>> AMHRAR SELECT+3*
>> AMHRDTR SELECT+6*
>> AMHRPT SELECT+3, SELECT+5, PSELECT+4, PSELECT+5, PSELECT+7, Q+8, Q+9, R+6, R+7, ED+6
, ED+7, N+2, N+7, N+8, N+9, F+1, F+5, F+6
>> AMHSEL( SELECT+1, PSELECT+1
>> AMHTCW PSELECT+5*, PSELECT+7*, PSELECT+8
>> AMHTEXT SELECT+2*, SELECT+4, BD+1, ED+1, F+3
DA SELECT+5*, Q+3!, R+1!
DD Q+3!
DIC Q+1!, Q+3!*
DIC("S" Q+3*
DIC(0 Q+3*
DICR Q+3!
>> DIK SELECT+5*
DINUM Q+3!
DIR PSELECT+2!, Q+1!, R+1!, R+2!, BD+1!, ED+1!, N+3!, F+2!
DIR("A" PSELECT+2*, R+2*, BD+1*, ED+1*, N+3*, F+2*
DIR("B" PSELECT+2*
DIR(0 PSELECT+2*, R+2*, BD+1*, ED+1*, N+3*, F+2*
DIRUT PSELECT+2*, PSELECT+3, R+1!, R+2*, R+3, BD+1*, BD+2, ED+1*, ED+2, N+3*
, N+4, F+2*
DTOUT R+1!
DUOUT PSELECT+2, R+1!, R+2, BD+1, ED+1, N+3, F+2
U SELECT+2, SELECT+3, SELECT+5, SELECT+6, PSELECT+2, PSELECT+3, PSELECT+5, PSELECT+7, Q+3, Q+6
, R+2, R+7, ED+7, N+9, F+6
V Q+10!
X PSELECT+5*, Q+3!*, Q+9*, Q+10!, ED+4, N+8*, F+6
>> X1 ED+4*
>> X2 ED+4*
Y SELECT+1, PSELECT+1, PSELECT+3*, PSELECT+5, PSELECT+7, Q+3!, Q+4, Q+9*, Q+10!, R+4
, R+5, R+7, BD+3, ED+1*, ED+3, N+1!, N+5, N+6, N+8, N+9
, F+3, F+4
Z Q+10!
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