Routine: FBNHRCS3

Information

FBNHRCS3 ;ACAMPUS/dmk-RCS 10-0168 (18-3) ;1/14/98

Name	Comments	DBIA/ICR reference
FIELD	;fields to be printed
HED

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P($T(FIELD+J),";;",2),?55,$S(J=12:$E($P(^(I),U,J),4,5)_$E($P(^(I),U,J),2,3),1:$P(^(I),U,J)) Line Location: FBNHRCS3+10
Function Call: WRITE	Prompt: @IOF Line Location: FBNHRCS3+13
Function Call: WRITE	Prompt: @IOF Line Location: HED+0
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("COMMUNITY NURSING HOME 10-0168 (18-3) REPORT",80) Line Location: HED+1
Function Call: WRITE	Prompt: !?20,"FROM DATE: ",$$DATX^FBAAUTL(FBBEG)," TO DATE: ",$$DATX^FBAAUTL(FBEND) Line Location: HED+2
Function Call: WRITE	Prompt: !?16,">>> NOTE: FIELDS 7, 10, 12 are current data <<<" Line Location: HED+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR($$REPEAT^XLFSTR("=",46),80),!! Line Location: HED+4