Routine: AQAOPR22

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
Quality Assurance	2	TIME^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	2	Y^DIQ ^DIR

Package	Total	Caller Graph
Quality Assurance	1	AQAOPR21

Entry Points

Name	Comments	DBIA/ICR reference
COMMENT	; >>> print comments area
END	; >>> eoj
RISK	; >>> print all risk of outcomes in file
REVIEW	; >>> print review level data
HEADING	; >>> print worksheet heading & top section
NEWPG	; >>> SUBRTN for end of page control
INIT	; >>> initialize variables
ACTION	; >>> print actions available for this review level
FIND	; >>> print findings available for this review level

External References

Name	Field # of Occurrence
^%ZIS	HEADING+1
^%ZISC	END+2
TIME^AQAOUTIL	HEADING+3
PRTOPT^AQAOVAR	END+1
Y^DIQ	HEADING+12, HEADING+14, HEADING+16
^DIR	NEWPG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REVIEW WORKSHEET FOR QAI OCCURRENCE" Line Location: HEADING+2
Function Call: WRITE	Prompt: ?60,Y Line Location: HEADING+3
Function Call: WRITE	Prompt: !,"Case ID: ",AQAOCID Line Location: HEADING+5
Function Call: WRITE	Prompt: ?40,"Patient: ",$E(AQAONAM,1,20) Line Location: HEADING+5
Function Call: WRITE	Prompt: " #",$P(^AUPNPAT(X,41,DUZ(2),0),U,2) Line Location: HEADING+6
Function Call: WRITE	Prompt: !,"Occurrence Date: " Line Location: HEADING+7
Function Call: WRITE	Prompt: Y Line Location: HEADING+7
Function Call: WRITE	Prompt: ?40,"Visit Date: " Line Location: HEADING+8
Function Call: WRITE	Prompt: Y Line Location: HEADING+10
Function Call: WRITE	Prompt: !,"Service/Ward or Clinic: ",$E(Y,1,25),"/" Line Location: HEADING+15
Function Call: WRITE	Prompt: $E(Y,1,25) Line Location: HEADING+16
Function Call: WRITE	Prompt: !,"Indicator: " Line Location: HEADING+17
Function Call: WRITE	Prompt: $P(^AQAO(2,Y,0),U),?25,$P(^(0),U,2) Line Location: HEADING+18
Function Call: WRITE	Prompt: !,AQAOLINE,! Line Location: HEADING+19
Function Call: WRITE	Prompt: !?(80-$L(X))/2,X,! Line Location: REVIEW+1
Function Call: WRITE	Prompt: !,"REVIEWER/TEAM NAME: " Line Location: REVIEW+2
Function Call: WRITE	Prompt: AQAOLIN2,?47,"REVIEW DATE: ",AQAOLIN2 Line Location: REVIEW+2
Function Call: WRITE	Prompt: !!,"PERFORMANCE LEVELS BY PROVIDER (Only asked when closing occurrence)",! Line Location: RISK+12
Function Call: WRITE	Prompt: !!,"FINDING:",! Line Location: FIND+1
Function Call: WRITE	Prompt: !!,"ACTION:",! Line Location: ACTION+1
Function Call: WRITE	Prompt: !,"COMMENTS: " Line Location: COMMENT+2
Function Call: WRITE	Prompt: @IOF,!,"Case ID: ",AQAOCID Line Location: NEWPG+3
Function Call: WRITE	Prompt: ?40,"Patient: ",$E(AQAONAM,1,20) Line Location: NEWPG+3
Function Call: WRITE	Prompt: " #",$P(^AUPNPAT(X,41,DUZ(2),0),U,2) Line Location: NEWPG+4
Function Call: WRITE	Prompt: !,AQAOLINE,!! Line Location: NEWPG+5
Routine Call	DIR Line Location: NEWPG+1
Routine Call	%ZIS Line Location: HEADING+1

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(2 - [#9002168.2]	HEADING+18
^AQAO(6 - [#9002168.6]	ACTION+2, ACTION+3
^AQAO(8 - [#9002168.8]	FIND+2, FIND+3
^AQAO1(3 - [#9002169.3]	RISK+4, RISK+5, RISK+13, RISK+14
^AQAOC - [#9002167]	HEADING+3
^AUPNPAT - [#9000001]	HEADING+6, NEWPG+4
^AUPNVSIT - [#9000010]	HEADING+10, HEADING+12
^DD("DD"	HEADING+3, HEADING+7, HEADING+10
^DD(9000010	HEADING+12
^DD(9002167	HEADING+14, HEADING+16
^DPT - [#2]	HEADING+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AQAOCID	HEADING+5, NEWPG+3
>> AQAODEV	HEADING+1
>> AQAOI	RISK+2*, RISK+3, RISK+6, RISK+7
>> AQAOIFN	HEADING+3
>> AQAOLIN2	INIT+2*, REVIEW+2
>> AQAOLINE	INIT+1*, HEADING+19, NEWPG+5
>> AQAONAM	HEADING+4*, HEADING+5, NEWPG+3
>> AQAORLEV	REVIEW+1, RISK+1, FIND+4, ACTION+4
>> AQAOSLV	END+1
>> AQAOSTOP	INIT+3, RISK+2, RISK+4, RISK+9, RISK+13, RISK+18, RISK+22, FIND+2, FIND+7, ACTION+2 , ACTION+7, COMMENT+1, NEWPG+1, NEWPG+2
>> AQAOSTR	HEADING+3*, HEADING+4, HEADING+6, HEADING+7, HEADING+9, HEADING+14, HEADING+16, HEADING+18, NEWPG+4
>> AQAOV	HEADING+9*, HEADING+11, HEADING+12
>> AQAOX	RISK+4, RISK+5, RISK+13, RISK+14, FIND+2, FIND+3, ACTION+2, ACTION+3
>> AQAOX1	RISK+5, RISK+6, RISK+7, RISK+14, RISK+15, RISK+16, FIND+3, FIND+4, FIND+5, ACTION+3 , ACTION+4, ACTION+5
>> C	HEADING+12, HEADING+14, HEADING+16*
DIR	NEWPG+1!
DIR(0	NEWPG+1*
DT	HEADING+3
DUZ(2	HEADING+6, NEWPG+4
>> I	RISK+19*
IO	HEADING+1
IOF	NEWPG+3
>> IOP	HEADING+1*
IOSL	RISK+8, RISK+17, RISK+20, FIND+6, ACTION+6, COMMENT+1
IOST	NEWPG+1
U	HEADING+4, HEADING+6, HEADING+7, HEADING+9, HEADING+10, HEADING+12, HEADING+14, HEADING+16, HEADING+18, REVIEW+1 , RISK+2, RISK+4, RISK+6, RISK+7, RISK+9, RISK+13, RISK+15, RISK+16, RISK+18, RISK+22 , FIND+2, FIND+3, FIND+4, FIND+5, FIND+7, ACTION+2, ACTION+3, ACTION+4, ACTION+5, ACTION+7 , COMMENT+1, NEWPG+2, NEWPG+4
>> X	HEADING+6, REVIEW+1, NEWPG+1, NEWPG+4*
>> Y	HEADING+3, HEADING+7, HEADING+9, HEADING+10, HEADING+12, HEADING+13, HEADING+14, HEADING+15, HEADING+16, HEADING+18
>> ZTQUEUED	END+1

Customize PDF page

Package: Quality Assurance

Routine: AQAOPR22

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:

Name	Line Occurrences
COMMENT	RISK+1
END	RISK+9, RISK+18, RISK+22, FIND+7, ACTION+7, COMMENT+1
NEWPG	RISK+8, RISK+17, RISK+20, FIND+6, ACTION+6, COMMENT+1