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

Package: Phoenix Devel Center

Routine: AZXA


Information

AZXA ; IHS/PHXAO/TMJ - DISCLOSURE SYSTEM ;

Source Information

Source file <AZXA.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ENDR^%ZISS  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Phoenix Devel Center 1 (DIC,DIE,DIQ)^AZXAFMC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Phoenix Devel Center 1 AZXAADD  

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+8
DIC^AZXAFMC DIC+2
DIE^AZXAFMC REFN+8
DIQ^AZXAFMC SEL+8, SEL+9, SEL+10, SEL+11
^DIR EOP+5, PAUSE+3
$$FMTE^XLFDT LOGO+3
$$REPEAT^XLFSTR LOGO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"NO ENTRY FROM THE TOP OF ^AZXA.",!
  • Line Location: AZXA+4
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,"*",!?L,"*",$$CTR("RELEASE OF INFORMATION SYSTEM",N),?R,"*",!?L,"*",$$CTR("VERSION "_V_", "_Y,N),?R,"*",!,$$CTR($$REPEAT^XLFSTR("*",D)),!
  • Line Location: LOGO+4
Function Call: WRITE
  • Prompt: $$CTR($$LOC())
  • Line Location: LOGO+5
Function Call: WRITE
  • Prompt: !,$$CTR(X),!
  • Line Location: LOGO+12
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
^AZXACOM("AD" SEL+9
^AZXADX("AD" SEL+10
^AZXALPRV( TOFAC+10
^AZXAPARM REFN+1, REFN+2, REFN+9
^AZXAPX("AD" SEL+11
^AZXAREC( GETR+2, LOCK+1, UNLOCK+1, TOFAC+6, TOFAC+7
^DIC(4 - [#4] LOC+1, TOFAC+8
^DIC(9.4 - [#9.4] LOGO+3
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$ASF REFN+3
$$CTR HDR+7, LOGO+4, LOGO+5, LOGO+12, CONF+1
$$DIC SEL+3
$$LOC REFN+1, HDR+7, LOGO+5
$$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

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*
AZXA SEL+1~, SEL+6*, SEL+9, SEL+10, SEL+11, SEL+14
>> AZXAPARM REFN+2*, REFN+4, REFN+5
>> AZXAQ AZXA+5*, DEV+1*, DEV+3*
>> AZXARIEN GETR+1, GETR+2
>> AZXAX REFN+7*, REFN+10
AZXAY SEL+1~, SEL+10*, SEL+11*
D LOGO+1~, LOGO+2*, LOGO+4
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*
IO("S" EOP+2, PAUSE+2
IOF HDR+7, LOGO+4
IOM CTR+1
>> IORVOFF HDR+5, LOGO+11
>> IORVON HDR+2, HDR+5, LOGO+8, LOGO+11
IOST EOP+1, PAUSE+1
>> IOT EOP+2, PAUSE+2
L LZERO~, LZERO+2, LOGO+1~, LOGO+2*, LOGO+4
N LOGO+1~, LOGO+2*, LOGO+4
>> POP DEV+3
R LOGO+1~, LOGO+2*, LOGO+4, 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+9, TOFAC+8
, TOFAC+9, TOFAC+10
V LZERO~, LZERO+2*, LZERO+3, LOGO+1~, LOGO+3*, LOGO+4
X REFN+3*, REFN+4*, REFN+6*, REFN+7, CTR~, CTR+1, HDR+2*, HDR+3*, HDR+4*, HDR+5*
, HDR+7, LOGO+8*, LOGO+9*, LOGO+10*, LOGO+11*, LOGO+12, TOFAC+3~, TOFAC+7*, TOFAC+8, TOFAC+9
, TOFAC+10
>> XQY0 HDR+1, HDR+3, LOGO+7, LOGO+9
Y REFN+5*, REFN+6, REFN+8, CTR~, CTR+1, DIC+3, LOGO+3*, LOGO+4, SEL+3*, SEL+4
, SEL+5, TOFAC+3~, TOFAC+4*, TOFAC+8*, TOFAC+9*, TOFAC+10*, TOFACX+1
>> Z LZERO+2*
>> ZTQUEUED AZXA+4, 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