Routine: FHADR9A

Information

FHADR9A ; HISC/NCA,RTK - Dietetic Survey (cont.) ;1/10/94 16:10

Package	Total	Call Graph
Dietetics	1	(HDR,Q2)^FHADRPT

Package	Total	Caller Graph
Dietetics	1	FHADRPT

Name	Comments	DBIA/ICR reference
HDR	; Section Heading
HD1	; Print Heading for Overall Service
DECODE	; Decode each string rating
PRT	; Print the Dietetic Survey
EN2	; Print the Dietetic Survey
Q11
LP	; Loop to Print each row

Name	Field # of Occurrence
HDR^FHADRPT	EN2+1, LP+1
Q2^FHADRPT	EN2+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,QNAM,! Line Location: LP+3
Function Call: WRITE	Prompt: !,"Total",?23 Line Location: LP+23
Function Call: WRITE	Prompt: $J($S(X:X,1:""),5)_$S(NRT(L2):$J(TQR(L2)/NRT(L2),5,2),1:$J("",5))_$J("",12) Line Location: LP+23
Function Call: WRITE	Prompt: ?111,$J($S(SUM:SUM,1:""),5),$S(FNRT:$J(FTQR/FNRT,5,2),1:$J("",5)),! Line Location: LP+24
Function Call: WRITE	Prompt: !!!!,"S E C T I O N VI P A T I E N T S A T I S F A C T I O N" Line Location: HDR+1
Function Call: WRITE	Prompt: !!!,"DIETETIC SURVEY",?25,"1st Qtr",?47,"2nd Qtr",?69,"3rd Qtr",?91,"4th Qtr",?113,"YTD Rtng" Line Location: HD1+1
Function Call: WRITE	Prompt: !?25,"Num Rtng",?47,"Num Rtng",?69,"Num Rtng",?91,"Num Rtng",?113,"ToT Avg",! Line Location: HD1+2

Name	Line Occurrences (* Changed, ! Killed)
^FH(117.3 - [#117.3]	DECODE+3, DECODE+4

Name	Field # of Occurrence
CHR	DECODE+8*, DECODE+10, PRT+3!
CTR	DECODE+6, DECODE+11, DECODE+13, PRT+3!, LP+13*, LP+14, LP+15, LP+16, LP+17
>> EDT	Q11
>> FHYR	EN2+4
FIN	PRT+3!, LP+9, LP+16, LP+19, LP+20
>> FNRT	LP+4, LP+22, LP+24
>> FTQR	LP+4, LP+22, LP+24
I	EN2+3*, PRT+3!
J	DECODE+7*, DECODE+8, PRT+3!
L	PRT+3!
L1	DECODE+1, DECODE+3, DECODE+4, PRT+3!
L2	PRT+3!, LP+23*
>> LIN	EN2+1, LP+1
LP	DECODE+5*, DECODE+6, PRT+3!
N	Q11+1, DECODE+2, DECODE+14, PRT+2, PRT+3!, LP+2, LP+11, LP+12, LP+23
N1	PRT+3!, LP+6*, LP+7, LP+13
>> NRT(	LP+5, LP+17, LP+22, LP+23
NUM	DECODE+8, DECODE+11, PRT+3!, LP+13, LP+14
>> PRE	EN2+4*, DECODE+3, DECODE+4
QNAM	PRT+3!, LP+2*, LP+3
QR	EN2+4, PRT+3!, LP+10, LP+11, LP+12, LP+16, LP+17
>> QTR	EN2+4*, DECODE+14
>> RR	LP+5, LP+22
RTG	DECODE+10, DECODE+11, PRT+3!, LP+9, LP+16*, LP+19
S1	DECODE+1, DECODE+12, DECODE+14, PRT+3!
S2	DECODE+1, DECODE+13, DECODE+14, PRT+3!
S3	DECODE+1, DECODE+11, DECODE+14, PRT+3!
>> SDT	Q11
SUM	PRT+3!, LP+4, LP+20, LP+24
SURV	DECODE+4*, DECODE+6, PRT+3!
T1	EN2+2!, PRT+3!
T1(	EN2+3, DECODE+14, LP+11
T2	EN2+2!, PRT+3!
T2(	EN2+3, DECODE+14, LP+12
TIT	PRT+3!, LP+7*, LP+8
TLE	DECODE+2*, DECODE+3, DECODE+4, PRT+3!
TOT	EN2+2!, PRT+3!
TOT(	EN2+3, DECODE+14, LP+23
TQ	EN2+2, PRT+3!, LP+9, LP+17*, LP+19
>> TQR(	LP+5, LP+16, LP+22, LP+23
VAL	DECODE+6, DECODE+11, DECODE+12, PRT+3!
X	DECODE+6, DECODE+7, DECODE+8, PRT+3!, LP+14, LP+15, LP+16, LP+23*
X1	DECODE+8, PRT+3!, LP+11, LP+13
X2	PRT+3!, LP+12*, LP+13