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

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXA

Call Graph Total: 6

Caller Graph Total: 1