Routine: AQAOPR6

Information

AQAOPR6 ; IHS/ORDC/LJF - PRINT OCC WORKSHEET ;

Source file <AQAOPR6.m>

Package	Total	Call Graph
Quality Assurance	3	$$IND^AQAOLKP KILL^AQAOUTIL PRTOPT^AQAOVAR
VA Fileman	2	EN1^DIP ^DIR

Name	Comments	DBIA/ICR reference
COMMENT	; >>> print comments area
END	; >>> eoj
RISK	; >>> print all risk of outcomes in file
NEWPG	; >>> SUBRTN for end of page control
LEVEL	; >>> ask user which review level will be used for inital review
REVIEW	;EP; >>> print review level data
ACTION	; >>> print actions available for this review level
INDCTR	; >>> ask user which indicator to print worksheet for
PRINT	; >>> set print varialbes and call dip
FIND	; >>> print findings available for this review level

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LEVEL+2
Function Call: WRITE	Prompt: !! Line Location: PRINT+1
Function Call: WRITE	Prompt: !!?(80-$L(X))/2,X,! Line Location: REVIEW+6
Function Call: WRITE	Prompt: !,"REVIEWER/TEAM NAME: " Line Location: REVIEW+7
Function Call: WRITE	Prompt: AQAOLIN2,?47,"REVIEW DATE: ",AQAOLIN2 Line Location: REVIEW+7
Function Call: WRITE	Prompt: !!,"FINDING:",! Line Location: FIND+1
Function Call: WRITE	Prompt: !!,"ACTION:",! Line Location: ACTION+1
Function Call: WRITE	Prompt: !!,"PERFORMANCE LEVELS BY PROVIDER (Only asked when closing occurrence)",! Line Location: ACTION+10
Function Call: WRITE	Prompt: !!,"COMMENTS: " Line Location: COMMENT+2
Function Call: WRITE	Prompt: @IOF,!,"QI OCCURRENCE WORKSHEET" Line Location: NEWPG+3
Function Call: WRITE	Prompt: !,AQAOLINE,! Line Location: NEWPG+4
Routine Call	DIR Line Location: LEVEL+3 NEWPG+1

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(2 - [#9002168.2]	LEVEL+1, REVIEW+1
^AQAO(6 - [#9002168.6]	ACTION+2, ACTION+3
^AQAO(8 - [#9002168.8]	FIND+2, FIND+3
^AQAO1(3 - [#9002169.3]	RISK+4, RISK+5, ACTION+11, ACTION+12

Name	Line Occurrences
END	INDCTR+1, LEVEL+4, ACTION+16, ACTION+20
FIND	RISK+1
INDCTR	INDCTR+1
NEWPG	REVIEW+4, RISK+8, FIND+6, ACTION+6, ACTION+15, ACTION+18, COMMENT+1
PRINT	LEVEL+1

Name	Field # of Occurrence
^(0	RISK+5, FIND+3, ACTION+3, ACTION+12
^(1	LEVEL+1, REVIEW+1

Name	Field # of Occurrence
>> AQAOI	RISK+2*, RISK+3, RISK+6, RISK+7
>> AQAOIND	INDCTR+1, INDCTR+2, LEVEL+1, PRINT+2, REVIEW+1
>> AQAOLIN2	REVIEW+3*, REVIEW+7
>> AQAOLINE	REVIEW+2*, NEWPG+4
>> AQAORLEV	LEVEL+4*, REVIEW+5, RISK+1, FIND+4, ACTION+4
>> AQAOSTOP	END+1, REVIEW+4, RISK+2, RISK+4, RISK+9, FIND+2, FIND+7, ACTION+2, ACTION+7, ACTION+11 , ACTION+16, ACTION+20, COMMENT+1, NEWPG+1, NEWPG+2
>> AQAOX	RISK+4, RISK+5, FIND+2, FIND+3, ACTION+2, ACTION+3, ACTION+11, ACTION+12
>> AQAOX1	RISK+5, RISK+6, RISK+7, FIND+3, FIND+4, FIND+5, ACTION+3, ACTION+4, ACTION+5, ACTION+12 , ACTION+13, ACTION+14
>> BY	PRINT+2*
>> DIC	PRINT+1*
>> DIOEND	PRINT+4*
DIR	LEVEL+2!, NEWPG+1!
DIR("A"	LEVEL+3*
DIR(0	LEVEL+2, NEWPG+1
>> DIRUT	LEVEL+4
>> DIS(0	PRINT+3*
>> FLDS	PRINT+1*
>> FR	PRINT+2*
>> I	ACTION+17*
IOF	NEWPG+3
IOSL	RISK+8, FIND+6, ACTION+6, ACTION+15, ACTION+18, COMMENT+1
IOST	NEWPG+1
>> L	PRINT+1*
>> TO	PRINT+2*
U	INDCTR+1, LEVEL+1, END+1, REVIEW+1, REVIEW+4, REVIEW+5, RISK+2, RISK+4, RISK+6, RISK+7 , RISK+9, FIND+2, FIND+3, FIND+4, FIND+5, FIND+7, ACTION+2, ACTION+3, ACTION+4, ACTION+5 , ACTION+7, ACTION+11, ACTION+13, ACTION+14, ACTION+16, ACTION+20, COMMENT+1, NEWPG+2
>> X	REVIEW+5*, REVIEW+6, NEWPG+1
>> Y	LEVEL+4
>> ZTQUEUED	END+1