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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BRN

Package: IHS Release Of Information

Routine: BRN


Information

BRN ; IHS/PHXAO/TMJ - DISCLOSURE SYSTEM ;

Source Information

Source file <BRN.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ENDR^%ZISS  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
IHS Release Of Information 1 (DIC,DIE,DIQ)^BRNFMC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
IHS Release Of Information 9 BRN ACCOUNTING OF DISCLOSURES  BRN GS PATIENT  BRN GS PATIENT ACCOUNTING  BRN MENU DE  BRN MENU MGT  BRN MENU RPT  BRNADD  BRNMENU  
BRNPRE  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ; EP - PAUSE FOR USER
HDR ;EP - Screen header DON'S USE ANY LONGER.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
TOFACX ;
DIC(DIC) ;EP - File lookup.
CONF ; EP - CONFIDENTIAL CLIENT DATA HEADER
USR() ;EP - Return name of current user from ^VA(200.
DEV ; EP - SELECT OUTPUT DEVICE
LZERO(V,L) ;left zero fill
ASF() ;EP - Return ASUFAC number for current DUZ(2).
EOP ;EP - End of page.
TOFAC(R) ; EP - RETURN APPROPRIATE
; 'TO PRIMARY VENDOR/TO IHS FACILITY/TO OTHER PROVIDER'
; R = ROI DISCLOSURE IEN
SEL(S) ;EP - Select a Disclosure to edit, S is DIC("S")
CTR(X,Y) ;EP - Center X in a field Y wide.
UNLOCK(DA)
GETR() ;EP - Return Disclosure # from ROI DISCLOSURE record
LOCK(DA) ;EP - Lock the selected Disclosure.
REFN() ;EP - Return the next Disclosure number and update control file
LOGO ;EP - Print logo of main menu.

External References

Name Field # of Occurrence
^%ZIS DEV+2
ENDR^%ZISS HDR+2, LOGO+17
DIC^BRNFMC DIC+2
DIE^BRNFMC REFN+8
DIQ^BRNFMC SEL+8, SEL+9, SEL+10, SEL+11
^DIR EOP+5, PAUSE+3
$$FMTE^XLFDT LOGO+3, LOGO+7
$$REPEAT^XLFSTR LOGO+9, LOGO+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"NO ENTRY FROM THE TOP OF ^BRN.",!
  • Line Location: BRN+5
Function Call: WRITE
  • Prompt: @IOF,!,$$CTR("FOIA DISCLOSURE SYSTEM"),!,$$CTR($$LOC()),!,$$CTR(X),!!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: @IOF,!,$$CTR($$REPEAT^XLFSTR("*",D)),!?L,"*",$$CTR("INDIAN HEALTH SERVICE",N),?R,"*"
  • Line Location: LOGO+9
Function Call: WRITE
  • Prompt: !?L,"*",$$CTR("RELEASE OF INFORMATION SYSTEM",N),?R,"*"
  • Line Location: LOGO+10
Function Call: WRITE
  • Prompt: !?L,"*",$$CTR("VERSION "_V_" P"_PATCH_", "_$S(PDATE]"":PDATE,1:Y),N),?R,"*",!,$$CTR($$REPEAT^XLFSTR("*",D)),!
  • Line Location: LOGO+11
Function Call: WRITE
  • Prompt: $$CTR($$LOC())
  • Line Location: LOGO+14
Function Call: WRITE
  • Prompt: !,$$CTR(X)
  • Line Location: LOGO+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !,$$CTR("*** CONFIDENTIAL PATIENT INFORMATION ***"),!
  • Line Location: CONF+1
Routine Call
  • DIR
  • Line Location:
    • EOP+5
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] ASF+2
^AUTTVNDR - [#9999999.11] TOFAC+9
^BRNCOM("AD" SEL+9
^BRNDX("AD" SEL+10
^BRNLPRV( TOFAC+10
^BRNPARM - [#90264.2] REFN+1, REFN+2, REFN+9
^BRNPX("AD" SEL+11
^BRNREC - [#90264] GETR+2, LOCK+1, UNLOCK+1, TOFAC+6, TOFAC+7
^DIC(4 - [#4] LOC+1, TOFAC+8
^DIC(9.4 - [#9.4] LOGO+3, LOGO+7
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$ASF REFN+3
$$CTR HDR+7, LOGO+9, LOGO+10, LOGO+11, LOGO+14, LOGO+22, CONF+1
$$DIC SEL+3
$$LOC REFN+1, HDR+7, LOGO+14
$$LZERO REFN+6
EOP REFN+1, LOCK+2, UNLOCK+2, SEL+12
LOCK SEL+5
TOFACX TOFAC+5, TOFAC+6, TOFAC+8

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1, LOGO+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LZERO+1~, LZERO+2*
>> %ZIS DEV+2*
A LOGO+1~, LOGO+3*, LOGO+7
BRN SEL+1~, SEL+6*, SEL+9, SEL+10, SEL+11, SEL+14
>> BRNPARM REFN+2*, REFN+4, REFN+5
>> BRNQ BRN+6*, DEV+1*, DEV+3*
>> BRNRIEN GETR+1, GETR+2
>> BRNX REFN+7*, REFN+10
BRNY SEL+1~, SEL+10*, SEL+11*
D LOGO+1~, LOGO+2*, LOGO+9, LOGO+11
DA REFN+8*, LOCK~, LOCK+1, UNLOCK~, UNLOCK+1, SEL+1~, SEL+5*, SEL+6, SEL+9*, SEL+10*
, SEL+11*
DFOUT EOP+4!
DIC DIC~, SEL+1~, SEL+3*, SEL+8*, SEL+9*, SEL+10*, SEL+11*
DIC("S" SEL+2*
DIC(0 DIC+1*
>> DIE REFN+8*
DIR EOP+3~, PAUSE+3!
DIR("A" PAUSE+3*
DIR(0 EOP+5*, PAUSE+3*
DIRUT EOP+4!
DLOUT EOP+4!
>> DR REFN+8*
DTOUT EOP+4!
DUOUT EOP+4!
DUZ USR+1
DUZ(2 REFN+1, REFN+2, REFN+8, REFN+9, ASF+1, ASF+2, LOC+1
I LZERO+1~, LZERO+2*, LOGO+1~, LOGO+3*, LOGO+7
IO("S" EOP+2, PAUSE+2
IOF HDR+7, LOGO+9
IOM CTR+1
>> IORVOFF HDR+5, LOGO+20
>> IORVON HDR+2, HDR+5, LOGO+17, LOGO+20
IOST EOP+1, PAUSE+1
>> IOT EOP+2, PAUSE+2
L LZERO~, LZERO+2, LOGO+1~, LOGO+2*, LOGO+9, LOGO+10, LOGO+11
N LOGO+1~, LOGO+2*, LOGO+9, LOGO+10, LOGO+11
P LOGO+6~, LOGO+7*
PATCH LOGO+6~*, LOGO+7*, LOGO+11
PDATE LOGO+6~*, LOGO+7*, LOGO+11
>> POP DEV+3
R LOGO+1~, LOGO+2*, LOGO+9, LOGO+10, LOGO+11, TOFAC~, TOFAC+5, TOFAC+6, TOFAC+7
S SEL~, SEL+2
U GETR+2, REFN+4, REFN+5, ASF+2, USR+1, LOC+1, HDR+3, LOGO+3, LOGO+7, LOGO+18
, TOFAC+8, TOFAC+9, TOFAC+10
V LZERO~, LZERO+2*, LZERO+3, LOGO+1~, LOGO+3*, LOGO+11
X REFN+3*, REFN+4*, REFN+6*, REFN+7, CTR~, CTR+1, HDR+2*, HDR+3*, HDR+4*, HDR+5*
, HDR+7, LOGO+17*, LOGO+18*, LOGO+19*, LOGO+20*, LOGO+22, TOFAC+3~, TOFAC+7*, TOFAC+8, TOFAC+9
, TOFAC+10
>> XQY0 HDR+1, HDR+3, LOGO+16, LOGO+18
Y REFN+5*, REFN+6, REFN+8, CTR~, CTR+1, DIC+3, LOGO+3*, LOGO+11, SEL+3*, SEL+4
, SEL+5, TOFAC+3~, TOFAC+4*, TOFAC+8*, TOFAC+9*, TOFAC+10*, TOFACX+1
>> Z LZERO+2*
>> ZTQUEUED BRN+5, REFN+1, EOP+2, LOCK+2, UNLOCK+2, SEL+7, PAUSE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All