Routine: FHORT5D

Information

FHORT5D ; HISC/REL/NCA/RVD - Tubefeeding Reports (cont) ;5/4/93 10:52

Package	Total	Call Graph
Dietetics	1	(DPLL,LL3,LL4)^FHLABEL

Package	Total	Caller Graph
Dietetics	1	FHORT5A

Name	Comments	DBIA/ICR reference
HD4	; Cost Report Header
LLB	;
LL	;
LAB	; Print Labels
L2
L3
LHDR	; Label Header
L1
CST	; Print Cost Report for Tubefeeding
C2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Total: ",?71,$J(D2,8,2),!!!,"No. of Patients on TF: ",?33,$J($P(X0,"^",1),6) Line Location: C2+5
Function Call: WRITE	Prompt: !,"No. of Patients on TF and Tray: ",?33,$J($P(X0,"^",2),6),!,"No. of Patients on TF and SF: ",?33,$J($P(X0,"^",3),6) Line Location: C2+6
Function Call: WRITE	Prompt: !,"No. of Patients on ALL Three: ",?33,$J($P(X0,"^",4),6),!,"Cost/Patient: ",?33 Line Location: C2+7
Function Call: WRITE	Prompt: $J($S(X:D2/X,1:""),6,2),! Line Location: C2+7
Function Call: WRITE	Prompt: !!!!!!!!!!!!!!!!!! Line Location: LAB+5
Function Call: WRITE	Prompt: !,Y0,!,Y1,! Line Location: L3+3
Function Call: WRITE	Prompt: !!! Condition for execution: LAB=2 Line Location: L3+3
Function Call: WRITE	Prompt: !,Y0,!,Y1,! Line Location: L3+4
Function Call: WRITE	Prompt: !!! Condition for execution: LAB=2 Line Location: L3+4
Function Call: WRITE	Prompt: !,NAM,?(S2-$L(WARD)),WARD,!,$P(X0,"^",2),?8,$E(DTP,1,9),?(S2-$L(RM)),RM,! Line Location: LHDR+1
Function Call: WRITE	Prompt: !,$E(DTP,1,9),?17,"T U B E F E E D I N G C O S T R E P O R T",?73,"Page ",PG Line Location: HD4+2
Function Call: WRITE	Prompt: !!?(80-$L(Y)\2),Y Line Location: HD4+3
Function Call: WRITE	Prompt: !!,"Product",?30,"# Patient",?41,"Unit",?53,"# Units",?62,"Cost/Unit",?74,"Total",! Line Location: HD4+4

Name	Line Occurrences (* Changed, ! Killed)
^FH(114 - [#114]	C2+3
^FH(118.2 - [#118.2]	CST+1, C2+3
^FH(119.9 - [#119.9]	LAB+1
^TMP($J	CST+1*, CST+3, C2, C2+1, LAB+3, L1, L2+1

Name	Field # of Occurrence
^(	C2+1, L1, L2+1

Name	Field # of Occurrence
>> CN	LLB+2*
>> CNOD	CST+2, CST+3, C2, C2+1, HD4+3
>> COUNT	LAB+2*
>> D2	C2, C2+3, C2+5, C2+7
>> DTP	LHDR+1, HD4+2, LL+7*, LL+8
>> FHCOL	LL+1*, LL+2
>> FHLABST	LL+2*
>> FHN	LLB+2*, LLB+3, LLB+4
>> FHST	LLB+1*, LLB+2
>> FHTAB	LL+6*, LL+7, LL+9, LL+10
IOF	HD4+1
>> IOS	LAB+1
IOSL	C2+2
IOST	HD4+1
>> LAB	LAB+1*, LAB+4, L3+2, L3+3, L3+4, LL+1, LL+3, LL+4, LL+6, LLB+1 , LLB+3, LLB+4, LLB+5
>> LABSTART	LL+2*
>> LINE	LAB+2*
>> LL	CST+1, C2+1, C2+3
>> LNA	LL+9*, LLB+3, LLB+4
>> LNB	LL+10*, LLB+3, LLB+4
>> MUL	L3+1, L3+3, LL+11, LL+12
>> NAM	CST+1, C2, C2+1, L2, LHDR+1, LL+7*, LL+9
>> PCL1	LL+3, LL+4, LLB+3, LLB+4
>> PCL2	LL+3, LL+4, LLB+3, LLB+4
>> PCL3	LL+3, LL+4, LLB+3, LLB+4
>> PCL4	LL+3, LL+4, LLB+3, LLB+4
>> PCL5	LL+3, LL+4, LLB+3, LLB+4
>> PCL6	LL+3, LL+4, LLB+3, LLB+4
>> PCL7	LL+4, LLB+4
>> PCL8	LL+4, LLB+4
>> PG	HD4+1*, HD4+2
>> PNOD	L1*, L2+1
>> PR	C2+3*, C2+4
>> RM	L2*, LHDR+1, LL+10
>> S1	LAB+1*
>> S2	LAB+1*, LHDR+1
>> STR	L3*
>> SUM	CST+2, HD4+3
>> TF2	L2+1*
>> TNOD	LAB+3*, L1, L2+1
>> TP	C2+1*, C2+4
>> TU	C2+1, C2+3, C2+4
U	LL+7
>> WARD	L2*, LHDR+1, LL+7, LL+9
>> X	C2+7*
>> X0	C2, C2+5, C2+6, C2+7, L1, L2, LHDR+1, LL+7
>> X02P	LL+7*, LL+8
>> X0DTP	LL+8*, LL+10
>> X1	C2+1, L2+1, L3, L3+1, L3+4, LL+12
>> X2	L3+4, LL+12
>> X3	L2, L2+1
>> Y	HD4+3*
>> Y0	C2+3, C2+4, L3, L3+1*, L3+3, L3+4, LLB+2, LLB+3, LLB+4
>> Y0X	LLB+2*
>> Y1	L3, L3+1, L3+3, L3+4, LLB+3, LLB+4