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

Package: IHS Release Of Information

Routine: BRNRU21


Information

BRNRU21 ; IHS/OIT/LJF - SCREEN LOGIC CODE BY FIELD TYPE

Source Information

Source file <BRNRU21.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
PCC Medical Query 1 ^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
Q1
BD ;get beginning date
C ;EP; Contains
D ;EP; date fields
F ;EP; free text range
ED ;get ending date
J ;EP Just a hit
N ;EP; numeric fields
Q ;EP; Qman fields
S ;EP ;special logic for hard coded lookups
R ;EP; Reader fields
Y ;EP - Yes/No field
TAXV ;for query cloning

External References

Name Field # of Occurrence
DD^%DT ED+2
C^%DTC ED+6
^AMQQGTX0 Q+7
^DIC Q+4
^DIR TAXV+7, R+3, BD+1, ED+3, N+5, F+3, C+5, Y+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !!,$C(7),"** No ",$P(^BRNSORT(BRNCRIT,0),U)," selected, all will be included."
  • Line Location: Q+8
Function Call: WRITE
  • Prompt: !!,"You entered a taxonomy name for this item. ["_$P(AMQQTAXN,U)_"]"
  • Line Location: TAXV+1
Function Call: WRITE
  • Prompt: !,"You have the option of sending the name of the taxonomy to each site and have"
  • Line Location: TAXV+2
Function Call: WRITE
  • Prompt: !,"the taxonomy resolved at the site OR to send the individual coded values"
  • Line Location: TAXV+3
Function Call: WRITE
  • Prompt: !,"for this taxonomy.",!
  • Line Location: TAXV+4
Function Call: WRITE
  • Prompt: !,"exiting......start over.."
  • Line Location: TAXV+8
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+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: N+7
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+8
Function Call: WRITE
  • Prompt: !!,"No range entered. All ",BRNTEXT," will be included."
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: F+5
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+7
Function Call: WRITE
  • Prompt: !!,"Enter a string which will be searched for in the narrative text."
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,"The system will check for any narrative that contains this string.",!
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,"No range entered. All ",BRNTEXT," will be included."
  • Line Location: C+6
Routine Call
  • DIC
  • Line Location:
    • Q+4
Routine Call
  • DIR
  • Line Location:
    • TAXV+7
    • R+3
    • BD+1
    • ED+3
    • N+5
    • F+3
    • C+5
    • Y+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BRNRPT - [#90264.8] Q+11*, Q+14*, Q+15*, Q+16*, Q+19*, Q+20*, Q+21*, R+7*, R+8*, R+9*
, R+10*, ED+8*, ED+9*, ED+10*, N+1!, N+9*, N+10*, N+11*, N+12*, F+1!
, F+8*, F+9*, F+10*, F+11*, J+1*, J+2*, J+3*, C+3!, C+7*, C+8*
, C+9*, Y+6*, Y+7*, Y+8*
^BRNSORT - [#90264.7] Q+3, Q+8, Q+10, R+2, N+3, N+4, N+7, N+8, F+5, F+6
, S+1
^UTILITY("AMQQ TAX" Q+2!
^XTMP("BRNVL" Q+2!, Q+8, Q+9!, Q+18, Q1+1!

Label References

Name Line Occurrences
BD ED+4
F F+5, F+6
N N+7, N+8
R R+11
TAXV Q+10

Naked Globals

Name Field # of Occurrence
^(0 R+2
^(21 F+5
^(22 F+5
^(25 N+7
^(26 N+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMQQSQNM Q1!
AMQQTAXN Q+1!, Q+10, Q+14, Q+15, Q1!, TAXV+1
>> BRNBDAT BD+3*, ED+1, ED+2, ED+6, ED+10
>> BRNBQC Q+10
BRNBQC1 Q+10!*, Q+13, TAXV+9*
>> BRNCNT R+8*, R+9, R+10, ED+9*, ED+10*, F+9*, F+10*, F+11, C+8*, C+9*
>> BRNCRIT Q+3, Q+8, Q+10, Q+11, Q+14, Q+15, Q+16, Q+19, Q+20, Q+21
, R+2, R+7, R+8, R+9, R+10, ED+8, ED+9, ED+10, N+1, N+3
, N+4, N+7, N+8, N+9, N+10, N+11, N+12, F+1, F+5, F+6
, F+8, F+9, F+10, F+11, J+1, J+2, J+3, C+3, C+7, C+8
, C+9, Y+6, Y+7, Y+8, S+1
>> BRNEDAT ED+5*, ED+10
BRNQMAN Q+5*, Q+7, Q1!
>> BRNRPT Q+11, Q+14, Q+15, Q+16, Q+19, Q+20, Q+21, R+7, R+8, R+9
, R+10, ED+8, ED+9, ED+10, N+1, N+9, N+10, N+11, N+12, F+1
, F+8, F+9, F+10, F+11, J+1, J+2, J+3, C+3, C+7, C+8
, C+9, Y+6, Y+7, Y+8
>> BRNSDAT ED+6*
>> BRNTEXT BD+1, ED+1, F+4, C+6, Y+1
DA Q+4!, TAXV+6!
DD Q+1!
DIC Q+1!, Q+3*, Q+4!
DIC("S" Q+3*
DIC(0 Q+3*
DICR Q+4!
DINUM Q+4!
DIR TAXV+7!, R+1~, BD+1!, ED+3!, N+5!, F+3!, C+5!, Y+3!
DIR("?" N+4*
DIR("A" TAXV+6*, R+2*, BD+1*, ED+1*, N+3*, F+2*, C+4*, Y+2*
DIR("B" TAXV+6*, ED+2*, Y+2*
DIR(0 TAXV+5*, R+2*, BD+1*, ED+1*, N+2*, F+2*, C+4*, Y+1*
DIRUT TAXV+8, R+1~, R+3*, R+4, BD+1*, BD+2, ED+3*, ED+4, N+5*, F+3*
, C+5*, Y+3*, Y+4
DUOUT R+1~, R+3, BD+1, ED+3, N+5, F+3, C+5, Y+3
U Q+3, Q+8, Q+10, Q+15, TAXV+1, R+2, R+8, R+9, ED+10, N+12
, F+10
V Q1!
X Q+1!, Q+3*, Q+18*, Q+19, Q+20, Q1!, ED+6, N+7*, F+5*, F+10
, F+11, C+9
>> X1 ED+6*
>> X2 ED+6*
Y Q+1!, Q+4, Q+5, Q+18*, Q+19*, Q+20, Q+21, Q1!, TAXV+9, R+1~
, R+5, R+6, R+8, R+9, BD+3, ED+2*, ED+5, N+6, N+7, N+8
, N+11, N+12, F+4, F+5, F+6, C+6, Y+5, Y+7
Z Q1!
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