Routine: BONDEMO

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;GET DFN FOR NAME TO PRINT
START	;
HOBBIES	;If Hobbies Exist - get one hobby dfn only
HEADING	;Print Heading
PRINT1	;PRINT ACTUAL NAME

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"LAST PATIENT DFN ACCESSED = ",LASTNAME Line Location: START+8
Function Call: WRITE	Prompt: !,"GRAND TOTAL COUNT-ALL RECORDS: ",GRANDTOT Line Location: START+9
Function Call: WRITE	Prompt: !?5,TOTALCT,?15,$P(^TONIDEMO(X,0),U) Line Location: PRINT1+1
Function Call: WRITE	Prompt: ?40,X,?45,$P(^TONIDEMO(X,0),U,10) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?60,TONISEX Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?65,HOBBPRNT Line Location: PRINT1+7
Function Call: WRITE	Prompt: !!,"EMPLOYEE: ",?15,"NAME",?39,"DFN",?45,"SSN",?60,"SEX",?65,"1 HOBBY",! Line Location: HEADING+1