Routine: FBCNHCEN

Information

FBCNHCEN ;AISC/CMR-CNH/CH CENSUS DATA ;1/13/98

Name	Comments	DBIA/ICR reference
START
END
GOT
PRINT
HED
HED1
ASIH	;Checks to see if vet has been transferred ASIH on specified date.

Name	Line Occurrences
Function Call: WRITE	Prompt: "Inpatient type is not identified." Line Location: FBCNHCEN+4
Function Call: WRITE	Prompt: !!,"**CENSUS DATE SELECTION**" Line Location: FBCNHCEN+5
Function Call: WRITE	Prompt: ! Line Location: FBCNHCEN+6
Function Call: WRITE	Prompt: ! Line Location: FBCNHCEN+7
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !?4,FBNAME,?32,$$FMTE^XLFDT(FBDOB),?46,$$SSN^FBAAUTL(DFN),?60,$$PSA^FBAAUTL5(FBPSA),?67,$$FMTE^XLFDT(FBAFD) Line Location: PRINT+2
Function Call: WRITE	Prompt: !?20,"FEE BASIS ",$S(FBI=6:"CIVIL HOSPITAL",FBI=7:"CONTRACT NURSING HOME",1:"UNKNOWN")," CENSUS",!?31,$$FMTE^XLFDT(FBDT),!?20,$S(FBI=6:$E(QQ,1,31),1:QQ) Line Location: HED+0
Function Call: WRITE	Prompt: !!,"VENDOR NAME",?40,"VENDOR ID",!?4,"VETERAN NAME",?36,"DOB",?46,"VETERAN ID",?60,"PSA",?67,"AUTH FROM",!,Q Line Location: HED+1
Function Call: WRITE	Prompt: @IOF Line Location: HED1+1
Function Call: WRITE	Prompt: !!!,FBVNAME Line Location: HED1+2
Function Call: WRITE	Prompt: ?40,$$VID^FBNHEXP(FBVIEN) Line Location: HED1+3