Routine: AQAOT941

Package	Total	Call Graph
VA Fileman	5	$$OUT^DIALOGU CSTP^DIO2 Y^DIQ ^DIWP (,0,A,NX)^DIWW
Quality Assurance	1	^AQAOT942

Package	Total	Caller Graph
Quality Assurance	1	AQAOT94

Entry Points

Name	Comments	DBIA/ICR reference
A2R	;
BEGIN	;
I1	;
H1R	;
H1	;
M
J1	;
N
A2	;
T
B2	;
DT
I1R	;
J1R	;
B2R	;

External References

Name	Field # of Occurrence
^AQAOT942	J1R+8
$$OUT^DIALOGU	DT
CSTP^DIO2	T+1
Y^DIQ	BEGIN+2, J1+4
^DIWP	I1+1, B2+1
^DIWW	I1R+2
0^DIWW	I1R+1
A^DIWW	B2R+1
NX^DIWW	I1R+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: N+0
Function Call: WRITE	Prompt: $$OUT^DIALOGU(Y,"DD") Line Location: DT+0
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " Line Location: DT+1
Function Call: WRITE	Prompt: $J(Y#100\1,2)_"," Condition for execution: Y#100 Line Location: DT+1
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: DT+1
Function Call: WRITE	Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: DT+1
Function Call: WRITE	Prompt: Y Line Location: DT+2
Function Call: WRITE	Prompt: $E(Y,1,22) Line Location: BEGIN+2
Function Call: WRITE	Prompt: ?50 Line Location: BEGIN+3
Function Call: WRITE	Prompt: "Rev Date: " Line Location: BEGIN+3
Function Call: WRITE	Prompt: ?0 Line Location: BEGIN+5
Function Call: WRITE	Prompt: "Adv Outcome Risk: " Line Location: BEGIN+5
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: BEGIN+6
Function Call: WRITE	Prompt: ?47 Line Location: BEGIN+7
Function Call: WRITE	Prompt: "Occ Outcome: " Line Location: BEGIN+7
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: BEGIN+8
Function Call: WRITE	Prompt: ?9 Line Location: BEGIN+9
Function Call: WRITE	Prompt: "Finding: " Line Location: BEGIN+9
Function Call: WRITE	Prompt: X Line Location: BEGIN+10
Function Call: WRITE	Prompt: ?41 Line Location: BEGIN+11
Function Call: WRITE	Prompt: X Line Location: BEGIN+11
Function Call: WRITE	Prompt: $E(Y,1,50) Line Location: BEGIN+12
Function Call: WRITE	Prompt: ?52 Line Location: BEGIN+13
Function Call: WRITE	Prompt: "Action: " Line Location: BEGIN+13
Function Call: WRITE	Prompt: X Line Location: BEGIN+14
Function Call: WRITE	Prompt: $E(X,1,10) Line Location: BEGIN+15
Function Call: WRITE	Prompt: ?66 Line Location: H1+1
Function Call: WRITE	Prompt: $E(X,1,10) Line Location: H1+1
Function Call: WRITE	Prompt: ?1 Line Location: H1R+1
Function Call: WRITE	Prompt: "Review Comments: " Line Location: H1R+1
Function Call: WRITE	Prompt: ?4 Line Location: J1+1
Function Call: WRITE	Prompt: "Review Level: " Line Location: J1+1
Function Call: WRITE	Prompt: $E(Y,1,4) Line Location: J1+2
Function Call: WRITE	Prompt: ?23 Line Location: J1+3
Function Call: WRITE	Prompt: "by " Line Location: J1+3
Function Call: WRITE	Prompt: $E(Y,1,22) Line Location: J1+4
Function Call: WRITE	Prompt: ?50 Line Location: J1+5
Function Call: WRITE	Prompt: "Rev Date: " Line Location: J1+5
Function Call: WRITE	Prompt: ?0 Line Location: J1+7
Function Call: WRITE	Prompt: "Adv Outcome Risk: " Line Location: J1+7
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: J1+8
Function Call: WRITE	Prompt: ?47 Line Location: J1+9
Function Call: WRITE	Prompt: "Occ Outcome: " Line Location: J1+9
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: J1+10
Function Call: WRITE	Prompt: ?9 Line Location: J1+11
Function Call: WRITE	Prompt: "Finding: " Line Location: J1+11
Function Call: WRITE	Prompt: X Line Location: J1+12
Function Call: WRITE	Prompt: ?52 Line Location: J1+13
Function Call: WRITE	Prompt: "Action: " Line Location: J1+13
Function Call: WRITE	Prompt: X Line Location: J1+14
Function Call: WRITE	Prompt: $E(X,1,10) Line Location: J1+15
Function Call: WRITE	Prompt: ?66 Line Location: A2+1
Function Call: WRITE	Prompt: $E(X,1,10) Line Location: A2+1
Function Call: WRITE	Prompt: ?1 Line Location: A2R+1
Function Call: WRITE	Prompt: "Review Comments: " Line Location: A2R+1
Function Call: WRITE	Prompt: ?5 Line Location: J1R+1
Function Call: WRITE	Prompt: "Date Case Closed: " Line Location: J1R+1
Function Call: WRITE	Prompt: ?44 Line Location: J1R+3
Function Call: WRITE	Prompt: "Final Review Level: " Line Location: J1R+3
Function Call: WRITE	Prompt: $E(Y,1,4) Line Location: J1R+4
Function Call: WRITE	Prompt: ?0 Line Location: J1R+5
Function Call: WRITE	Prompt: "Final Risk Assessment: " Line Location: J1R+5
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: J1R+6
Function Call: WRITE	Prompt: ?45 Line Location: J1R+7
Function Call: WRITE	Prompt: "Final Occ Outcome: " Line Location: J1R+7
Routine Call	DIALOGU Line Location: DT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(6 - [#9002168.6]	J1+14
^AQAO(7 - [#9002168.7]	J1+2, J1R+4
^AQAO(8 - [#9002168.8]	J1+12
^AQAO1(2 - [#9002169.2]	BEGIN+12
^AQAO1(3 - [#9002169.3]	BEGIN+6, BEGIN+8, J1+8, J1+10, J1R+6
^AQAOC - [#9002167]	BEGIN+8, BEGIN+12, BEGIN+16, H1R+2, I1+1, I1R+3, J1+2, J1+10, J1+16, A2R+2 , B2+1, J1R+2
^DD(9002167	BEGIN+2
^DD(9002167.01	J1+4
^UTILITY($J	T

Label References

Name	Line Occurrences
@(	M
A2	J1+16
A2R	J1+17
B2	A2R+2
B2R	A2R+3
BEGIN	AQAOT941+1
DT	BEGIN+4, J1+6, J1R+2
H1	BEGIN+16
H1R	BEGIN+17
I1	H1R+2
I1R	H1R+3
J1	I1R+3
J1R	I1R+4
N	BEGIN+3, BEGIN+5, BEGIN+7, BEGIN+9, BEGIN+11, BEGIN+13, H1+1, H1R+1, J1+1, J1+3 , J1+5, J1+7, J1+9, J1+11, J1+13, A2+1, A2R+1, J1R+1, J1R+3, J1R+5 , J1R+7
T	BEGIN+16, H1R+2, J1+1, J1+16, A2R+2, J1R+1

Naked Globals

Name	Field # of Occurrence
^(	BEGIN+16, H1R+2, I1R+3, J1+16, A2R+2
^(0	BEGIN+6, BEGIN+8, BEGIN+12, J1+2, J1+8, J1+10, J1+12, J1+14, J1R+4, J1R+6
^(1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	BEGIN+2, J1+4
>> D0	BEGIN+8, BEGIN+10, BEGIN+12, BEGIN+14, BEGIN+16, H1R+2, I1+1, I1R+3, J1+2, J1+10 , J1+12, J1+14, J1+16, A2R+2, B2+1, J1R+2
>> D1	BEGIN+16, H1R+2, I1+1, I1R+3, J1+2, J1+10, J1+12, J1+14*, J1+16, A2R+2 , B2+1
>> D2	J1+16, A2R+2, B2+1
>> DILCT	T+1, BEGIN+1
>> DIOT(2	T
DIP	BEGIN+10!, BEGIN+11!, BEGIN+14!, BEGIN+15!, H1+1!, I1R+1!, J1+12!, J1+14!, J1+15!, A2+1!
DIP(101	BEGIN+10, BEGIN+14, J1+12, J1+14
DIP(2	BEGIN+11, BEGIN+15, H1+1, J1+15, A2+1
DIP(3	BEGIN+11*, BEGIN+15, J1+15
DIP(4	BEGIN+11*, BEGIN+15, J1+15
DIP(5	BEGIN+15, J1+15
DIP(6	BEGIN+15, J1+15
>> DISTP	T+1, BEGIN+1
>> DIWF	T
>> DIWL	I1+1, B2+1
>> DIWR	I1+1, B2+1
>> DIXX	M
>> DN	T, BEGIN+1*, BEGIN+3, BEGIN+5, BEGIN+7, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+13, BEGIN+14 , BEGIN+15, BEGIN+16, H1+1, H1R+1, H1R+2, I1R+1, J1+1, J1+3, J1+5, J1+7 , J1+9, J1+11, J1+12, J1+13, J1+14, J1+15, J1+16, A2+1, A2R+1, A2R+2 , J1R+1, J1R+3, J1R+5, J1R+7
>> DSC(	BEGIN+16, I1R+3, J1+16
DUZ("LANG"	DT
>> DXS(16	BEGIN+10
>> DXS(17	BEGIN+11
>> DXS(18	BEGIN+14
>> DXS(19	BEGIN+15
>> DXS(20	H1+1
>> DXS(21	J1+12
>> DXS(22	J1+14
>> DXS(23	J1+15
>> DXS(24	A2+1
>> I(0	BEGIN+10, BEGIN+14, J1+12, J1+14
>> I(1	BEGIN+16, H1R+2, I1R+3*, J1+12, J1+14
>> I(2	J1+16, A2R+2
IOSL	T
>> J(1	BEGIN+16, H1R+2, I1R+3*
>> J(2	J1+16, A2R+2
U	DT+1, BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+10, BEGIN+12, BEGIN+14, J1+2, J1+4 , J1+6, J1+8, J1+10, J1+12, J1+14, J1R+2, J1R+4, J1R+6
>> X	BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+10, BEGIN+11, BEGIN+12, BEGIN+14, BEGIN+15, H1+1* , I1+1, J1+2, J1+4, J1+6, J1+8, J1+10, J1+12, J1+14, J1+15, A2+1* , B2+1, J1R+2, J1R+4, J1R+6
Y	DT, DT+1, DT+2, BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+10!, BEGIN+11!, BEGIN+12* , BEGIN+14!, BEGIN+15!, H1+1!, I1R+1!, J1+2, J1+4, J1+6, J1+8, J1+10, J1+12! , J1+14!, J1+15!, A2+1!, J1R+2, J1R+4, J1R+6
Y(0	BEGIN+6, BEGIN+8, J1+8, J1+10, J1R+6*

Customize PDF page

Package: Quality Assurance

Routine: AQAOT941

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: