Routine: AQAOT81

Package	Total	Call Graph
VA Fileman	4	$$OUT^DIALOGU CSTP^DIO2 ^DIWP A^DIWW
Quality Assurance	1	(,F1R)^AQAOT811

Entry Points

Name	Comments	DBIA/ICR reference
F1	;
BEGIN	;
D1R	;
A1R	;
E1R	;
M
A2R	;
N
A1	;
A2	;
B1R	;
T
C1R	;
DT
D1	;
E1	;
C1	;
B1	;

External References

Name	Field # of Occurrence
^AQAOT811	A2R+1
F1R^AQAOT811	E1R+5
$$OUT^DIALOGU	DT
CSTP^DIO2	T+1
^DIWP	A1+1, E1+1
A^DIWW	A1R+1, E1R+1

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: ?12 Line Location: BEGIN+3
Function Call: WRITE	Prompt: "CODE #:" Line Location: BEGIN+3
Function Call: WRITE	Prompt: ?21,$E($P(X,U,1),1,7) Line Location: BEGIN+4
Function Call: WRITE	Prompt: ?39 Line Location: BEGIN+5
Function Call: WRITE	Prompt: X Line Location: BEGIN+5
Function Call: WRITE	Prompt: ?9 Line Location: BEGIN+6
Function Call: WRITE	Prompt: "INDICATOR:" Line Location: BEGIN+6
Function Call: WRITE	Prompt: ?21,$E($P(X,U,2),1,30) Line Location: BEGIN+7
Function Call: WRITE	Prompt: ?7 Line Location: BEGIN+8
Function Call: WRITE	Prompt: "DESCRIPTION:" Line Location: BEGIN+8
Function Call: WRITE	Prompt: ?13 Line Location: A1R+2
Function Call: WRITE	Prompt: "TYPE:" Line Location: A1R+2
Function Call: WRITE	Prompt: ?21 Line Location: A1R+3
Function Call: WRITE	Prompt: $S($D(DXS(26,Y)):DXS(26,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+3
Function Call: WRITE	Prompt: ?39 Line Location: A1R+4
Function Call: WRITE	Prompt: X Line Location: A1R+4
Function Call: WRITE	Prompt: X Line Location: A1R+5
Function Call: WRITE	Prompt: ?2 Line Location: A1R+6
Function Call: WRITE	Prompt: "REVIEW PERFORMED:" Line Location: A1R+6
Function Call: WRITE	Prompt: ?21 Line Location: A1R+7
Function Call: WRITE	Prompt: $E(Y,1,40) Line Location: A1R+7
Function Call: WRITE	Prompt: ?59 Line Location: A1R+8
Function Call: WRITE	Prompt: $S($D(DXS(27,Y)):DXS(27,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+8
Function Call: WRITE	Prompt: ?0 Line Location: A1R+9
Function Call: WRITE	Prompt: "MED STAFF FUNCTION:" Line Location: A1R+9
Function Call: WRITE	Prompt: ?21 Line Location: A1R+10
Function Call: WRITE	Prompt: $S($D(DXS(28,Y)):DXS(28,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+10
Function Call: WRITE	Prompt: ?6 Line Location: A1R+11
Function Call: WRITE	Prompt: "KEY FUNCTION:" Line Location: A1R+11
Function Call: WRITE	Prompt: ?21 Line Location: B1+1
Function Call: WRITE	Prompt: $E(Y,1,40) Line Location: B1+1
Function Call: WRITE	Prompt: " [" Line Location: B1+2
Function Call: WRITE	Prompt: X Line Location: B1+3
Function Call: WRITE	Prompt: X Line Location: B1+4
Function Call: WRITE	Prompt: X Line Location: B1+5
Function Call: WRITE	Prompt: ?21 Line Location: B1+6
Function Call: WRITE	Prompt: "]" Line Location: B1+6
Function Call: WRITE	Prompt: ?8 Line Location: B1R+1
Function Call: WRITE	Prompt: "DIMENSIONS:" Line Location: B1R+1
Function Call: WRITE	Prompt: ?21 Line Location: C1+1
Function Call: WRITE	Prompt: $S($D(DXS(29,Y)):DXS(29,Y),1:Y) Condition for execution: Y]"" Line Location: C1+1
Function Call: WRITE	Prompt: ?3 Line Location: C1R+1
Function Call: WRITE	Prompt: "QI TEAM MEMBERS:" Line Location: C1R+1
Function Call: WRITE	Prompt: ?21 Line Location: D1+1
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: D1+1
Function Call: WRITE	Prompt: ?29 Line Location: D1R+1
Function Call: WRITE	Prompt: "METHODOLOGY" Line Location: D1R+1
Function Call: WRITE	Prompt: ?29 Line Location: D1R+2
Function Call: WRITE	Prompt: "===========" Line Location: D1R+2
Function Call: WRITE	Prompt: ?29 Line Location: E1R+2
Function Call: WRITE	Prompt: "REVIEW CRITERIA" Line Location: E1R+2
Function Call: WRITE	Prompt: ?29 Line Location: E1R+3
Function Call: WRITE	Prompt: "===============" Line Location: E1R+3
Function Call: WRITE	Prompt: ?0,$E($P(X,U,1),1,60) Line Location: F1+3
Function Call: WRITE	Prompt: ?62 Line Location: F1+4
Function Call: WRITE	Prompt: $S($D(DXS(30,Y)):DXS(30,Y),1:Y) Condition for execution: Y]"" Line Location: F1+4
Function Call: WRITE	Prompt: ?0 Line Location: F1+5
Function Call: WRITE	Prompt: X Line Location: F1+5
Function Call: WRITE	Prompt: " " Line Location: A2+1
Function Call: WRITE	Prompt: $E(Y,1,6) Line Location: A2+2
Function Call: WRITE	Prompt: " = " Line Location: A2+3
Function Call: WRITE	Prompt: X Line Location: A2+4
Routine Call	DIALOGU Line Location: DT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(1 - [#9002168.1]	B1+1
^AQAO(2 - [#9002168.2]	BEGIN+4, BEGIN+7, BEGIN+9, A1+1, A1R+3, A1R+7, A1R+8, A1R+10, A1R+12, B1+1 , B1R+2, C1+1, C1R+2, D1+1, D1R+3, E1+1
^AQAO(3 - [#9002168.3]	A1R+7
^AQAO1(1 - [#9002169.1]	D1+1
^AQAO1(4 - [#9002169.4]	A2+2, A2+4
^AQAO1(6 - [#9002169.6]	F1+3, F1+6, A2+2
^DIPT(1274	BEGIN+2
^UTILITY($J	T

Label References

Name	Line Occurrences
@(	M
A1	BEGIN+9
A1R	BEGIN+10
A2	F1+6
A2R	F1+7
B1	A1R+12
B1R	A1R+13
BEGIN	AQAOT81+1
C1	B1R+2
C1R	B1R+3
D1	C1R+2
D1R	C1R+3
E1	D1R+3
E1R	D1R+4
N	BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, BEGIN+8, A1R+2, A1R+3, A1R+4, A1R+6 , A1R+7, A1R+8, A1R+9, A1R+10, A1R+11, B1+1, B1R+1, C1+1, C1R+1, D1+1 , D1R+1, D1R+2, E1R+2, E1R+3, F1+3, F1+4, F1+5
T	BEGIN+9, A1R+12, B1R+2, C1R+2, D1R+1, D1R+3, E1R+2, F1+6

Naked Globals

Name	Field # of Occurrence
^(	BEGIN+2, BEGIN+9, A1R+12, B1R+2, C1R+2, D1R+3, F1+6
^(0	A1R+7, B1+1, D1+1, A2+2, A2+4
^(1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	BEGIN+4, BEGIN+7, BEGIN+9, A1+1, A1R+3, A1R+7, A1R+8, A1R+10, A1R+12, B1+1 , B1+3, B1+4, B1+5, B1R+2, C1+1, C1R+2, D1+1, D1R+3, E1+1, E1R+4 , F1+3, F1+6, A2+2, A2+4*
>> D1	BEGIN+9, A1+1, A1R+12, B1+1, B1+3, B1+4, B1+5, B1R+2, C1+1, C1R+2* , D1+1, D1R+3, E1+1, F1+6, A2+2, A2+4*
>> DILCT	T+1, BEGIN+1
>> DIOT(2	T
DIP	BEGIN+5!, A1R+4!, A1R+5!, B1+3!, B1+4!, B1+5!, F1+5!, A2+4!
DIP(103	B1+3, B1+4, B1+5, F1+5
DIP(104	B1+3, B1+4, B1+5, F1+5
DIP(105	B1+3, B1+4, B1+5, F1+5
DIP(201	A2+4*
DIP(3	BEGIN+5*, A1R+5
DIP(4	BEGIN+5*, A1R+5
DIP(5	BEGIN+5*, A1R+5
>> DISTP	T+1, BEGIN+1
>> DIWF	T
>> DIWL	A1+1, E1+1
>> DIWR	A1+1, E1+1
>> DIXX	M
>> DIXX(1	E1R+4*
>> DN	T, BEGIN+1*, BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, BEGIN+8, BEGIN+9, A1R+2 , A1R+3, A1R+4, A1R+5, A1R+6, A1R+7, A1R+8, A1R+9, A1R+10, A1R+11, A1R+12 , B1+1, B1+3, B1+4, B1+5, B1R+1, B1R+2, C1+1, C1R+1, C1R+2, D1+1 , D1R+1, D1R+2, D1R+3, E1R+2, E1R+3, F1+3, F1+4, F1+5, F1+6, A2+4
>> DSC(	A1R+12, B1R+2, C1R+2, F1+1, F1+6
DUZ("LANG"	DT
>> DXS	BEGIN+2
>> DXS(	BEGIN+2*
>> DXS(1	BEGIN+5
>> DXS(2	A1R+4
>> DXS(26	A1R+3
>> DXS(27	A1R+8
>> DXS(28	A1R+10
>> DXS(29	C1+1
>> DXS(3	A1R+5
>> DXS(30	F1+4
>> DXS(4	B1+3
>> DXS(5	B1+4
>> DXS(6	B1+5
>> DXS(7	E1R+4
>> DXS(8	F1+5
>> DXS(9	A2+4
>> I(0	B1+3, B1+4, B1+5, E1R+4*
>> I(1	BEGIN+9, A1R+12, B1+3, B1+4, B1+5, B1R+2, C1R+2, D1R+3*
>> I(100	F1+2*, A2+4
>> I(101	F1+6*, A2+4
IOSL	T
>> J(1	BEGIN+9, A1R+12, B1R+2, C1R+2, D1R+3*
>> J(100	F1+2*
>> J(101	F1+6*
U	DT+1, BEGIN+4, BEGIN+7, A1R+3, A1R+7, A1R+8, A1R+10, B1+1, C1+1, D1+1 , F1+3, F1+4, A2+2, A2+4
>> X	BEGIN+2, BEGIN+4, BEGIN+5, BEGIN+7, A1+1, A1R+3, A1R+4, A1R+5, A1R+7, A1R+8* , A1R+10, B1+1, B1+3, B1+4, B1+5, C1+1, D1+1, E1+1, E1R+4, F1+3 , F1+4, F1+5, A2+2, A2+4*
Y	DT, DT+1, DT+2, BEGIN+2, BEGIN+5!, A1R+3, A1R+4!, A1R+5!, A1R+7, A1R+8 , A1R+10, B1+1, B1+3!, B1+4!, B1+5!, C1+1, D1+1, F1+4, F1+5!, A2+2 , A2+4!

Customize PDF page

Package: Quality Assurance

Routine: AQAOT81

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: